$Fecha = $Fecha == false ? fechasys() : $xF->getFechaISO($Fecha);
$detalles = parametro("idobservaciones");
$cheque = parametro("cheque", DEFAULT_CHEQUE);
$comopago = parametro("ctipo_pago", DEFAULT_TIPO_PAGO, MQL_RAW);
//$cuenta_cheques = parametro("cuenta_cheques", DEFAULT_CUENTA_BANCARIA);
$foliofiscal = parametro("foliofiscal", DEFAULT_RECIBO_FISCAL);
$sucess = true;
$xCta = new cCuentaInversionPlazoFijo($iddocto, $idsocio);
$xCta->init();
//$xCta->setCuentaBancaria($cuenta_cheques);
$maximo_retirable = $xCta->getMaximoRetirable();
if ($monto > $maximo_retirable) {
$msg .= "ERROR\tNo puede Retirar mas de {$maximo_retirable}, usted quizo retirar {$monto} \r\n";
$sucess = false;
}
if ($xCta->getEsOperable() == false) {
$msg .= "ERROR\tLa cuenta No es Operable\r\n";
$sucess = false;
}
$xFRM->addAviso($msg);
if ($sucess == true) {
$recibo = $xCta->setRetiro($monto, $cheque, $comopago, $foliofiscal, $detalles, DEFAULT_GRUPO, $Fecha);
//Imprime la Ficha del socio
$xCta->init();
$xSoc = new cSocio($xCta->getClaveDePersona());
$xSoc->init();
$xFRM->addHTML($xSoc->getFicha());
$xFRM->addHTML($xCta->getFicha(true));
if ($xCta->getORec() == null) {
} else {
$xFRM->addHTML($xCta->getORec()->getFicha(true));
$xFRM->addCuentaCaptacionBasico(true, CAPTACION_TIPO_PLAZO);
$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
$xTyp = new cTipos();
$sucess = true;
$tasa = parametro("idtasa", 0, MQL_FLOAT);
$dias = parametro("iddias", INVERSION_DIAS_MINIMOS, MQL_INT);
$CuentaDeInteres = parametro("idcuentainteres", DEFAULT_CUENTA_CORRIENTE, MQL_INT);
$observaciones = parametro("idobservaciones");
$fecha_actual = parametro("idfecha-0", false);
$fecha_actual = $fecha_actual == false ? fechasys() : $xF->getFechaISO($fecha_actual);
$xSoc = new cSocio($persona);
$xSoc->init();
$tasa = $tasa / 100;
$CuentaDeInteres = $CuentaDeInteres == DEFAULT_CUENTA_CORRIENTE ? false : $CuentaDeInteres;
//Codigo para Iniciar la Reinversion
$xCta = new cCuentaInversionPlazoFijo($cuenta, $persona);
$xCta->init();
if ($xCta->getEsOperable($fecha_actual) == false) {
$messages .= "ERROR\tNO_OP\tLa Cuenta no es Operativa\r\n";
$sucess = false;
}
$arrUpdate = array("tasa_otorgada" => $tasa, "dias_invertidos" => $dias);
//actualizar datos de la Inversion
if ($CuentaDeInteres != false and $xSoc->existeCuenta($CuentaDeInteres) == false) {
$arrUpdate["cuenta_de_intereses"] = $CuentaDeInteres;
$messages .= "ERROR\tNO_ACT\tLa Cuenta Corriente de Interes es {$CuentaDeInteres}\r\n";
}
if ($sucess == true) {
$xCta->setUpdate($arrUpdate);
$xCta->init();
} else {
$messages .= "WARN\\NO_ACT\tLa Cuenta no se actualizo\r\n";
}
