david
12013bdc69
git-svn-id: https://192.168.0.254/svn/Proyectos.ConstruccionesCNJ_FactuGES/trunk@4 6cb6b671-b4a0-dd4c-8bdc-3006503d97e9
2402 lines
97 KiB
ObjectPascal
2402 lines
97 KiB
ObjectPascal
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 = '{CEE9671B-C85D-4B4E-98CC-38BC6FD47BB0}';
|
|
RID_DatosBancariosDelta = '{6D44B1FD-758A-4829-A7D0-55C5D2EE7862}';
|
|
RID_ContactosCategoriasDelta = '{1E57D500-8015-4CED-9AF5-73B6A6538CA6}';
|
|
RID_VendedoresDelta = '{FB4811E7-E0C9-4888-9818-4AF936553F96}';
|
|
RID_ClientesDelta = '{B7D8D2BA-C737-42C0-A982-EFDC71389AD4}';
|
|
RID_ProveedoresDelta = '{5CC4DAB8-22B3-4EF7-A2CE-CF68705672B5}';
|
|
|
|
type
|
|
{ IContactosDelta }
|
|
IContactosDelta = interface(IContactos)
|
|
['{CEE9671B-C85D-4B4E-98CC-38BC6FD47BB0}']
|
|
{ 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)
|
|
['{6D44B1FD-758A-4829-A7D0-55C5D2EE7862}']
|
|
{ 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)
|
|
['{1E57D500-8015-4CED-9AF5-73B6A6538CA6}']
|
|
{ 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;
|
|
|
|
{ IVendedoresDelta }
|
|
IVendedoresDelta = interface(IVendedores)
|
|
['{FB4811E7-E0C9-4888-9818-4AF936553F96}']
|
|
{ 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 GetOldPORCENTAJE_COMISIONValue : 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 OldPORCENTAJE_COMISION : Float read GetOldPORCENTAJE_COMISIONValue;
|
|
end;
|
|
|
|
{ TVendedoresBusinessProcessorRules }
|
|
TVendedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IVendedores, IVendedoresDelta)
|
|
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 GetPORCENTAJE_COMISIONValue: Float; virtual;
|
|
function GetOldPORCENTAJE_COMISIONValue: Float; virtual;
|
|
procedure SetPORCENTAJE_COMISIONValue(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 PORCENTAJE_COMISION : Float read GetPORCENTAJE_COMISIONValue write SetPORCENTAJE_COMISIONValue;
|
|
property OldPORCENTAJE_COMISION : Float read GetOldPORCENTAJE_COMISIONValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IClientesDelta }
|
|
IClientesDelta = interface(IClientes)
|
|
['{B7D8D2BA-C737-42C0-A982-EFDC71389AD4}']
|
|
{ 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_VENDEDORValue : Integer;
|
|
function GetOldPROCEDENCIAValue : String;
|
|
|
|
{ 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_VENDEDOR : Integer read GetOldID_VENDEDORValue;
|
|
property OldPROCEDENCIA : String read GetOldPROCEDENCIAValue;
|
|
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_VENDEDORValue: Integer; virtual;
|
|
function GetOldID_VENDEDORValue: Integer; virtual;
|
|
procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
|
|
function GetPROCEDENCIAValue: String; virtual;
|
|
function GetOldPROCEDENCIAValue: String; virtual;
|
|
procedure SetPROCEDENCIAValue(const aValue: String); 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_VENDEDOR : Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
|
|
property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
|
|
property PROCEDENCIA : String read GetPROCEDENCIAValue write SetPROCEDENCIAValue;
|
|
property OldPROCEDENCIA : String read GetOldPROCEDENCIAValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IProveedoresDelta }
|
|
IProveedoresDelta = interface(IProveedores)
|
|
['{5CC4DAB8-22B3-4EF7-A2CE-CF68705672B5}']
|
|
{ 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 GetOldDISTRIBUYEValue : String;
|
|
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 OldDISTRIBUYE : String read GetOldDISTRIBUYEValue;
|
|
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 GetDISTRIBUYEValue: String; virtual;
|
|
function GetOldDISTRIBUYEValue: String; virtual;
|
|
procedure SetDISTRIBUYEValue(const aValue: String); 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 DISTRIBUYE : String read GetDISTRIBUYEValue write SetDISTRIBUYEValue;
|
|
property OldDISTRIBUYE : String read GetOldDISTRIBUYEValue;
|
|
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
|
|
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;
|
|
|
|
|
|
{ TVendedoresBusinessProcessorRules }
|
|
constructor TVendedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TVendedoresBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_CATEGORIA];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNIF_CIF];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOMBRE];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCALLE];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPOBLACION];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPROVINCIA];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCODIGO_POSTAL];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_1];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_2];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_1];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_2];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFAX];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_1];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_2];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAGINA_WEB];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOTAS];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS] := aValue.Text;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_ALTA];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_MODIFICACION];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresUSUARIO];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_EMPRESA];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetPORCENTAJE_COMISIONValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPORCENTAJE_COMISION];
|
|
end;
|
|
|
|
function TVendedoresBusinessProcessorRules.GetOldPORCENTAJE_COMISIONValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPORCENTAJE_COMISION];
|
|
end;
|
|
|
|
procedure TVendedoresBusinessProcessorRules.SetPORCENTAJE_COMISIONValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPORCENTAJE_COMISION] := 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_VENDEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_VENDEDOR];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_VENDEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_VENDEDOR];
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_VENDEDORValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_VENDEDOR] := aValue;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPROCEDENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPROCEDENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROCEDENCIA];
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPROCEDENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA] := 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.GetDISTRIBUYEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDISTRIBUYE];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldDISTRIBUYEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDISTRIBUYE];
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetDISTRIBUYEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDISTRIBUYE] := 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;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ContactosCategoriasDelta, TContactosCategoriasBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_VendedoresDelta, TVendedoresBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules);
|
|
|
|
end.
|