foreach ($data as $valores => $cont) {
//periodo fecha saldo_inicial intereses impuesto capital pago_total saldo_final
//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();
$interes_normal_pagado = $interes_normal_pagado - $parcialidad_interes;
$interes_normal_pagado = $interes_normal_pagado < 0 ? 0 : $interes_normal_pagado;
$parcialidad_interes = 0;
//setea a cero
if ($interes_normal_pagado == 0) {
$ultima_parcialidad = $letra;
}
}
$parcialidad_iva = PLAN_DE_PAGOS_SIN_REDONDEO == true ? $parcialidad_interes * $tasa_iva : round($parcialidad_interes * $tasa_iva, 2);
$total_parcial = $total_parcial + ($parcialidad_interes + $parcialidad_iva);
//Sumar el interes que resta
$total_parcial = setNoMenorQueCero($total_parcial);
}
}
$xPlan->setMontoOperado($total_parcial);
$total_parcial = $xPlan->addMvtoDeInteres($parcialidad_interes, $fecha_de_pago, $letra);
$total_parcial = $xPlan->addMvtoOtros($parcialidad_cargo, $fecha_de_pago, $letra, $tipo_monto_extra, true);
$total_parcial = $xPlan->addMvtoDeIVA($fecha_de_pago, $letra);
$total_parcial = $xPlan->addMvtoDeAhorro($parcialidad_ahorro, $fecha_de_pago, $letra);
//Capital
$parcialidad_capital = $total_parcial;
$msgPIE .= "ADD\t{$parcialidad_interes}\t{$parcialidad_cargo}\t{$parcialidad_ahorro}\t{$parcialidad_capital}\r\n";
if ($parcialidad_capital > 0) {
//evaluar el Plan de Pagos
$monto_capital_de_la_parcialidad = 0;
switch ($FormaDePago) {
//SI esCAPITAL + INTERES Periodico
case CREDITO_TIPO_PAGO_PERIODICO:
$monto_capital_de_la_parcialidad = $total_parcial;
break;
case CREDITO_TIPO_PAGO_CAPITAL_FIJO:
