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

Empleados: campo nuevo para poner la duracción del contrato.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@273 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-18 11:55:48 +00:00
parent fdbb2cf95c
commit 5205d2200d
9 changed files with 338 additions and 188 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Database/scripts/factuges.sql
View File

@ -527,7 +527,8 @@ CREATE TABLE EMPLEADOS_DATOS (
FORMACION_COMPLE TIPO_NOTAS, FORMACION_COMPLE TIPO_NOTAS,
FORMACION_RECIBIDA TIPO_NOTAS, FORMACION_RECIBIDA TIPO_NOTAS,
EXPERIENCIA TIPO_NOTAS, EXPERIENCIA TIPO_NOTAS,
CONTRATO VARCHAR(255) CONTRATO VARCHAR(255),
DURACION VARCHAR(255)
); );
@ -1584,7 +1585,8 @@ CREATE VIEW V_EMPLEADOS(
FORMACION_COMPLE, FORMACION_COMPLE,
FORMACION_RECIBIDA, FORMACION_RECIBIDA,
EXPERIENCIA, EXPERIENCIA,
CONTRATO) CONTRATO,
DURACION)
AS AS
SELECT V_CONTACTOS.ID, SELECT V_CONTACTOS.ID,
V_CONTACTOS.ID_CATEGORIA, V_CONTACTOS.ID_CATEGORIA,
@ -1617,7 +1619,8 @@ SELECT V_CONTACTOS.ID,
EMPLEADOS_DATOS.FORMACION_COMPLE, EMPLEADOS_DATOS.FORMACION_COMPLE,
EMPLEADOS_DATOS.FORMACION_RECIBIDA, EMPLEADOS_DATOS.FORMACION_RECIBIDA,
EMPLEADOS_DATOS.EXPERIENCIA, EMPLEADOS_DATOS.EXPERIENCIA,
EMPLEADOS_DATOS.CONTRATO EMPLEADOS_DATOS.CONTRATO,
EMPLEADOS_DATOS.DURACION
FROM V_CONTACTOS FROM V_CONTACTOS
INNER JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_EMPLEADO = V_CONTACTOS.ID) INNER JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_EMPLEADO = V_CONTACTOS.ID)

5
Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
View File

@ -376,6 +376,11 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
Size = 255 Size = 255
DisplayLabel = 'Contrato' DisplayLabel = 'Contrato'
DictionaryEntry = 'Empleados_CONTRATO' DictionaryEntry = 'Empleados_CONTRATO'
end
item
Name = 'DURACION'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

