-- manejo de usuario

2024-04-22 15:43:32 -07:00
parent ee88e288a4
commit 6a7c222728
1 changed files with 2 additions and 1 deletions
--- a/Ashx/TareasProgramadas.ashx
+++ b/Ashx/TareasProgramadas.ashx
@@ -353,7 +353,8 @@ Public Class TareasProgramadas : Implements IHttpHandler
                Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
-                UsuarioActual.CveEmpresa = CveEmpresa
+                UsuarioActual.CveEmpresa = CveEmpresa
+                HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
                CreaObjetoEmpresa(UsuarioActual)
            End If
        End If