Mensaje de bloqueo

Ventas/PV.aspx.vb

@@ -1017,15 +1017,16 @@ Partial Class PV
                         DivBloqueo.Visible = False
                         Dim strScript As New StringBuilder
                         strScript.Append("window.onload = function MuestraBloqueo() { document.getElementById(""C_BtnShowBloqueo"").click(); setTimeout(function(){ $('#C_TxtCodigoAcceso').focus(); ")
-                        'If UsuarioActual.ErrorDesbloqueo Then
+                        If UsuarioActual.ErrorDesbloqueo Then
+                            LtlMensajeBloqueo.Text = UsuarioActual.MsgErrorDesbloqueo
                             'strScript.AppendFormat("alert('{0}');", UsuarioActual.MsgErrorDesbloqueo)
-                        'End If
+                        End If
                         strScript.Append("}, 500); }")
                         RegistraScript(strScript.ToString())
 
                         UsuarioActual.SesionBloqueada = True
-                        'UsuarioActual.ErrorDesbloqueo = False
-                        'UsuarioActual.MsgErrorDesbloqueo = ""
+                        UsuarioActual.ErrorDesbloqueo = False
+                        UsuarioActual.MsgErrorDesbloqueo = ""
 
                         BtnEmitirImprimir.Visible = False
                         Exit Sub
@@ -7449,13 +7450,13 @@ Partial Class PV
     End Sub
     Protected Sub BtnCambiar_Click(sender As Object, e As EventArgs)
 
-        'UsuarioActual.ErrorDesbloqueo = False
-        'UsuarioActual.MsgErrorDesbloqueo = ""
+        UsuarioActual.ErrorDesbloqueo = False
+        UsuarioActual.MsgErrorDesbloqueo = ""
 
         If String.IsNullOrEmpty(TxtCodigoAcceso.Text.Trim) Then
             UsuarioActual.SesionBloqueada = True
-            'UsuarioActual.ErrorDesbloqueo = True
-            'UsuarioActual.MsgErrorDesbloqueo = "Es necesario un código de acceso"
+            UsuarioActual.ErrorDesbloqueo = True
+            UsuarioActual.MsgErrorDesbloqueo = "Es necesario un código de acceso"
 
             Response.Redirect($"~/Ventas/PV.aspx")
             Exit Sub
@@ -7527,8 +7528,8 @@ Partial Class PV
             Response.Redirect($"~/Ventas/PV.aspx")
         Else
             UsuarioActual.SesionBloqueada = True
-            'UsuarioActual.ErrorDesbloqueo = True
-            'UsuarioActual.MsgErrorDesbloqueo = "El código de acceso no es correcto"
+            UsuarioActual.ErrorDesbloqueo = True
+            UsuarioActual.MsgErrorDesbloqueo = "El código de acceso no es correcto"
 
             Response.Redirect($"~/Ventas/PV.aspx")
         End If