From 217a02968500218fae24f31f9802f5815b38783a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 24 Feb 2021 10:33:11 -0700
Subject: [PATCH] -- parametos de cveplataforma y cveempresa sobre modulos

---
 Sistemas/CatRoles.aspx.vb           | 2 +-
 Sistemas/PermisosPorUsuario.aspx.vb | 2 +-
 Sistemas/RolesDetalle.aspx.vb       | 2 +-
 Sistemas/UsuarioDetalle.aspx.vb     | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Sistemas/CatRoles.aspx.vb b/Sistemas/CatRoles.aspx.vb
index 955d0a9d7..06391880a 100644
--- 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
diff --git a/Sistemas/PermisosPorUsuario.aspx.vb b/Sistemas/PermisosPorUsuario.aspx.vb
index 54f321149..d089848a8 100644
--- a/Sistemas/PermisosPorUsuario.aspx.vb
+++ b/Sistemas/PermisosPorUsuario.aspx.vb
@@ -76,7 +76,7 @@ Partial Class Sistemas_PermisosPorUsuario
                 UsuarioControlado = False
             End If
             Dim ObjRoles As New ClsSisRoles
-            If ObjRoles.GetRolesModulos(-1, -1) Then
+            If ObjRoles.GetRolesModulos(-1, -1, 1, UsuarioActual.CveEmpresa) Then
                 DTRolesModulos = ObjRoles.DtResultados
             End If
             ObjRoles.Dispose()
diff --git a/Sistemas/RolesDetalle.aspx.vb b/Sistemas/RolesDetalle.aspx.vb
index 84db02353..805e69fc1 100644
--- a/Sistemas/RolesDetalle.aspx.vb
+++ b/Sistemas/RolesDetalle.aspx.vb
@@ -92,7 +92,7 @@ Partial Class Sistemas_RolesDetalle
 
     Private Sub CargaGridPermisos()
         Dim ObjPermisos As New ClsSisRoles()
-        If ObjPermisos.GetRolesModulos(CveRol, -1) Then
+        If ObjPermisos.GetRolesModulos(CveRol, -1, 1, UsuarioActual.CveEmpresa) Then
             GvPermisos.DataSource = ObjPermisos.DtResultados.FiltraParametros("AGRUPACION ='N'")
         Else
             GvPermisos.DataSource = Nothing
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 67eb0733e..3c125be18 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -2941,7 +2941,7 @@ 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)) Then
+        If ObjPermisos.GetUsuariosModulos(CveUsuario, UsuarioActual.CveEmpresa, If(UsuarioControlado, UsuarioActual.CveUsuario, -1), CvePlataforma:=1) Then
             DTModulos = ObjPermisos.DtResultados.FiltraParametros("Liga <> '' ")
         Else
             DTModulos = Nothing