87
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,19 +9,19 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{A01DF458-CA42-490D-B20E-900420045A23}'; RID_Contactos = '{A4D7F874-9AA6-478C-AAB9-8C72B89D5587}';
RID_GruposCliente = '{856B01A2-B957-42EF-922D-7B21671BBE74}'; RID_GruposCliente = '{1C96451B-7D16-472A-8A32-1980C73168F1}';
RID_DatosBancarios = '{A805FC27-FB69-42D8-964D-E109662823EC}'; RID_DatosBancarios = '{17AE17CD-D4F4-49B3-8EB5-001FAC1E35A9}';
RID_Clientes = '{6D8EA837-CBD8-4CD6-B78F-3D6CBB862164}'; RID_Clientes = '{DF344842-83AC-4CD8-BF84-C4AD0BF0BC4C}';
RID_Proveedores = '{81C670DC-5013-443F-94B8-8BDB6A45D0B9}'; RID_Proveedores = '{FEC4E64E-F9A3-4CCC-8FF4-95D40EF5D976}';
RID_Empleados = '{F639F514-FA26-470A-9168-33B20AB0A5C6}'; RID_Empleados = '{60C35CF4-7BCF-4B5F-B49B-97C322134C9F}';
RID_DireccionesContacto = '{84E91303-9464-453C-9D0D-B6018DE5C0E0}'; RID_DireccionesContacto = '{9A84C7A3-D210-451C-A3C6-4E68505DCC05}';
RID_ClientesDescuentos = '{FC4C2315-A1D2-44EC-8600-0596BCFF0D0B}'; RID_ClientesDescuentos = '{064EFA39-B948-4B38-BB8B-D2BDF7A9A889}';
RID_GruposProveedor = '{98B4C0FA-AAD3-4DC1-9C1A-277BE5D6A64C}'; RID_GruposProveedor = '{AAA36EB6-1D98-4A1E-B26C-70DB3B6970D4}';
RID_GruposEmpleado = '{443813CE-FC5E-409B-8CCA-2DDD27AA5DD0}'; RID_GruposEmpleado = '{F3EC9B3B-3E20-4A89-89BD-78CF3DDC024A}';
RID_Contactos_Refresh = '{DFC7E7BE-F226-491E-87C9-5E4C80C6F900}'; RID_Contactos_Refresh = '{8A0B1D05-EF34-47A3-B06C-2AA9942097E2}';
RID_ContratosEmpleados = '{2F3CC454-F247-4FB4-8BA4-B91262485533}'; RID_ContratosEmpleados = '{048968BF-970A-4A6E-B42D-C2083E283280}';
RID_DescripcionesProveedores = '{275FEFB5-D5C3-49BC-BE17-4B14ADCFCB99}'; RID_DescripcionesProveedores = '{505162D5-88A0-4873-8205-7BD33AE36269}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -294,6 +294,7 @@ const
fld_EmpleadosFORMACION_RECIBIDA = 'FORMACION_RECIBIDA'; fld_EmpleadosFORMACION_RECIBIDA = 'FORMACION_RECIBIDA';
fld_EmpleadosEXPERIENCIA = 'EXPERIENCIA'; fld_EmpleadosEXPERIENCIA = 'EXPERIENCIA';
fld_EmpleadosCONTRATO = 'CONTRATO'; fld_EmpleadosCONTRATO = 'CONTRATO';
fld_EmpleadosDURACION = 'DURACION';
{ Empleados field indexes } { Empleados field indexes }
idx_EmpleadosID = 0; idx_EmpleadosID = 0;
@ -327,6 +328,7 @@ const
idx_EmpleadosFORMACION_RECIBIDA = 28; idx_EmpleadosFORMACION_RECIBIDA = 28;
idx_EmpleadosEXPERIENCIA = 29; idx_EmpleadosEXPERIENCIA = 29;
idx_EmpleadosCONTRATO = 30; idx_EmpleadosCONTRATO = 30;
idx_EmpleadosDURACION = 31;
{ DireccionesContacto fields } { DireccionesContacto fields }
fld_DireccionesContactoID = 'ID'; fld_DireccionesContactoID = 'ID';
@ -455,7 +457,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{442364C9-699A-42A2-BD2B-634824DB9D4C}'] ['{9BC70D6F-DDBB-455A-8ED6-277F6F015990}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -754,7 +756,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{35E7B4ED-6CB6-40E3-9440-84F5FC62866C}'] ['{CD452866-91FC-4B57-AF2E-51EFC32955CA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -801,7 +803,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{1067D207-71F4-4FA3-A662-4980479F297A}'] ['{634A6F68-7F67-4E95-96CF-79E555FD64B4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -932,7 +934,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{F5CD5D3C-EF2D-4C2D-B033-369E7FF496FE}'] ['{D56F28C2-CEFE-4755-9092-F7D740DED9C9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1375,7 +1377,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{BBCE4DC0-BCDB-43F4-9184-A5738876A8B0}'] ['{6DF906CE-7A60-4F70-B2E1-EF3B18FE5785}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1794,7 +1796,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{F6216CB9-7373-46E3-A4E1-94646AF537D9}'] ['{CB027BF3-E930-4108-8992-BC7CB8F78B34}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1915,6 +1917,10 @@ type
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
function GetCONTRATOIsNull: Boolean; function GetCONTRATOIsNull: Boolean;
procedure SetCONTRATOIsNull(const aValue: Boolean); procedure SetCONTRATOIsNull(const aValue: Boolean);
function GetDURACIONValue: String;
procedure SetDURACIONValue(const aValue: String);
function GetDURACIONIsNull: Boolean;
procedure SetDURACIONIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -1980,6 +1986,8 @@ type
property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull; property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
property CONTRATO: String read GetCONTRATOValue write SetCONTRATOValue; property CONTRATO: String read GetCONTRATOValue write SetCONTRATOValue;
property CONTRATOIsNull: Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull; property CONTRATOIsNull: Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull;
property DURACION: String read GetDURACIONValue write SetDURACIONValue;
property DURACIONIsNull: Boolean read GetDURACIONIsNull write SetDURACIONIsNull;
end; end;
{ TEmpleadosDataTableRules } { TEmpleadosDataTableRules }
@ -2116,6 +2124,10 @@ type
procedure SetCONTRATOValue(const aValue: String); virtual; procedure SetCONTRATOValue(const aValue: String); virtual;
function GetCONTRATOIsNull: Boolean; virtual; function GetCONTRATOIsNull: Boolean; virtual;
procedure SetCONTRATOIsNull(const aValue: Boolean); virtual; procedure SetCONTRATOIsNull(const aValue: Boolean); virtual;
function GetDURACIONValue: String; virtual;
procedure SetDURACIONValue(const aValue: String); virtual;
function GetDURACIONIsNull: Boolean; virtual;
procedure SetDURACIONIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -2180,6 +2192,8 @@ type
property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull; property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
property CONTRATO: String read GetCONTRATOValue write SetCONTRATOValue; property CONTRATO: String read GetCONTRATOValue write SetCONTRATOValue;
property CONTRATOIsNull: Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull; property CONTRATOIsNull: Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull;
property DURACION: String read GetDURACIONValue write SetDURACIONValue;
property DURACIONIsNull: Boolean read GetDURACIONIsNull write SetDURACIONIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -2189,7 +2203,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{53FE106D-EC9A-4532-BEA8-CD41DAA2EB54}'] ['{9BFD1F3F-13FE-40FC-A5DD-236EBCC45998}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2404,7 +2418,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{9759ECA3-182C-4CB0-938A-8554DFF4B1C2}'] ['{C0E7C4E7-306A-441E-A310-31D2C8801423}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2487,7 +2501,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{B498AC23-EBFE-4406-AD14-7C99C40A088D}'] ['{B0E72900-9B72-4A0A-9DB9-F87C56E6A002}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2534,7 +2548,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{973B4979-9390-4923-B95C-4C88C77F68C2}'] ['{425C3BF6-7FB4-41CE-AB81-CE7220B030ED}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2581,7 +2595,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{917172A1-5EDB-43D8-B8C5-A708ADB8AA6B}'] ['{BE66BA4F-21CD-4F00-9640-6D2A7C8BC2CA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2856,7 +2870,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{19938FAD-FE0E-4DBB-8754-1DD175921CE6}'] ['{23DC52D6-E760-444F-BB2D-134398ECCB26}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -2891,7 +2905,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{663EDF89-9632-4999-8426-33DD3287B421}'] ['{A512DEBE-E8E2-4E28-852A-E89484CEA0B3}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -5840,6 +5854,27 @@ begin
DataTable.Fields[idx_EmpleadosCONTRATO].AsVariant := Null; DataTable.Fields[idx_EmpleadosCONTRATO].AsVariant := Null;
end; end;
function TEmpleadosDataTableRules.GetDURACIONValue: String;
begin
result := DataTable.Fields[idx_EmpleadosDURACION].AsString;
end;
procedure TEmpleadosDataTableRules.SetDURACIONValue(const aValue: String);
begin
DataTable.Fields[idx_EmpleadosDURACION].AsString := aValue;
end;
function TEmpleadosDataTableRules.GetDURACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpleadosDURACION].IsNull;
end;
procedure TEmpleadosDataTableRules.SetDURACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpleadosDURACION].AsVariant := Null;
end;
{ TDireccionesContactoDataTableRules } { TDireccionesContactoDataTableRules }
constructor TDireccionesContactoDataTableRules.Create(aDataTable: TDADataTable); constructor TDireccionesContactoDataTableRules.Create(aDataTable: TDADataTable);

95
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,24 +9,24 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{48772AD3-B3EF-47A9-9A2E-4B73FBA9F204}'; RID_ContactosDelta = '{D88BCAA7-5886-4CD4-BECA-2B4D8D21D8A6}';
RID_GruposClienteDelta = '{5CA21C80-5EE4-4BC4-A0AF-4EA4E0188770}'; RID_GruposClienteDelta = '{24C81A94-CB18-447A-8456-93B88582D6EE}';
RID_DatosBancariosDelta = '{97461A25-FB3D-49BA-989A-A2E864F15627}'; RID_DatosBancariosDelta = '{B8CD12A2-4C6A-497F-A846-DD30666F98EB}';
RID_ClientesDelta = '{5016B0EA-1E67-418C-A1D6-EF9F83F925A4}'; RID_ClientesDelta = '{25F17FB7-C487-4575-8923-DDB43C061A63}';
RID_ProveedoresDelta = '{6DC81353-DA9A-4A2C-A6AD-CFAA90594978}'; RID_ProveedoresDelta = '{E8A7D090-1BE0-4634-89FB-68667B108276}';
RID_EmpleadosDelta = '{03404F6B-31CE-4F3B-8D43-DAFFDC77CBBB}'; RID_EmpleadosDelta = '{EAD95E6C-4119-43F9-9511-00EABC406D71}';
RID_DireccionesContactoDelta = '{066EBDC7-C2AD-4209-A7C3-23944DD103FC}'; RID_DireccionesContactoDelta = '{E0D5C7C8-B321-4931-9AB1-6006701F5E74}';
RID_ClientesDescuentosDelta = '{413AE0E8-F254-4E30-ABED-EBE6F71364D1}'; RID_ClientesDescuentosDelta = '{C8D3CE65-0FD7-4E5C-8CB4-6C726AEF3915}';
RID_GruposProveedorDelta = '{C9615F62-830B-4D69-BBFB-30DE694AE18C}'; RID_GruposProveedorDelta = '{B7B504ED-0204-492C-A44E-B3E06C143342}';
RID_GruposEmpleadoDelta = '{A377B6BA-5DDE-4A8E-9BAC-0902EDBAF875}'; RID_GruposEmpleadoDelta = '{7EF7BDCC-C559-4C6B-A4A3-C179D2ED2C17}';
RID_Contactos_RefreshDelta = '{EEC8A345-7AF4-457A-A883-D2AFDF07612D}'; RID_Contactos_RefreshDelta = '{1F66DD99-4349-4931-87A9-9245408B5EBC}';
RID_ContratosEmpleadosDelta = '{5E3050CF-49C5-47E4-909F-0B9E07569989}'; RID_ContratosEmpleadosDelta = '{901039B3-7FD1-45A7-8262-B946DD38E534}';
RID_DescripcionesProveedoresDelta = '{45A8AB79-936E-4D24-90FE-35C63BA77AB5}'; RID_DescripcionesProveedoresDelta = '{6C4014E7-35BD-4C80-8AFD-CF99C24D9787}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{48772AD3-B3EF-47A9-9A2E-4B73FBA9F204}'] ['{D88BCAA7-5886-4CD4-BECA-2B4D8D21D8A6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -325,7 +325,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{5CA21C80-5EE4-4BC4-A0AF-4EA4E0188770}'] ['{24C81A94-CB18-447A-8456-93B88582D6EE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -371,7 +371,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{97461A25-FB3D-49BA-989A-A2E864F15627}'] ['{B8CD12A2-4C6A-497F-A846-DD30666F98EB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -501,7 +501,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{5016B0EA-1E67-418C-A1D6-EF9F83F925A4}'] ['{25F17FB7-C487-4575-8923-DDB43C061A63}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -944,7 +944,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{6DC81353-DA9A-4A2C-A6AD-CFAA90594978}'] ['{E8A7D090-1BE0-4634-89FB-68667B108276}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1363,7 +1363,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{03404F6B-31CE-4F3B-8D43-DAFFDC77CBBB}'] ['{EAD95E6C-4119-43F9-9511-00EABC406D71}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1396,6 +1396,7 @@ type
function GetOldFORMACION_RECIBIDAValue : IROStrings; function GetOldFORMACION_RECIBIDAValue : IROStrings;
function GetOldEXPERIENCIAValue : IROStrings; function GetOldEXPERIENCIAValue : IROStrings;
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
function GetOldDURACIONValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -1429,6 +1430,7 @@ type
property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue; property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue;
property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue; property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue;
property OldCONTRATO : String read GetOldCONTRATOValue; property OldCONTRATO : String read GetOldCONTRATOValue;
property OldDURACION : String read GetOldDURACIONValue;
end; end;
{ TEmpleadosBusinessProcessorRules } { TEmpleadosBusinessProcessorRules }
@ -1627,6 +1629,12 @@ type
function GetOldCONTRATOIsNull: Boolean; virtual; function GetOldCONTRATOIsNull: Boolean; virtual;
procedure SetCONTRATOValue(const aValue: String); virtual; procedure SetCONTRATOValue(const aValue: String); virtual;
procedure SetCONTRATOIsNull(const aValue: Boolean); virtual; procedure SetCONTRATOIsNull(const aValue: Boolean); virtual;
function GetDURACIONValue: String; virtual;
function GetDURACIONIsNull: Boolean; virtual;
function GetOldDURACIONValue: String; virtual;
function GetOldDURACIONIsNull: Boolean; virtual;
procedure SetDURACIONValue(const aValue: String); virtual;
procedure SetDURACIONIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1753,6 +1761,10 @@ type
property CONTRATOIsNull : Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull; property CONTRATOIsNull : Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull;
property OldCONTRATO : String read GetOldCONTRATOValue; property OldCONTRATO : String read GetOldCONTRATOValue;
property OldCONTRATOIsNull : Boolean read GetOldCONTRATOIsNull; property OldCONTRATOIsNull : Boolean read GetOldCONTRATOIsNull;
property DURACION : String read GetDURACIONValue write SetDURACIONValue;
property DURACIONIsNull : Boolean read GetDURACIONIsNull write SetDURACIONIsNull;
property OldDURACION : String read GetOldDURACIONValue;
property OldDURACIONIsNull : Boolean read GetOldDURACIONIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1762,7 +1774,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{066EBDC7-C2AD-4209-A7C3-23944DD103FC}'] ['{E0D5C7C8-B321-4931-9AB1-6006701F5E74}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -1977,7 +1989,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{413AE0E8-F254-4E30-ABED-EBE6F71364D1}'] ['{C8D3CE65-0FD7-4E5C-8CB4-6C726AEF3915}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2059,7 +2071,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{C9615F62-830B-4D69-BBFB-30DE694AE18C}'] ['{B7B504ED-0204-492C-A44E-B3E06C143342}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2105,7 +2117,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{A377B6BA-5DDE-4A8E-9BAC-0902EDBAF875}'] ['{7EF7BDCC-C559-4C6B-A4A3-C179D2ED2C17}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2151,7 +2163,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{EEC8A345-7AF4-457A-A883-D2AFDF07612D}'] ['{1F66DD99-4349-4931-87A9-9245408B5EBC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2426,7 +2438,7 @@ type
{ IContratosEmpleadosDelta } { IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados) IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{5E3050CF-49C5-47E4-909F-0B9E07569989}'] ['{901039B3-7FD1-45A7-8262-B946DD38E534}']
{ Property getters and setters } { Property getters and setters }
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
@ -2460,7 +2472,7 @@ type
{ IDescripcionesProveedoresDelta } { IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{45A8AB79-936E-4D24-90FE-35C63BA77AB5}'] ['{6C4014E7-35BD-4C80-8AFD-CF99C24D9787}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -6747,6 +6759,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO] := Null;
end; end;
function TEmpleadosBusinessProcessorRules.GetDURACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION];
end;
function TEmpleadosBusinessProcessorRules.GetDURACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION]);
end;
function TEmpleadosBusinessProcessorRules.GetOldDURACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosDURACION];
end;
function TEmpleadosBusinessProcessorRules.GetOldDURACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosDURACION]);
end;
procedure TEmpleadosBusinessProcessorRules.SetDURACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION] := aValue;
end;
procedure TEmpleadosBusinessProcessorRules.SetDURACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION] := Null;
end;
{ TDireccionesContactoBusinessProcessorRules } { TDireccionesContactoBusinessProcessorRules }
constructor TDireccionesContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TDireccionesContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

