$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"];
