$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"; }