-- mejora

Ashx/E141.ashx

@@ -10,7 +10,7 @@ Imports Newtonsoft.Json
 Imports Newtonsoft.Json.Linq
 Imports Extensiones
 
-Public Class E141 : Implements IHttpHandler
+Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSessionState
 
     Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
         Get
@@ -1671,6 +1671,21 @@ Public Class E141 : Implements IHttpHandler
             Return JsonConvert.SerializeObject(respuesta)
         End If
 
+
+        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()
+
         Using ObjPS As New ClsProductosServicios()
             If ObjPS.GetExistenciasEmpresa(Codigo, CveEmpresa) Then
                 Dim ArrayPS As New JArray