-- parametos de cveplataforma y cveempresa sobre modulos

2021-02-24 10:33:11 -07:00
parent 756bbddae9
commit 217a029685
4 changed files with 4 additions and 4 deletions
--- a/Sistemas/CatRoles.aspx.vb
+++ b/Sistemas/CatRoles.aspx.vb
@@ -90,7 +90,7 @@ Partial Class CatRoles
            If Array.Length = 2 Then
                Dim ObjPermisos As New ClsSisRoles()
                ViewState("CveRol") = Array(0).ToEntero
-                If ObjPermisos.GetRolesModulos(Array(0).ToEntero, -1) Then
+                If ObjPermisos.GetRolesModulos(Array(0).ToEntero, -1, 1, UsuarioActual.CveEmpresa) Then
                    GvPermisos.DataSource = ObjPermisos.DtResultados.FiltraParametros("AGRUPACION ='N'")
                Else
                    GvPermisos.DataSource = Nothing