From ee5eac9ebf71d5b3fff429f56aaa0ae7e6769434 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 15 May 2024 19:27:28 -0700
Subject: [PATCH] --FIX. bloquear a contado si tiene vencimientros,
 funcionalidad 702 con valor "2"

---
 Ventas/Ventas.aspx.vb | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 274ae7575..b3ccd8f77 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7561,6 +7561,11 @@ Partial Class Ventas
             'CARGAR CREDITO DISPONIBLE AL GENERAR UNA FACTURA
         End If
 
+        ''SI NO PERMITE CREDITO, SUGIERE CONTADO
+        'If (UsuarioActual.Empresa.Funcionalidad(702).Contiene("1")) AndAlso Not PermiteCredito AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso (CveVenta <= 0 OrElse EsCreaApartirDe)) Then
+        '    RBLPago.SelectedValue = "2"
+        'End If
+
         If ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito Then
             'FUNCIONALIDAD 702 - NO VERIFICAR LIMITE DE CRÉDITO Y CANDADOS DE VENTA
             If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
@@ -8007,10 +8012,13 @@ Partial Class Ventas
 
                 If Opcion = 2 Then
                     Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                    BtnEmitirImprimir.Visible = False
-                    BtnsFacturar.Visible = False
-                    BtnGenerarRemision.Visible = False
-                    TieneBloqueoPorCreditoVencimiento = 1
+                    RBLPago.SelectedValue = "2"
+                    RBLPago.Items(0).Enabled = False
+                    RBLPago_SelectedIndexChanged(Nothing, Nothing)
+                    'BtnEmitirImprimir.Visible = False
+                    'BtnsFacturar.Visible = False
+                    'BtnGenerarRemision.Visible = False
+                    'TieneBloqueoPorCreditoVencimiento = 1
                 End If
             End If
         End If