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 = '{AA1FED77-C1C8-4EA9-9B07-E74C63CBF307}'; RID_GruposClienteDelta = '{4D46364E-1E11-4648-A9C7-AE4B81FB675C}'; RID_DatosBancariosDelta = '{D4227F74-9431-45EA-8F09-20FFE80E34B1}'; RID_ContactosCategoriasDelta = '{EB18171B-206D-4CFF-97FF-CB91350EAF4C}'; RID_ClientesDelta = '{6C588001-84B7-4F1C-9C6B-84A254E1EA7D}'; RID_ProveedoresDelta = '{168C19DE-0AD5-40CB-B737-628846E311FE}'; RID_EmpleadosDelta = '{6544E069-D22D-49D4-AAFE-47DD92FA7744}'; RID_DireccionesContactoDelta = '{D6123AD7-AA38-4AEF-9E89-E713C83A3DDC}'; RID_ClientesDescuentosDelta = '{2E020115-E0E9-464F-B175-1BED0E2BF0B1}'; RID_GruposProveedorDelta = '{14E46C85-BAAE-4A15-B868-EC579AF38A8A}'; RID_GruposEmpleadoDelta = '{364591F3-D581-4104-9125-7CE465563DEB}'; type { IContactosDelta } IContactosDelta = interface(IContactos) ['{AA1FED77-C1C8-4EA9-9B07-E74C63CBF307}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; function GetOldNIF_CIFValue : String; function GetOldNOMBREValue : String; function GetOldPERSONA_CONTACTOValue : 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 GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : 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 OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; 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 OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; 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 GetPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(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 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 GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(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 PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property CALLE : String read GetCALLEValue write SetCALLEValue; property OldCALLE : String read GetOldCALLEValue; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property OldPOBLACION : String read GetOldPOBLACIONValue; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property OldPROVINCIA : String read GetOldPROVINCIAValue; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property 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 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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) ['{4D46364E-1E11-4648-A9C7-AE4B81FB675C}'] { Property getters and setters } function GetOldDESCRIPCIONValue : String; { Properties } property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; end; { TGruposClienteBusinessProcessorRules } TGruposClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposCliente, IGruposClienteDelta) private protected { Property getters and setters } function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; { Properties } property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) ['{D4227F74-9431-45EA-8F09-20FFE80E34B1}'] { 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) ['{EB18171B-206D-4CFF-97FF-CB91350EAF4C}'] { Property getters and setters } function GetOldID_CONTACTOValue : Integer; function GetOldID_CATEGORIAValue : Integer; { Properties } property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue; end; { TContactosCategoriasBusinessProcessorRules } TContactosCategoriasBusinessProcessorRules = class(TDABusinessProcessorRules, IContactosCategorias, IContactosCategoriasDelta) private protected { Property getters and setters } function GetID_CONTACTOValue: Integer; virtual; function GetOldID_CONTACTOValue: Integer; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; function GetID_CATEGORIAValue: Integer; virtual; function GetOldID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; { Properties } property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IClientesDelta } IClientesDelta = interface(IClientes) ['{6C588001-84B7-4F1C-9C6B-84A254E1EA7D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; function GetOldNIF_CIFValue : String; function GetOldNOMBREValue : String; function GetOldCALLEValue : String; function GetOldPERSONA_CONTACTOValue : 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 GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldID_TIPO_IVAValue : Integer; function GetOldREGIMEN_IVAValue : String; function GetOldID_FORMA_PAGOValue : Integer; function GetOldTIENDA_WEBValue : Integer; function GetOldRECARGO_EQUIVALENCIAValue : Integer; function GetOldGRUPO_CLIENTEValue : String; function GetOldNOMBRE_COMERCIALValue : String; function GetOldVENCIMIENTO_FACTURASValue : Integer; function GetOldBLOQUEADOValue : Integer; function GetOldMOTIVO_BLOQUEOValue : 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 OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; 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 OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue; property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue; property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue; 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 GetPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(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 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 GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetID_TIPO_IVAValue: Integer; virtual; function GetOldID_TIPO_IVAValue: Integer; virtual; procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; function GetREGIMEN_IVAValue: String; virtual; function GetOldREGIMEN_IVAValue: String; virtual; procedure SetREGIMEN_IVAValue(const aValue: String); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetTIENDA_WEBValue: Integer; virtual; function GetOldTIENDA_WEBValue: Integer; virtual; procedure SetTIENDA_WEBValue(const aValue: Integer); virtual; function GetRECARGO_EQUIVALENCIAValue: Integer; virtual; function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual; procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual; function GetGRUPO_CLIENTEValue: String; virtual; function GetOldGRUPO_CLIENTEValue: String; virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; function GetNOMBRE_COMERCIALValue: String; virtual; function GetOldNOMBRE_COMERCIALValue: String; virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; function GetVENCIMIENTO_FACTURASValue: Integer; virtual; function GetOldVENCIMIENTO_FACTURASValue: Integer; virtual; procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual; function GetBLOQUEADOValue: Integer; virtual; function GetOldBLOQUEADOValue: Integer; virtual; procedure SetBLOQUEADOValue(const aValue: Integer); virtual; function GetMOTIVO_BLOQUEOValue: String; virtual; function GetOldMOTIVO_BLOQUEOValue: String; virtual; procedure SetMOTIVO_BLOQUEOValue(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 PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; 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 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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue; property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property VENCIMIENTO_FACTURAS : Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue; property BLOQUEADO : Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue; property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) ['{168C19DE-0AD5-40CB-B737-628846E311FE}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; function GetOldNIF_CIFValue : String; function GetOldNOMBREValue : String; function GetOldCALLEValue : String; function GetOldPERSONA_CONTACTOValue : 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 GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldID_TIPO_IVAValue : Integer; function GetOldREGIMEN_IVAValue : String; function GetOldID_FORMA_PAGOValue : Integer; function GetOldTIENDA_WEBValue : Integer; function GetOldDESCUENTOValue : Float; function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldCODIGO_ASIGNADOValue : String; function GetOldHOMOLOGADOValue : Integer; function GetOldCERTIFICACIONValue : String; function GetOldGRUPO_PROVEEDORValue : 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 OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; 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 OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue; property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue; property OldHOMOLOGADO : Integer read GetOldHOMOLOGADOValue; property OldCERTIFICACION : String read GetOldCERTIFICACIONValue; property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue; 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 GetPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(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 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 GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetID_TIPO_IVAValue: Integer; virtual; function GetOldID_TIPO_IVAValue: Integer; virtual; procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; function GetREGIMEN_IVAValue: String; virtual; function GetOldREGIMEN_IVAValue: String; virtual; procedure SetREGIMEN_IVAValue(const aValue: String); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetTIENDA_WEBValue: Integer; virtual; function GetOldTIENDA_WEBValue: Integer; virtual; procedure SetTIENDA_WEBValue(const aValue: Integer); virtual; function GetDESCUENTOValue: Float; virtual; function GetOldDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetDESCRIPCION_PROVEEDORValue: String; virtual; function GetOldDESCRIPCION_PROVEEDORValue: String; virtual; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual; function GetCODIGO_ASIGNADOValue: String; virtual; function GetOldCODIGO_ASIGNADOValue: String; virtual; procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual; function GetHOMOLOGADOValue: Integer; virtual; function GetOldHOMOLOGADOValue: Integer; virtual; procedure SetHOMOLOGADOValue(const aValue: Integer); virtual; function GetCERTIFICACIONValue: String; virtual; function GetOldCERTIFICACIONValue: String; virtual; procedure SetCERTIFICACIONValue(const aValue: String); virtual; function GetGRUPO_PROVEEDORValue: String; virtual; function GetOldGRUPO_PROVEEDORValue: String; virtual; procedure SetGRUPO_PROVEEDORValue(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 PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; 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 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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property DESCRIPCION_PROVEEDOR : String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue; property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue; property HOMOLOGADO : Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property OldHOMOLOGADO : Integer read GetOldHOMOLOGADOValue; property CERTIFICACION : String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property OldCERTIFICACION : String read GetOldCERTIFICACIONValue; property GRUPO_PROVEEDOR : String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IEmpleadosDelta } IEmpleadosDelta = interface(IEmpleados) ['{6544E069-D22D-49D4-AAFE-47DD92FA7744}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; function GetOldNIF_CIFValue : String; function GetOldNOMBREValue : String; function GetOldCALLEValue : String; function GetOldPERSONA_CONTACTOValue : 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 GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldCATEGORIAValue : String; function GetOldFECHA_NACIMIENTOValue : DateTime; function GetOldFECHA_ALTA_EMPRESAValue : DateTime; function GetOldFORMACION_BASEValue : IROStrings; function GetOldFORMACION_COMPLEValue : IROStrings; function GetOldFORMACION_RECIBIDAValue : IROStrings; function GetOldEXPERIENCIAValue : IROStrings; { 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 OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; 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 OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldCATEGORIA : String read GetOldCATEGORIAValue; property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue; property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue; property OldFORMACION_BASE : IROStrings read GetOldFORMACION_BASEValue; property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue; property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue; property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue; end; { TEmpleadosBusinessProcessorRules } TEmpleadosBusinessProcessorRules = class(TDABusinessProcessorRules, IEmpleados, IEmpleadosDelta) 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 GetPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(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 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 GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetCATEGORIAValue: String; virtual; function GetOldCATEGORIAValue: String; virtual; procedure SetCATEGORIAValue(const aValue: String); virtual; function GetFECHA_NACIMIENTOValue: DateTime; virtual; function GetOldFECHA_NACIMIENTOValue: DateTime; virtual; procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); virtual; function GetFECHA_ALTA_EMPRESAValue: DateTime; virtual; function GetOldFECHA_ALTA_EMPRESAValue: DateTime; virtual; procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); virtual; function GetFORMACION_BASEValue: IROStrings; virtual; function GetOldFORMACION_BASEValue: IROStrings; virtual; procedure SetFORMACION_BASEValue(const aValue: IROStrings); virtual; function GetFORMACION_COMPLEValue: IROStrings; virtual; function GetOldFORMACION_COMPLEValue: IROStrings; virtual; procedure SetFORMACION_COMPLEValue(const aValue: IROStrings); virtual; function GetFORMACION_RECIBIDAValue: IROStrings; virtual; function GetOldFORMACION_RECIBIDAValue: IROStrings; virtual; procedure SetFORMACION_RECIBIDAValue(const aValue: IROStrings); virtual; function GetEXPERIENCIAValue: IROStrings; virtual; function GetOldEXPERIENCIAValue: IROStrings; virtual; procedure SetEXPERIENCIAValue(const aValue: IROStrings); 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 PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; 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 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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property CATEGORIA : String read GetCATEGORIAValue write SetCATEGORIAValue; property OldCATEGORIA : String read GetOldCATEGORIAValue; property FECHA_NACIMIENTO : DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue; property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue; property FECHA_ALTA_EMPRESA : DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue; property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue; property FORMACION_BASE : IROStrings read GetFORMACION_BASEValue write SetFORMACION_BASEValue; property OldFORMACION_BASE : IROStrings read GetOldFORMACION_BASEValue; property FORMACION_COMPLE : IROStrings read GetFORMACION_COMPLEValue write SetFORMACION_COMPLEValue; property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue; property FORMACION_RECIBIDA : IROStrings read GetFORMACION_RECIBIDAValue write SetFORMACION_RECIBIDAValue; property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue; property EXPERIENCIA : IROStrings read GetEXPERIENCIAValue write SetEXPERIENCIAValue; property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) ['{D6123AD7-AA38-4AEF-9E89-E713C83A3DDC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; function GetOldNOMBREValue : String; function GetOldCALLEValue : String; function GetOldPOBLACIONValue : String; function GetOldPROVINCIAValue : String; function GetOldCODIGO_POSTALValue : String; function GetOldPERSONA_CONTACTOValue : String; function GetOldTELEFONOValue : String; function GetOldMOVILValue : String; function GetOldFAXValue : String; function GetOldEMAILValue : String; function GetOldNOTASValue : IROStrings; function GetOldPORTEValue : Float; { Properties } property OldID : Integer read GetOldIDValue; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; 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 OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldTELEFONO : String read GetOldTELEFONOValue; property OldMOVIL : String read GetOldMOVILValue; property OldFAX : String read GetOldFAXValue; property OldEMAIL : String read GetOldEMAILValue; property OldNOTAS : IROStrings read GetOldNOTASValue; property OldPORTE : Float read GetOldPORTEValue; end; { TDireccionesContactoBusinessProcessorRules } TDireccionesContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IDireccionesContacto, IDireccionesContactoDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_CONTACTOValue: Integer; virtual; function GetOldID_CONTACTOValue: Integer; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; function 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 GetPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetTELEFONOValue: String; virtual; function GetOldTELEFONOValue: String; virtual; procedure SetTELEFONOValue(const aValue: String); virtual; function GetMOVILValue: String; virtual; function GetOldMOVILValue: String; virtual; procedure SetMOVILValue(const aValue: String); virtual; function GetFAXValue: String; virtual; function GetOldFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetEMAILValue: String; virtual; function GetOldEMAILValue: String; virtual; procedure SetEMAILValue(const aValue: String); virtual; function GetNOTASValue: IROStrings; virtual; function GetOldNOTASValue: IROStrings; virtual; procedure SetNOTASValue(const aValue: IROStrings); virtual; function GetPORTEValue: Float; virtual; function GetOldPORTEValue: Float; virtual; procedure SetPORTEValue(const aValue: Float); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; 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 PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue; property OldTELEFONO : String read GetOldTELEFONOValue; property MOVIL : String read GetMOVILValue write SetMOVILValue; property OldMOVIL : String read GetOldMOVILValue; property FAX : String read GetFAXValue write SetFAXValue; property OldFAX : String read GetOldFAXValue; property EMAIL : String read GetEMAILValue write SetEMAILValue; property OldEMAIL : String read GetOldEMAILValue; property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue; property OldNOTAS : IROStrings read GetOldNOTASValue; property PORTE : Float read GetPORTEValue write SetPORTEValue; property OldPORTE : Float read GetOldPORTEValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) ['{2E020115-E0E9-464F-B175-1BED0E2BF0B1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CLIENTEValue : Integer; function GetOldID_PROVEEDORValue : Integer; function GetOldNOMBREValue : String; function GetOldDESCUENTOValue : Float; { Properties } property OldID : Integer read GetOldIDValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; end; { TClientesDescuentosBusinessProcessorRules } TClientesDescuentosBusinessProcessorRules = class(TDABusinessProcessorRules, IClientesDescuentos, IClientesDescuentosDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_CLIENTEValue: Integer; virtual; function GetOldID_CLIENTEValue: Integer; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; function GetNOMBREValue: String; virtual; function GetOldNOMBREValue: String; virtual; procedure SetNOMBREValue(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_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IGruposProveedorDelta } IGruposProveedorDelta = interface(IGruposProveedor) ['{14E46C85-BAAE-4A15-B868-EC579AF38A8A}'] { Property getters and setters } function GetOldDESCRIPCIONValue : String; { Properties } property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; end; { TGruposProveedorBusinessProcessorRules } TGruposProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposProveedor, IGruposProveedorDelta) private protected { Property getters and setters } function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; { Properties } property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IGruposEmpleadoDelta } IGruposEmpleadoDelta = interface(IGruposEmpleado) ['{364591F3-D581-4104-9125-7CE465563DEB}'] { Property getters and setters } function GetOldDESCRIPCIONValue : String; { Properties } property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; end; { TGruposEmpleadoBusinessProcessorRules } TGruposEmpleadoBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposEmpleado, IGruposEmpleadoDelta) private protected { Property getters and setters } function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; { Properties } property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers; { TContactosBusinessProcessorRules } constructor TContactosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TContactosBusinessProcessorRules.Destroy; begin inherited; end; function TContactosBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID]; end; function TContactosBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID]; end; procedure TContactosBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID] := aValue; end; function TContactosBusinessProcessorRules.GetID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA]; end; function TContactosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA]; end; procedure TContactosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA] := aValue; end; function TContactosBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF]; end; function TContactosBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF]; end; procedure TContactosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF] := aValue; end; function TContactosBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE]; end; function TContactosBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE]; end; procedure TContactosBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE] := aValue; end; function TContactosBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO]; end; function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO]; end; procedure TContactosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO] := 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.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; function TContactosBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA]; end; function TContactosBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA]; end; procedure TContactosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := aValue; end; { TGruposClienteBusinessProcessorRules } constructor TGruposClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TGruposClienteBusinessProcessorRules.Destroy; begin inherited; end; function TGruposClienteBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION]; end; function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION]; end; procedure TGruposClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION] := aValue; end; { TDatosBancariosBusinessProcessorRules } constructor TDatosBancariosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDatosBancariosBusinessProcessorRules.Destroy; begin inherited; end; function TDatosBancariosBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID]; end; function TDatosBancariosBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID]; end; procedure TDatosBancariosBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID] := aValue; end; function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO]; end; function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO]; end; procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO] := aValue; end; function TDatosBancariosBusinessProcessorRules.GetTITULARValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR]; end; function TDatosBancariosBusinessProcessorRules.GetOldTITULARValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR]; end; procedure TDatosBancariosBusinessProcessorRules.SetTITULARValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR] := aValue; end; function TDatosBancariosBusinessProcessorRules.GetENTIDADValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD]; end; function TDatosBancariosBusinessProcessorRules.GetOldENTIDADValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD]; end; procedure TDatosBancariosBusinessProcessorRules.SetENTIDADValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD] := aValue; end; function TDatosBancariosBusinessProcessorRules.GetSUCURSALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL]; end; function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL]; end; procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL] := aValue; end; function TDatosBancariosBusinessProcessorRules.GetDCValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC]; end; function TDatosBancariosBusinessProcessorRules.GetOldDCValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC]; end; procedure TDatosBancariosBusinessProcessorRules.SetDCValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC] := aValue; end; function TDatosBancariosBusinessProcessorRules.GetCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA]; end; function TDatosBancariosBusinessProcessorRules.GetOldCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA]; end; procedure TDatosBancariosBusinessProcessorRules.SetCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA] := aValue; end; { TContactosCategoriasBusinessProcessorRules } constructor TContactosCategoriasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TContactosCategoriasBusinessProcessorRules.Destroy; begin inherited; end; function TContactosCategoriasBusinessProcessorRules.GetID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CONTACTO]; end; function TContactosCategoriasBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCategoriasID_CONTACTO]; end; procedure TContactosCategoriasBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CONTACTO] := aValue; end; function TContactosCategoriasBusinessProcessorRules.GetID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CATEGORIA]; end; function TContactosCategoriasBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCategoriasID_CATEGORIA]; end; procedure TContactosCategoriasBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CATEGORIA] := aValue; end; { TClientesBusinessProcessorRules } constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TClientesBusinessProcessorRules.Destroy; begin inherited; end; function TClientesBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID]; end; function TClientesBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID]; end; procedure TClientesBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID] := aValue; end; function TClientesBusinessProcessorRules.GetID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA]; end; function TClientesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA]; end; procedure TClientesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA] := aValue; end; function TClientesBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF]; end; function TClientesBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF]; end; procedure TClientesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF] := aValue; end; function TClientesBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE]; end; function TClientesBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE]; end; procedure TClientesBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE] := aValue; end; function TClientesBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE]; end; function TClientesBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE]; end; procedure TClientesBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE] := aValue; end; function TClientesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO]; end; function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO]; end; procedure TClientesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO] := 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.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.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA]; end; function TClientesBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA]; end; procedure TClientesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := aValue; end; function TClientesBusinessProcessorRules.GetID_TIPO_IVAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA]; end; function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA]; end; procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA] := aValue; end; function TClientesBusinessProcessorRules.GetREGIMEN_IVAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA]; end; function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA]; end; procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA] := aValue; end; function TClientesBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; end; function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO]; end; procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO] := aValue; end; function TClientesBusinessProcessorRules.GetTIENDA_WEBValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB]; end; function TClientesBusinessProcessorRules.GetOldTIENDA_WEBValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB]; end; procedure TClientesBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := aValue; end; function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; end; function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; end; procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := aValue; end; function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; end; function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE]; end; procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE] := aValue; end; function TClientesBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; end; function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL]; end; procedure TClientesBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := aValue; end; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]; end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS]; end; procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := aValue; end; function TClientesBusinessProcessorRules.GetBLOQUEADOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]; end; function TClientesBusinessProcessorRules.GetOldBLOQUEADOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO]; end; procedure TClientesBusinessProcessorRules.SetBLOQUEADOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO] := aValue; end; function TClientesBusinessProcessorRules.GetMOTIVO_BLOQUEOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; end; function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO]; end; procedure TClientesBusinessProcessorRules.SetMOTIVO_BLOQUEOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO] := 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.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO]; end; function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO]; end; procedure TProveedoresBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO] := 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.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.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA]; end; function TProveedoresBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA]; end; procedure TProveedoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := aValue; end; function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]; end; function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA]; end; procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA] := aValue; end; function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]; end; function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA]; end; procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := aValue; end; function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]; end; function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO]; end; procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO] := aValue; end; function TProveedoresBusinessProcessorRules.GetTIENDA_WEBValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB]; end; function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB]; end; procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := 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; function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; end; function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; end; procedure TProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := aValue; end; function TProveedoresBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO]; end; function TProveedoresBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_ASIGNADO]; end; procedure TProveedoresBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO] := aValue; end; function TProveedoresBusinessProcessorRules.GetHOMOLOGADOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO]; end; function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO]; end; procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO] := aValue; end; function TProveedoresBusinessProcessorRules.GetCERTIFICACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION]; end; function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION]; end; procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := aValue; end; function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; end; function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; end; procedure TProveedoresBusinessProcessorRules.SetGRUPO_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR] := aValue; end; { TEmpleadosBusinessProcessorRules } constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TEmpleadosBusinessProcessorRules.Destroy; begin inherited; end; function TEmpleadosBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID]; end; function TEmpleadosBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID]; end; procedure TEmpleadosBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID] := aValue; end; function TEmpleadosBusinessProcessorRules.GetID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA]; end; function TEmpleadosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_CATEGORIA]; end; procedure TEmpleadosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA] := aValue; end; function TEmpleadosBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF]; end; function TEmpleadosBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNIF_CIF]; end; procedure TEmpleadosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF] := aValue; end; function TEmpleadosBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE]; end; function TEmpleadosBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOMBRE]; end; procedure TEmpleadosBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE] := aValue; end; function TEmpleadosBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE]; end; function TEmpleadosBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE]; end; procedure TEmpleadosBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE] := aValue; end; function TEmpleadosBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO]; end; function TEmpleadosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPERSONA_CONTACTO]; end; procedure TEmpleadosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO] := aValue; end; function TEmpleadosBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION]; end; function TEmpleadosBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPOBLACION]; end; procedure TEmpleadosBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION] := aValue; end; function TEmpleadosBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA]; end; function TEmpleadosBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPROVINCIA]; end; procedure TEmpleadosBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA] := aValue; end; function TEmpleadosBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL]; end; function TEmpleadosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCODIGO_POSTAL]; end; procedure TEmpleadosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL] := aValue; end; function TEmpleadosBusinessProcessorRules.GetTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1]; end; function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_1]; end; procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1] := aValue; end; function TEmpleadosBusinessProcessorRules.GetTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2]; end; function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_2]; end; procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2] := aValue; end; function TEmpleadosBusinessProcessorRules.GetMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1]; end; function TEmpleadosBusinessProcessorRules.GetOldMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_1]; end; procedure TEmpleadosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1] := aValue; end; function TEmpleadosBusinessProcessorRules.GetMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2]; end; function TEmpleadosBusinessProcessorRules.GetOldMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_2]; end; procedure TEmpleadosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2] := aValue; end; function TEmpleadosBusinessProcessorRules.GetFAXValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX]; end; function TEmpleadosBusinessProcessorRules.GetOldFAXValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFAX]; end; procedure TEmpleadosBusinessProcessorRules.SetFAXValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX] := aValue; end; function TEmpleadosBusinessProcessorRules.GetEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1]; end; function TEmpleadosBusinessProcessorRules.GetOldEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_1]; end; procedure TEmpleadosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1] := aValue; end; function TEmpleadosBusinessProcessorRules.GetEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2]; end; function TEmpleadosBusinessProcessorRules.GetOldEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_2]; end; procedure TEmpleadosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2] := aValue; end; function TEmpleadosBusinessProcessorRules.GetPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB]; end; function TEmpleadosBusinessProcessorRules.GetOldPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAGINA_WEB]; end; procedure TEmpleadosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB] := aValue; end; function TEmpleadosBusinessProcessorRules.GetNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS]; end; function TEmpleadosBusinessProcessorRules.GetOldNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOTAS]; end; procedure TEmpleadosBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS] := aValue.Text; end; function TEmpleadosBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO]; end; function TEmpleadosBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosUSUARIO]; end; procedure TEmpleadosBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO] := aValue; end; function TEmpleadosBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA]; end; function TEmpleadosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_EMPRESA]; end; procedure TEmpleadosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA] := aValue; end; function TEmpleadosBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA]; end; function TEmpleadosBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosREFERENCIA]; end; procedure TEmpleadosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA] := aValue; end; function TEmpleadosBusinessProcessorRules.GetCATEGORIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA]; end; function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA]; end; procedure TEmpleadosBusinessProcessorRules.SetCATEGORIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA] := aValue; end; function TEmpleadosBusinessProcessorRules.GetFECHA_NACIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO]; end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_NACIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_NACIMIENTO]; end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_NACIMIENTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO] := aValue; end; function TEmpleadosBusinessProcessorRules.GetFECHA_ALTA_EMPRESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]; end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]; end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA] := aValue; end; function TEmpleadosBusinessProcessorRules.GetFORMACION_BASEValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE]; end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_BASEValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_BASE]; end; procedure TEmpleadosBusinessProcessorRules.SetFORMACION_BASEValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE] := aValue.Text; end; function TEmpleadosBusinessProcessorRules.GetFORMACION_COMPLEValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE]; end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_COMPLEValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_COMPLE]; end; procedure TEmpleadosBusinessProcessorRules.SetFORMACION_COMPLEValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE] := aValue.Text; end; function TEmpleadosBusinessProcessorRules.GetFORMACION_RECIBIDAValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA]; end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_RECIBIDAValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_RECIBIDA]; end; procedure TEmpleadosBusinessProcessorRules.SetFORMACION_RECIBIDAValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA] := aValue.Text; end; function TEmpleadosBusinessProcessorRules.GetEXPERIENCIAValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA]; end; function TEmpleadosBusinessProcessorRules.GetOldEXPERIENCIAValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEXPERIENCIA]; end; procedure TEmpleadosBusinessProcessorRules.SetEXPERIENCIAValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := aValue.Text; end; { TDireccionesContactoBusinessProcessorRules } constructor TDireccionesContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDireccionesContactoBusinessProcessorRules.Destroy; begin inherited; end; function TDireccionesContactoBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID]; end; function TDireccionesContactoBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID]; end; procedure TDireccionesContactoBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO]; end; function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO]; end; procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE]; end; function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE]; end; procedure TDireccionesContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE]; end; function TDireccionesContactoBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE]; end; procedure TDireccionesContactoBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION]; end; function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION]; end; procedure TDireccionesContactoBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA]; end; function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA]; end; procedure TDireccionesContactoBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL]; end; function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL]; end; procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO]; end; function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO]; end; procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetTELEFONOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO]; end; function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO]; end; procedure TDireccionesContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetMOVILValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL]; end; function TDireccionesContactoBusinessProcessorRules.GetOldMOVILValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL]; end; procedure TDireccionesContactoBusinessProcessorRules.SetMOVILValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetFAXValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX]; end; function TDireccionesContactoBusinessProcessorRules.GetOldFAXValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX]; end; procedure TDireccionesContactoBusinessProcessorRules.SetFAXValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetEMAILValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL]; end; function TDireccionesContactoBusinessProcessorRules.GetOldEMAILValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL]; end; procedure TDireccionesContactoBusinessProcessorRules.SetEMAILValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL] := aValue; end; function TDireccionesContactoBusinessProcessorRules.GetNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS]; end; function TDireccionesContactoBusinessProcessorRules.GetOldNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS]; end; procedure TDireccionesContactoBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := aValue.Text; end; function TDireccionesContactoBusinessProcessorRules.GetPORTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE]; end; function TDireccionesContactoBusinessProcessorRules.GetOldPORTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE]; end; procedure TDireccionesContactoBusinessProcessorRules.SetPORTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := aValue; end; { TClientesDescuentosBusinessProcessorRules } constructor TClientesDescuentosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TClientesDescuentosBusinessProcessorRules.Destroy; begin inherited; end; function TClientesDescuentosBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID]; end; function TClientesDescuentosBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID]; end; procedure TClientesDescuentosBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID] := aValue; end; function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE]; end; function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE]; end; procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE] := aValue; end; function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR]; end; function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR]; end; procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR] := aValue; end; function TClientesDescuentosBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE]; end; function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE]; end; procedure TClientesDescuentosBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE] := aValue; end; function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO]; end; function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO]; end; procedure TClientesDescuentosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO] := aValue; end; { TGruposProveedorBusinessProcessorRules } constructor TGruposProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TGruposProveedorBusinessProcessorRules.Destroy; begin inherited; end; function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION]; end; function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION]; end; procedure TGruposProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION] := aValue; end; { TGruposEmpleadoBusinessProcessorRules } constructor TGruposEmpleadoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TGruposEmpleadoBusinessProcessorRules.Destroy; begin inherited; end; function TGruposEmpleadoBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION]; end; function TGruposEmpleadoBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoDESCRIPCION]; end; procedure TGruposEmpleadoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION] := aValue; end; initialization RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContactosCategoriasDelta, TContactosCategoriasBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules); RegisterBusinessProcessorRules(RID_EmpleadosDelta, TEmpleadosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DireccionesContactoDelta, TDireccionesContactoBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ClientesDescuentosDelta, TClientesDescuentosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposProveedorDelta, TGruposProveedorBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposEmpleadoDelta, TGruposEmpleadoBusinessProcessorRules); end.