From bc8a491ece83a0c8ae3f05d1c4bc032e0de770af Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 22 Aug 2023 08:32:19 -0700 Subject: [PATCH] -- que se visualizar la plataforma, de apps --- Sistemas/RolesDetalle.aspx.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Sistemas/RolesDetalle.aspx.vb b/Sistemas/RolesDetalle.aspx.vb index 4e676aea3..63516d550 100644 --- a/Sistemas/RolesDetalle.aspx.vb +++ b/Sistemas/RolesDetalle.aspx.vb @@ -106,9 +106,10 @@ Partial Class Sistemas_RolesDetalle End Sub Private Sub CargaGridPermisos() + Dim ObjPermisos As New ClsSisRoles() - If ObjPermisos.GetRolesModulos(CveRol, -1, 1, UsuarioActual.CveEmpresa) Then - GvPermisos.DataSource = ObjPermisos.DtResultados.FiltraParametros("AGRUPACION ='N'") + If ObjPermisos.GetRolesModulos(CveRol, -1, -1, UsuarioActual.CveEmpresa) Then + GvPermisos.DataSource = ObjPermisos.DtResultados.FiltraParametros(" CvePlataforma IN (1,4) AND AGRUPACION ='N'") Else GvPermisos.DataSource = Nothing End If