function jsaGetLetras($idcredito) { $idcred = setNoMenorQueCero($idcredito); $xF = new cFecha(); if ($idcred > DEFAULT_CREDITO) { $xCred = new cCredito($idcred); $xCred->init(); if ($xCred->getEsAfectable() == false or $xCred->getSaldoActual() <= 0) { if (MODO_CORRECION == true) { $xTxt = new cHText(); $xTxt->setDivClass(""); return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad"); } else { return $xCred->getMessages(); } } else { if ($xCred->getPeriocidadDePago() == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) { // $xTxt = new cHText(); $xTxt->setDivClass(""); return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad"); } else { $plan = $xCred->getNumeroDePlanDePagos(); if ($plan != false) { $xPlan = new cPlanDePagos($plan); $xPlan->init(); $parcs = $xPlan->getParcsPendientes(); //$txt = ""; $arrD = array(); foreach ($parcs as $p) { //setLog( $p[SYS_NUMERO]. " " . $xF->getFechaDDMM($p[SYS_FECHA]) . " ". getFMoney($p[SYS_TOTAL])); if (setNoMenorQueCero($p[SYS_TOTAL]) > 0) { $arrD[$p[SYS_NUMERO]] = $p[SYS_NUMERO] . " " . $xF->getFechaDDMM($p[SYS_FECHA]) . " " . getFMoney($p[SYS_TOTAL]); } } $xSel = new cHSelect(); $xSel->addOptions($arrD); $xSel->setEnclose(false); return $xSel->get("idparcialidad", "TR.Numero de Parcialidad", $xCred->getPeriodoActual() + 1); } else { if (MODO_CORRECION == true) { $xTxt = new cHText(); $xTxt->setDivClass(""); return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad"); } } } } } }
function jsaAmortizarLetras($persona, $credito, $letra, $amortizable) { $NLetra = $letra + 1; $xCred = new cCredito($credito); $xCred->init(); if ($xCred->isAFinalDePlazo() == false) { $xPlan = new cPlanDePagos(); $xPlan->initByCredito($credito); $msg = ""; $DPlan = $xPlan->getLetrasInArray(OPERACION_CLAVE_PLAN_CAPITAL, $NLetra); $amortizable = setNoMenorQueCero($amortizable); for ($ixletra = $NLetra; $ixletra <= $xCred->getPagosAutorizados(); $ixletra++) { if (isset($DPlan[$ixletra])) { $monto = setNoMenorQueCero($DPlan[$ixletra]); if ($amortizable > 0) { if ($amortizable >= $monto) { //cancelar $xPlan->setNeutralizarParcialidad($ixletra); } else { $xPlan->setActualizarParcialidad($ixletra, $monto - $amortizable, false, false); } } $msg .= "WARN\t {$ixletra} --- {$amortizable} {$monto};\r\n"; $amortizable -= $monto; } } $msg .= $xPlan->getMessages(); if (MODO_DEBUG == true) { setLog($msg); } } }
function setCreditoPagado($fecha = false) { $fecha = $fecha == false ? fechasys() : $fecha; //efectuar las operaciones de cierre de credito if ($this->getPeriocidadDePago() == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) { $idPlan = $this->getNumeroDePlanDePagos(); if (isset($idPlan) and $idPlan > 1) { $xPlan = new cPlanDePagos($idPlan); $xPlan->setEliminar(); $this->mMessages .= $xPlan->getMessages(); } } $this->setUpdate(array("saldo_conciliado" => 0, "saldo_actual" => 0, "saldo_vencido" => 0, "fecha_conciliada" => $fecha, "fecha_revision" => $fecha, "ultimo_periodo_afectado" => $this->getPagosAutorizados(), "sdo_int_ant" => 0, "fecha_ultimo_mvto" => $fecha)); }
header("location:../404.php?i=999"); } $_SESSION["current_file"] = addslashes($theFile); //<===== FIN_H $iduser = $_SESSION["log_id"]; //===================================================================================================== $xHP = new cHPage("LETRAS X CREDITO"); $oficial = elusuario($iduser); $solicitud = $_GET["i"]; //Solicitud $f = isset($_GET["f"]) ? $_GET["f"] : "frm"; if (!$solicitud) { echo "<script languaje=\"javascript\">window.close();</script>"; } echo $xHP->getHeader(); $xPlan = new cPlanDePagos(); $xPlan->initByCredito($solicitud); $xT = $xPlan->getEnTabla(false); $xT->setEventKey("setLetra"); $xT->setFootSum(array(2 => "monto")); ?> <body> <hr /> <form name="" method="post" action=""> <?php echo $xT->Show(); ?> <p class="aviso"><input type="button" onclick="window.close();" value="cerrar ventana" /></p> </form> </body>
$msg = ""; if ($action == SYS_CERO) { $xFRM->addHElem("<div class='tx4'><label for='f1'>" . $xFRM->lang("archivo") . "</label><input type='file' name='f1' id='f1' /></div>"); //$xFRM->addHElem( $xTxt2->getDeMoneda("idnumeropagina", $xFRM->lang("numero de", "pagina")) ); $xFRM->addHElem($xTxt->get("idobservaciones", "", "Observaciones")); $xFRM->addSubmit(); $xFRM->addFootElement('<input type="hidden" name="MAX_FILE_SIZE" value="1024000">'); echo $xFRM->get(); } else { $doc1 = isset($_FILES["f1"]) ? $_FILES["f1"] : false; $observaciones = isset($DDATA["idobservaciones"]) ? $DDATA["idobservaciones"] : ""; $xFil = new cFileImporter(); //var_dump($_FILES["f1"]); if ($xFil->processFile($doc1) == true) { $data = $xFil->getData(); $xPlan = new cPlanDePagos(); //eliminar credito $xCred = new cCredito($credito); $xCred->init(); $fecha_operacion = $xCred->getFechaDeMinistracion(); if ($xCred->getNumeroDePlanDePagos() != false) { $xPlan->init($xCred->getNumeroDePlanDePagos()); $xPlan->setEliminar(); } $xPlan->initByCredito($credito); $xPlan->setClaveDeCredito($credito); $xPlan->setClaveDePersona($xCred->getClaveDePersona()); $idrecibo = $xPlan->add($observaciones, $fecha_operacion); $xPlan->init($idrecibo); foreach ($data as $valores => $cont) { //periodo fecha saldo_inicial intereses impuesto capital pago_total saldo_final
if ($PERIOCIDAD_DE_PAGO == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO or $PERIOCIDAD_DE_PAGO == FALLBACK_CRED_TIPO_PERIOCIDAD) { $msgAlertas .= "NO APLICA POR EL TIPO DE FRECUENCIA DE PAGOS"; $sucess = false; } //Si los dias entre la Ministracion y la fecha de Primer abono superan a la periocidad mas la tolerancia: Salir if (restarfechas($fecha_primer_abono, $fecha_ministracion) > $dias_tolerancia_no_pago + $PERIOCIDAD_DE_PAGO and $tipo_de_plan == 99) { $msgAlertas .= "ERROR\tLOS DIAS DEL PRIMER ABONO NO DEBEN SER MAYORES A {$dias_tolerancia_no_pago} MAS LA PERIOCIDAD DE {$PERIOCIDAD_DE_PAGO}\r\n"; $sucess = false; } //--------------------------------- END ELIMINACION if (date("Y-m-d", strtotime($fecha_primer_abono)) <= date("Y-m-d", strtotime($fecha_ministracion))) { $msgAlertas .= "ERROR\tLA FECHA DEL PRIMER ABONO({$fecha_primer_abono}) NO PUEDE SER LA MISMA O MENOR QUE LA FECHA DE MINISTRACION({$fecha_ministracion})\r\n"; $sucess = false; } //---------------------------------- ELIMINAR EL PLAN DE PAGOS ANTERIOR $xPlan = new cPlanDePagos(); if ($xCred->getNumeroDePlanDePagos() != false) { $xPlan->init($xCred->getNumeroDePlanDePagos()); $xPlan->setEliminar(); } if (MODO_CORRECION == true) { //my_query("DELETE FROM operaciones_mvtos WHERE socio_afectado=$socio AND docto_afectado=$solicitud AND (tipo_operacion=410 OR tipo_operacion=412 OR tipo_operacion=413)"); } if ($sucess == true) { $FInteres_normal = new cFormula("interes_normal"); $factor_interes = $xPlan->getFactorIVA($iva_incluido); $DatosDePagos = array(); if ($xCred->initPagosEfectuados() == true) { $DatosDePagos = $xCred->getListadoDePagos(); } //=========================== Corrige el Monto extra de bonificaciones ================================================================
$fechavcto = sumardias($fecha_ministracion_propuesta, $diasaut); $msg .= "WARN\tLa Fecha de Vencimiento es actualizada al " . getFechaLarga($fechavcto) . "; los dias autorizados son de {$diasaut}\r\n"; $msg .= "WARN\tPARA OBTENER LOS DEMAS DOCUMENTOS DEBE GENERAR EL PLAN DE PAGOS\r\n"; } /* ------------------------------ sentencia update -------------------------- */ if ($sucess == true) { $xCred->setAutorizado($idmonto, $idpagos, $periocidad, $TipoDeAutorizacion, $fechaaut, $idautorizacion, $idtipodepago, $fecha_ministracion_propuesta, $idnivelderiesgo, $diasaut, $fechavcto, $estatusactual, $sdoactual, $intdev, $fechaultmvto, $TasaDeInteres); /* si es Credito de Grupos solidarios, Actualiza los Mvtos de Otorgacion */ if ($OConv->getEsProductoDeGrupos() == true) { $sqlusolc = "UPDATE operaciones_mvtos\tSET estatus_mvto = 10\tWHERE\n\t\t\t\tgrupo_asociado={$gpoasoc}\tAND (tipo_operacion=112) AND (estatus_mvto=40)"; my_query($sqlusolc); } //Eliminar Plan de Pagos $plan = setNoMenorQueCero($xCred->getNumeroDePlanDePagos()); if ($plan > 0) { $xPlan = new cPlanDePagos($plan); $xPlan->setEliminar(); $msg .= $xPlan->getMessages(); } } //------------------------------- IMPRIME UNA PEQUE%A DESCRIPCION DE LA SOLICITUD ----------------------- $xCred->init(); $xFRM->addHTML($xCred->getFichaDeSocio(true)); $xFRM->addHTML($xCred->getFicha(true)); //$urlsend = "elUrl='" . $OConv->getPathPagare($idsolicitud) . "';"; $cedula_grupal = 0; //$urctr = "esUrl='" . $xCred->getPathDelContrato() . "';"; if ($OConv->getEsProductoDeGrupos() == true) { //Si la cedula Grupal existe y el Tipo de Integracion el GRUPO if (isset($_SESSION["recibo_en_proceso"])) { $cedula_grupal = $_SESSION["recibo_en_proceso"];
header("location:../404.php?i=999"); } $_SESSION["current_file"] = addslashes($theFile); //<===== FIN_H //===================================================================================================== $xInit = new cHPage("", HP_SERVICE); $txt = ""; $ql = new MQL(); $lis = new cSQLListas(); $xF = new cFecha(); //$persona = parametro("persona", DEFAULT_SOCIO, MQL_INT); $credito = parametro("credito", DEFAULT_CREDITO, MQL_INT); $letra = parametro("letra", false, MQL_INT); //$tipo = parametro("tipo", false, MQL_INT); $rs = array(); if ($credito != DEFAULT_CREDITO) { //$xSoc = new cSocio($persona); $xSoc->init(); $xCred = new cCredito($credito); $xCred->init(); $plan = $xCred->getNumeroDePlanDePagos(); //letra //monto $xPlan = new cPlanDePagos($plan); $xPlan->init(); //$D = $xPlan->getDatosDeParcialidad($letra); $D = $xPlan->getOLetra($letra); $rs[SYS_MONTO] = $D->getMonto(); } //header('Content-type: application/json'); //echo json_encode($rs); //setLog(json_encode($rs)); //setLog($sql);