se manda, empresa y plataforma

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