//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();
