From adda1bcccd482937092df49bd665f22989c28d5b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 6 Jul 2022 14:55:45 -0700 Subject: [PATCH] -- que se muestren los modulos de la plataforma 4, App SIG --- Sistemas/UsuarioDetalle.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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