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

-- parametos de cveplataforma y cveempresa sobre modulos

Browse Source
This commit is contained in:
rrene
2021-02-24 10:33:11 -07:00
parent 756bbddae9
commit 217a029685
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Sistemas/CatRoles.aspx.vb
View File

@@ -90,7 +90,7 @@ Partial Class CatRoles
If Array.Length = 2 Then If Array.Length = 2 Then
Dim ObjPermisos As New ClsSisRoles() Dim ObjPermisos As New ClsSisRoles()
ViewState("CveRol") = Array(0).ToEntero 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'") GvPermisos.DataSource = ObjPermisos.DtResultados.FiltraParametros("AGRUPACION ='N'")
Else Else
GvPermisos.DataSource = Nothing GvPermisos.DataSource = Nothing

2
Sistemas/PermisosPorUsuario.aspx.vb
View File

@@ -76,7 +76,7 @@ Partial Class Sistemas_PermisosPorUsuario
UsuarioControlado = False UsuarioControlado = False
End If End If
Dim ObjRoles As New ClsSisRoles Dim ObjRoles As New ClsSisRoles
If ObjRoles.GetRolesModulos(-1, -1) Then If ObjRoles.GetRolesModulos(-1, -1, 1, UsuarioActual.CveEmpresa) Then
DTRolesModulos = ObjRoles.DtResultados DTRolesModulos = ObjRoles.DtResultados
End If End If
ObjRoles.Dispose() ObjRoles.Dispose()

2
Sistemas/RolesDetalle.aspx.vb
View File

@@ -92,7 +92,7 @@ Partial Class Sistemas_RolesDetalle
Private Sub CargaGridPermisos() Private Sub CargaGridPermisos()
Dim ObjPermisos As New ClsSisRoles() 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'") GvPermisos.DataSource = ObjPermisos.DtResultados.FiltraParametros("AGRUPACION ='N'")
Else Else
GvPermisos.DataSource = Nothing GvPermisos.DataSource = Nothing

2
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -2941,7 +2941,7 @@ Partial Class Sistemas_UsuarioDetalle
#Region "TAB - ACCESO MODULOS" #Region "TAB - ACCESO MODULOS"
Public Sub CargaModulosAcceso() Public Sub CargaModulosAcceso()
Dim ObjPermisos As New ClsSisUsuarios 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 <> '' ") DTModulos = ObjPermisos.DtResultados.FiltraParametros("Liga <> '' ")
Else Else
DTModulos = Nothing DTModulos = Nothing