diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 8d02f753e..439167634 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -2987,8 +2987,8 @@ Partial Class Sistemas_UsuarioDetalle
 #Region "TAB - ACCESO MODULOS"
     Public Sub CargaModulosAcceso()
         Dim ObjPermisos As New ClsSisUsuarios
-        If ObjPermisos.GetUsuariosModulos(CveUsuario, UsuarioActual.CveEmpresa, If(UsuarioControlado, UsuarioActual.CveUsuario, -1), CvePlataforma:=1) Then
-            DTModulos = ObjPermisos.DtResultados.FiltraParametros("Liga <> '' ")
+        If ObjPermisos.GetUsuariosModulos(CveUsuario, UsuarioActual.CveEmpresa, If(UsuarioControlado, UsuarioActual.CveUsuario, -1)) Then
+            DTModulos = ObjPermisos.DtResultados.FiltraParametros("Liga <> '' AND CvePlataforma IN (1,4) ")
         Else
             DTModulos = Nothing
         End If