diff --git a/Source/Cliente/Utiles/uNavPaneUtils.pas b/Source/Cliente/Utiles/uNavPaneUtils.pas
index 001d9b4..10abcf2 100644
--- a/Source/Cliente/Utiles/uNavPaneUtils.pas
+++ b/Source/Cliente/Utiles/uNavPaneUtils.pas
@@ -28,6 +28,7 @@ begin
   for ItemIndex := 0 to (AMenuItem.Count - 1) do
   begin
     if ((not AMenuItem[ItemIndex].IsLine)  // que no sea una línea separadora
+         and (AMenuItem[ItemIndex].Tag <> -999) // Si TAG = -999 indica que se ignora este item
          and (AMenuItem[ItemIndex].Count = 0) // que no sea el padre de un submenú
          and (AMenuItem[ItemIndex].Visible)) // y que sea visible
     then
diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index 73deacc..2705971 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -625,6 +625,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Tag = 1000
       Caption = 'Empresa'
       object Listadeempresas1_OLD: TMenuItem
+        Tag = -999
         Action = actSeleccionEmpresas
       end
       object N1_OLD: TMenuItem