diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index beed61a..553497e 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -54,58 +54,6 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TDataModule
@@ -115,6 +63,58 @@
TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index 0e17886..7c326b3 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -3,31 +3,33 @@ unit schContactosClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_Contactos = '{C5CBBD15-3BE4-4CA7-8F63-6496108E58A4}';
- RID_GruposCliente = '{A52B6D07-E18F-4B0B-BC19-322967C318C8}';
- RID_DatosBancarios = '{C8B7B5A7-065B-484C-AAD0-003D7A0164CF}';
- RID_Clientes = '{EE303315-836A-469E-802F-1D5E8E6E717C}';
- RID_Proveedores = '{455D2B4C-679E-41FD-BCAF-E4A918936818}';
- RID_Empleados = '{1619723C-2EC8-46E5-94EB-ED3F600CFA7F}';
- RID_DireccionesContacto = '{61C30993-004A-4271-A751-F9F3CB6BE2AB}';
- RID_ClientesDescuentos = '{7BB5EB78-1652-4284-AC1F-CD8CE965C041}';
- RID_GruposProveedor = '{315F8232-27A0-4D35-A529-6840ECDDCCDA}';
- RID_GruposEmpleado = '{0B578AD4-35EA-490B-BBE3-54A84AB00D4F}';
- RID_Contactos_Refresh = '{BC90B1C9-6F9A-4D4B-8B93-A6B8B079E009}';
- RID_ContratosEmpleados = '{11996FEA-CE9C-4EF5-9280-8F9656675856}';
- RID_DescripcionesProveedores = '{24F427B2-1B99-4960-8115-78BA0BD21687}';
- RID_PersonalContacto = '{1D1E9BC1-7AA8-492C-8A03-6835ABDA38C2}';
- RID_Agentes_Comisiones = '{4D3CB44A-2E6A-45BD-A244-C0F5F9165D58}';
- RID_Agentes = '{A705D009-CF13-4DE5-BCBE-57A82D161ADA}';
- RID_ClientesDescuentosArticulos = '{9A572B85-9876-41E2-A85F-8F83E64B0D9F}';
- RID_Agentes_Objetivos_albaranes = '{DC092C80-D84E-49FC-9240-EF1C6D629CBF}';
- RID_Agentes_Objetivos_facturas = '{42D0ECBB-7A15-442C-8836-318A4CEB7F12}';
+ RID_Contactos = '{291D5023-2485-4738-BA4B-8CFD1087564D}';
+ RID_GruposCliente = '{3202886D-ABFE-4D93-8B7C-DCC767B8E13E}';
+ RID_DatosBancarios = '{48378F5C-39D8-4F3E-AF60-30E3B15C1BD6}';
+ RID_Clientes = '{6BB9F834-2CD8-4CE1-AEF2-2F632139E4E6}';
+ RID_Proveedores = '{64948969-32BB-4EE9-B51E-798A988B6BB9}';
+ RID_Empleados = '{EC0F7AAD-8090-489F-A5C7-004A80A7682A}';
+ RID_DireccionesContacto = '{497F22D7-6679-4BF4-B909-4F0DD68F1B0D}';
+ RID_ClientesDescuentos = '{DD4D5290-DC73-45F2-AA7D-FB799D9AE6AE}';
+ RID_GruposProveedor = '{3C14F4A5-17DB-44DC-8E26-0AD2F3231245}';
+ RID_GruposEmpleado = '{D7511C4F-EE3D-4C78-B5EF-A3935874DD92}';
+ RID_Contactos_Refresh = '{76C8D865-64CD-4DD5-8A80-F82AA6683E27}';
+ RID_ContratosEmpleados = '{6DB2FA18-7E29-43FF-8D71-67A5481B8E84}';
+ RID_DescripcionesProveedores = '{D3734658-7727-47E1-9C43-AB4D4BD58EF4}';
+ RID_PersonalContacto = '{B3F92D0E-5DCC-4723-BDC0-E2045C0B4F74}';
+ RID_Agentes_Comisiones = '{716B55E8-F461-4131-A90A-3E5291CF1319}';
+ RID_ListaAnosObjetivosAlb = '{492D6536-8A33-44D0-86B9-A4512BD54E62}';
+ RID_Agentes = '{271490F9-AFF6-4904-9F85-097B4CB0AAA2}';
+ RID_ClientesDescuentosArticulos = '{20759DA3-0B2D-4A5D-852F-6DB6725E7D19}';
+ RID_Agentes_Objetivos_albaranes = '{DFE878FE-9DF3-46C4-BFF1-90CF546A31EF}';
+ RID_Agentes_Objetivos_facturas = '{73C0859D-9EFA-45A8-AA4C-F8F6572C985B}';
+ RID_ListaAnosObjetivosFac = '{5A1B02F6-EA0E-4B3D-8067-DAAA0FE5178D}';
{ Data table names }
nme_Contactos = 'Contactos';
@@ -45,10 +47,12 @@ const
nme_DescripcionesProveedores = 'DescripcionesProveedores';
nme_PersonalContacto = 'PersonalContacto';
nme_Agentes_Comisiones = 'Agentes_Comisiones';
+ nme_ListaAnosObjetivosAlb = 'ListaAnosObjetivosAlb';
nme_Agentes = 'Agentes';
nme_ClientesDescuentosArticulos = 'ClientesDescuentosArticulos';
nme_Agentes_Objetivos_albaranes = 'Agentes_Objetivos_albaranes';
nme_Agentes_Objetivos_facturas = 'Agentes_Objetivos_facturas';
+ nme_ListaAnosObjetivosFac = 'ListaAnosObjetivosFac';
{ Contactos fields }
fld_ContactosID = 'ID';
@@ -534,6 +538,12 @@ const
idx_Agentes_ComisionesNOMBRE = 3;
idx_Agentes_ComisionesCOMISION = 4;
+ { ListaAnosObjetivosAlb fields }
+ fld_ListaAnosObjetivosAlbANO = 'ANO';
+
+ { ListaAnosObjetivosAlb field indexes }
+ idx_ListaAnosObjetivosAlbANO = 0;
+
{ Agentes fields }
fld_AgentesID = 'ID';
fld_AgentesID_CATEGORIA = 'ID_CATEGORIA';
@@ -648,10 +658,16 @@ const
idx_Agentes_Objetivos_facturasUNIDADES_OBJETIVO = 5;
idx_Agentes_Objetivos_facturasIMPORTE_OBJETIVO = 6;
+ { ListaAnosObjetivosFac fields }
+ fld_ListaAnosObjetivosFacANO = 'ANO';
+
+ { ListaAnosObjetivosFac field indexes }
+ idx_ListaAnosObjetivosFacANO = 0;
+
type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
- ['{317413A0-0416-4786-B3DF-CED31C64267C}']
+ ['{1CBC2D1C-3449-4C91-B2C6-6AF07E1EABCB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -796,7 +812,7 @@ type
end;
{ TContactosDataTableRules }
- TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
+ TContactosDataTableRules = class(TDADataTableRules, IContactos)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@@ -950,7 +966,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
- ['{CBEADB2A-FABA-4564-95CF-D424E5D08DEB}']
+ ['{B9DBD6F1-AE60-44F7-8E0B-A6093CD02F7E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -970,7 +986,7 @@ type
end;
{ TGruposClienteDataTableRules }
- TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
+ TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
private
protected
{ Property getters and setters }
@@ -997,7 +1013,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
- ['{D09E0DDD-206F-46A0-B377-B90630DF657A}']
+ ['{B6A49401-06FA-450A-B833-31DB18866E07}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1059,7 +1075,7 @@ type
end;
{ TDatosBancariosDataTableRules }
- TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
+ TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
private
protected
{ Property getters and setters }
@@ -1128,7 +1144,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
- ['{1F4485B0-9B81-4D1A-86F4-6AAE01FE860F}']
+ ['{1B30B5ED-D974-4FF4-ACEF-83E365A1D686}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1387,7 +1403,7 @@ type
end;
{ TClientesDataTableRules }
- TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
+ TClientesDataTableRules = class(TDADataTableRules, IClientes)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@@ -1655,7 +1671,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
- ['{9DF8DF39-679B-44AD-AF28-353E78CA6D58}']
+ ['{36A8200A-5E50-497C-A0F2-BAFAD4B5A2C9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1896,7 +1912,7 @@ type
end;
{ TProveedoresDataTableRules }
- TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
+ TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@@ -2146,7 +2162,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
- ['{D196D4B6-2743-4FA8-8844-3F4738D5C8C8}']
+ ['{DE26478A-6B56-40DD-9CFF-176D1B41AFE0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2353,7 +2369,7 @@ type
end;
{ TEmpleadosDataTableRules }
- TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
+ TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
private
f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings;
@@ -2577,7 +2593,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
- ['{F2C90D00-9A04-4BEA-8733-0018317A6263}']
+ ['{2A82A155-3A4B-44BF-9A1B-C197A50F39B1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2680,7 +2696,7 @@ type
end;
{ TDireccionesContactoDataTableRules }
- TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
+ TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@@ -2792,7 +2808,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
- ['{011971A4-38C7-4C40-9C16-E5550E7FC00C}']
+ ['{DCD380B7-39A2-446F-9ACF-53057F43F28C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2830,7 +2846,7 @@ type
end;
{ TClientesDescuentosDataTableRules }
- TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
+ TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
private
protected
{ Property getters and setters }
@@ -2875,7 +2891,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
- ['{27780311-09B1-42F1-A8C6-438EE41E961A}']
+ ['{EC66CD85-3FE0-4DE0-A543-8FA1DBCF33E0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2895,7 +2911,7 @@ type
end;
{ TGruposProveedorDataTableRules }
- TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
+ TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
private
protected
{ Property getters and setters }
@@ -2922,7 +2938,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
- ['{CEF6810B-71BF-4669-B221-F3331CE7470D}']
+ ['{37D061A4-7D65-41B8-9DAF-33B393EE50E5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2942,7 +2958,7 @@ type
end;
{ TGruposEmpleadoDataTableRules }
- TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
+ TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
private
protected
{ Property getters and setters }
@@ -2969,7 +2985,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
- ['{6C1E01C6-A541-49E4-932B-DCB0AB7C8F0B}']
+ ['{47A29D73-F2AF-4DA5-BA66-FC09A1FA7DA6}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -3102,7 +3118,7 @@ type
end;
{ TContactos_RefreshDataTableRules }
- TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
+ TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@@ -3244,7 +3260,7 @@ type
{ IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable)
- ['{F2C5D384-2EC9-4003-A30A-B367A42E1036}']
+ ['{01E65909-DD8B-44B1-AB39-73F2047DC2FF}']
{ Property getters and setters }
function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String);
@@ -3258,7 +3274,7 @@ type
end;
{ TContratosEmpleadosDataTableRules }
- TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados)
+ TContratosEmpleadosDataTableRules = class(TDADataTableRules, IContratosEmpleados)
private
protected
{ Property getters and setters }
@@ -3279,7 +3295,7 @@ type
{ IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
- ['{81AD7666-E0E0-4308-A44B-DEA172886D84}']
+ ['{EF6069F3-8A7F-49A7-9AA6-FCB4FD7BC6F2}']
{ Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@@ -3293,7 +3309,7 @@ type
end;
{ TDescripcionesProveedoresDataTableRules }
- TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores)
+ TDescripcionesProveedoresDataTableRules = class(TDADataTableRules, IDescripcionesProveedores)
private
protected
{ Property getters and setters }
@@ -3314,7 +3330,7 @@ type
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
- ['{130FF6B0-6814-4E96-A023-B4A3B791848F}']
+ ['{24490A3B-6DEC-4546-8433-2B73B85E5B93}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -3382,7 +3398,7 @@ type
end;
{ TPersonalContactoDataTableRules }
- TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto)
+ TPersonalContactoDataTableRules = class(TDADataTableRules, IPersonalContacto)
private
protected
{ Property getters and setters }
@@ -3457,7 +3473,7 @@ type
{ IAgentes_Comisiones }
IAgentes_Comisiones = interface(IDAStronglyTypedDataTable)
- ['{B72C6A25-D915-47C8-AFF1-88B19136DFE8}']
+ ['{191150F9-E106-4E8A-8124-32860D4F8894}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -3495,7 +3511,7 @@ type
end;
{ TAgentes_ComisionesDataTableRules }
- TAgentes_ComisionesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Comisiones)
+ TAgentes_ComisionesDataTableRules = class(TDADataTableRules, IAgentes_Comisiones)
private
protected
{ Property getters and setters }
@@ -3538,9 +3554,44 @@ type
end;
+ { IListaAnosObjetivosAlb }
+ IListaAnosObjetivosAlb = interface(IDAStronglyTypedDataTable)
+ ['{B8BF52B7-476E-410A-9720-8B30EB132FCD}']
+ { Property getters and setters }
+ function GetANOValue: SmallInt;
+ procedure SetANOValue(const aValue: SmallInt);
+ function GetANOIsNull: Boolean;
+ procedure SetANOIsNull(const aValue: Boolean);
+
+
+ { Properties }
+ property ANO: SmallInt read GetANOValue write SetANOValue;
+ property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
+ end;
+
+ { TListaAnosObjetivosAlbDataTableRules }
+ TListaAnosObjetivosAlbDataTableRules = class(TDADataTableRules, IListaAnosObjetivosAlb)
+ private
+ protected
+ { Property getters and setters }
+ function GetANOValue: SmallInt; virtual;
+ procedure SetANOValue(const aValue: SmallInt); virtual;
+ function GetANOIsNull: Boolean; virtual;
+ procedure SetANOIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ANO: SmallInt read GetANOValue write SetANOValue;
+ property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
+
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+
+ end;
+
{ IAgentes }
IAgentes = interface(IDAStronglyTypedDataTable)
- ['{D52CFB4C-E5C9-4067-9F0F-F35260F53D95}']
+ ['{FD432FBB-8219-433D-924F-22901565FFF3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -3703,7 +3754,7 @@ type
end;
{ TAgentesDataTableRules }
- TAgentesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes)
+ TAgentesDataTableRules = class(TDADataTableRules, IAgentes)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@@ -3875,7 +3926,7 @@ type
{ IClientesDescuentosArticulos }
IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable)
- ['{6DB3E96E-A996-4A28-A2D6-874BC3B4D1AF}']
+ ['{007089E4-2A88-4E59-9F39-DBA5E0DD0C57}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -3937,7 +3988,7 @@ type
end;
{ TClientesDescuentosArticulosDataTableRules }
- TClientesDescuentosArticulosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentosArticulos)
+ TClientesDescuentosArticulosDataTableRules = class(TDADataTableRules, IClientesDescuentosArticulos)
private
protected
{ Property getters and setters }
@@ -4006,7 +4057,7 @@ type
{ IAgentes_Objetivos_albaranes }
IAgentes_Objetivos_albaranes = interface(IDAStronglyTypedDataTable)
- ['{CFCD1E75-CA07-4C58-B697-58AB0E9DCD6F}']
+ ['{93BAC2FE-520D-454C-95D2-15A72D48968A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -4056,7 +4107,7 @@ type
end;
{ TAgentes_Objetivos_albaranesDataTableRules }
- TAgentes_Objetivos_albaranesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Objetivos_albaranes)
+ TAgentes_Objetivos_albaranesDataTableRules = class(TDADataTableRules, IAgentes_Objetivos_albaranes)
private
protected
{ Property getters and setters }
@@ -4113,7 +4164,7 @@ type
{ IAgentes_Objetivos_facturas }
IAgentes_Objetivos_facturas = interface(IDAStronglyTypedDataTable)
- ['{9CF904E4-C6C9-41E5-8C64-0633B59BE86A}']
+ ['{B28387E5-80DE-4340-9114-CC7AE7ECF05A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -4163,7 +4214,7 @@ type
end;
{ TAgentes_Objetivos_facturasDataTableRules }
- TAgentes_Objetivos_facturasDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Objetivos_facturas)
+ TAgentes_Objetivos_facturasDataTableRules = class(TDADataTableRules, IAgentes_Objetivos_facturas)
private
protected
{ Property getters and setters }
@@ -4218,6 +4269,41 @@ type
end;
+ { IListaAnosObjetivosFac }
+ IListaAnosObjetivosFac = interface(IDAStronglyTypedDataTable)
+ ['{8E1FC0F1-1AFF-47F6-8FCB-619723CC5DA6}']
+ { Property getters and setters }
+ function GetANOValue: SmallInt;
+ procedure SetANOValue(const aValue: SmallInt);
+ function GetANOIsNull: Boolean;
+ procedure SetANOIsNull(const aValue: Boolean);
+
+
+ { Properties }
+ property ANO: SmallInt read GetANOValue write SetANOValue;
+ property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
+ end;
+
+ { TListaAnosObjetivosFacDataTableRules }
+ TListaAnosObjetivosFacDataTableRules = class(TDADataTableRules, IListaAnosObjetivosFac)
+ private
+ protected
+ { Property getters and setters }
+ function GetANOValue: SmallInt; virtual;
+ procedure SetANOValue(const aValue: SmallInt); virtual;
+ function GetANOIsNull: Boolean; virtual;
+ procedure SetANOIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ANO: SmallInt read GetANOValue write SetANOValue;
+ property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
+
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+
+ end;
+
implementation
uses Variants, uROBinaryHelpers;
@@ -8916,6 +9002,39 @@ begin
end;
+{ TListaAnosObjetivosAlbDataTableRules }
+constructor TListaAnosObjetivosAlbDataTableRules.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+end;
+
+destructor TListaAnosObjetivosAlbDataTableRules.Destroy;
+begin
+ inherited;
+end;
+
+function TListaAnosObjetivosAlbDataTableRules.GetANOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsSmallInt;
+end;
+
+procedure TListaAnosObjetivosAlbDataTableRules.SetANOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsSmallInt := aValue;
+end;
+
+function TListaAnosObjetivosAlbDataTableRules.GetANOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ListaAnosObjetivosAlbANO].IsNull;
+end;
+
+procedure TListaAnosObjetivosAlbDataTableRules.SetANOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsVariant := Null;
+end;
+
+
{ TAgentesDataTableRules }
constructor TAgentesDataTableRules.Create(aDataTable: TDADataTable);
var
@@ -10000,6 +10119,39 @@ begin
end;
+{ TListaAnosObjetivosFacDataTableRules }
+constructor TListaAnosObjetivosFacDataTableRules.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+end;
+
+destructor TListaAnosObjetivosFacDataTableRules.Destroy;
+begin
+ inherited;
+end;
+
+function TListaAnosObjetivosFacDataTableRules.GetANOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsSmallInt;
+end;
+
+procedure TListaAnosObjetivosFacDataTableRules.SetANOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsSmallInt := aValue;
+end;
+
+function TListaAnosObjetivosFacDataTableRules.GetANOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ListaAnosObjetivosFacANO].IsNull;
+end;
+
+procedure TListaAnosObjetivosFacDataTableRules.SetANOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsVariant := Null;
+end;
+
+
initialization
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
@@ -10016,9 +10168,11 @@ initialization
RegisterDataTableRules(RID_DescripcionesProveedores, TDescripcionesProveedoresDataTableRules);
RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules);
RegisterDataTableRules(RID_Agentes_Comisiones, TAgentes_ComisionesDataTableRules);
+ RegisterDataTableRules(RID_ListaAnosObjetivosAlb, TListaAnosObjetivosAlbDataTableRules);
RegisterDataTableRules(RID_Agentes, TAgentesDataTableRules);
RegisterDataTableRules(RID_ClientesDescuentosArticulos, TClientesDescuentosArticulosDataTableRules);
RegisterDataTableRules(RID_Agentes_Objetivos_albaranes, TAgentes_Objetivos_albaranesDataTableRules);
RegisterDataTableRules(RID_Agentes_Objetivos_facturas, TAgentes_Objetivos_facturasDataTableRules);
+ RegisterDataTableRules(RID_ListaAnosObjetivosFac, TListaAnosObjetivosFacDataTableRules);
end.
diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
index 2f260e7..842745c 100644
--- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
@@ -9,30 +9,32 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ContactosDelta = '{39416DA5-238E-47E9-A82E-07A239049EBA}';
- RID_GruposClienteDelta = '{83DA4B0F-90DA-4C55-98B9-D7B0478B54C9}';
- RID_DatosBancariosDelta = '{E2CF54FC-D385-4E34-8AD9-468F613370CC}';
- RID_ClientesDelta = '{6AB5F06E-ACE1-497F-95A8-2CD68F8261F4}';
- RID_ProveedoresDelta = '{D1324DD1-75FC-4241-9ECD-36627E80BCB5}';
- RID_EmpleadosDelta = '{D96A5955-19DA-44B3-86F8-0217EFFF2F5C}';
- RID_DireccionesContactoDelta = '{B40A76E6-E740-434E-B16F-532A638CB575}';
- RID_ClientesDescuentosDelta = '{472998E9-FA58-4385-9053-4A3F1138EE6D}';
- RID_GruposProveedorDelta = '{AF56FDBF-7D39-442D-8F87-4549F09DAA21}';
- RID_GruposEmpleadoDelta = '{0C4E4FAD-76EE-4B82-81A3-77CF6DC35199}';
- RID_Contactos_RefreshDelta = '{2ED30DD9-C801-43B1-97FC-765DC9FB8BCC}';
- RID_ContratosEmpleadosDelta = '{0B6CD4CF-4DBB-42A9-A3FD-94974C3E5B46}';
- RID_DescripcionesProveedoresDelta = '{408A90EF-AED2-40AB-9FE0-46D1EA721B5A}';
- RID_PersonalContactoDelta = '{F8381C5C-B8F8-4F56-B56D-A333E064353E}';
- RID_Agentes_ComisionesDelta = '{CD1B8807-E14C-453F-9ACF-F53DA26E6DAB}';
- RID_AgentesDelta = '{D43A0810-3E6F-4735-8CC0-4636179FCBBB}';
- RID_ClientesDescuentosArticulosDelta = '{6D6683CD-C6F3-47CE-913B-CF19B9A1A038}';
- RID_Agentes_Objetivos_albaranesDelta = '{FAB9F379-D856-452E-B39B-03CDF32BC20F}';
- RID_Agentes_Objetivos_facturasDelta = '{7EEB2D8D-FDFD-454A-AC8D-261AA6F4DC82}';
+ RID_ContactosDelta = '{924489BD-4BF1-490A-80E1-292384CDE36B}';
+ RID_GruposClienteDelta = '{00B6FC09-D8A1-4AF6-B6DF-2BCEF361091C}';
+ RID_DatosBancariosDelta = '{359B215D-847C-407A-9553-F0E7AE268DAE}';
+ RID_ClientesDelta = '{71CCE505-5A15-4B1E-A807-8DA7DFE6C36C}';
+ RID_ProveedoresDelta = '{F3854348-13E9-465B-9E6E-67EC43F26D2E}';
+ RID_EmpleadosDelta = '{8A94BFD2-C61E-46A8-9620-CF7E1C97D7B5}';
+ RID_DireccionesContactoDelta = '{C480F508-E137-4093-8BF2-DF49EF2AB3DE}';
+ RID_ClientesDescuentosDelta = '{B4C0F049-8B81-4EFB-9E8E-592A72FE25A6}';
+ RID_GruposProveedorDelta = '{129AA285-FCCC-42C8-B31E-288EDB9500DA}';
+ RID_GruposEmpleadoDelta = '{F6F9AD04-610E-4F13-AC1F-7ACDB1761FE8}';
+ RID_Contactos_RefreshDelta = '{755CB99F-48D6-47A3-B95B-0580F7586656}';
+ RID_ContratosEmpleadosDelta = '{7E590734-DDA2-4025-ACC6-0F16255B130A}';
+ RID_DescripcionesProveedoresDelta = '{57434ABA-AADE-4CD2-930E-6309C476941F}';
+ RID_PersonalContactoDelta = '{8B6FE0F0-8635-483F-8FCC-0D386BF286DD}';
+ RID_Agentes_ComisionesDelta = '{A136E396-E02A-4776-BB9D-6C2AF7228D09}';
+ RID_ListaAnosObjetivosAlbDelta = '{FC0A5B37-290A-4872-93FD-EDA0FCCEC000}';
+ RID_AgentesDelta = '{A42667F1-F22B-4E4C-A840-C80695B7291C}';
+ RID_ClientesDescuentosArticulosDelta = '{49185AEC-BA8D-4CDE-9F02-1C02A34FEF09}';
+ RID_Agentes_Objetivos_albaranesDelta = '{1CF088C7-E0C8-4090-85A1-14A3838B781F}';
+ RID_Agentes_Objetivos_facturasDelta = '{B10C7599-1FB6-4CA6-AADF-0FFB60329EC9}';
+ RID_ListaAnosObjetivosFacDelta = '{01C5B570-6CCD-4680-B6C9-CFC0DB37A4DE}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
- ['{39416DA5-238E-47E9-A82E-07A239049EBA}']
+ ['{924489BD-4BF1-490A-80E1-292384CDE36B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -331,7 +333,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
- ['{83DA4B0F-90DA-4C55-98B9-D7B0478B54C9}']
+ ['{00B6FC09-D8A1-4AF6-B6DF-2BCEF361091C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -377,7 +379,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
- ['{E2CF54FC-D385-4E34-8AD9-468F613370CC}']
+ ['{359B215D-847C-407A-9553-F0E7AE268DAE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@@ -507,7 +509,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
- ['{6AB5F06E-ACE1-497F-95A8-2CD68F8261F4}']
+ ['{71CCE505-5A15-4B1E-A807-8DA7DFE6C36C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -1034,7 +1036,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
- ['{D1324DD1-75FC-4241-9ECD-36627E80BCB5}']
+ ['{F3854348-13E9-465B-9E6E-67EC43F26D2E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -1525,7 +1527,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
- ['{D96A5955-19DA-44B3-86F8-0217EFFF2F5C}']
+ ['{8A94BFD2-C61E-46A8-9620-CF7E1C97D7B5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -1960,7 +1962,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
- ['{B40A76E6-E740-434E-B16F-532A638CB575}']
+ ['{C480F508-E137-4093-8BF2-DF49EF2AB3DE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@@ -2175,7 +2177,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
- ['{472998E9-FA58-4385-9053-4A3F1138EE6D}']
+ ['{B4C0F049-8B81-4EFB-9E8E-592A72FE25A6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@@ -2257,7 +2259,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
- ['{AF56FDBF-7D39-442D-8F87-4549F09DAA21}']
+ ['{129AA285-FCCC-42C8-B31E-288EDB9500DA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -2303,7 +2305,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
- ['{0C4E4FAD-76EE-4B82-81A3-77CF6DC35199}']
+ ['{F6F9AD04-610E-4F13-AC1F-7ACDB1761FE8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -2349,7 +2351,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
- ['{2ED30DD9-C801-43B1-97FC-765DC9FB8BCC}']
+ ['{755CB99F-48D6-47A3-B95B-0580F7586656}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@@ -2624,7 +2626,7 @@ type
{ IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados)
- ['{0B6CD4CF-4DBB-42A9-A3FD-94974C3E5B46}']
+ ['{7E590734-DDA2-4025-ACC6-0F16255B130A}']
{ Property getters and setters }
function GetOldCONTRATOValue : String;
@@ -2658,7 +2660,7 @@ type
{ IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
- ['{408A90EF-AED2-40AB-9FE0-46D1EA721B5A}']
+ ['{57434ABA-AADE-4CD2-930E-6309C476941F}']
{ Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String;
@@ -2692,7 +2694,7 @@ type
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
- ['{F8381C5C-B8F8-4F56-B56D-A333E064353E}']
+ ['{8B6FE0F0-8635-483F-8FCC-0D386BF286DD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@@ -2834,7 +2836,7 @@ type
{ IAgentes_ComisionesDelta }
IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
- ['{CD1B8807-E14C-453F-9ACF-F53DA26E6DAB}']
+ ['{A136E396-E02A-4776-BB9D-6C2AF7228D09}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer;
@@ -2914,9 +2916,43 @@ type
end;
+ { IListaAnosObjetivosAlbDelta }
+ IListaAnosObjetivosAlbDelta = interface(IListaAnosObjetivosAlb)
+ ['{FC0A5B37-290A-4872-93FD-EDA0FCCEC000}']
+ { Property getters and setters }
+ function GetOldANOValue : SmallInt;
+
+ { Properties }
+ property OldANO : SmallInt read GetOldANOValue;
+ end;
+
+ { TListaAnosObjetivosAlbBusinessProcessorRules }
+ TListaAnosObjetivosAlbBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosObjetivosAlb, IListaAnosObjetivosAlbDelta)
+ private
+ protected
+ { Property getters and setters }
+ function GetANOValue: SmallInt; virtual;
+ function GetANOIsNull: Boolean; virtual;
+ function GetOldANOValue: SmallInt; virtual;
+ function GetOldANOIsNull: Boolean; virtual;
+ procedure SetANOValue(const aValue: SmallInt); virtual;
+ procedure SetANOIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ANO : SmallInt read GetANOValue write SetANOValue;
+ property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
+ property OldANO : SmallInt read GetOldANOValue;
+ property OldANOIsNull : Boolean read GetOldANOIsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
{ IAgentesDelta }
IAgentesDelta = interface(IAgentes)
- ['{D43A0810-3E6F-4735-8CC0-4636179FCBBB}']
+ ['{A42667F1-F22B-4E4C-A840-C80695B7291C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -3251,7 +3287,7 @@ type
{ IClientesDescuentosArticulosDelta }
IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos)
- ['{6D6683CD-C6F3-47CE-913B-CF19B9A1A038}']
+ ['{49185AEC-BA8D-4CDE-9F02-1C02A34FEF09}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@@ -3381,7 +3417,7 @@ type
{ IAgentes_Objetivos_albaranesDelta }
IAgentes_Objetivos_albaranesDelta = interface(IAgentes_Objetivos_albaranes)
- ['{FAB9F379-D856-452E-B39B-03CDF32BC20F}']
+ ['{1CF088C7-E0C8-4090-85A1-14A3838B781F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer;
@@ -3487,7 +3523,7 @@ type
{ IAgentes_Objetivos_facturasDelta }
IAgentes_Objetivos_facturasDelta = interface(IAgentes_Objetivos_facturas)
- ['{7EEB2D8D-FDFD-454A-AC8D-261AA6F4DC82}']
+ ['{B10C7599-1FB6-4CA6-AADF-0FFB60329EC9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer;
@@ -3591,6 +3627,40 @@ type
end;
+ { IListaAnosObjetivosFacDelta }
+ IListaAnosObjetivosFacDelta = interface(IListaAnosObjetivosFac)
+ ['{01C5B570-6CCD-4680-B6C9-CFC0DB37A4DE}']
+ { Property getters and setters }
+ function GetOldANOValue : SmallInt;
+
+ { Properties }
+ property OldANO : SmallInt read GetOldANOValue;
+ end;
+
+ { TListaAnosObjetivosFacBusinessProcessorRules }
+ TListaAnosObjetivosFacBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosObjetivosFac, IListaAnosObjetivosFacDelta)
+ private
+ protected
+ { Property getters and setters }
+ function GetANOValue: SmallInt; virtual;
+ function GetANOIsNull: Boolean; virtual;
+ function GetOldANOValue: SmallInt; virtual;
+ function GetOldANOIsNull: Boolean; virtual;
+ procedure SetANOValue(const aValue: SmallInt); virtual;
+ procedure SetANOIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ANO : SmallInt read GetANOValue write SetANOValue;
+ property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
+ property OldANO : SmallInt read GetOldANOValue;
+ property OldANOIsNull : Boolean read GetOldANOIsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
implementation
uses
@@ -10420,6 +10490,49 @@ begin
end;
+{ TListaAnosObjetivosAlbBusinessProcessorRules }
+constructor TListaAnosObjetivosAlbBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TListaAnosObjetivosAlbBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TListaAnosObjetivosAlbBusinessProcessorRules.GetANOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO];
+end;
+
+function TListaAnosObjetivosAlbBusinessProcessorRules.GetANOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO]);
+end;
+
+function TListaAnosObjetivosAlbBusinessProcessorRules.GetOldANOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosAlbANO];
+end;
+
+function TListaAnosObjetivosAlbBusinessProcessorRules.GetOldANOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosAlbANO]);
+end;
+
+procedure TListaAnosObjetivosAlbBusinessProcessorRules.SetANOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO] := aValue;
+end;
+
+procedure TListaAnosObjetivosAlbBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO] := Null;
+end;
+
+
{ TAgentesBusinessProcessorRules }
constructor TAgentesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@@ -11995,6 +12108,49 @@ begin
end;
+{ TListaAnosObjetivosFacBusinessProcessorRules }
+constructor TListaAnosObjetivosFacBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TListaAnosObjetivosFacBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TListaAnosObjetivosFacBusinessProcessorRules.GetANOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO];
+end;
+
+function TListaAnosObjetivosFacBusinessProcessorRules.GetANOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO]);
+end;
+
+function TListaAnosObjetivosFacBusinessProcessorRules.GetOldANOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosFacANO];
+end;
+
+function TListaAnosObjetivosFacBusinessProcessorRules.GetOldANOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosFacANO]);
+end;
+
+procedure TListaAnosObjetivosFacBusinessProcessorRules.SetANOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO] := aValue;
+end;
+
+procedure TListaAnosObjetivosFacBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO] := Null;
+end;
+
+
initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
@@ -12011,9 +12167,11 @@ initialization
RegisterBusinessProcessorRules(RID_DescripcionesProveedoresDelta, TDescripcionesProveedoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_Agentes_ComisionesDelta, TAgentes_ComisionesBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_ListaAnosObjetivosAlbDelta, TListaAnosObjetivosAlbBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AgentesDelta, TAgentesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ClientesDescuentosArticulosDelta, TClientesDescuentosArticulosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_Agentes_Objetivos_albaranesDelta, TAgentes_Objetivos_albaranesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_Agentes_Objetivos_facturasDelta, TAgentes_Objetivos_facturasBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_ListaAnosObjetivosFacDelta, TListaAnosObjetivosFacBusinessProcessorRules);
end.
diff --git a/Source/Modulos/Contactos/Model/uBizAgentesServer.pas b/Source/Modulos/Contactos/Model/uBizAgentesServer.pas
index dc5f7ac..aaca415 100644
--- a/Source/Modulos/Contactos/Model/uBizAgentesServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizAgentesServer.pas
@@ -51,12 +51,35 @@ begin
try
with ACommand do
begin
- ParamByName('OLD_ID_EMPLEADO').Value := aChange.OldValueByName[fld_AgentesID];
+ ParamByName('OLD_ID_AGENTE').Value := aChange.OldValueByName[fld_AgentesID];
Execute;
end;
finally
ACommand := NIL;
end;
+{
+ ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_Agentes_Objetivos_albaranes');
+ try
+ with ACommand do
+ begin
+ ParamByName('OLD_ID').Value := aChange.OldValueByName[fld_AgentesID];
+ Execute;
+ end;
+ finally
+ ACommand := NIL;
+ end;
+
+ ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_Agentes_Objetivos_facturas');
+ try
+ with ACommand do
+ begin
+ ParamByName('OLD_ID').Value := aChange.OldValueByName[fld_AgentesID];
+ Execute;
+ end;
+ finally
+ ACommand := NIL;
+ end;
+}
end;
function TBizAgenteServer.IncrementarReferenciaContacto: Boolean;
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
index 9a6b89d..05eadc4 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@@ -4924,7 +4924,7 @@ object srvContactos: TsrvContactos
StatementType = stSQL
ColumnMappings = <>
end>
- Name = ' Delete_AgentesDatos'
+ Name = 'Delete_AgentesDatos'
end
item
Params = <
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 9c371d7..5dd6a2c 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -36,13 +36,6 @@
FalseTrueFalse/standaloneTrueFalse4210FalseFalseFalseFalseFalse308212524.2.1.04.2.1.0martes, 31 de enero de 2012 10:21
-
-
-
-
-
-
-
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dprFalse