modal regreso sin transparencias

2024-03-10 11:09:07 -07:00
parent 23f7d10c12
commit 85f3eb5522
4 changed files with 29 additions and 6 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -36949,8 +36949,14 @@ Partial Class Ventas
            If DdlClientesModal.SelectedValue.ToEntero > 0 Then
                ViewState("CveCliente") = DdlClientesModal.SelectedValue.ToEntero
            Else
-                Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
+                Dim CveClientePublicoGeneral As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", " RFC = 'XAXX010101000' ").ToEntero
+
+                If CveClientePublicoGeneral > 0 Then
+                    ViewState("CveCliente") = CveClientePublicoGeneral
+                Else
+                    Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
            End If