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

-- renombrado del archivo menu.xml, del usuario, se le está anteponiendo cveempresa_cveusuario.xml

Browse Source
This commit is contained in:
rrene
2024-07-31 06:39:25 -07:00
parent 0e515412f7
commit 9bffe2fe23
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsSisUsuarioAutenticacion.vb
View File

@@ -246,7 +246,7 @@ Public Class ClsSisUsuarioAutenticacion
'cargo los modulos del usuario y genero el menú
Dim dttmp As DataTable = ObjUsr.GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveEmpresa)
If GenerarMenu Then GeneraMenu(Retorno.CveUsuario, dttmp, Retorno.CvePlataforma)
If GenerarMenu Then GeneraMenu(Retorno.CveUsuario, dttmp, Retorno.CveEmpresa, Retorno.CvePlataforma)
Dim UsuariosModulos As New HybridDictionary
For Each Row As DataRow In dttmp.Rows
@@ -506,7 +506,7 @@ Public Class ClsSisUsuarioAutenticacion
Private Function GeneraMenu(CveUsuario As Integer, dtMenu As DataTable, Optional CvePlataforma As Integer = 1) As Boolean
Private Function GeneraMenu(CveUsuario As Integer, dtMenu As DataTable, CveEmpresa As Integer, Optional CvePlataforma As Integer = 1) As Boolean
Dim Retorno As Boolean = False
dtMenu.TableName = "UsuariosModulos"
@@ -522,9 +522,9 @@ Public Class ClsSisUsuarioAutenticacion
Carpeta.DirectoryExistsCreate
Select Case CvePlataforma
Case 6, 7
dtMenu.FiltraParametros($"CvePlataforma = {CvePlataforma}").WriteXml($"{Carpeta}/{CveUsuario}.xml", XmlWriteMode.WriteSchema)
dtMenu.FiltraParametros($"CvePlataforma = {CvePlataforma}").WriteXml($"{Carpeta}/{CveEmpresa}-{CveUsuario}.xml", XmlWriteMode.WriteSchema)
Case Else
dtMenu.FiltraParametros("CvePlataforma = 1").WriteXml($"{Carpeta}/{CveUsuario}.xml", XmlWriteMode.WriteSchema)
dtMenu.FiltraParametros("CvePlataforma = 1").WriteXml($"{Carpeta}/{CveEmpresa}-{CveUsuario}.xml", XmlWriteMode.WriteSchema)
End Select
Retorno = True

4
Site.master.vb
View File

@@ -376,9 +376,9 @@ Partial Class Site
Dim dt As New DataTable
If UsuarioActual.CveRol = 1200 Then
dt.ReadXml(String.Format("{0}\Menu\GPS\{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
dt.ReadXml(String.Format("{0}\Menu\GPS\{1}-{2}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario))
Else
dt.ReadXml(String.Format("{0}\Menu\ERP\{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
dt.ReadXml(String.Format("{0}\Menu\ERP\{1}-{2}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario))
End If
Dim menuobj As New MenuModal()