//0 1 2 3 4 5 6 7 //Periodo,Fecha de Pago,Saldo inicial,Intereses,Impuesto,Pago a Capital,Pago Total,Saldo final if ($xT->cInt($cont[0]) > 0) { $interes = $xT->cFloat($cont[3], 2); $fecha = $xF->getFechaISO($cont[1]); $periodo = $xT->cInt($cont[0]); $capital = $xT->cFloat($cont[5], 2); $total_parcial = $xT->cFloat($cont[6], 2); $saldo_inicial = $xT->cFloat($cont[2], 2); $saldo_final = $xT->cFloat($cont[7], 2); $xPlan->setMontoOperado($total_parcial); $xPlan->setSaldoInicial($saldo_inicial); $xPlan->setSaldoFinal($saldo_final); $xPlan->addMvtoDeInteres($interes, $fecha, $periodo); $xPlan->addMvtoDeIVA($fecha, $periodo); $xPlan->addMvtoDeCapital($capital, $fecha, $periodo); } else { $msg .= "WARN\tLINEA OMITIDA\r\n"; } } $msg .= $xCred->getMessages(); $msg .= $xPlan->getMessages(); $mObj = $xPlan->getObjRec(); if ($mObj != null) { $mObj->setFinalizarRecibo(true); $msg .= $mObj->getMessages(OUT_TXT); } } $msg .= $xFil->getMessages(); if (MODO_DEBUG == true) { $xFl = new cFileLog();
$monto_capital_de_la_parcialidad = $saldo_inicial; //$msg .= "$socio\t$solicitud\tL-$i\tDE $saldo_inicial a Saldo Final :: $saldo_final || $monto_capital_de_la_parcialidad --- $monto_capital_de_la_parcialidad = $saldo_inicial;\r\n"; } else { //forza el fin del plan de pagos if ($letra == $PAGOS_AUTORIZADOS) { $monto_capital_de_la_parcialidad = $saldo_inicial; } $saldo_final = $saldo_inicial - $monto_capital_de_la_parcialidad; //$msg .= "$socio\t$solicitud\tL-$i\tSaldo Inicial $saldo_inicial A Saldo Final $saldo_final | $monto_capital_de_la_parcialidad\r\n"; } //corrige el saldo final if ($saldo_final < 0) { $saldo_final = 0; } $xPlan->setSaldoFinal($saldo_final); $total_parcial = $xPlan->addMvtoDeCapital($monto_capital_de_la_parcialidad, $fecha_de_pago, $letra); //si el saldo final termina es menor al saldo final //el saldo inicial es de la proxima letra if ($xCred->getPagosSinCapital($FormaDePago) == false) { if ($saldo_actual <= $saldo_inicial and $saldo_final > 0 and ($estatus != CREDITO_ESTADO_AUTORIZADO and $estatus != CREDITO_ESTADO_SOLICITADO) and $MontoCubierto > 0) { $LetraActualizada = $monto_capital_de_la_parcialidad <= $MontoCubierto ? 0 : $monto_capital_de_la_parcialidad - $MontoCubierto; $mod = 0; //274 - 275 = -1 if ($MontoCubierto - $monto_capital_de_la_parcialidad < TOLERANCIA_SALDOS * -1) { if ($LetraActualizada > TOLERANCIA_SALDOS) { $mod = false; } } $LetraActualizada = $LetraActualizada < 0 ? 0 : $LetraActualizada; $InteresActual = $mod; $AhorroActual = $mod;