From 2ca1b77237be746bc3eaf86ccc4b8cb0050c3f0b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 24 Feb 2021 08:08:12 -0700 Subject: [PATCH] se manda, empresa y plataforma --- App_Code/ClsSisRoles.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb index da2d9a59a..85b9a7211 100644 --- a/App_Code/ClsSisRoles.vb +++ b/App_Code/ClsSisRoles.vb @@ -237,13 +237,15 @@ Public Class ClsSisRoles Return Retorno End Function - Public Function GetRolesModulos(CveRol As Integer, CveModulo As Integer) As Boolean + Public Function GetRolesModulos(CveRol As Integer, CveModulo As Integer, CvePlataforma As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Sis_RolesModulosGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveRol", SqlDbType.Int).Value = CveRol .Add("@CveModulo", SqlDbType.Int).Value = CveModulo + .Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try