$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); } }