2
Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas
View File

@ -98,6 +98,7 @@ begin
ParamByName('FORMACION_RECIBIDA').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA]; ParamByName('FORMACION_RECIBIDA').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
ParamByName('EXPERIENCIA').Value := aChange.NewValueByName[fld_EmpleadosEXPERIENCIA]; ParamByName('EXPERIENCIA').Value := aChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
ParamByName('CONTRATO').Value := aChange.NewValueByName[fld_EmpleadosCONTRATO]; ParamByName('CONTRATO').Value := aChange.NewValueByName[fld_EmpleadosCONTRATO];
ParamByName('DURACION').Value := aChange.NewValueByName[fld_EmpleadosDURACION];
Execute; Execute;
end; end;
finally finally
@ -129,6 +130,7 @@ begin
ParamByName('FORMACION_RECIBIDA').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA]; ParamByName('FORMACION_RECIBIDA').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
ParamByName('EXPERIENCIA').Value := aChange.NewValueByName[fld_EmpleadosEXPERIENCIA]; ParamByName('EXPERIENCIA').Value := aChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
ParamByName('CONTRATO').Value := aChange.NewValueByName[fld_EmpleadosCONTRATO]; ParamByName('CONTRATO').Value := aChange.NewValueByName[fld_EmpleadosCONTRATO];
ParamByName('DURACION').Value := aChange.NewValueByName[fld_EmpleadosDURACION];
Execute; Execute;
end; end;
finally finally

