From 78e8f1637cc5ccb6da04992f52405288ac3d0e15 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 00:00:59 -0700 Subject: [PATCH] -- globalDtUsuarios --- Ashx/E48.ashx | 2 +- asmx/WSSIGApp.asmx | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Ashx/E48.ashx b/Ashx/E48.ashx index 385fd6efe..81952afa9 100644 --- a/Ashx/E48.ashx +++ b/Ashx/E48.ashx @@ -78,7 +78,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState Dim IDPoliza As Integer = 0 Dim usuario As String = JsonRequest("usuario").ToString() - If ObjUsuarios.GetUsuariosEmpresas(-1) Then + If ObjUsuarios.GetUsuariosEmpresas(-1, -1) Then CveUsuario = ObjUsuarios.DtResultados.FiltroPrimeroValor("CveUsuario", String.Format("Usuario = '{0}' ", usuario)).ToEntero If CveUsuario > 0 Then UsuarioActual = ValidaUsuarioSistema(CveUsuario, CveEmpresa) diff --git a/asmx/WSSIGApp.asmx b/asmx/WSSIGApp.asmx index dc6ef1427..b13093bdd 100644 --- a/asmx/WSSIGApp.asmx +++ b/asmx/WSSIGApp.asmx @@ -511,7 +511,7 @@ Public Class WSSIGApp ' End If 'End If - If ObjUsuarios.GetUsuariosEmpresas(Salida.CveUsuario) Then + If ObjUsuarios.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then For Each Row As DataRow In ObjUsuarios.DtResultados.FiltraParametros("", "", {"CveEmpresa", "CveEncuestaCRM", "Empresa", "Tipo_CentroCosto"}).Rows Empresas.Add(New WsEmpresa With { .CveEmpresa = Row("CveEmpresa").ToString.ToEntero(), @@ -572,7 +572,7 @@ Public Class WSSIGApp Next End If Salida.Modulos = UsuariosModulos - If tUsuario.GetUsuariosEmpresas(Salida.CveUsuario) Then + If tUsuario.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then For Each Row As DataRow In tUsuario.DtResultados.Rows Empresas.Add(New WsEmpresa With {.CveEmpresa = Row("CveEmpresa").ToString.ToEntero, .Empresa = Row("Empresa").ToString}) Next