$cT = new cTipos(); //inicializa el LOG del proceso $aliasFil = getSucursal() . "-carga-batch-de-inversiones-" . fechasys(); $xLog = new cFileLog($aliasFil, true); if ($gestor) { while (!feof($gestor)) { $bufer = fgets($gestor, 4096); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $bufer = trim($bufer); $datos = explode(",", $bufer, 6); $socio = $cT->cInt($datos[0]); $importe = $cT->cFloat($datos[1]); $fechaApertura = $cT->cFecha($datos[2]); $plazo = $cT->cInt($datos[3]); $tasa = $cT->cFloat($datos[4]); $observaciones = $cT->cChar($datos[5]); $ClaveCuenta = false; //Iniciar el Socio //$msg .= "$iReg\t$socio\tERROR_SOCIO\t$socio -- $importe -- $fechaApertura -- $plazo -- $tasa -- $observaciones\r\n"; $xCL = new cCajaLocal(99); if ($xCL->getExistenciaSocio($socio) <= 0) { $msg .= "{$iReg}\t{$socio}\tERROR_SOCIO\tLa Linea({$iReg}) no se leyo por que no existe el socio({$bufer})\r\n"; } else { $xInv = new cCuentaInversionPlazoFijo(false, $socio, $plazo, $tasa, $fechaApertura); //Agrega la Cuenta $ClaveCuenta = $xInv->setNuevaCuenta(99, 2, $socio, $observaciones, DEFAULT_CREDITO, "", "", DEFAULT_GRUPO, $fechaApertura, CAPTACION_TIPO_PLAZO, 99, $plazo, $tasa); if ($ClaveCuenta != false) { $msg .= "{$iReg}\t{$socio}\tCUENTA\tSe Agrego Exitosamente la cuenta {$ClaveCuenta}\r\n";
$aliasFil = getSucursal() . "-carga -batch-de-creditos-" . fechasys(); $xLog = new cFileLog($aliasFil, true); if ($gestor) { while (!feof($gestor)) { $bufer = fgets($gestor, 4096); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $bufer = trim($bufer); $datos = explode(",", $bufer, 12); $socio = $cT->cInt($datos[0]); $credito = $cT->cInt($datos[1]); $producto = $cT->cInt($datos[2]); $monto = $cT->cFloat($datos[3]); $ministracion = $cT->cFecha($datos[4]); $vencimiento = $cT->cFecha($datos[5]); $pagos = $cT->cInt($datos[6]); $periocidad = $cT->cInt($datos[7]); $saldo = $cT->cFloat($datos[8]); $UltimaOperacion = $cT->cFecha($datos[9]); $ContratoCorriente = $cT->cInt($datos[10]); if ($socio == 0) { $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $xCred = new cCredito(); //Crear Contrato corriente si el producto tiene ahorro $DConv = $xCred->getDatosDeProducto($producto); $tasaAhorro = $cT->cFloat($DConv["tasa_ahorro"]); if ($ContratoCorriente == 0 and $tasaAhorro > 0) { $xCapta = new cCuentaALaVista(false);
/** * Funcion que Guarda el Monto de la Parcialidad * @param string $params Indica los parametros a cruzar **/ function Common_1fff3ce8ffd3d2dfdee69fd04ba831ac($params) { $stdDiv = STD_LITERAL_DIVISOR; $DPar = explode($stdDiv, $params, 2); $mFecha = new cFecha(); //grupo $xTip = new cTipos(); // $credito = $xTip->cInt($DPar[0]); // $pagos = $xTip->cInt($DPar[1]); $fecha_de_vencimiento = $xTip->cFecha($DPar[2]); $dias_autorizados = 0; $pagos_autorizados = 0; $convenio = 0; $saldo_actual = 0; $parcialidad = 0; $fecha_de_revision = $mFecha->get(); $grupo = 0; $fecha_de_ministracion = 0; $contrato_corriente = 0; $sql = "UPDATE creditos_solicitud\n SET\n numero_pagos\t\t\t= {$pagos_autorizados},\n fecha_vencimiento\t\t= '{$fecha_de_vencimiento}',\n pagos_autorizados\t\t= {$pagos_autorizados},\n saldo_actual\t\t\t= {$saldo_actual},\n tipo_convenio\t\t\t= {$convenio},\n ultimo_periodo_afectado\t\t= {$parcialidad},\n grupo_asociado\t\t\t= {$grupo},\n fecha_ministracion\t\t= '{$fecha_de_ministracion}',\n contrato_corriente_relacionado={$contrato_corriente},\n monto_parcialidad={$parcialidad},\n fecha_revision='{$fecha_de_revision}',\n /* tipo_de_pago= ,\n tipo_de_calculo_de_interes=0,\n causa_de_mora=0 */\n WHERE\n numero_solicitud={$credito}\n"; }