-- mejora en bloqueos

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"