Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
3ab47f8d0e
LuisLeon_FactuGES/Modulos/Contactos/Model/schContactosServer_Intf.pas
david 3ab47f8d0e Recuperación de datos 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/tags/1.2.0@6 c93665c3-c93d-084d-9b98-7d5f4a9c3376
2007-06-11 15:35:41 +00:00

2650 lines
106 KiB
ObjectPascal
Raw Blame History

unit schContactosServer_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schContactosClient_Intf;
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 = '{98B5C7FD-1FD0-467A-870D-A4DE46FF35B4}';
RID_DatosBancariosDelta = '{9D5AC6F2-8E48-44C2-AC00-CB553A929387}';
RID_ContactosCategoriasDelta = '{9CA89DAD-6A1A-4C15-BFAF-1EED029BBE28}';
RID_ClientesDelta = '{B22E85B4-BB00-4924-8C9F-E2F90C785600}';
RID_ProveedoresDelta = '{AFA97E62-EB73-4F68-9371-45C5CB70B228}';
RID_AgentesDelta = '{51D865B3-DD6F-4C78-A954-F89A6F569305}';
RID_DireccionesContactoDelta = '{C57CD948-177D-4FDC-A937-2713381C23B0}';
RID_ClientesGruposDelta = '{B65B3D93-E7F6-45A2-8CB3-2A9B1EDA324D}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{98B5C7FD-1FD0-467A-870D-A4DE46FF35B4}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldTELEFONO_1Value : String;
function GetOldTELEFONO_2Value : String;
function GetOldMOVIL_1Value : String;
function GetOldMOVIL_2Value : String;
function GetOldFAXValue : String;
function GetOldEMAIL_1Value : String;
function GetOldEMAIL_2Value : String;
function GetOldPAGINA_WEBValue : String;
function GetOldNOTASValue : IROStrings;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
property OldFAX : String read GetOldFAXValue;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
end;
{ TContactosBusinessProcessorRules }
TContactosBusinessProcessorRules = class(TDABusinessProcessorRules, IContactos, IContactosDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
function GetOldID_CATEGORIAValue: Integer; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
function GetNIF_CIFValue: String; virtual;
function GetOldNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNOMBREValue: String; virtual;
function GetOldNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual;
function GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetPOBLACIONValue: String; virtual;
function GetOldPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPROVINCIAValue: String; virtual;
function GetOldPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetTELEFONO_1Value: String; virtual;
function GetOldTELEFONO_1Value: String; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
function GetTELEFONO_2Value: String; virtual;
function GetOldTELEFONO_2Value: String; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
function GetMOVIL_1Value: String; virtual;
function GetOldMOVIL_1Value: String; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
function GetMOVIL_2Value: String; virtual;
function GetOldMOVIL_2Value: String; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
function GetFAXValue: String; virtual;
function GetOldFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
function GetEMAIL_1Value: String; virtual;
function GetOldEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
function GetEMAIL_2Value: String; virtual;
function GetOldEMAIL_2Value: String; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
function GetPAGINA_WEBValue: String; virtual;
function GetOldPAGINA_WEBValue: String; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
function GetNOTASValue: IROStrings; virtual;
function GetOldNOTASValue: IROStrings; virtual;
procedure SetNOTASValue(const aValue: IROStrings); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property CALLE : String read GetCALLEValue write SetCALLEValue;
property OldCALLE : String read GetOldCALLEValue;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
property FAX : String read GetFAXValue write SetFAXValue;
property OldFAX : String read GetOldFAXValue;
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{9D5AC6F2-8E48-44C2-AC00-CB553A929387}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
function GetOldTITULARValue : String;
function GetOldENTIDADValue : String;
function GetOldSUCURSALValue : String;
function GetOldDCValue : String;
function GetOldCUENTAValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldTITULAR : String read GetOldTITULARValue;
property OldENTIDAD : String read GetOldENTIDADValue;
property OldSUCURSAL : String read GetOldSUCURSALValue;
property OldDC : String read GetOldDCValue;
property OldCUENTA : String read GetOldCUENTAValue;
end;
{ TDatosBancariosBusinessProcessorRules }
TDatosBancariosBusinessProcessorRules = class(TDABusinessProcessorRules, IDatosBancarios, IDatosBancariosDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_CONTACTOValue: Integer; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
function GetTITULARValue: String; virtual;
function GetOldTITULARValue: String; virtual;
procedure SetTITULARValue(const aValue: String); virtual;
function GetENTIDADValue: String; virtual;
function GetOldENTIDADValue: String; virtual;
procedure SetENTIDADValue(const aValue: String); virtual;
function GetSUCURSALValue: String; virtual;
function GetOldSUCURSALValue: String; virtual;
procedure SetSUCURSALValue(const aValue: String); virtual;
function GetDCValue: String; virtual;
function GetOldDCValue: String; virtual;
procedure SetDCValue(const aValue: String); virtual;
function GetCUENTAValue: String; virtual;
function GetOldCUENTAValue: String; virtual;
procedure SetCUENTAValue(const aValue: String); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property TITULAR : String read GetTITULARValue write SetTITULARValue;
property OldTITULAR : String read GetOldTITULARValue;
property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
property OldENTIDAD : String read GetOldENTIDADValue;
property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
property OldSUCURSAL : String read GetOldSUCURSALValue;
property DC : String read GetDCValue write SetDCValue;
property OldDC : String read GetOldDCValue;
property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
property OldCUENTA : String read GetOldCUENTAValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IContactosCategoriasDelta }
IContactosCategoriasDelta = interface(IContactosCategorias)
['{9CA89DAD-6A1A-4C15-BFAF-1EED029BBE28}']
{ Property getters and setters }
function GetOldID_CONTACTOValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
{ Properties }
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
end;
{ TContactosCategoriasBusinessProcessorRules }
TContactosCategoriasBusinessProcessorRules = class(TDABusinessProcessorRules, IContactosCategorias, IContactosCategoriasDelta)
private
protected
{ Property getters and setters }
function GetID_CONTACTOValue: Integer; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
function GetOldID_CATEGORIAValue: Integer; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
{ Properties }
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{B22E85B4-BB00-4924-8C9F-E2F90C785600}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldTELEFONO_1Value : String;
function GetOldTELEFONO_2Value : String;
function GetOldMOVIL_1Value : String;
function GetOldMOVIL_2Value : String;
function GetOldFAXValue : String;
function GetOldEMAIL_1Value : String;
function GetOldEMAIL_2Value : String;
function GetOldPAGINA_WEBValue : String;
function GetOldNOTASValue : IROStrings;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer;
function GetOldID_AGENTEValue : Integer;
function GetOldGRUPO_CLIENTEValue : String;
function GetOldPORTEValue : Float;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
property OldFAX : String read GetOldFAXValue;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property OldPORTE : Float read GetOldPORTEValue;
end;
{ TClientesBusinessProcessorRules }
TClientesBusinessProcessorRules = class(TDABusinessProcessorRules, IClientes, IClientesDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
function GetOldID_CATEGORIAValue: Integer; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
function GetNIF_CIFValue: String; virtual;
function GetOldNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNOMBREValue: String; virtual;
function GetOldNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual;
function GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetPOBLACIONValue: String; virtual;
function GetOldPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPROVINCIAValue: String; virtual;
function GetOldPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetTELEFONO_1Value: String; virtual;
function GetOldTELEFONO_1Value: String; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
function GetTELEFONO_2Value: String; virtual;
function GetOldTELEFONO_2Value: String; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
function GetMOVIL_1Value: String; virtual;
function GetOldMOVIL_1Value: String; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
function GetMOVIL_2Value: String; virtual;
function GetOldMOVIL_2Value: String; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
function GetFAXValue: String; virtual;
function GetOldFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
function GetEMAIL_1Value: String; virtual;
function GetOldEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
function GetEMAIL_2Value: String; virtual;
function GetOldEMAIL_2Value: String; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
function GetPAGINA_WEBValue: String; virtual;
function GetOldPAGINA_WEBValue: String; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
function GetNOTASValue: IROStrings; virtual;
function GetOldNOTASValue: IROStrings; virtual;
procedure SetNOTASValue(const aValue: IROStrings); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_AGENTEValue: Integer; virtual;
function GetOldID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetGRUPO_CLIENTEValue: String; virtual;
function GetOldGRUPO_CLIENTEValue: String; virtual;
procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
function GetPORTEValue: Float; virtual;
function GetOldPORTEValue: Float; virtual;
procedure SetPORTEValue(const aValue: Float); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property CALLE : String read GetCALLEValue write SetCALLEValue;
property OldCALLE : String read GetOldCALLEValue;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
property FAX : String read GetFAXValue write SetFAXValue;
property OldFAX : String read GetOldFAXValue;
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property PORTE : Float read GetPORTEValue write SetPORTEValue;
property OldPORTE : Float read GetOldPORTEValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{AFA97E62-EB73-4F68-9371-45C5CB70B228}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldTELEFONO_1Value : String;
function GetOldTELEFONO_2Value : String;
function GetOldMOVIL_1Value : String;
function GetOldMOVIL_2Value : String;
function GetOldFAXValue : String;
function GetOldEMAIL_1Value : String;
function GetOldEMAIL_2Value : String;
function GetOldPAGINA_WEBValue : String;
function GetOldNOTASValue : IROStrings;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer;
function GetOldREGIMEN_IVAValue : Float;
function GetOldDESCUENTOValue : Float;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
property OldFAX : String read GetOldFAXValue;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREGIMEN_IVA : Float read GetOldREGIMEN_IVAValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
end;
{ TProveedoresBusinessProcessorRules }
TProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IProveedores, IProveedoresDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
function GetOldID_CATEGORIAValue: Integer; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
function GetNIF_CIFValue: String; virtual;
function GetOldNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNOMBREValue: String; virtual;
function GetOldNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual;
function GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetPOBLACIONValue: String; virtual;
function GetOldPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPROVINCIAValue: String; virtual;
function GetOldPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetTELEFONO_1Value: String; virtual;
function GetOldTELEFONO_1Value: String; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
function GetTELEFONO_2Value: String; virtual;
function GetOldTELEFONO_2Value: String; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
function GetMOVIL_1Value: String; virtual;
function GetOldMOVIL_1Value: String; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
function GetMOVIL_2Value: String; virtual;
function GetOldMOVIL_2Value: String; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
function GetFAXValue: String; virtual;
function GetOldFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
function GetEMAIL_1Value: String; virtual;
function GetOldEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
function GetEMAIL_2Value: String; virtual;
function GetOldEMAIL_2Value: String; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
function GetPAGINA_WEBValue: String; virtual;
function GetOldPAGINA_WEBValue: String; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
function GetNOTASValue: IROStrings; virtual;
function GetOldNOTASValue: IROStrings; virtual;
procedure SetNOTASValue(const aValue: IROStrings); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREGIMEN_IVAValue: Float; virtual;
function GetOldREGIMEN_IVAValue: Float; virtual;
procedure SetREGIMEN_IVAValue(const aValue: Float); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property CALLE : String read GetCALLEValue write SetCALLEValue;
property OldCALLE : String read GetOldCALLEValue;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
property FAX : String read GetFAXValue write SetFAXValue;
property OldFAX : String read GetOldFAXValue;
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property REGIMEN_IVA : Float read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property OldREGIMEN_IVA : Float read GetOldREGIMEN_IVAValue;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IAgentesDelta }
IAgentesDelta = interface(IAgentes)
['{51D865B3-DD6F-4C78-A954-F89A6F569305}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldTELEFONO_1Value : String;
function GetOldTELEFONO_2Value : String;
function GetOldMOVIL_1Value : String;
function GetOldMOVIL_2Value : String;
function GetOldFAXValue : String;
function GetOldEMAIL_1Value : String;
function GetOldEMAIL_2Value : String;
function GetOldPAGINA_WEBValue : String;
function GetOldNOTASValue : IROStrings;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
property OldFAX : String read GetOldFAXValue;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
end;
{ TAgentesBusinessProcessorRules }
TAgentesBusinessProcessorRules = class(TDABusinessProcessorRules, IAgentes, IAgentesDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
function GetOldID_CATEGORIAValue: Integer; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
function GetNIF_CIFValue: String; virtual;
function GetOldNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNOMBREValue: String; virtual;
function GetOldNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual;
function GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetPOBLACIONValue: String; virtual;
function GetOldPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPROVINCIAValue: String; virtual;
function GetOldPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetTELEFONO_1Value: String; virtual;
function GetOldTELEFONO_1Value: String; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
function GetTELEFONO_2Value: String; virtual;
function GetOldTELEFONO_2Value: String; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
function GetMOVIL_1Value: String; virtual;
function GetOldMOVIL_1Value: String; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
function GetMOVIL_2Value: String; virtual;
function GetOldMOVIL_2Value: String; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
function GetFAXValue: String; virtual;
function GetOldFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
function GetEMAIL_1Value: String; virtual;
function GetOldEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
function GetEMAIL_2Value: String; virtual;
function GetOldEMAIL_2Value: String; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
function GetPAGINA_WEBValue: String; virtual;
function GetOldPAGINA_WEBValue: String; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
function GetNOTASValue: IROStrings; virtual;
function GetOldNOTASValue: IROStrings; virtual;
procedure SetNOTASValue(const aValue: IROStrings); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property CALLE : String read GetCALLEValue write SetCALLEValue;
property OldCALLE : String read GetOldCALLEValue;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
property FAX : String read GetFAXValue write SetFAXValue;
property OldFAX : String read GetOldFAXValue;
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{C57CD948-177D-4FDC-A937-2713381C23B0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldPERSONA_CONTACTOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
end;
{ TDireccionesContactoBusinessProcessorRules }
TDireccionesContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IDireccionesContacto, IDireccionesContactoDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_CONTACTOValue: Integer; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
function GetCALLEValue: String; virtual;
function GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetPOBLACIONValue: String; virtual;
function GetOldPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPROVINCIAValue: String; virtual;
function GetOldPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property CALLE : String read GetCALLEValue write SetCALLEValue;
property OldCALLE : String read GetOldCALLEValue;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IClientesGruposDelta }
IClientesGruposDelta = interface(IClientesGrupos)
['{B65B3D93-E7F6-45A2-8CB3-2A9B1EDA324D}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
{ TClientesGruposBusinessProcessorRules }
TClientesGruposBusinessProcessorRules = class(TDABusinessProcessorRules, IClientesGrupos, IClientesGruposDelta)
private
protected
{ Property getters and setters }
function GetDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
{ Properties }
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation
uses
Variants, uROBinaryHelpers;
{ TContactosBusinessProcessorRules }
constructor TContactosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TContactosBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TContactosBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID];
end;
function TContactosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID];
end;
procedure TContactosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID] := aValue;
end;
function TContactosBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA];
end;
function TContactosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA];
end;
procedure TContactosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA] := aValue;
end;
function TContactosBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF];
end;
function TContactosBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF];
end;
procedure TContactosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF] := aValue;
end;
function TContactosBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE];
end;
function TContactosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE];
end;
procedure TContactosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE] := aValue;
end;
function TContactosBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE];
end;
function TContactosBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE];
end;
procedure TContactosBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE] := aValue;
end;
function TContactosBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION];
end;
function TContactosBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION];
end;
procedure TContactosBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION] := aValue;
end;
function TContactosBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA];
end;
function TContactosBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA];
end;
procedure TContactosBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA] := aValue;
end;
function TContactosBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL];
end;
function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL];
end;
procedure TContactosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL] := aValue;
end;
function TContactosBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1];
end;
function TContactosBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1];
end;
procedure TContactosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1] := aValue;
end;
function TContactosBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2];
end;
function TContactosBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2];
end;
procedure TContactosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2] := aValue;
end;
function TContactosBusinessProcessorRules.GetMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1];
end;
function TContactosBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1];
end;
procedure TContactosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1] := aValue;
end;
function TContactosBusinessProcessorRules.GetMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2];
end;
function TContactosBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2];
end;
procedure TContactosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2] := aValue;
end;
function TContactosBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX];
end;
function TContactosBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX];
end;
procedure TContactosBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX] := aValue;
end;
function TContactosBusinessProcessorRules.GetEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1];
end;
function TContactosBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1];
end;
procedure TContactosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1] := aValue;
end;
function TContactosBusinessProcessorRules.GetEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2];
end;
function TContactosBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2];
end;
procedure TContactosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2] := aValue;
end;
function TContactosBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB];
end;
function TContactosBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB];
end;
procedure TContactosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB] := aValue;
end;
function TContactosBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS];
end;
function TContactosBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS];
end;
procedure TContactosBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := aValue.Text;
end;
function TContactosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA];
end;
function TContactosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA];
end;
procedure TContactosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA] := aValue;
end;
function TContactosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION];
end;
function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION];
end;
procedure TContactosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION] := aValue;
end;
function TContactosBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO];
end;
function TContactosBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO];
end;
procedure TContactosBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO] := aValue;
end;
function TContactosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA];
end;
function TContactosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA];
end;
procedure TContactosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA] := aValue;
end;
{ TDatosBancariosBusinessProcessorRules }
constructor TDatosBancariosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDatosBancariosBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDatosBancariosBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID];
end;
function TDatosBancariosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID];
end;
procedure TDatosBancariosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID] := aValue;
end;
function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO];
end;
function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO];
end;
procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO] := aValue;
end;
function TDatosBancariosBusinessProcessorRules.GetTITULARValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR];
end;
function TDatosBancariosBusinessProcessorRules.GetOldTITULARValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR];
end;
procedure TDatosBancariosBusinessProcessorRules.SetTITULARValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR] := aValue;
end;
function TDatosBancariosBusinessProcessorRules.GetENTIDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD];
end;
function TDatosBancariosBusinessProcessorRules.GetOldENTIDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD];
end;
procedure TDatosBancariosBusinessProcessorRules.SetENTIDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD] := aValue;
end;
function TDatosBancariosBusinessProcessorRules.GetSUCURSALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL];
end;
function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL];
end;
procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL] := aValue;
end;
function TDatosBancariosBusinessProcessorRules.GetDCValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC];
end;
function TDatosBancariosBusinessProcessorRules.GetOldDCValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC];
end;
procedure TDatosBancariosBusinessProcessorRules.SetDCValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC] := aValue;
end;
function TDatosBancariosBusinessProcessorRules.GetCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA];
end;
function TDatosBancariosBusinessProcessorRules.GetOldCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA];
end;
procedure TDatosBancariosBusinessProcessorRules.SetCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA] := aValue;
end;
{ TContactosCategoriasBusinessProcessorRules }
constructor TContactosCategoriasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TContactosCategoriasBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TContactosCategoriasBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CONTACTO];
end;
function TContactosCategoriasBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCategoriasID_CONTACTO];
end;
procedure TContactosCategoriasBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CONTACTO] := aValue;
end;
function TContactosCategoriasBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CATEGORIA];
end;
function TContactosCategoriasBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCategoriasID_CATEGORIA];
end;
procedure TContactosCategoriasBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CATEGORIA] := aValue;
end;
{ TClientesBusinessProcessorRules }
constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TClientesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TClientesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID];
end;
function TClientesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID];
end;
procedure TClientesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID] := aValue;
end;
function TClientesBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA];
end;
function TClientesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA];
end;
procedure TClientesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA] := aValue;
end;
function TClientesBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF];
end;
function TClientesBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF];
end;
procedure TClientesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF] := aValue;
end;
function TClientesBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE];
end;
function TClientesBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE];
end;
procedure TClientesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE] := aValue;
end;
function TClientesBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE];
end;
function TClientesBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE];
end;
procedure TClientesBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE] := aValue;
end;
function TClientesBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION];
end;
function TClientesBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION];
end;
procedure TClientesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION] := aValue;
end;
function TClientesBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA];
end;
function TClientesBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA];
end;
procedure TClientesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA] := aValue;
end;
function TClientesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL];
end;
function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL];
end;
procedure TClientesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL] := aValue;
end;
function TClientesBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1];
end;
function TClientesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1];
end;
procedure TClientesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1] := aValue;
end;
function TClientesBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2];
end;
function TClientesBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2];
end;
procedure TClientesBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2] := aValue;
end;
function TClientesBusinessProcessorRules.GetMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1];
end;
function TClientesBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1];
end;
procedure TClientesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1] := aValue;
end;
function TClientesBusinessProcessorRules.GetMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2];
end;
function TClientesBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2];
end;
procedure TClientesBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2] := aValue;
end;
function TClientesBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX];
end;
function TClientesBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX];
end;
procedure TClientesBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX] := aValue;
end;
function TClientesBusinessProcessorRules.GetEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1];
end;
function TClientesBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1];
end;
procedure TClientesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1] := aValue;
end;
function TClientesBusinessProcessorRules.GetEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2];
end;
function TClientesBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2];
end;
procedure TClientesBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2] := aValue;
end;
function TClientesBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB];
end;
function TClientesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB];
end;
procedure TClientesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB] := aValue;
end;
function TClientesBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS];
end;
function TClientesBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS];
end;
procedure TClientesBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := aValue.Text;
end;
function TClientesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA];
end;
function TClientesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA];
end;
procedure TClientesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA] := aValue;
end;
function TClientesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION];
end;
function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION];
end;
procedure TClientesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION] := aValue;
end;
function TClientesBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO];
end;
function TClientesBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO];
end;
procedure TClientesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO] := aValue;
end;
function TClientesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA];
end;
function TClientesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA];
end;
procedure TClientesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA] := aValue;
end;
function TClientesBusinessProcessorRules.GetID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE];
end;
function TClientesBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_AGENTE];
end;
procedure TClientesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE] := aValue;
end;
function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
end;
function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE];
end;
procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE] := aValue;
end;
function TClientesBusinessProcessorRules.GetPORTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPORTE];
end;
function TClientesBusinessProcessorRules.GetOldPORTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPORTE];
end;
procedure TClientesBusinessProcessorRules.SetPORTEValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPORTE] := aValue;
end;
{ TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TProveedoresBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TProveedoresBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID];
end;
function TProveedoresBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID];
end;
procedure TProveedoresBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA];
end;
function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA];
end;
procedure TProveedoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF];
end;
function TProveedoresBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF];
end;
procedure TProveedoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE];
end;
function TProveedoresBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE];
end;
procedure TProveedoresBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE];
end;
function TProveedoresBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE];
end;
procedure TProveedoresBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION];
end;
function TProveedoresBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION];
end;
procedure TProveedoresBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA];
end;
function TProveedoresBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA];
end;
procedure TProveedoresBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL];
end;
function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL];
end;
procedure TProveedoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1];
end;
function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1];
end;
procedure TProveedoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2];
end;
function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2];
end;
procedure TProveedoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1];
end;
function TProveedoresBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1];
end;
procedure TProveedoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2];
end;
function TProveedoresBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2];
end;
procedure TProveedoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX];
end;
function TProveedoresBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX];
end;
procedure TProveedoresBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1];
end;
function TProveedoresBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1];
end;
procedure TProveedoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2];
end;
function TProveedoresBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2];
end;
procedure TProveedoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB];
end;
function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB];
end;
procedure TProveedoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS];
end;
function TProveedoresBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS];
end;
procedure TProveedoresBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := aValue.Text;
end;
function TProveedoresBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA];
end;
function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA];
end;
procedure TProveedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION];
end;
function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION];
end;
procedure TProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO];
end;
function TProveedoresBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO];
end;
procedure TProveedoresBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA];
end;
function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA];
end;
procedure TProveedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
end;
function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA];
end;
procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := aValue;
end;
function TProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO];
end;
function TProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO];
end;
procedure TProveedoresBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO] := aValue;
end;
{ TAgentesBusinessProcessorRules }
constructor TAgentesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TAgentesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TAgentesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID];
end;
function TAgentesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesID];
end;
procedure TAgentesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID] := aValue;
end;
function TAgentesBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_CATEGORIA];
end;
function TAgentesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesID_CATEGORIA];
end;
procedure TAgentesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_CATEGORIA] := aValue;
end;
function TAgentesBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNIF_CIF];
end;
function TAgentesBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesNIF_CIF];
end;
procedure TAgentesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNIF_CIF] := aValue;
end;
function TAgentesBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOMBRE];
end;
function TAgentesBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesNOMBRE];
end;
procedure TAgentesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOMBRE] := aValue;
end;
function TAgentesBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCALLE];
end;
function TAgentesBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesCALLE];
end;
procedure TAgentesBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCALLE] := aValue;
end;
function TAgentesBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPOBLACION];
end;
function TAgentesBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPOBLACION];
end;
procedure TAgentesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPOBLACION] := aValue;
end;
function TAgentesBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPROVINCIA];
end;
function TAgentesBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPROVINCIA];
end;
procedure TAgentesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPROVINCIA] := aValue;
end;
function TAgentesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCODIGO_POSTAL];
end;
function TAgentesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesCODIGO_POSTAL];
end;
procedure TAgentesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCODIGO_POSTAL] := aValue;
end;
function TAgentesBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_1];
end;
function TAgentesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesTELEFONO_1];
end;
procedure TAgentesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_1] := aValue;
end;
function TAgentesBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_2];
end;
function TAgentesBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesTELEFONO_2];
end;
procedure TAgentesBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_2] := aValue;
end;
function TAgentesBusinessProcessorRules.GetMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_1];
end;
function TAgentesBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesMOVIL_1];
end;
procedure TAgentesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_1] := aValue;
end;
function TAgentesBusinessProcessorRules.GetMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_2];
end;
function TAgentesBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesMOVIL_2];
end;
procedure TAgentesBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_2] := aValue;
end;
function TAgentesBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFAX];
end;
function TAgentesBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFAX];
end;
procedure TAgentesBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFAX] := aValue;
end;
function TAgentesBusinessProcessorRules.GetEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_1];
end;
function TAgentesBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesEMAIL_1];
end;
procedure TAgentesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_1] := aValue;
end;
function TAgentesBusinessProcessorRules.GetEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_2];
end;
function TAgentesBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesEMAIL_2];
end;
procedure TAgentesBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_2] := aValue;
end;
function TAgentesBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPAGINA_WEB];
end;
function TAgentesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPAGINA_WEB];
end;
procedure TAgentesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPAGINA_WEB] := aValue;
end;
function TAgentesBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOTAS];
end;
function TAgentesBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesNOTAS];
end;
procedure TAgentesBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOTAS] := aValue.Text;
end;
function TAgentesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_ALTA];
end;
function TAgentesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFECHA_ALTA];
end;
procedure TAgentesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_ALTA] := aValue;
end;
function TAgentesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_MODIFICACION];
end;
function TAgentesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFECHA_MODIFICACION];
end;
procedure TAgentesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_MODIFICACION] := aValue;
end;
function TAgentesBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesUSUARIO];
end;
function TAgentesBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesUSUARIO];
end;
procedure TAgentesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesUSUARIO] := aValue;
end;
function TAgentesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_EMPRESA];
end;
function TAgentesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesID_EMPRESA];
end;
procedure TAgentesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_EMPRESA] := aValue;
end;
{ TDireccionesContactoBusinessProcessorRules }
constructor TDireccionesContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDireccionesContactoBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDireccionesContactoBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID];
end;
function TDireccionesContactoBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID];
end;
procedure TDireccionesContactoBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID] := aValue;
end;
function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO];
end;
function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO];
end;
procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := aValue;
end;
function TDireccionesContactoBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE];
end;
function TDireccionesContactoBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE];
end;
procedure TDireccionesContactoBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE] := aValue;
end;
function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION];
end;
function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION];
end;
procedure TDireccionesContactoBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION] := aValue;
end;
function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA];
end;
function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA];
end;
procedure TDireccionesContactoBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA] := aValue;
end;
function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL];
end;
function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL];
end;
procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL] := aValue;
end;
function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO];
end;
function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO];
end;
procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO] := aValue;
end;
{ TClientesGruposBusinessProcessorRules }
constructor TClientesGruposBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TClientesGruposBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TClientesGruposBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGruposDESCRIPCION];
end;
function TClientesGruposBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGruposDESCRIPCION];
end;
procedure TClientesGruposBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGruposDESCRIPCION] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContactosCategoriasDelta, TContactosCategoriasBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AgentesDelta, TAgentesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DireccionesContactoDelta, TDireccionesContactoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ClientesGruposDelta, TClientesGruposBusinessProcessorRules);
end.
Reference in New Issue View Git Blame Copy Permalink