-- validar acceso al usuario.

Ashx/E48.ashx

@@ -400,17 +400,15 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
     End Property
     Private Function ValidaUsuarioSistema(CveUsuario As Integer, CveEmpresa As Integer) As Usuario
         Dim UsuarioActual As Usuario = Nothing
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuarios(CveUsuario) Then
-            If ObjUsuarios.DtResultados.Rows.Count > 0 Then
-                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
-                CreaObjetoEmpresa(UsuarioActual)
-            End If
+        Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
+        Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
+        UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100)
+        If UsuarioActual IsNot Nothing Then
+            HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
+            'CreaObjetoEmpresa(UsuarioActual)
         End If
         ObjUsuarios.Dispose()
+
         Return UsuarioActual
     End Function
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)