-- que se visualizar la plataforma, de apps

2023-08-22 08:32:19 -07:00
parent eec13febb1
commit bc8a491ece
1 changed files with 3 additions and 2 deletions
--- 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