}
$FechaUltimaCompra = $xCR->getDate($xCred->getFechaDeMinistracion());
$FechaCierreCuenta = "";
$FechaCorte = $FechaExtraccion;
$Garantia = "";
//TODO: Acabar garantia
$CreditoMaximo = $xCR->getMonto($xSoc->getCreditoMaximo());
$SaldoActual = $xCR->getMonto($xCred->getSaldoActual($FechaFinal));
$LimiteCredito = $xCR->getMonto($xSoc->getCreditoMaximo());
$SaldoVencido = 0;
$NumeroPagosVencidos = 0;
//Modificado en el plan de pagos
//obtener la letra pendiente
$UltimaLetraPagada = $xCR->getMonto($xCred->getPeriodoActual());
//obtener datos de la letra
$DPlanDePagos = $xCred->getDatosDelPlanDePagos();
$NumeroDePlan = $xCred->getNumeroDePlanDePagos();
$FechaDePrimerIncumplimiento = "";
if ($SaldoActual <= 0) {
if ($xF->getInt($xCred->getFechaUltimoDePago()) >= $xF->getInt($xCred->getFechaDeMinistracion())) {
$FechaCierreCuenta = $xCR->getDate($xCred->getFechaDeMinistracion());
$FechaAperturaCuenta = $xCR->getDate($xF->setRestarDias(3, $xCred->getFechaDeMinistracion()));
$FechaUltimoPago = $xCR->getDate($xF->setRestarDias(2, $xCred->getFechaDeMinistracion()));
//setLog("3....$FechaUltimoPago");
} else {
$FechaCierreCuenta = $xCR->getDate($xCred->getFechaUltimoDePago());
}
//$FechaUltimaCompra = $xCR->getDate($xCred->getFechaDeMinistracion() );
//$FechaAperturaCuenta = $xCR->getDate($xCred->getFechaDeMinistracion() );
}
$PagoActual = "V";
if ($p_ivaotros > 0) {
$p[1204] += $p_ivaotros;
}
}
$icls = count($p);
if ($periocidad != CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
//eliminar letra o neutralizarla en partes.
setEliminarMvto(OPERACION_CLAVE_PLAN_IVA, $socio, $solicitud, $parcialidad, $recibo_pago);
//parche 29dic2014
setEliminarMvto(OPERACION_CLAVE_PLAN_CAPITAL, $socio, $solicitud, $parcialidad, $recibo_pago);
setEliminarMvto(OPERACION_CLAVE_PLAN_INTERES, $socio, $solicitud, $parcialidad, $recibo_pago);
setEliminarMvto(OPERACION_CLAVE_PLAN_AHORRO, $socio, $solicitud, $parcialidad, $recibo_pago);
if ($icls >= 1) {
$mobserva = "MONTO_PENDIENTE_RECIBO_{$recibo_pago}";
$nueva_parcialidad = $parcialidad;
$dxplan = $xCred->getDatosDelPlanDePagos();
$xPlan = setNoMenorQueCero($xCred->getNumeroDePlanDePagos());
$xRec = new cReciboDeOperacion(22, true);
if ($xPlan <= 0) {
$recibo_pendientes = $xRec->setNuevoRecibo($socio, $solicitud, $fecha_operacion, $parcialidad, false, $mobserva, "", "ninguno", "NA", $grupo);
$xRec->setNumeroDeRecibo($recibo_pendientes);
$xRec->init();
} else {
$recibo_pendientes = $xPlan;
$xRec->setNumeroDeRecibo($recibo_pendientes);
$xRec->init($dxplan);
}
//recorre los pendientes
//--29Dic2014
foreach ($p as $clave_operacion => $monto_pendiente) {
if ($monto_pendiente > TOLERANCIA_SALDOS) {
