$interes_moratorio = $interes_moratorio_devengado - $interes_moratorio_pagado + $interes_moratorio_calculado; $xLog->add("WARN\tNO_PLAN\tEl Plan de Pagos es ignorado\r\n", $xLog->COMMON); $xLog->add("WARN\tINTERES_NORM\tEL Interes Normal Resulto en {$interes_normal}\r\n", $xLog->DEVELOPER); $xLog->add("WARN\tINTERES_MOR\tEL Interes Moratorio Resulto en {$interes_moratorio}\r\n", $xLog->DEVELOPER); } else { //2014-07-22 calcular mora por letra if ($pago_total == false) { $interes_moratorio = $DInteres[SYS_INTERES_MORATORIO]; $interes_normal = 0; $xLog->add("WARN\tOMITIR_INT\tEL Interes Normal Resulto en {$interes_normal} Y EL Interes Moratorio Resulto en {$interes_moratorio}, SE OMITEN\r\n", $xLog->DEVELOPER); //$xLog->add("WARN\tOMITIR_INT\tEL Interes Normal Resulto en $interes_normal Y EL Interes Moratorio Resulto en $interes_moratorio, SE OMITEN\r\n", $xLog->COMMON); } if ($xCred->getEstadoActual() == CREDITO_ESTADO_VIGENTE) { } } $SQLBody = $xSQL->getConceptosDePago($solicitud, $socio, $parcialidad); } else { $SQLBody = $xSQL->getConceptosDePago($solicitud, $socio); } $xLog->add("OK\tNORMAL\tSe ha DEVENGADO {$interes_normal_devengado} y el socio ha PAGADO {$interes_normal_pagado}, se ha CALCULADO {$interes_normal_calculado}\r\n", $xLog->DEVELOPER); $xLog->add("OK\tMORA\tSe ha DEVENGADO {$interes_moratorio_devengado} y el socio ha PAGADO {$interes_moratorio_pagado}, se ha CALCULADO {$interes_normal_devengado}\r\n", $xLog->DEVELOPER); //====================== EN INTERESES $xJsBasic = new jsBasicForm("frmprocesarpago"); echo $xHP->getHeader(true); $tasa_iva_otros = TASA_IVA; echo $xHP->setBodyinit("initComponents()"); $xFRM = new cHForm("frmprocesarpago", "frmpagoprocesado.php?p={$params}|{$estatus_del_credito}|{$grupo}", "frmprocesarpago"); $xFRM->addFootElement("<input type='hidden' name='cobservaciones' value='' id=\"idobservaciones\" />\n<input type='hidden' name='ctipo_pago' id=\"idtipo_pago\" value='{$mTipoPago}' /> <input type='hidden' name='crecibo_fiscal' id=\"idrecibo_fiscal\" value='{$mReciboFiscal}' />\n<input type=\"hidden\" name='procesar' id=\"procesar\" value=\"{$procesado}\" />\n<input type='hidden' name='ccheque' id=\"idcheque\" value='NA' /><input type='hidden' name='idcomodin' id=\"idcomodin\" value='0' />\n<input type='hidden' name='idletra' id=\"idletra\" value='{$parcialidad}' /><input type='hidden' name='idpersona' id=\"idpersona\" value='{$socio}' />\n<input type='hidden' name='idcredito' id=\"idcredito\" value='{$solicitud}' />"); //<input type=\"hidden\" id=\"iTasaIvaO\" value=\"$tasa_iva_otros\" /> <input type=\"hidden\" id=\"iTasaIva\" value=\"$tasa_iva\" /> /** * @since 1.9.41 -patch 1.9.23
$xCred = new cCredito($solicitud, $socio); $xCred->init(); if ($procesado == SYS_AUTOMATICO) { $arrINTS = array(420); //Array de Intereses Devengados $SRC["ctipo_pago"] = $DPar[5]; $operacion = $DPar[4]; $monto_a_operar = $xT->cFloat($DPar[3]); $periocidad = isset($_REQUEST["periocidad"]) ? $_REQUEST["periocidad"] : DEFAULT_PERIOCIDAD_PAGO; $_SESSION[FECHA_OPERATIVA] = $xF->getFechaISO($DPar[7]); $totalAutomatico = 0; //6 = banco //7 = fecha $SRC["cobservaciones"] = "({$pempresa}.{$periocidad})L.{$parcialidad}:" . $xCred->getPagosAutorizados(); //cargar credito y datos de la parcialidad $rs = $ql->getDataRecord($xSQL->getConceptosDePago($solicitud, $socio, $parcialidad)); //$msg .= "SQL\t" . $xSQL->getConceptosDePago($solicitud, $socio, $parcialidad) . "\r\n"; foreach ($rs as $rx) { $title = $rx["descripcion_operacion"]; $monto = $xT->cFloat($rx["total_operacion"], 2); $MTipo = $rx["tipo_operacion"]; if (in_array($MTipo, $arrINTS)) { $msg .= "WARN\tOPTS\tSe OMITE \t{$title} \t:\t{$monto}\r\n"; } else { $SRC["c-{$MTipo}"] = $monto; $totalAutomatico += $monto; $msg .= "WARN\tOPTS\tAgregando operacion:\t{$title} [" . $SRC["c-{$MTipo}"] . "]\t:\t{$monto}\r\n"; } } //cmbiar estado de la letra }