--FIX bloquear si tiene vencimientos funcionalidad 702 valor 2

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