} $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) {