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"); } } } } } }
$msgM .= "{$socio}\t{$solicitud}\tPer. {$letra}\t{$dias_normales},{$sumar_dias}\t" . getFMoney($saldo_inicial) . "\t" . getFMoney($saldo_final) . "\t" . getFMoney($parcialidad_capital) . ""; $msgM .= "\t" . getFMoney($parcialidad_interes) . "\t" . getFMoney($parcialidad_iva) . "\t" . getFMoney($parcialidad_cargo) . "\t" . getFMoney($parcialidad_ahorro) . "\t" . getFMoney($TParcial) . "\t{$fecha_de_referencia}\t{$fecha_de_pago}\r\n"; } //end FOR $fecha_final = $fecha_de_pago; $fecha_de_vencimiento = $fecha_final; $dias_netos = restarfechas($fecha_final, $fecha_ministracion); $dias_normales = $dias_netos; $interes_diario = $total_de_intereses / $dias_netos; //=================================================================================================================================== $OProd = $xCred->getOProductoDeCredito(); $OPer = $xCred->getOPeriocidad(); $fecha_de_mora = $xF->setSumarDias($OProd->getDiasTolerados() + 1, $fecha_de_vencimiento); $vencimiento_dinamico = $xF->setSumarDias($OPer->getDiasToleradosEnVencer(), $fecha_de_mora); $arrUpdate = array("plazo_en_dias" => $dias_netos, "dias_autorizados" => $dias_netos, "fecha_vencimiento" => $fecha_de_vencimiento, "monto_parcialidad" => $primera_parcialidad, "contrato_corriente_relacionado" => $cuenta_captacion, "tipo_de_pago" => $FormaDePago, "fecha_ministracion" => $fecha_ministracion, "interes_diario" => $interes_diario, "fecha_mora" => $fecha_de_mora, "fecha_vencimiento_dinamico" => $vencimiento_dinamico, "fecha_de_primer_pago" => $fecha_primer_abono); if ($xCred->getSaldoActual() == $xCred->getMontoAutorizado() or $xCred->getEsAfectable() == false) { $arrUpdate["ultimo_periodo_afectado"] = SYS_CERO; } //Pagos de solo interes if ($xCred->getPagosSinCapital() == true) { $arrUpdate["ultimo_periodo_afectado"] = $ultima_parcialidad; } $xCred->setUpdate($arrUpdate); // -------------------------------------------- Actualiza el Saldo del Recibo $xCred->init(); $xFRM->addHTML($xCred->getFicha(true, "", false, true)); $xFRM->addHTML($xPlan->getFicha()); $sqlparc = "SELECT periodo_socio AS 'parcialidad', MAX(fecha_afectacion) AS 'fecha_de_pago', SUM((afectacion_real * valor_afectacion)) AS 'total_parcialidad',\n\t\t\t\t\t MAX(saldo_anterior) AS 'saldo_anterior_', MIN(saldo_actual) AS 'saldo_actual_' FROM operaciones_mvtos\n\t\t\t\tWHERE recibo_afectado={$idrecibo} GROUP BY periodo_socio ORDER BY periodo_socio"; $cTMvtos = new cTabla($sqlparc); $cTMvtos->setWidth(); $xFRM->addHTML($cTMvtos->Show());
$xHFrm = new cHForm("frmTest", "./test.php"); $xHTxt = new cHText(""); //$txt = $xHTxt->getDeMoneda("id", "Moneda de Prueba", 100); $miFecha = fechasys(); $xF = new cFecha(0, $miFecha); $runTest = isset($_GET["run"]) ? true : false; $persona_de_pruebas = parametro("persona", 99999, MQL_INT); $credito_de_pruebas = 29000201; $xAML = new cAMLPersonas($persona_de_pruebas); $x2AML = new cAMLPersonas_PerfilTransaccional($persona_de_pruebas); if ($runTest == true) { $xCred = new cCredito($credito_de_pruebas); $init = true; $xCred->init(); //Ministrar if ($xCred->getEsAfectable() == false) { $xCred->setForceMinistracion(); $xCred->setMinistrar("", DEFAULT_CHEQUE, 0, DEFAULT_CUENTA_BANCARIA, 0, 0, "", '2014-01-01'); $init = $xCred->init(); } if ($init == true) { $xRec = new cReciboDeOperacion(RECIBOS_TIPO_PAGO_CREDITO, true); $xRec->setDocumento($xCred->getNumeroDeCredito()); $xRec->setSocio($xCred->getClaveDePersona()); $idrec = $xRec->setNuevoRecibo($xCred->getClaveDePersona(), $xCred->getNumeroDeCredito(), fechasys(), 1); $xCred->setReciboDeOperacion($idrec); //agregar pagos $xCred->setAbonoCapital(2200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-01-15"); //if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); } $xCred->setAbonoCapital(5200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-01-20"); //if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }