diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx
index cee2a6026..994c995bb 100644
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -373,6 +373,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
             Dim Mail As String = "-1"
 
             Dim DtSucursales As DataTable = Nothing
+            Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
 
             Using ObjClientes As New ClsClientes
                 If ObjClientes.GetListaSucursales(RFC, CveEmpresa) Then
@@ -1764,6 +1765,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
         Dim Retorno As Boolean = True
 
         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
@@ -1796,6 +1798,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
         Dim Retorno As Boolean = False
         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
@@ -1889,7 +1893,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
             'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -1966,6 +1970,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