Tarea #335 -> Quitar 'selección de empresa' de la columna de la izquierda

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@92 f33bb606-9f5c-448d-9c99-757f00063c96

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

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