Arreglado detalle al generar los menús de la aplicación

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1093 0c75b7a4-871f-7646-8a2f-f78d34cc349f
2014-01-28 17:15:00 +00:00 · 2014-01-28 17:15:00 +00:00 · 7a7c787556
commit 7a7c787556
parent b1427efcf2
1 changed files with 4 additions and 1 deletions
--- 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);