//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;
