AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

se manda, empresa y plataforma

Browse Source
This commit is contained in:
rrene
2021-02-24 08:08:12 -07:00
parent 6348dc4e7f
commit 2ca1b77237
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsSisRoles.vb
View File

@@ -237,13 +237,15 @@ Public Class ClsSisRoles
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Sis_RolesModulosGet") DataAdapter("PA_Sis_RolesModulosGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveRol", SqlDbType.Int).Value = CveRol .Add("@CveRol", SqlDbType.Int).Value = CveRol
.Add("@CveModulo", SqlDbType.Int).Value = CveModulo .Add("@CveModulo", SqlDbType.Int).Value = CveModulo
.Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try