From 54c6e7abe0e08d03b28130c49da0b9fb1fd893f4 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 10 May 2024 09:44:27 -0700
Subject: [PATCH] --FIX, verificar credito aunque cliente no permita credito

---
 Ventas/Ventas.aspx.vb | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e6c594ee8..62754eb8a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7893,6 +7893,13 @@ Partial Class Ventas
                     If (ValidaRemision AndAlso DdlTipoComprobante.SelectedValue = "Rem") AndAlso RBLPago.SelectedValue = "1" Then
                         ValidaCondicionesCredito = True
                     End If
+                Else
+                    'SI ES VENTA NUEVA VALIDA AUNQUE NO PERMITA CREDITO
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot") Then
+                            ValidaCondicionesCredito = True
+                        End If
+                    End If
                 End If
 
                 If ValidaCondicionesCredito Then
@@ -7931,6 +7938,7 @@ Partial Class Ventas
                                 Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
                                 BtnsFacturar.Visible = False
                                 BtnGenerarRemision.Visible = False
+                                BtnEmitirImprimir.Visible = False
 
                                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
                                     TieneBloqueoPorCreditoVencimiento = 1
@@ -18164,18 +18172,18 @@ Partial Class Ventas
         'VALIDA ESTATUS CLIENTE - SOLO SE PUEDE USAR EL CLIENTE PARA COTIZAR EN CASO DE ESTAR INACTIVO
         If EsCreaApartirDe OrElse ModalidadEdicion OrElse CveVenta <= 0 Then
             If DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") Or TipoContrato >= 0 Then 'SI VIENE DE PEDIDO DE AF DESDE CONTRATO NO BLOQUEA CUANDO EL CLIENTE ESTA INACTIVO
-                BtnEmitirImprimir.Visible = True
-                TrVistaPrevia.Visible = True
+                BtnEmitirImprimir.Visible = TieneBloqueoPorCreditoVencimiento = 0
+                TrVistaPrevia.Visible = TieneBloqueoPorCreditoVencimiento = 0
             Else
                 If LblCliente.Text <> "Cliente" And Not EstatusCliente Then
                     Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
                 End If
                 If Not CveEmpresaCRM > 0 Then
-                    BtnEmitirImprimir.Visible = EstatusCliente
-                    TrVistaPrevia.Visible = EstatusCliente
+                    BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
+                    TrVistaPrevia.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
                 Else
-                    BtnEmitirImprimir.Visible = True
-                    TrVistaPrevia.Visible = True
+                    BtnEmitirImprimir.Visible = TieneBloqueoPorCreditoVencimiento = 0
+                    TrVistaPrevia.Visible = TieneBloqueoPorCreditoVencimiento = 0
                 End If
 
             End If