diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx
index 630e3a709..07ca0b86d 100644
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -69,6 +69,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
                 Dim Contrasenia = 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
@@ -1979,6 +1980,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
 
         Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
 
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
         Dim DtPS As DataTable = Nothing
         Using ObjPS As New ClsProductosServicios
             'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -2069,6 +2071,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
 
         Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
 
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
         Dim DtPS As DataTable = Nothing
         Using ObjPS As New ClsProductosServicios
             'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -2116,7 +2119,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
             Retorno = True
             Return Retorno
         End If
-
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
         Dim DtPS As DataTable = Nothing
         Using ObjPS As New ClsProductosServicios
             'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -2206,7 +2209,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
         Dim payload = New JObject()
 
         Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
-
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
         Dim DtPS As DataTable = Nothing
         Using ObjPS As New ClsProductosServicios
             If ObjPS.GetExistenciasEmpresa("-1", CveEmpresa) Then
@@ -2246,6 +2249,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
         Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
 
         Dim DtVendedores As DataTable = Nothing
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
         Using ObjPS As New ClsProductosServicios
             'OBTERNER PRECIOS DE PUBLICO GENERAL
             If ObjPS.GetVendedoresModificados(CveEmpresa, If(Todos, -1, 1)) Then