From e351ec920ae16c32ef6f31245f0c21f9ee77ab62 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 23 Jul 2024 09:16:56 -0700 Subject: [PATCH] -- establecer en el globaldtusuarios, el parametro de empresa. --- Sistemas/PopUpCambiaUsuario.aspx.vb | 2 +- Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb | 7 ++----- 2 files changed, 3 insertions(+), 6 deletions(-) diff --git a/Sistemas/PopUpCambiaUsuario.aspx.vb b/Sistemas/PopUpCambiaUsuario.aspx.vb index fcf77c1d4..e84b800d4 100644 --- a/Sistemas/PopUpCambiaUsuario.aspx.vb +++ b/Sistemas/PopUpCambiaUsuario.aspx.vb @@ -106,7 +106,7 @@ Partial Class Sistemas_PopUpCambiaUsuario ObjUsuario.Dispose() If Usuario IsNot Nothing Then - Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario) + Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, CveEmpresa:=tCveEmpresa) ADSSessionConfig.sessionUser = Usuario ADSSessionConfig.sessionUser.CvePlataforma = 1 If Usuario.CveRol = 1200 Then diff --git a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb b/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb index ad903f0d1..3a81bbd96 100644 --- a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb +++ b/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb @@ -105,7 +105,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa ObjUsuario.Dispose() If Usuario IsNot Nothing Then - Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario) + Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, CveEmpresa:=tCveEmpresa) ADSSessionConfig.sessionUser = Usuario ADSSessionConfig.sessionUser.CvePlataforma = 1 If Usuario.CveRol = 1200 Then @@ -123,11 +123,8 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa CargaZonasHorarias(UsuarioActual) End If End If - RegistraScript("gotourl();") - End If - End If End Sub Private Sub CargaZonasHorarias(ByRef UsuarioActual As Usuario) @@ -174,7 +171,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa End Sub Private Sub CargaUsuarios(Optional Orden As String = "Nombre") - Dim dtt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("CveRol <> 1") + Dim dtt As DataTable = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol <> 1") dtt = dtt.FiltraParametros("Estatus = 1", Orden, {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol"}) gvUsuarios.DataSource = dtt gvUsuarios.DataBind()