From e75ddc22bbd34f9018abf6f45f59859d8fb6ebec Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 9 Feb 2010 18:12:37 +0000
Subject: [PATCH] =?UTF-8?q?Tarea=20#335=20->=20Quitar=20'selecci=C3=B3n=20?=
 =?UTF-8?q?de=20empresa'=20de=20la=20columna=20de=20la=20izquierda?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@92 f33bb606-9f5c-448d-9c99-757f00063c96
---
 Source/Cliente/Utiles/uNavPaneUtils.pas | 1 +
 Source/Cliente/uPantallaPrincipal.dfm   | 1 +
 2 files changed, 2 insertions(+)

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