-- validar acceso al usuario.

Ashx/SIGPolizaVirtual.ashx

@@ -25,38 +25,22 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
 
     Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
 
-        Dim UsuarioToken As Usuario = Nothing
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuarios(CveUsuario) 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()
-                UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
-                UsuarioToken.CveEmpresa = CveEmpresa
-                CreaObjetoEmpresa(UsuarioToken)
-            End If
-        End If
+        Dim UsuarioToken As Usuario = Nothing
+        Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
+        Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
+
+        If ObjUsuarios.DtResultados.Rows.Count > 0 Then
+            Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
+            Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
+            UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
+            UsuarioToken.CveEmpresa = CveEmpresa
+
+        End If
+
         ObjUsuarios.Dispose()
         Return UsuarioToken
-    End Function
-    Private Sub CreaObjetoEmpresa(ByRef UsuarioToken As Usuario)
-
-        Dim ObjEmpresa As New ClsSisEmpresas()
-        If ObjEmpresa.GetEmpresas(UsuarioToken.CveEmpresa, "-1", "-1", "-1", "-1") Then
-            If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioToken.CveEmpresa) Then
-                Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
-
-                Dim EmpresasFuncionalidades As New HybridDictionary
-                For Each Row As Data.DataRow In dttmp.Rows
-                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
-                Next
-                ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
-            End If
-
-            UsuarioToken.Empresa = ObjEmpresa.Empresa
-        End If
-        ObjEmpresa.Dispose()
-    End Sub
+    End Function
+
 #End Region
 
     Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest