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

-- establecer en el globaldtusuarios, el parametro de empresa.

Browse Source
This commit is contained in:
rrene
2024-07-23 09:16:56 -07:00
parent f664aaa1f9
commit e351ec920a
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Sistemas/PopUpCambiaUsuario.aspx.vb
View File

@@ -106,7 +106,7 @@ Partial Class Sistemas_PopUpCambiaUsuario
ObjUsuario.Dispose() ObjUsuario.Dispose()
If Usuario IsNot Nothing Then 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 = Usuario
ADSSessionConfig.sessionUser.CvePlataforma = 1 ADSSessionConfig.sessionUser.CvePlataforma = 1
If Usuario.CveRol = 1200 Then If Usuario.CveRol = 1200 Then

7
Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
View File

@@ -105,7 +105,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
ObjUsuario.Dispose() ObjUsuario.Dispose()
If Usuario IsNot Nothing Then 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 = Usuario
ADSSessionConfig.sessionUser.CvePlataforma = 1 ADSSessionConfig.sessionUser.CvePlataforma = 1
If Usuario.CveRol = 1200 Then If Usuario.CveRol = 1200 Then
@@ -123,11 +123,8 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
CargaZonasHorarias(UsuarioActual) CargaZonasHorarias(UsuarioActual)
End If End If
End If End If
RegistraScript("gotourl();") RegistraScript("gotourl();")
End If End If
End If End If
End Sub End Sub
Private Sub CargaZonasHorarias(ByRef UsuarioActual As Usuario) Private Sub CargaZonasHorarias(ByRef UsuarioActual As Usuario)
@@ -174,7 +171,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
End Sub End Sub
Private Sub CargaUsuarios(Optional Orden As String = "Nombre") 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"}) dtt = dtt.FiltraParametros("Estatus = 1", Orden, {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol"})
gvUsuarios.DataSource = dtt gvUsuarios.DataSource = dtt
gvUsuarios.DataBind() gvUsuarios.DataBind()