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()