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