- cambio en acceso

2024-04-13 06:54:38 -07:00
parent 2a4984b5ac
commit e0f13be7c3
2 changed files with 4 additions and 4 deletions
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
@@ -66,7 +66,7 @@ Partial Class PopUpSeleccionarEmpresa

                Dim ObjUsuario As New ClsSisUsuarios
                Dim Usuario As Usuario = Nothing
-                Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), IMEI, gvr.DataKey("CveEmpresa").ToEntero)
+                Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), CveEmpresa:=gvr.DataKey("CveEmpresa").ToEntero)
                ObjUsuario.Dispose()

                If Usuario IsNot Nothing Then