-- mejora

Ashx/E119.ashx

@@ -9,7 +9,7 @@ Imports Newtonsoft.Json
 Imports Newtonsoft.Json.Linq
 Imports Extensiones
 
-Public Class E119 : Implements IHttpHandler
+Public Class E119 : Implements IHttpHandler, System.Web.SessionState.IRequiresSessionState
 
     Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
         Get
@@ -59,6 +59,7 @@ Public Class E119 : Implements IHttpHandler
                 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
@@ -79,7 +80,7 @@ Public Class E119 : Implements IHttpHandler
             End If
 
             UsuarioActual.Empresa = ObjEmpresa.Empresa
-            If UsuarioActual.Empresa.RutaDB = "" Then UsuarioActual.Empresa.RutaDB = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+
         End If
         ObjEmpresa.Dispose()
     End Sub
@@ -267,7 +268,7 @@ Public Class E119 : Implements IHttpHandler
         End If
 
         Dim Productos As JArray = Nothing
-
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
         Using ObjInventario As New ClsInventarios
             If ObjInventario.GetJAM_APIs(1, CveClasificacion:=CveClasificacion.ToEntero()) AndAlso ObjInventario.DtResultados IsNot Nothing Then
                 Productos = JArray.Parse(ObjInventario.DtResultados.FiltroPrimeroValor("JsonTexto"))
@@ -302,6 +303,7 @@ Public Class E119 : Implements IHttpHandler
         Dim TieneError As Boolean = False
 
         Dim Clasificaciones As JArray = Nothing
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
 
         Try
             'Clasificaciones = JArray.Parse(ClsPaginas.GlobalDTClasificaciones(CveEmpresa).FiltraParametros("", DistinctColumns:={"CveClasificacion", "Clasificacion"}).DataTableToJSONIPP())

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