28
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -1199,6 +1199,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'CONTRATO' DatasetField = 'CONTRATO'
TableField = 'CONTRATO' TableField = 'CONTRATO'
end
item
DatasetField = 'DURACION'
TableField = 'DURACION'
end> end>
end> end>
Name = 'Empleados' Name = 'Empleados'
@ -1381,6 +1385,11 @@ object srvContactos: TsrvContactos
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Empleados_CONTRATO' DictionaryEntry = 'Empleados_CONTRATO'
end
item
Name = 'DURACION'
DataType = datString
Size = 255
end> end>
end end
item item
@ -3376,6 +3385,10 @@ object srvContactos: TsrvContactos
item item
Name = 'CONTRATO' Name = 'CONTRATO'
Value = '' Value = ''
end
item
Name = 'DURACION'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -3384,10 +3397,10 @@ object srvContactos: TsrvContactos
SQL = SQL =
'INSERT'#10' INTO EMPLEADOS_DATOS'#10' (ID_EMPLEADO, FECHA_NACIMIENTO' + 'INSERT'#10' INTO EMPLEADOS_DATOS'#10' (ID_EMPLEADO, FECHA_NACIMIENTO' +
', CATEGORIA, FECHA_ALTA_EMPRESA, FORMACION_BASE,'#10' FORMACION_C' + ', CATEGORIA, FECHA_ALTA_EMPRESA, FORMACION_BASE,'#10' FORMACION_C' +
'OMPLE, FORMACION_RECIBIDA, EXPERIENCIA, CONTRATO)'#10' VALUES'#10' (' + 'OMPLE, FORMACION_RECIBIDA, EXPERIENCIA, CONTRATO, DURACION)'#10' VA' +
':ID_EMPLEADO, :FECHA_NACIMIENTO, :CATEGORIA, :FECHA_ALTA_EMPRESA' + 'LUES'#10' (:ID_EMPLEADO, :FECHA_NACIMIENTO, :CATEGORIA, :FECHA_AL' +
', :FORMACION_BASE,'#10' :FORMACION_COMPLE, :FORMACION_RECIBIDA, :' + 'TA_EMPRESA, :FORMACION_BASE,'#10' :FORMACION_COMPLE, :FORMACION_R' +
'EXPERIENCIA, :CONTRATO)'#10 'ECIBIDA, :EXPERIENCIA, :CONTRATO, :DURACION)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3427,6 +3440,10 @@ object srvContactos: TsrvContactos
Name = 'CONTRATO' Name = 'CONTRATO'
Value = '' Value = ''
end end
item
Name = 'DURACION'
Value = ''
end
item item
Name = 'OLD_ID_EMPLEADO' Name = 'OLD_ID_EMPLEADO'
Value = '' Value = ''
@ -3441,7 +3458,8 @@ object srvContactos: TsrvContactos
'CHA_ALTA_EMPRESA,'#10' FORMACION_BASE = :FORMACION_BASE,'#10' FORM' + 'CHA_ALTA_EMPRESA,'#10' FORMACION_BASE = :FORMACION_BASE,'#10' FORM' +
'ACION_COMPLE = :FORMACION_COMPLE,'#10' FORMACION_RECIBIDA = :FORM' + 'ACION_COMPLE = :FORMACION_COMPLE,'#10' FORMACION_RECIBIDA = :FORM' +
'ACION_RECIBIDA,'#10' EXPERIENCIA = :EXPERIENCIA,'#10' CONTRATO = :' + 'ACION_RECIBIDA,'#10' EXPERIENCIA = :EXPERIENCIA,'#10' CONTRATO = :' +
'CONTRATO'#10' WHERE'#10' (ID_EMPLEADO = :OLD_ID_EMPLEADO)'#10 'CONTRATO,'#10' DURACION = :DURACION'#10' WHERE'#10' (ID_EMPLEADO = :O' +
'LD_ID_EMPLEADO)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

