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 Visible = False
end end
object N1_OLD: TMenuItem object N1_OLD: TMenuItem
Tag = 100
Caption = '-' Caption = '-'
Visible = False
end end
object Informacindeempresa1: TMenuItem object Informacindeempresa1: TMenuItem
Tag = 10
Caption = 'Informaci'#243'n de empresa' Caption = 'Informaci'#243'n de empresa'
OnClick = Informacindeempresa1Click OnClick = Informacindeempresa1Click
end end

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

@ -254,8 +254,22 @@ object PluginContactos: TPluginContactos
Images = SmallImages Images = SmallImages
Left = 40 Left = 40
Top = 16 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 object Da1: TMenuItem
Caption = 'Datos' Caption = 'Datos'
GroupIndex = 1
object Gruposdeproveedor1: TMenuItem object Gruposdeproveedor1: TMenuItem
Tag = 101 Tag = 101
Action = actGruposProveedor Action = actGruposProveedor
@ -265,10 +279,6 @@ object PluginContactos: TPluginContactos
Tag = 102 Tag = 102
Action = actGruposCliente Action = actGruposCliente
end end
object Categoriasdeempleado1: TMenuItem
Tag = 103
Action = actGruposEmpleado
end
end end
object Compras1: TMenuItem object Compras1: TMenuItem
Caption = '&Compras' Caption = '&Compras'
@ -290,11 +300,6 @@ object PluginContactos: TPluginContactos
Action = actClientes Action = actClientes
SubMenuImages = SmallImages SubMenuImages = SmallImages
end end
object Vendedores1: TMenuItem
Tag = 102
Action = actEmpleados
SubMenuImages = SmallImages
end
end end
end end
object SmallImages: TPngImageList object SmallImages: TPngImageList

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

@ -32,6 +32,7 @@ type
Categoriasdeempleado1: TMenuItem; Categoriasdeempleado1: TMenuItem;
Gruposdeproveedor1: TMenuItem; Gruposdeproveedor1: TMenuItem;
Da1: TMenuItem; Da1: TMenuItem;
Empresa1: TMenuItem;
procedure actClientesExecute(Sender: TObject); procedure actClientesExecute(Sender: TObject);
procedure actProveedoresExecute(Sender: TObject); procedure actProveedoresExecute(Sender: TObject);
procedure actEmpleadosExecute(Sender: TObject); procedure actEmpleadosExecute(Sender: TObject);