//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); $msg .= "{$iReg}\t{$socio}\tRECIBO_INVERSION\tSe Efectua una Inversion de {$importe} al Recibo {$recibo_de_reinversion}\r\n"; $msg .= $xInv->getMessages("txt"); } } else { $msg .= "{$iReg}\t{$socio}\tERROR\tSe Fallo al Agregar la Cuenta\r\n"; } } } $iReg++; } } fclose($gestor);
$xFRM->addSubmit(); $xFRM->addHElem($xTxt->getDeMoneda("idmonto", "TR.deposito", 0, true)); $xFRM->addCobroBasico(); $xFRM->addHElem($xDate->get("TR.Fecha")); $xFRM->addObservaciones(); $xFRM->addJsBasico(iDE_CAPTACION, CAPTACION_TIPO_PLAZO); $jxc->drawJavaScript(false, true); } else { if ($monto <= 0) { $msg .= "ERROR\tEL MONTO DEBE SER MAYOR A CERO\r\n"; } else { $xCta = new cCuentaInversionPlazoFijo($iddocto, $idsocio); $xCta->init(); $ide = $xCta->getMontoIDE($Fecha, $monto, $comopago); if ($xCta->getEsOperable($Fecha) == true) { $recibo = $xCta->setDeposito($monto, $cheque, $comopago, $folio_fiscal, $detalles, DEFAULT_GRUPO, $Fecha); //si el IDE es mayor a cero if ($ide > 0) { $saldo = $xCta->getNuevoSaldo(); $ide_observacion = "Retencion Generada por un Deposito de {$monto}, Recibo {$recibo}, saldo de {$saldo}"; //Si el Saldo de la Cuenta es Mayor al IDE if ($saldo > $ide) { $reciboIDE = $xCta->setRetenerIDE($Fecha, false, $ide, $ide_observacion); } else { //Si no el IDE es igual al Saldo $ide = $saldo; $reciboIDE = $xCta->setRetenerIDE($Fecha, false, $ide, $ide_observacion); } } //Imprime la Ficha del socio $xRec = new cReciboDeOperacion();
$invertido = $acciones * COSTE_POR_ACCION; $dias = 180; $tasa = 0.08; $tasa2 = 0.09; $msg = ""; if ($acciones > 0 and $socio != false and $cuenta != 0) { $cSoc = new cSocio($socio); $cSoc->init(); $xC = new cCuentaInversionPlazoFijo($cuenta, $socio, $dias, $tasa); $xC->init(); //Si la cuenta no tiene 365 dias la cuenta esta bloqueada para operaciones $FVcto = $xC->getFechaDeVencimiento(); $D = $xC->getDatosInArray(); $mPeriodo = $xC->getNumeroDePeriodo(); $ide = $xC->getMontoIDE($fecha_actual, $invertido); $RDeposito = $xC->setDeposito($invertido, $cheque, $tipo_de_pago, $reciboFisc, $observaciones); $xC->init(); $saldo = $xC->getNuevoSaldo(); //si el IDE es mayor a cero if ($ide > 0) { $ide_observacion = "Retencion Generada por un Deposito de {$invertido}, Recibo {$RDeposito}, saldo de {$saldo}"; //Si el Saldo de la Cuenta es Mayor al IDE if ($saldo > $ide) { $ReciboIDE = $xC->setRetenerIDE($fecha_actual, false, $ide, $ide_observacion); } else { //Si no el IDE es igual al Saldo $ide = $saldo; $ReciboIDE = $xC->setRetenerIDE($fecha_actual, false, $ide, $ide_observacion); } // //$xC->init();