86
Source/Modulos/Contactos/Views/uEditorEmpleado.dfm
View File

@ -109,32 +109,32 @@ inherited fEditorEmpleado: TfEditorEmpleado
ExplicitTop = 162 ExplicitTop = 162
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 189 Top = 216
ExplicitTop = 189 ExplicitTop = 216
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Top = 243 Top = 270
ExplicitTop = 243 ExplicitTop = 270
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Top = 216 Top = 243
ExplicitTop = 216 ExplicitTop = 243
ExplicitWidth = 108 ExplicitWidth = 108
Width = 108 Width = 108
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 308 Left = 265
Top = 216 Top = 243
ExplicitLeft = 308 ExplicitLeft = 265
ExplicitTop = 216 ExplicitTop = 243
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 321 Top = 348
ExplicitTop = 321 ExplicitTop = 348
ExplicitWidth = 185 ExplicitWidth = 185
ExplicitHeight = 148 ExplicitHeight = 148
Height = 148 Height = 148
@ -147,47 +147,45 @@ inherited fEditorEmpleado: TfEditorEmpleado
Width = 80 Width = 80
end end
inherited eFechaAltaEmpresa: TcxDBDateEdit inherited eFechaAltaEmpresa: TcxDBDateEdit
Left = 287 Top = 111
Top = 84 ExplicitTop = 111
ExplicitLeft = 287
ExplicitTop = 84
ExplicitWidth = 80 ExplicitWidth = 80
Width = 80 Width = 80
end end
inherited cbCategoria: TcxDBComboBox inherited cbCategoria: TcxDBComboBox
Top = 111 Top = 138
ExplicitTop = 111 ExplicitTop = 138
ExplicitWidth = 225 ExplicitWidth = 225
Width = 225 Width = 225
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 496 Left = 453
Top = 57 Top = 57
ExplicitLeft = 496 ExplicitLeft = 453
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 496 Left = 453
Top = 30 Top = 30
ExplicitLeft = 496 ExplicitLeft = 453
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 496 Left = 453
Top = 84 Top = 84
ExplicitLeft = 496 ExplicitLeft = 453
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 496 Left = 453
Top = 111 Top = 111
ExplicitLeft = 496 ExplicitLeft = 453
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
@ -199,39 +197,43 @@ inherited fEditorEmpleado: TfEditorEmpleado
Width = 263 Width = 263
end end
inherited cbContrato: TcxDBComboBox inherited cbContrato: TcxDBComboBox
Top = 138 Left = 453
ExplicitTop = 138 Top = 270
ExplicitLeft = 453
ExplicitTop = 270
ExplicitWidth = 292
Width = 292
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 217 Left = 197
Top = 30 Top = 30
ExplicitLeft = 217 ExplicitLeft = 197
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 496 Left = 453
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 496 ExplicitLeft = 453
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 496 Left = 453
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 496 ExplicitLeft = 453
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 496 Left = 453
Top = 217 Top = 217
ExplicitLeft = 496 ExplicitLeft = 453
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
@ -243,11 +245,19 @@ inherited fEditorEmpleado: TfEditorEmpleado
Width = 97 Width = 97
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 270 Top = 297
ExplicitTop = 270 ExplicitTop = 297
ExplicitWidth = 256 ExplicitWidth = 256
Width = 256 Width = 256
end end
inherited eDuracionContrato: TcxDBTextEdit
Left = 453
Top = 297
ExplicitLeft = 453
ExplicitTop = 297
ExplicitWidth = 114
Width = 114
end
end end
inherited dsContacto: TDADataSource inherited dsContacto: TDADataSource
Left = 8 Left = 8

