Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mover empleados y categorías de empleados al menú de empresa.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@274 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-18 12:34:31 +00:00
parent 5205d2200d
commit e81b75fdea
3 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -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

23
Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
View File

@ -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

1
Source/Modulos/Contactos/Plugin/uPluginContactos.pas
View File

@ -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);