AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- validacion de usuario

Browse Source
This commit is contained in:
rrene
2024-07-16 07:13:31 -07:00
parent 235af27a02
commit 8982c78585
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ashx/E141.ashx
View File

@@ -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