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

-- que se visualizar la plataforma, de apps

Browse Source
This commit is contained in:
rrene
2023-08-22 08:32:19 -07:00
parent eec13febb1
commit bc8a491ece
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Sistemas/RolesDetalle.aspx.vb
View File

@@ -106,9 +106,10 @@ Partial Class Sistemas_RolesDetalle
End Sub End Sub
Private Sub CargaGridPermisos() Private Sub CargaGridPermisos()
Dim ObjPermisos As New ClsSisRoles() Dim ObjPermisos As New ClsSisRoles()
If ObjPermisos.GetRolesModulos(CveRol, -1, 1, UsuarioActual.CveEmpresa) Then If ObjPermisos.GetRolesModulos(CveRol, -1, -1, UsuarioActual.CveEmpresa) Then
GvPermisos.DataSource = ObjPermisos.DtResultados.FiltraParametros("AGRUPACION ='N'") GvPermisos.DataSource = ObjPermisos.DtResultados.FiltraParametros(" CvePlataforma IN (1,4) AND AGRUPACION ='N'")
Else Else
GvPermisos.DataSource = Nothing GvPermisos.DataSource = Nothing
End If End If