From 6bab26399425c0e68e9297410a5f52c83f198078 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 14 May 2024 19:10:13 -0700
Subject: [PATCH] --FIX bloquear si tiene vencimientos funcionalidad 702 valor
 2

---
 Ventas/Ventas.aspx.vb | 33 +++++++++++++++++++++++++++++++--
 1 file changed, 31 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 004986c96..274ae7575 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7529,7 +7529,7 @@ Partial Class Ventas
         Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595)
 
         'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO
-        If (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("1", "2")) AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
+        If (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("1")) AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
             RBLPago.SelectedValue = "2"
             RBLPago.Items(0).Enabled = False
             RBLPago_SelectedIndexChanged(Nothing, Nothing)
@@ -7981,11 +7981,40 @@ Partial Class Ventas
                 End If
             End If
 
-
         End If
 
         UPPCreditoDisponible.Update()
 
+        'SOLO VERIFICA VENCIMIENTOS
+        If UsuarioActual.Empresa.Funcionalidad(702).Contiene("2") Then
+
+            Dim ValidaCliente As Boolean = False
+
+            If (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") AndAlso (Me.CveVenta <= 0 OrElse EsCreaApartirDe)) OrElse ((DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso (Me.CveVenta > 0 AndAlso Not EsCreaApartirDe))) Then
+                ValidaCliente = True
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso (Me.CveCliente = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()) Then
+                ValidaCliente = False
+            End If
+
+            'SI ES FACTURA, REMISION o FACTURACION DE COTIZACIONES
+            If ValidaCliente Then
+                Dim Vta As New ClsVentas
+                Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa, TipoVerificacion:=2)
+                Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
+                Vta.Dispose()
+
+                If Opcion = 2 Then
+                    Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
+                    BtnEmitirImprimir.Visible = False
+                    BtnsFacturar.Visible = False
+                    BtnGenerarRemision.Visible = False
+                    TieneBloqueoPorCreditoVencimiento = 1
+                End If
+            End If
+        End If
+
         'Puede hacer pedido
         If CveVenta <= 0 Then
             If Not UsuarioActual.TienePermisoProceso(177) And Not EsVentaMedica Then