From 7a7c78755614c349f0187f285f74fecd71c5ebb7 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 28 Jan 2014 17:15:00 +0000
Subject: [PATCH] =?UTF-8?q?Arreglado=20detalle=20al=20generar=20los=20men?=
 =?UTF-8?q?=C3=BAs=20de=20la=20aplicaci=C3=B3n?=
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.Tecsitel_FactuGES2/trunk@1093 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Cliente/Utiles/uMenuUtils.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Source/Cliente/Utiles/uMenuUtils.pas b/Source/Cliente/Utiles/uMenuUtils.pas
index f31420e7..74f7c6f9 100644
--- a/Source/Cliente/Utiles/uMenuUtils.pas
+++ b/Source/Cliente/Utiles/uMenuUtils.pas
@@ -31,7 +31,10 @@ var
 begin
   for I := 0 to Source.Count - 1 do
   begin
-    Item := Dest.Find(Source.Items[I].Caption);
+    Item := NIL;
+    if Source.Items[I].Caption <> '-' then
+      Item := Dest.Find(Source.Items[I].Caption);
+      
     if Item = NIL then
     begin
       Item := TMenuItem.Create(Dest);