-- validar acceso al usuario.

Ashx/TareasProgramadas.ashx

@@ -117,8 +117,9 @@ Public Class TareasProgramadas : Implements IHttpHandler
 
 
         If GlobalDTUsuarios.Rows.Count > 0 Then
-            Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0)
-            Dim ObjUsuario As New ClsSisUsuarios
+            Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0)
+            Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(cveEmpresa)
+            Dim ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
             usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, CveEmpresa:=cveEmpresa)
             ObjUsuario.Dispose()
 
@@ -225,8 +226,9 @@ Public Class TareasProgramadas : Implements IHttpHandler
         End If
 #End Region
 #Region "obtengo el usuario con el username y la pass"
-
-        Using ObjUsuario As New ClsSisUsuarios()
+        'Dim tGrupoEmpresa As String = ClsPaginas.GlobalGrupoEmpresa(Request.Url.Host.ToUpper())
+        Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
+        Using ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
             usuario = ObjUsuario.ValidaUsuario(username, pass, CveEmpresa:=CveEmpresa)
         End Using
 #End Region
@@ -345,41 +347,19 @@ Public Class TareasProgramadas : Implements IHttpHandler
     End Sub
 
 
-    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 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
-                HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
-                CreaObjetoEmpresa(UsuarioActual)
-            End If
-        End If
-        ObjUsuarios.Dispose()
-        Return UsuarioActual
-    End Function
-    Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
-
-        Dim ObjEmpresa As New ClsSisEmpresas()
-        If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
-            If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.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
-
-            UsuarioActual.Empresa = ObjEmpresa.Empresa
-        End If
-        ObjEmpresa.Dispose()
-    End Sub
+    Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario
+        Dim UsuarioActual As Usuario = Nothing
+        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 Function EjecutarEnvioEstadoCuenta(UsuarioActual As Usuario, FechaEnvio As DateTime, FechaActual As DateTime, Optional pCveCliente As Integer = -1) As JObject
         Dim ClientesSinEnviar As New JArray()