208
Source/Modulos/Contactos/Views/uViewEmpleado.dfm
View File

@ -6,44 +6,56 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Height = 391 Height = 391
ExplicitHeight = 391 ExplicitHeight = 391
inherited PngSpeedButton1: TPngSpeedButton
Left = 613
ExplicitLeft = 613
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 613
ExplicitLeft = 613
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 613
ExplicitLeft = 613
end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 121 Left = 121
Top = 193 Top = 226
TabOrder = 7 TabOrder = 6
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 193 ExplicitTop = 226
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Left = 121 Left = 121
Top = 247 Top = 280
TabOrder = 10 TabOrder = 9
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 247 ExplicitTop = 280
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Left = 121 Left = 121
Top = 220 Top = 253
TabOrder = 8 TabOrder = 7
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 220 ExplicitTop = 253
ExplicitWidth = 159 ExplicitWidth = 159
Width = 159 Width = 159
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 348 Left = 239
Top = 220 Top = 253
TabOrder = 9 TabOrder = 8
ExplicitLeft = 348 ExplicitLeft = 239
ExplicitTop = 220 ExplicitTop = 253
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 331 Top = 364
TabOrder = 19 TabOrder = 20
ExplicitTop = 331 ExplicitTop = 364
ExplicitHeight = 148 ExplicitHeight = 148
Height = 148 Height = 148
end end
@ -65,8 +77,8 @@ inherited frViewEmpleado: TfrViewEmpleado
Width = 121 Width = 121
end end
object eFechaAltaEmpresa: TcxDBDateEdit [9] object eFechaAltaEmpresa: TcxDBDateEdit [9]
Left = 262 Left = 121
Top = 82 Top = 109
DataBinding.DataField = 'FECHA_ALTA_EMPRESA' DataBinding.DataField = 'FECHA_ALTA_EMPRESA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -83,7 +95,7 @@ inherited frViewEmpleado: TfrViewEmpleado
end end
object cbCategoria: TcxDBComboBox [10] object cbCategoria: TcxDBComboBox [10]
Left = 121 Left = 121
Top = 109 Top = 136
DataBinding.DataField = 'CATEGORIA' DataBinding.DataField = 'CATEGORIA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -106,30 +118,30 @@ inherited frViewEmpleado: TfrViewEmpleado
Width = 225 Width = 225
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 538 Left = 429
TabOrder = 13 TabOrder = 12
ExplicitLeft = 538 ExplicitLeft = 429
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 538 Left = 429
TabOrder = 12 TabOrder = 11
ExplicitLeft = 538 ExplicitLeft = 429
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 538 Left = 429
TabOrder = 14 TabOrder = 13
ExplicitLeft = 538 ExplicitLeft = 429
ExplicitWidth = 155 ExplicitWidth = 155
Width = 155 Width = 155
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 538 Left = 429
TabOrder = 15 TabOrder = 14
ExplicitLeft = 538 ExplicitLeft = 429
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
@ -139,31 +151,9 @@ inherited frViewEmpleado: TfrViewEmpleado
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
end end
inherited eNIFCIF: TcxDBTextEdit object cbContrato: TcxDBComboBox [16]
Left = 255 Left = 429
ExplicitLeft = 255 Top = 280
ExplicitWidth = 100
Width = 100
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 538
Properties.Prefix = 'mailto:'
TabOrder = 16
ExplicitLeft = 538
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 538
Properties.Prefix = 'mailto:'
TabOrder = 17
ExplicitLeft = 538
ExplicitWidth = 165
Width = 165
end
object cbContrato: TcxDBComboBox [19]
Left = 121
Top = 136
DataBinding.DataField = 'CONTRATO' DataBinding.DataField = 'CONTRATO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -182,13 +172,35 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 18
Width = 292 Width = 292
end end
inherited eNIFCIF: TcxDBTextEdit
Left = 198
ExplicitLeft = 198
ExplicitWidth = 100
Width = 100
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 429
Properties.Prefix = 'mailto:'
TabOrder = 15
ExplicitLeft = 429
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 429
Properties.Prefix = 'mailto:'
TabOrder = 16
ExplicitLeft = 429
ExplicitWidth = 165
Width = 165
end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 538 Left = 429
TabOrder = 18 TabOrder = 17
ExplicitLeft = 538 ExplicitLeft = 429
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
@ -200,13 +212,31 @@ inherited frViewEmpleado: TfrViewEmpleado
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 121 Left = 121
Top = 274 Top = 307
TabOrder = 11 TabOrder = 10
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 274 ExplicitTop = 307
ExplicitWidth = 256 ExplicitWidth = 256
Width = 256 Width = 256
end end
object eDuracionContrato: TcxDBTextEdit [23]
Left = 429
Top = 307
DataBinding.DataField = 'DURACION'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 19
Width = 114
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -219,36 +249,25 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited dxLayoutControlContactoItem13: TdxLayoutItem inherited dxLayoutControlContactoItem13: TdxLayoutItem
Caption = 'Nombre y apellidos:' Caption = 'Nombre y apellidos:'
end end
object dxLayoutControlContactoGroup10: TdxLayoutGroup object dxLayoutControlContactoItem16: TdxLayoutItem
ShowCaption = False AutoAligns = [aaVertical]
Hidden = True AlignHorz = ahClient
LayoutDirection = ldHorizontal Caption = 'Fecha nacimiento:'
ShowBorder = False Control = eFechaNacimiento
object dxLayoutControlContactoItem16: TdxLayoutItem ControlOptions.ShowBorder = False
AutoAligns = [aaVertical] end
AlignHorz = ahClient object dxLayoutControlContactoItem19: TdxLayoutItem
Caption = 'Fecha nacimiento:' AutoAligns = [aaVertical]
Control = eFechaNacimiento AlignHorz = ahClient
ControlOptions.ShowBorder = False Caption = 'Fecha de alta:'
end Control = eFechaAltaEmpresa
object dxLayoutControlContactoItem19: TdxLayoutItem ControlOptions.ShowBorder = False
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha de alta:'
Control = eFechaAltaEmpresa
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControlContactoItem20: TdxLayoutItem object dxLayoutControlContactoItem20: TdxLayoutItem
Caption = 'Categor'#237'a:' Caption = 'Categor'#237'a:'
Control = cbCategoria Control = cbCategoria
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem21: TdxLayoutItem
Caption = 'Tipo de contrato:'
Control = cbContrato
ControlOptions.ShowBorder = False
end
end end
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
inherited dxLayoutControlContactoItem167: TdxLayoutItem inherited dxLayoutControlContactoItem167: TdxLayoutItem
@ -271,6 +290,19 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited dxLayoutControlContactoGroup5: TdxLayoutGroup inherited dxLayoutControlContactoGroup5: TdxLayoutGroup
Visible = False Visible = False
end end
object dxLayoutControlContactoGroup14: TdxLayoutGroup
Caption = 'Contrato'
object dxLayoutControlContactoItem21: TdxLayoutItem
Caption = 'Tipo de contrato:'
Control = cbContrato
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem22: TdxLayoutItem
Caption = 'Duraci'#243'n:'
Control = eDuracionContrato
ControlOptions.ShowBorder = False
end
end
end end
end end
end end

