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: