$interes_normal = 0; $interes_moratorio = 0; $base_iva_otros = 0; $base_iva_intereses = 0; $monto_iva_intereses = 0; $monto_iva_otros = 0; $monto_capital_operado = 0; $xLog->add("WARN\tINTS_N\t( {$interes_normal_devengado} - {$interes_normal_pagado} ) + {$interes_normal_calculado}\r\n", $xLog->DEVELOPER); $interes_normal = $interes_normal_devengado - $interes_normal_pagado + $interes_normal_calculado; $xLog->add("WARN\tINTS_M\t{$interes_moratorio_devengado} - {$interes_moratorio_pagado} ) + {$interes_moratorio_calculado}\r\n", $xLog->DEVELOPER); $interes_moratorio = $interes_moratorio_devengado - $interes_moratorio_pagado + $interes_moratorio_calculado; //====================== INICIAR INTERESES //Codigo que ejecuta la formula si se respeta el Plan de Pagos if ($xCred->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) { $xLog->add("WARN\tPARCIALIDAD\tEl pago es por parcialidad numero {$parcialidad}\r\n", $xLog->DEVELOPER); if ($xCred->getRespetarPlanDePago() == false) { $interes_normal = $interes_normal_devengado - $interes_normal_pagado + $interes_normal_calculado; $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) { }
// Periodo Contable $percbza = EACP_PER_COBRANZA; // Periodo Cobranza. $perseg = EACP_PER_SEGUIMIENTO; // Period de Seguimiento. $permens = date("m"); // Periodo de dias en el mes $persem = date("N"); // Periodo de dias en la semana. $peranual = date("Y"); // Ao Natural. //Datos del Respeto al Plan de Pagos $OPdto = $xCred->getOProductoDeCredito(); $OPerx = $xCred->getOPeriocidad(); $OEstado = $xCred->getOEstado(); $respetar_plan_pagos = $xCred->getRespetarPlanDePago(); $empresa = $xCred->getClaveDeEmpresa(); $tasa_iva = $xCred->getTasaIVA(); $msg .= "WARN\tPLAN\tQue hacer con el Plan: {$respetar_plan_pagos}\r\n"; $contrato_captacion = $dsol["contrato_corriente_relacionado"]; $saldo_anterior = $xCred->getSaldoActual(); if ($grupo == 0 || !isset($grupo) || $grupo == "" || $grupo == false) { $grupo = DEFAULT_GRUPO; } $xNRec = new cReciboDeOperacion(RECIBOS_TIPO_PAGO_CREDITO); $xNRec->setNuevoRecibo($socio, $solicitud, $fecha_operacion, $parcialidad, RECIBOS_TIPO_PAGO_CREDITO, $observaciones, $cheque, $tipo_pago, $recibo_fiscal, $grupo, false, AML_CLAVE_MONEDA_LOCAL, 0, $empresa); $xNRec->init(); $msg .= $xNRec->getMessages(OUT_TXT); $recibo_pago = $xNRec->getCodigoDeRecibo(); if ($procesado == SYS_AUTOMATICO or $pempresa > 0) { $icxObs = $SRC["cobservaciones"];