$xPlan->init($idrecibo);
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);
}
}
