From e81b75fdea0965131d99fcd425166d51c278285d Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 18 Feb 2008 12:34:31 +0000
Subject: [PATCH] =?UTF-8?q?Mover=20empleados=20y=20categor=C3=ADas=20de=20?=
 =?UTF-8?q?empleados=20al=20men=C3=BA=20de=20empresa.?=
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@274 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Cliente/uPantallaPrincipal.dfm         |  3 ++-
 .../Contactos/Plugin/uPluginContactos.dfm     | 23 +++++++++++--------
 .../Contactos/Plugin/uPluginContactos.pas     |  1 +
 3 files changed, 17 insertions(+), 10 deletions(-)

diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index b828cd90..1987f056 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -596,10 +596,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Visible = False
       end
       object N1_OLD: TMenuItem
+        Tag = 100
         Caption = '-'
-        Visible = False
       end
       object Informacindeempresa1: TMenuItem
+        Tag = 10
         Caption = 'Informaci'#243'n de empresa'
         OnClick = Informacindeempresa1Click
       end
diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
index 9568f911..3e202113 100644
--- a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
+++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
@@ -254,8 +254,22 @@ object PluginContactos: TPluginContactos
     Images = SmallImages
     Left = 40
     Top = 16
+    object Empresa1: TMenuItem
+      Caption = 'Empresa'
+      GroupIndex = 1
+      object Vendedores1: TMenuItem
+        Tag = 102
+        Action = actEmpleados
+        SubMenuImages = SmallImages
+      end
+      object Categoriasdeempleado1: TMenuItem
+        Tag = 103
+        Action = actGruposEmpleado
+      end
+    end
     object Da1: TMenuItem
       Caption = 'Datos'
+      GroupIndex = 1
       object Gruposdeproveedor1: TMenuItem
         Tag = 101
         Action = actGruposProveedor
@@ -265,10 +279,6 @@ object PluginContactos: TPluginContactos
         Tag = 102
         Action = actGruposCliente
       end
-      object Categoriasdeempleado1: TMenuItem
-        Tag = 103
-        Action = actGruposEmpleado
-      end
     end
     object Compras1: TMenuItem
       Caption = '&Compras'
@@ -290,11 +300,6 @@ object PluginContactos: TPluginContactos
         Action = actClientes
         SubMenuImages = SmallImages
       end
-      object Vendedores1: TMenuItem
-        Tag = 102
-        Action = actEmpleados
-        SubMenuImages = SmallImages
-      end
     end
   end
   object SmallImages: TPngImageList
diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.pas b/Source/Modulos/Contactos/Plugin/uPluginContactos.pas
index 00ef3898..e0346155 100644
--- a/Source/Modulos/Contactos/Plugin/uPluginContactos.pas
+++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.pas
@@ -32,6 +32,7 @@ type
     Categoriasdeempleado1: TMenuItem;
     Gruposdeproveedor1: TMenuItem;
     Da1: TMenuItem;
+    Empresa1: TMenuItem;
     procedure actClientesExecute(Sender: TObject);
     procedure actProveedoresExecute(Sender: TObject);
     procedure actEmpleadosExecute(Sender: TObject);