From 187464e61ddede18b71bf703f458f92e1c32dc5b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 31 Dec 2024 07:28:40 -0700
Subject: [PATCH] -- mejora en bloqueos

---
 Ventas/PVCobranza.aspx.vb | 6 +-----
 Ventas/Ventas.aspx.vb     | 3 ++-
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index 6db207689..fdebc815a 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -384,15 +384,11 @@ Partial Class Ventas_PVCobranza
             If e.Row.DBCampo("CondicionesPago") = "1" Then ' remis de crédito
                 ' si es de crédito debe de estar autorizado.
                 e.Row.FCLinkButton("BtnPagar").Text = "Crédito"
-                If e.Row.DBCampo("CveEstatusAutorizacion").Contiene("", "2") Then ' si es vacío,significa que no requirió autorización, si es autorizada
+                If (e.Row.DBCampo("Bloqueada") = "False") OrElse (e.Row.DBCampo("Bloqueada") = "True" AndAlso e.Row.DBCampo("CveEstatusAutorizacion").Contiene("2")) Then ' si no está bloqueada o si fue bloqueda y autorizada
                     e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-warning"
                     e.Row.FCLinkButton("BtnPagar").Enabled = True
                 Else
                     e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-danger"
-                    ' e.Row.FCLinkButton("BtnPagar").Enabled = False
-                    'e.Row.FCLinkButton("BtnPagar").OnClientClick = "alert('La solicitud de crédito no ha sido autorizada');return false;"
-                    'e.Row.FCLinkButton("BtnPagar").OnClientClick = "bootbox.dialog({message: 'La solicitud de crédito no ha sido autorizada ', className: ' header-yellow ',  onEscape: function() {  },title: '<i class='fa fa-warning'></i> Advertencia',buttons: {  success: { label: '',  className: ' hide',callback: function() {     }  }, danger: { label: '', className: ' hide',callback: function() {   } },main: {  label: 'Aceptar', className: ' yellow',  callback: function() {    }  }  }  });return false;"
-                    'e.Row.FCLinkButton("BtnPagar") =
                     e.Row.FCLinkButton("BtnPagar").Enabled = False
                     e.Row.FCLinkButton("BtnPagar").OnClientClick =
                         "bootbox.dialog({" &
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2b18ea627..ffe7361e3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2449,6 +2449,7 @@ Partial Class Ventas
             Opcion = ""
             Index = 0
             TotAnt = 0
+            Bloqueada = False
             'CargoComercioExterior = False
             DdlBPPS.setEsWebService(True)
             DdlBPPS.ddlWS.Attributes.Add("data-clear", "1")
@@ -7714,7 +7715,7 @@ Partial Class Ventas
         Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595)
         'solo para bdh, que se generen NC
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlSolCreditoTipoDocto.Items.Add(New ListItem("Nota de crédito", "Egs"))
-
+        Me.Bloqueada = False
         'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO
         If Not EsFilial AndAlso (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"