4
Source/Modulos/Contactos/Views/uViewEmpleado.pas
View File

@ -20,11 +20,13 @@ type
dxLayoutControlContactoItem16: TdxLayoutItem; dxLayoutControlContactoItem16: TdxLayoutItem;
dxLayoutControlContactoItem19: TdxLayoutItem; dxLayoutControlContactoItem19: TdxLayoutItem;
eFechaAltaEmpresa: TcxDBDateEdit; eFechaAltaEmpresa: TcxDBDateEdit;
dxLayoutControlContactoGroup10: TdxLayoutGroup;
dxLayoutControlContactoItem20: TdxLayoutItem; dxLayoutControlContactoItem20: TdxLayoutItem;
cbCategoria: TcxDBComboBox; cbCategoria: TcxDBComboBox;
dxLayoutControlContactoItem21: TdxLayoutItem; dxLayoutControlContactoItem21: TdxLayoutItem;
cbContrato: TcxDBComboBox; cbContrato: TcxDBComboBox;
dxLayoutControlContactoItem22: TdxLayoutItem;
eDuracionContrato: TcxDBTextEdit;
dxLayoutControlContactoGroup14: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbCategoriaPropertiesInitPopup(Sender: TObject); procedure cbCategoriaPropertiesInitPopup(Sender: TObject);