-- validar acceso al usuario.

Ashx/SIGFacturacion.ashx

@@ -222,15 +222,13 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
 #Region "V A L I D A  - D A T O S"
     Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario
         Dim UsuarioActual As Usuario = Nothing
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuarios(100) Then
-            If ObjUsuarios.DtResultados.Rows.Count > 0 Then
-                Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
-                Dim Contrasenia = 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
+            Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
+            Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
+            UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
         End If
         ObjUsuarios.Dispose()
         Return UsuarioActual