From 9bffe2fe231b248018bd8070753b79318f27958c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 31 Jul 2024 06:39:25 -0700
Subject: [PATCH] =?UTF-8?q?--=20renombrado=20del=20archivo=20menu.xml,=20d?=
 =?UTF-8?q?el=20usuario,=20se=20le=20est=C3=A1=20anteponiendo=20cveempresa?=
 =?UTF-8?q?=5Fcveusuario.xml?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsSisUsuarioAutenticacion.vb | 8 ++++----
 Site.master.vb                         | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/App_Code/ClsSisUsuarioAutenticacion.vb b/App_Code/ClsSisUsuarioAutenticacion.vb
index 7491db69c..5b8070cbc 100644
--- a/App_Code/ClsSisUsuarioAutenticacion.vb
+++ b/App_Code/ClsSisUsuarioAutenticacion.vb
@@ -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
diff --git a/Site.master.vb b/Site.master.vb
index 65998e82b..b47371759 100644
--- a/Site.master.vb
+++ b/Site.master.vb
@@ -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()