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"; if ($importe > 0) { $xInv->init(); $xInv->setFechaDeOperacion($fechaApertura); $xInv->setDiasInvertidos($plazo); $RDeposito = $xInv->setDeposito($importe, DEFAULT_CHEQUE, DEFAULT_TIPO_PAGO, DEFAULT_RECIBO_FISCAL, $observaciones, DEFAULT_GRUPO, $fechaApertura); $msg .= "{$iReg}\t{$socio}\tRECIBO_DEPOSITO\tSe Efectua un Deposito de {$importe} al Recibo {$RDeposito}\r\n"; $xInv->init(); $recibo_de_reinversion = $xInv->setReinversion($fechaApertura, true, $tasa, $plazo);
function setValidar() { $msg = ""; $this->init(); $cajaLocalR = $this->mCajaLocalRes; //Actualiza le socio por default a la actual sucursal $sqlUS = "UPDATE socios_general SET sucursal = '" . getSucursal() . "', cajalocal = " . $cajaLocalR . " WHERE codigo =" . DEFAULT_SOCIO . " "; my_query($sqlUS); //NOTE: Verifica si existe el Socio por default $xCL = new cCajaLocal($cajaLocalR); if ($xCL->getExistenciaSocio(DEFAULT_SOCIO) == 0) { $msg .= "EL socio por defecto no existe\r\n"; $xSoc = new cSocio(DEFAULT_SOCIO); $xSoc->add("", "PUBLICO_GENERAL", "", "POR_REGISTRAR", "POR_REGISTRAR", $cajaLocalR, false, "DESCONOCIDO", 99, 99, 99, 99, 99, 1, DEFAULT_GRUPO, "", 1, "0", DEFAULT_SOCIO, getSucursal()); } //Actualiza al User 99 a la CURS SUCURSAL $sqlUUserRoot = "UPDATE t_03f996214fba4a1d05a68b18fece8e71\n\t\t\t\t\t\t\tSET sucursal='" . getSucursal() . "' WHERE idusuarios = " . DEFAULT_USER; my_query($sqlUUserRoot); $msg .= "" . "\tActualizando ROOT a la sucursal para manejo de Ops. Huerfanas\r\n"; return $msg; }