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ú 'cargo los modulos del usuario y genero el menú
Dim dttmp As DataTable = ObjUsr.GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveEmpresa) 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 Dim UsuariosModulos As New HybridDictionary
For Each Row As DataRow In dttmp.Rows 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 Dim Retorno As Boolean = False
dtMenu.TableName = "UsuariosModulos" dtMenu.TableName = "UsuariosModulos"
@@ -522,9 +522,9 @@ Public Class ClsSisUsuarioAutenticacion
Carpeta.DirectoryExistsCreate Carpeta.DirectoryExistsCreate
Select Case CvePlataforma Select Case CvePlataforma
Case 6, 7 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 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 End Select
Retorno = True Retorno = True

4
Site.master.vb
View File

@@ -376,9 +376,9 @@ Partial Class Site
Dim dt As New DataTable Dim dt As New DataTable
If UsuarioActual.CveRol = 1200 Then 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 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 End If
Dim menuobj As New MenuModal() Dim menuobj As New MenuModal()