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

-- merge SIGWEB

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-07-09 00:31:56 -07:00
parent db5b6cc60e 859d1ab6b4
commit b1125e84d6
51 changed files with 1432 additions and 1483 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -2987,8 +2987,8 @@ Partial Class Sistemas_UsuarioDetalle
#Region "TAB - ACCESO MODULOS"
Public Sub CargaModulosAcceso()
Dim ObjPermisos As New ClsSisUsuarios
If ObjPermisos.GetUsuariosModulos(CveUsuario, UsuarioActual.CveEmpresa, If(UsuarioControlado, UsuarioActual.CveUsuario, -1), CvePlataforma:=1) Then
DTModulos = ObjPermisos.DtResultados.FiltraParametros("Liga <> '' ")
If ObjPermisos.GetUsuariosModulos(CveUsuario, UsuarioActual.CveEmpresa, If(UsuarioControlado, UsuarioActual.CveUsuario, -1)) Then
DTModulos = ObjPermisos.DtResultados.FiltraParametros("Liga <> '' AND CvePlataforma IN (1,4) ")
Else
DTModulos = Nothing
End If