-- 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())