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

-- que se muestren los modulos de la plataforma 4, App SIG

Browse Source
This commit is contained in:
rrene
2022-07-06 14:55:45 -07:00
parent 14bbef3775
commit adda1bcccd
1 changed files with 2 additions and 2 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" #Region "TAB - ACCESO MODULOS"
Public Sub CargaModulosAcceso() Public Sub CargaModulosAcceso()
Dim ObjPermisos As New ClsSisUsuarios Dim ObjPermisos As New ClsSisUsuarios
If ObjPermisos.GetUsuariosModulos(CveUsuario, UsuarioActual.CveEmpresa, If(UsuarioControlado, UsuarioActual.CveUsuario, -1), CvePlataforma:=1) Then If ObjPermisos.GetUsuariosModulos(CveUsuario, UsuarioActual.CveEmpresa, If(UsuarioControlado, UsuarioActual.CveUsuario, -1)) Then
DTModulos = ObjPermisos.DtResultados.FiltraParametros("Liga <> '' ") DTModulos = ObjPermisos.DtResultados.FiltraParametros("Liga <> '' AND CvePlataforma IN (1,4) ")
Else Else
DTModulos = Nothing DTModulos = Nothing
End If End If