unit schContactosServer_Intf; {$D-} interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, 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 = '{EA4139BB-54B3-44A8-A12C-A0A9AC903593}'; RID_GruposClienteDelta = '{D468137E-CD16-46BA-9646-FE70A0B6FFDA}'; RID_DatosBancariosDelta = '{5E28D739-1E8F-4E9B-810D-29D7E75FCB32}'; RID_VendedoresDelta = '{83FB18DE-DE8E-4C42-8B50-1B866686E7E1}'; RID_ClientesDelta = '{B15CC723-960E-4C0A-BA08-2801428DFECB}'; RID_ProveedoresDelta = '{CED6EAA0-3FD4-45D5-89A9-0FBAD6204919}'; RID_EmpleadosDelta = '{6C2167FE-599E-4361-9499-FBD818BC6EA4}'; RID_DireccionesContactoDelta = '{6347EA22-511C-4C75-90F8-D91E30715F1F}'; RID_ClientesDescuentosDelta = '{2D3F60B0-1CC5-4433-B456-A86E9DA14E0A}'; RID_GruposProveedorDelta = '{2539EDFE-EC99-4837-B8FA-2F1349A7218E}'; RID_GruposEmpleadoDelta = '{54EFCD4E-CB9A-4FC9-9EED-AB51DFD946E0}'; RID_Contactos_RefreshDelta = '{226A8008-F923-4749-A46D-6BF8E4010A12}'; RID_ContratosEmpleadosDelta = '{F0EF2BFC-3F06-4CE4-A38F-AD6B2F50960D}'; RID_DescripcionesProveedoresDelta = '{CC535BC1-65AC-43A7-822E-D73A2BC64D1D}'; RID_PersonalContactoDelta = '{0B0793EF-FBA3-4104-8F17-B0C1EB078D22}'; type { IContactosDelta } IContactosDelta = interface(IContactos) ['{EA4139BB-54B3-44A8-A12C-A0A9AC903593}'] { 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 GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldPAISValue : 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 OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldPAIS : String read GetOldPAISValue; end; { TContactosBusinessProcessorRules } TContactosBusinessProcessorRules = class(TDABusinessProcessorRules, IContactos, IContactosDelta) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; function GetOldID_CATEGORIAValue: Integer; virtual; function GetOldID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; function GetNIF_CIFIsNull: Boolean; virtual; function GetOldNIF_CIFValue: String; virtual; function GetOldNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; function GetCALLEIsNull: Boolean; virtual; function GetOldCALLEValue: String; virtual; function GetOldCALLEIsNull: Boolean; virtual; procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; function GetPOBLACIONIsNull: Boolean; virtual; function GetOldPOBLACIONValue: String; virtual; function GetOldPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; function GetPROVINCIAIsNull: Boolean; virtual; function GetOldPROVINCIAValue: String; virtual; function GetOldPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; function GetOldCODIGO_POSTALValue: String; virtual; function GetOldCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; function GetTELEFONO_1IsNull: Boolean; virtual; function GetOldTELEFONO_1Value: String; virtual; function GetOldTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; function GetTELEFONO_2IsNull: Boolean; virtual; function GetOldTELEFONO_2Value: String; virtual; function GetOldTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; function GetMOVIL_1IsNull: Boolean; virtual; function GetOldMOVIL_1Value: String; virtual; function GetOldMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; function GetMOVIL_2IsNull: Boolean; virtual; function GetOldMOVIL_2Value: String; virtual; function GetOldMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; function GetFAXIsNull: Boolean; virtual; function GetOldFAXValue: String; virtual; function GetOldFAXIsNull: Boolean; virtual; procedure SetFAXValue(const aValue: String); virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; function GetEMAIL_1IsNull: Boolean; virtual; function GetOldEMAIL_1Value: String; virtual; function GetOldEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; function GetEMAIL_2IsNull: Boolean; virtual; function GetOldEMAIL_2Value: String; virtual; function GetOldEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; function GetOldPAGINA_WEBValue: String; virtual; function GetOldPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; function GetOldNOTASValue: IROStrings; virtual; function GetOldNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; function GetUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; function GetPAISIsNull: Boolean; virtual; function GetOldPAISValue: String; virtual; function GetOldPAISIsNull: Boolean; virtual; procedure SetPAISValue(const aValue: String); virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue; property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property OldCALLE : String read GetOldCALLEValue; property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property OldTELEFONO_1 : String read GetOldTELEFONO_1Value; property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull; property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property OldTELEFONO_2 : String read GetOldTELEFONO_2Value; property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull; property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property OldMOVIL_1 : String read GetOldMOVIL_1Value; property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull; property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property OldMOVIL_2 : String read GetOldMOVIL_2Value; property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull; property FAX : String read GetFAXValue write SetFAXValue; property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull; property OldFAX : String read GetOldFAXValue; property OldFAXIsNull : Boolean read GetOldFAXIsNull; property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property OldEMAIL_1 : String read GetOldEMAIL_1Value; property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull; property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property OldEMAIL_2 : String read GetOldEMAIL_2Value; property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull; property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue; property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull; property NOTAS : IROStrings read GetNOTASValue; property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull; property OldNOTAS : IROStrings read GetOldNOTASValue; property OldNOTASIsNull : Boolean read GetOldNOTASIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property PAIS : String read GetPAISValue write SetPAISValue; property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; property OldPAIS : String read GetOldPAISValue; property OldPAISIsNull : Boolean read GetOldPAISIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) ['{D468137E-CD16-46BA-9646-FE70A0B6FFDA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; end; { TGruposClienteBusinessProcessorRules } TGruposClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposCliente, IGruposClienteDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) ['{5E28D739-1E8F-4E9B-810D-29D7E75FCB32}'] { 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; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; { 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; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; end; { TDatosBancariosBusinessProcessorRules } TDatosBancariosBusinessProcessorRules = class(TDABusinessProcessorRules, IDatosBancarios, IDatosBancariosDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CONTACTOValue: Integer; virtual; function GetID_CONTACTOIsNull: Boolean; virtual; function GetOldID_CONTACTOValue: Integer; virtual; function GetOldID_CONTACTOIsNull: Boolean; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; function GetTITULARValue: String; virtual; function GetTITULARIsNull: Boolean; virtual; function GetOldTITULARValue: String; virtual; function GetOldTITULARIsNull: Boolean; virtual; procedure SetTITULARValue(const aValue: String); virtual; procedure SetTITULARIsNull(const aValue: Boolean); virtual; function GetENTIDADValue: String; virtual; function GetENTIDADIsNull: Boolean; virtual; function GetOldENTIDADValue: String; virtual; function GetOldENTIDADIsNull: Boolean; virtual; procedure SetENTIDADValue(const aValue: String); virtual; procedure SetENTIDADIsNull(const aValue: Boolean); virtual; function GetSUCURSALValue: String; virtual; function GetSUCURSALIsNull: Boolean; virtual; function GetOldSUCURSALValue: String; virtual; function GetOldSUCURSALIsNull: Boolean; virtual; procedure SetSUCURSALValue(const aValue: String); virtual; procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; function GetDCValue: String; virtual; function GetDCIsNull: Boolean; virtual; function GetOldDCValue: String; virtual; function GetOldDCIsNull: Boolean; virtual; procedure SetDCValue(const aValue: String); virtual; procedure SetDCIsNull(const aValue: Boolean); virtual; function GetCUENTAValue: String; virtual; function GetCUENTAIsNull: Boolean; virtual; function GetOldCUENTAValue: String; virtual; function GetOldCUENTAIsNull: Boolean; virtual; procedure SetCUENTAValue(const aValue: String); virtual; procedure SetCUENTAIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull; property TITULAR : String read GetTITULARValue write SetTITULARValue; property TITULARIsNull : Boolean read GetTITULARIsNull write SetTITULARIsNull; property OldTITULAR : String read GetOldTITULARValue; property OldTITULARIsNull : Boolean read GetOldTITULARIsNull; property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull; property OldENTIDAD : String read GetOldENTIDADValue; property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull; property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue; property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; property OldSUCURSAL : String read GetOldSUCURSALValue; property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull; property DC : String read GetDCValue write SetDCValue; property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull; property OldDC : String read GetOldDCValue; property OldDCIsNull : Boolean read GetOldDCIsNull; property CUENTA : String read GetCUENTAValue write SetCUENTAValue; property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property OldCUENTA : String read GetOldCUENTAValue; property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IVendedoresDelta } IVendedoresDelta = interface(IVendedores) ['{83FB18DE-DE8E-4C42-8B50-1B866686E7E1}'] { 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 GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldPAISValue : String; function GetOldCOMISIONValue : Currency; { 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 OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldPAIS : String read GetOldPAISValue; property OldCOMISION : Currency read GetOldCOMISIONValue; end; { TVendedoresBusinessProcessorRules } TVendedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IVendedores, IVendedoresDelta) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; function GetOldID_CATEGORIAValue: Integer; virtual; function GetOldID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; function GetNIF_CIFIsNull: Boolean; virtual; function GetOldNIF_CIFValue: String; virtual; function GetOldNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; function GetCALLEIsNull: Boolean; virtual; function GetOldCALLEValue: String; virtual; function GetOldCALLEIsNull: Boolean; virtual; procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; function GetPOBLACIONIsNull: Boolean; virtual; function GetOldPOBLACIONValue: String; virtual; function GetOldPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; function GetPROVINCIAIsNull: Boolean; virtual; function GetOldPROVINCIAValue: String; virtual; function GetOldPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; function GetOldCODIGO_POSTALValue: String; virtual; function GetOldCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; function GetTELEFONO_1IsNull: Boolean; virtual; function GetOldTELEFONO_1Value: String; virtual; function GetOldTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; function GetTELEFONO_2IsNull: Boolean; virtual; function GetOldTELEFONO_2Value: String; virtual; function GetOldTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; function GetMOVIL_1IsNull: Boolean; virtual; function GetOldMOVIL_1Value: String; virtual; function GetOldMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; function GetMOVIL_2IsNull: Boolean; virtual; function GetOldMOVIL_2Value: String; virtual; function GetOldMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; function GetFAXIsNull: Boolean; virtual; function GetOldFAXValue: String; virtual; function GetOldFAXIsNull: Boolean; virtual; procedure SetFAXValue(const aValue: String); virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; function GetEMAIL_1IsNull: Boolean; virtual; function GetOldEMAIL_1Value: String; virtual; function GetOldEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; function GetEMAIL_2IsNull: Boolean; virtual; function GetOldEMAIL_2Value: String; virtual; function GetOldEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; function GetOldPAGINA_WEBValue: String; virtual; function GetOldPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; function GetOldNOTASValue: IROStrings; virtual; function GetOldNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; function GetUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; function GetPAISIsNull: Boolean; virtual; function GetOldPAISValue: String; virtual; function GetOldPAISIsNull: Boolean; virtual; procedure SetPAISValue(const aValue: String); virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetCOMISIONValue: Currency; virtual; function GetCOMISIONIsNull: Boolean; virtual; function GetOldCOMISIONValue: Currency; virtual; function GetOldCOMISIONIsNull: Boolean; virtual; procedure SetCOMISIONValue(const aValue: Currency); virtual; procedure SetCOMISIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue; property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property OldCALLE : String read GetOldCALLEValue; property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property OldTELEFONO_1 : String read GetOldTELEFONO_1Value; property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull; property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property OldTELEFONO_2 : String read GetOldTELEFONO_2Value; property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull; property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property OldMOVIL_1 : String read GetOldMOVIL_1Value; property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull; property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property OldMOVIL_2 : String read GetOldMOVIL_2Value; property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull; property FAX : String read GetFAXValue write SetFAXValue; property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull; property OldFAX : String read GetOldFAXValue; property OldFAXIsNull : Boolean read GetOldFAXIsNull; property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property OldEMAIL_1 : String read GetOldEMAIL_1Value; property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull; property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property OldEMAIL_2 : String read GetOldEMAIL_2Value; property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull; property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue; property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull; property NOTAS : IROStrings read GetNOTASValue; property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull; property OldNOTAS : IROStrings read GetOldNOTASValue; property OldNOTASIsNull : Boolean read GetOldNOTASIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property PAIS : String read GetPAISValue write SetPAISValue; property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; property OldPAIS : String read GetOldPAISValue; property OldPAISIsNull : Boolean read GetOldPAISIsNull; property COMISION : Currency read GetCOMISIONValue write SetCOMISIONValue; property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; property OldCOMISION : Currency read GetOldCOMISIONValue; property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IClientesDelta } IClientesDelta = interface(IClientes) ['{B15CC723-960E-4C0A-BA08-2801428DFECB}'] { 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 GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldPAISValue : String; function GetOldID_AGENTEValue : Integer; function GetOldCOMISIONValue : Currency; function GetOldGRUPO_CLIENTEValue : String; function GetOldNOMBRE_COMERCIALValue : String; function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt; function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt; function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt; function GetOldBLOQUEADOValue : SmallInt; function GetOldREGIMEN_IVAValue : String; function GetOldMOTIVO_BLOQUEOValue : String; function GetOldRECARGO_EQUIVALENCIAValue : Integer; function GetOldID_TIPO_IVAValue : Integer; function GetOldID_FORMA_PAGOValue : Integer; function GetOldTIENDA_WEBValue : SmallInt; function GetOldDESCUENTOValue : Currency; function GetOldDESCUENTO2Value : Currency; function GetOldFELICITACIONValue : SmallInt; { 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 OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldPAIS : String read GetOldPAISValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldCOMISION : Currency read GetOldCOMISIONValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue; property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; property OldDESCUENTO : Currency read GetOldDESCUENTOValue; property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value; property OldFELICITACION : SmallInt read GetOldFELICITACIONValue; end; { TClientesBusinessProcessorRules } TClientesBusinessProcessorRules = class(TDABusinessProcessorRules, IClientes, IClientesDelta) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; function GetOldID_CATEGORIAValue: Integer; virtual; function GetOldID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; function GetNIF_CIFIsNull: Boolean; virtual; function GetOldNIF_CIFValue: String; virtual; function GetOldNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; function GetCALLEIsNull: Boolean; virtual; function GetOldCALLEValue: String; virtual; function GetOldCALLEIsNull: Boolean; virtual; procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; function GetPOBLACIONIsNull: Boolean; virtual; function GetOldPOBLACIONValue: String; virtual; function GetOldPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; function GetPROVINCIAIsNull: Boolean; virtual; function GetOldPROVINCIAValue: String; virtual; function GetOldPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; function GetOldCODIGO_POSTALValue: String; virtual; function GetOldCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; function GetTELEFONO_1IsNull: Boolean; virtual; function GetOldTELEFONO_1Value: String; virtual; function GetOldTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; function GetTELEFONO_2IsNull: Boolean; virtual; function GetOldTELEFONO_2Value: String; virtual; function GetOldTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; function GetMOVIL_1IsNull: Boolean; virtual; function GetOldMOVIL_1Value: String; virtual; function GetOldMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; function GetMOVIL_2IsNull: Boolean; virtual; function GetOldMOVIL_2Value: String; virtual; function GetOldMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; function GetFAXIsNull: Boolean; virtual; function GetOldFAXValue: String; virtual; function GetOldFAXIsNull: Boolean; virtual; procedure SetFAXValue(const aValue: String); virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; function GetEMAIL_1IsNull: Boolean; virtual; function GetOldEMAIL_1Value: String; virtual; function GetOldEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; function GetEMAIL_2IsNull: Boolean; virtual; function GetOldEMAIL_2Value: String; virtual; function GetOldEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; function GetOldPAGINA_WEBValue: String; virtual; function GetOldPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; function GetOldNOTASValue: IROStrings; virtual; function GetOldNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; function GetUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; function GetPAISIsNull: Boolean; virtual; function GetOldPAISValue: String; virtual; function GetOldPAISIsNull: Boolean; virtual; procedure SetPAISValue(const aValue: String); virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetID_AGENTEValue: Integer; virtual; function GetID_AGENTEIsNull: Boolean; virtual; function GetOldID_AGENTEValue: Integer; virtual; function GetOldID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; function GetCOMISIONValue: Currency; virtual; function GetCOMISIONIsNull: Boolean; virtual; function GetOldCOMISIONValue: Currency; virtual; function GetOldCOMISIONIsNull: Boolean; virtual; procedure SetCOMISIONValue(const aValue: Currency); virtual; procedure SetCOMISIONIsNull(const aValue: Boolean); virtual; function GetGRUPO_CLIENTEValue: String; virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual; function GetOldGRUPO_CLIENTEValue: String; virtual; function GetOldGRUPO_CLIENTEIsNull: Boolean; virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); virtual; function GetNOMBRE_COMERCIALValue: String; virtual; function GetNOMBRE_COMERCIALIsNull: Boolean; virtual; function GetOldNOMBRE_COMERCIALValue: String; virtual; function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual; procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; function GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual; procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; function GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; function GetBLOQUEADOValue: SmallInt; virtual; function GetBLOQUEADOIsNull: Boolean; virtual; function GetOldBLOQUEADOValue: SmallInt; virtual; function GetOldBLOQUEADOIsNull: Boolean; virtual; procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual; function GetREGIMEN_IVAValue: String; virtual; function GetREGIMEN_IVAIsNull: Boolean; virtual; function GetOldREGIMEN_IVAValue: String; virtual; function GetOldREGIMEN_IVAIsNull: Boolean; virtual; procedure SetREGIMEN_IVAValue(const aValue: String); virtual; procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual; function GetMOTIVO_BLOQUEOValue: String; virtual; function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual; function GetOldMOTIVO_BLOQUEOValue: String; virtual; function GetOldMOTIVO_BLOQUEOIsNull: Boolean; virtual; procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual; procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual; function GetRECARGO_EQUIVALENCIAValue: Integer; virtual; function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual; function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual; function GetID_TIPO_IVAValue: Integer; virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual; function GetOldID_TIPO_IVAValue: Integer; virtual; function GetOldID_TIPO_IVAIsNull: Boolean; virtual; procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; function GetTIENDA_WEBValue: SmallInt; virtual; function GetTIENDA_WEBIsNull: Boolean; virtual; function GetOldTIENDA_WEBValue: SmallInt; virtual; function GetOldTIENDA_WEBIsNull: Boolean; virtual; procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Currency; virtual; function GetDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOValue: Currency; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Currency); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetDESCUENTO2Value: Currency; virtual; function GetDESCUENTO2IsNull: Boolean; virtual; function GetOldDESCUENTO2Value: Currency; virtual; function GetOldDESCUENTO2IsNull: Boolean; virtual; procedure SetDESCUENTO2Value(const aValue: Currency); virtual; procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual; function GetFELICITACIONValue: SmallInt; virtual; function GetFELICITACIONIsNull: Boolean; virtual; function GetOldFELICITACIONValue: SmallInt; virtual; function GetOldFELICITACIONIsNull: Boolean; virtual; procedure SetFELICITACIONValue(const aValue: SmallInt); virtual; procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue; property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property OldCALLE : String read GetOldCALLEValue; property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property OldTELEFONO_1 : String read GetOldTELEFONO_1Value; property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull; property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property OldTELEFONO_2 : String read GetOldTELEFONO_2Value; property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull; property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property OldMOVIL_1 : String read GetOldMOVIL_1Value; property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull; property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property OldMOVIL_2 : String read GetOldMOVIL_2Value; property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull; property FAX : String read GetFAXValue write SetFAXValue; property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull; property OldFAX : String read GetOldFAXValue; property OldFAXIsNull : Boolean read GetOldFAXIsNull; property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property OldEMAIL_1 : String read GetOldEMAIL_1Value; property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull; property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property OldEMAIL_2 : String read GetOldEMAIL_2Value; property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull; property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue; property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull; property NOTAS : IROStrings read GetNOTASValue; property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull; property OldNOTAS : IROStrings read GetOldNOTASValue; property OldNOTASIsNull : Boolean read GetOldNOTASIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property PAIS : String read GetPAISValue write SetPAISValue; property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; property OldPAIS : String read GetOldPAISValue; property OldPAISIsNull : Boolean read GetOldPAISIsNull; property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull; property COMISION : Currency read GetCOMISIONValue write SetCOMISIONValue; property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; property OldCOMISION : Currency read GetOldCOMISIONValue; property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull; property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldGRUPO_CLIENTEIsNull : Boolean read GetOldGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull; property VENCIMIENTO_FACTURAS_1 : SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull; property VENCIMIENTO_FACTURAS_2 : SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_3 : SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value; property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull; property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; property OldBLOQUEADOIsNull : Boolean read GetOldBLOQUEADOIsNull; property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVAIsNull : Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldREGIMEN_IVAIsNull : Boolean read GetOldREGIMEN_IVAIsNull; property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEOIsNull : Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull; property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue; property OldMOTIVO_BLOQUEOIsNull : Boolean read GetOldMOTIVO_BLOQUEOIsNull; property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue; property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull; property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; property TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull; property DESCUENTO : Currency read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Currency read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; property DESCUENTO2 : Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; property DESCUENTO2IsNull : Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value; property OldDESCUENTO2IsNull : Boolean read GetOldDESCUENTO2IsNull; property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property OldFELICITACION : SmallInt read GetOldFELICITACIONValue; property OldFELICITACIONIsNull : Boolean read GetOldFELICITACIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) ['{CED6EAA0-3FD4-45D5-89A9-0FBAD6204919}'] { 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 GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldPAISValue : String; function GetOldDESCUENTOValue : Float; function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldGRUPO_PROVEEDORValue : String; function GetOldREGIMEN_IVAValue : String; function GetOldID_TIPO_IVAValue : Integer; function GetOldID_FORMA_PAGOValue : Integer; function GetOldTIENDA_WEBValue : SmallInt; function GetOldHOMOLOGADOValue : SmallInt; function GetOldCERTIFICACIONValue : String; function GetOldSUBCONTRATAValue : SmallInt; function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt; function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt; function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt; { 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 OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldPAIS : String read GetOldPAISValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue; property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue; property OldCERTIFICACION : String read GetOldCERTIFICACIONValue; property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue; property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value; end; { TProveedoresBusinessProcessorRules } TProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IProveedores, IProveedoresDelta) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; function GetOldID_CATEGORIAValue: Integer; virtual; function GetOldID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; function GetNIF_CIFIsNull: Boolean; virtual; function GetOldNIF_CIFValue: String; virtual; function GetOldNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; function GetCALLEIsNull: Boolean; virtual; function GetOldCALLEValue: String; virtual; function GetOldCALLEIsNull: Boolean; virtual; procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; function GetPOBLACIONIsNull: Boolean; virtual; function GetOldPOBLACIONValue: String; virtual; function GetOldPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; function GetPROVINCIAIsNull: Boolean; virtual; function GetOldPROVINCIAValue: String; virtual; function GetOldPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; function GetOldCODIGO_POSTALValue: String; virtual; function GetOldCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; function GetTELEFONO_1IsNull: Boolean; virtual; function GetOldTELEFONO_1Value: String; virtual; function GetOldTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; function GetTELEFONO_2IsNull: Boolean; virtual; function GetOldTELEFONO_2Value: String; virtual; function GetOldTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; function GetMOVIL_1IsNull: Boolean; virtual; function GetOldMOVIL_1Value: String; virtual; function GetOldMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; function GetMOVIL_2IsNull: Boolean; virtual; function GetOldMOVIL_2Value: String; virtual; function GetOldMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; function GetFAXIsNull: Boolean; virtual; function GetOldFAXValue: String; virtual; function GetOldFAXIsNull: Boolean; virtual; procedure SetFAXValue(const aValue: String); virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; function GetEMAIL_1IsNull: Boolean; virtual; function GetOldEMAIL_1Value: String; virtual; function GetOldEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; function GetEMAIL_2IsNull: Boolean; virtual; function GetOldEMAIL_2Value: String; virtual; function GetOldEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; function GetOldPAGINA_WEBValue: String; virtual; function GetOldPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; function GetOldNOTASValue: IROStrings; virtual; function GetOldNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; function GetUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; function GetPAISIsNull: Boolean; virtual; function GetOldPAISValue: String; virtual; function GetOldPAISIsNull: Boolean; virtual; procedure SetPAISValue(const aValue: String); virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOValue: Float; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetDESCRIPCION_PROVEEDORValue: String; virtual; function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual; function GetOldDESCRIPCION_PROVEEDORValue: String; virtual; function GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; virtual; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual; procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetGRUPO_PROVEEDORValue: String; virtual; function GetGRUPO_PROVEEDORIsNull: Boolean; virtual; function GetOldGRUPO_PROVEEDORValue: String; virtual; function GetOldGRUPO_PROVEEDORIsNull: Boolean; virtual; procedure SetGRUPO_PROVEEDORValue(const aValue: String); virtual; procedure SetGRUPO_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetREGIMEN_IVAValue: String; virtual; function GetREGIMEN_IVAIsNull: Boolean; virtual; function GetOldREGIMEN_IVAValue: String; virtual; function GetOldREGIMEN_IVAIsNull: Boolean; virtual; procedure SetREGIMEN_IVAValue(const aValue: String); virtual; procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual; function GetID_TIPO_IVAValue: Integer; virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual; function GetOldID_TIPO_IVAValue: Integer; virtual; function GetOldID_TIPO_IVAIsNull: Boolean; virtual; procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; function GetTIENDA_WEBValue: SmallInt; virtual; function GetTIENDA_WEBIsNull: Boolean; virtual; function GetOldTIENDA_WEBValue: SmallInt; virtual; function GetOldTIENDA_WEBIsNull: Boolean; virtual; procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual; function GetHOMOLOGADOValue: SmallInt; virtual; function GetHOMOLOGADOIsNull: Boolean; virtual; function GetOldHOMOLOGADOValue: SmallInt; virtual; function GetOldHOMOLOGADOIsNull: Boolean; virtual; procedure SetHOMOLOGADOValue(const aValue: SmallInt); virtual; procedure SetHOMOLOGADOIsNull(const aValue: Boolean); virtual; function GetCERTIFICACIONValue: String; virtual; function GetCERTIFICACIONIsNull: Boolean; virtual; function GetOldCERTIFICACIONValue: String; virtual; function GetOldCERTIFICACIONIsNull: Boolean; virtual; procedure SetCERTIFICACIONValue(const aValue: String); virtual; procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual; function GetSUBCONTRATAValue: SmallInt; virtual; function GetSUBCONTRATAIsNull: Boolean; virtual; function GetOldSUBCONTRATAValue: SmallInt; virtual; function GetOldSUBCONTRATAIsNull: Boolean; virtual; procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual; procedure SetSUBCONTRATAIsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual; procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; function GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual; procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; function GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue; property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property OldCALLE : String read GetOldCALLEValue; property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property OldTELEFONO_1 : String read GetOldTELEFONO_1Value; property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull; property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property OldTELEFONO_2 : String read GetOldTELEFONO_2Value; property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull; property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property OldMOVIL_1 : String read GetOldMOVIL_1Value; property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull; property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property OldMOVIL_2 : String read GetOldMOVIL_2Value; property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull; property FAX : String read GetFAXValue write SetFAXValue; property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull; property OldFAX : String read GetOldFAXValue; property OldFAXIsNull : Boolean read GetOldFAXIsNull; property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property OldEMAIL_1 : String read GetOldEMAIL_1Value; property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull; property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property OldEMAIL_2 : String read GetOldEMAIL_2Value; property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull; property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue; property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull; property NOTAS : IROStrings read GetNOTASValue; property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull; property OldNOTAS : IROStrings read GetOldNOTASValue; property OldNOTASIsNull : Boolean read GetOldNOTASIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property PAIS : String read GetPAISValue write SetPAISValue; property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; property OldPAIS : String read GetOldPAISValue; property OldPAISIsNull : Boolean read GetOldPAISIsNull; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; property DESCRIPCION_PROVEEDOR : String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDORIsNull : Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue; property OldDESCRIPCION_PROVEEDORIsNull : Boolean read GetOldDESCRIPCION_PROVEEDORIsNull; property GRUPO_PROVEEDOR : String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDORIsNull : Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull; property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue; property OldGRUPO_PROVEEDORIsNull : Boolean read GetOldGRUPO_PROVEEDORIsNull; property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVAIsNull : Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldREGIMEN_IVAIsNull : Boolean read GetOldREGIMEN_IVAIsNull; property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull; property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; property TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull; property HOMOLOGADO : SmallInt read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property HOMOLOGADOIsNull : Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull; property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue; property OldHOMOLOGADOIsNull : Boolean read GetOldHOMOLOGADOIsNull; property CERTIFICACION : String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACIONIsNull : Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull; property OldCERTIFICACION : String read GetOldCERTIFICACIONValue; property OldCERTIFICACIONIsNull : Boolean read GetOldCERTIFICACIONIsNull; property SUBCONTRATA : SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue; property SUBCONTRATAIsNull : Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull; property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue; property OldSUBCONTRATAIsNull : Boolean read GetOldSUBCONTRATAIsNull; property VENCIMIENTO_FACTURAS_1 : SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull; property VENCIMIENTO_FACTURAS_2 : SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_3 : SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value; property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IEmpleadosDelta } IEmpleadosDelta = interface(IEmpleados) ['{6C2167FE-599E-4361-9499-FBD818BC6EA4}'] { 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 GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldFECHA_NACIMIENTOValue : DateTime; function GetOldCATEGORIAValue : String; function GetOldFECHA_ALTA_EMPRESAValue : DateTime; function GetOldFORMACION_BASEValue : IROStrings; function GetOldFORMACION_COMPLEValue : IROStrings; function GetOldFORMACION_RECIBIDAValue : IROStrings; function GetOldEXPERIENCIAValue : IROStrings; function GetOldCONTRATOValue : String; function GetOldDURACIONValue : String; function GetOldFECHA_BAJAValue : DateTime; function GetOldCAUSA_BAJAValue : 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 OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue; property OldCATEGORIA : String read GetOldCATEGORIAValue; 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; property OldCONTRATO : String read GetOldCONTRATOValue; property OldDURACION : String read GetOldDURACIONValue; property OldFECHA_BAJA : DateTime read GetOldFECHA_BAJAValue; property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue; end; { TEmpleadosBusinessProcessorRules } TEmpleadosBusinessProcessorRules = class(TDABusinessProcessorRules, IEmpleados, IEmpleadosDelta) private f_NOTAS: IROStrings; f_FORMACION_BASE: IROStrings; f_FORMACION_COMPLE: IROStrings; f_FORMACION_RECIBIDA: IROStrings; f_EXPERIENCIA: IROStrings; procedure NOTAS_OnChange(Sender: TObject); procedure FORMACION_BASE_OnChange(Sender: TObject); procedure FORMACION_COMPLE_OnChange(Sender: TObject); procedure FORMACION_RECIBIDA_OnChange(Sender: TObject); procedure EXPERIENCIA_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; function GetOldID_CATEGORIAValue: Integer; virtual; function GetOldID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; function GetNIF_CIFIsNull: Boolean; virtual; function GetOldNIF_CIFValue: String; virtual; function GetOldNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; function GetCALLEIsNull: Boolean; virtual; function GetOldCALLEValue: String; virtual; function GetOldCALLEIsNull: Boolean; virtual; procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; function GetPOBLACIONIsNull: Boolean; virtual; function GetOldPOBLACIONValue: String; virtual; function GetOldPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; function GetPROVINCIAIsNull: Boolean; virtual; function GetOldPROVINCIAValue: String; virtual; function GetOldPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; function GetOldCODIGO_POSTALValue: String; virtual; function GetOldCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; function GetTELEFONO_1IsNull: Boolean; virtual; function GetOldTELEFONO_1Value: String; virtual; function GetOldTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; function GetTELEFONO_2IsNull: Boolean; virtual; function GetOldTELEFONO_2Value: String; virtual; function GetOldTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; function GetMOVIL_1IsNull: Boolean; virtual; function GetOldMOVIL_1Value: String; virtual; function GetOldMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; function GetMOVIL_2IsNull: Boolean; virtual; function GetOldMOVIL_2Value: String; virtual; function GetOldMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; function GetFAXIsNull: Boolean; virtual; function GetOldFAXValue: String; virtual; function GetOldFAXIsNull: Boolean; virtual; procedure SetFAXValue(const aValue: String); virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; function GetEMAIL_1IsNull: Boolean; virtual; function GetOldEMAIL_1Value: String; virtual; function GetOldEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; function GetEMAIL_2IsNull: Boolean; virtual; function GetOldEMAIL_2Value: String; virtual; function GetOldEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; function GetOldPAGINA_WEBValue: String; virtual; function GetOldPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; function GetOldNOTASValue: IROStrings; virtual; function GetOldNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; function GetUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetFECHA_NACIMIENTOValue: DateTime; virtual; function GetFECHA_NACIMIENTOIsNull: Boolean; virtual; function GetOldFECHA_NACIMIENTOValue: DateTime; virtual; function GetOldFECHA_NACIMIENTOIsNull: Boolean; virtual; procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); virtual; procedure SetFECHA_NACIMIENTOIsNull(const aValue: Boolean); virtual; function GetCATEGORIAValue: String; virtual; function GetCATEGORIAIsNull: Boolean; virtual; function GetOldCATEGORIAValue: String; virtual; function GetOldCATEGORIAIsNull: Boolean; virtual; procedure SetCATEGORIAValue(const aValue: String); virtual; procedure SetCATEGORIAIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTA_EMPRESAValue: DateTime; virtual; function GetFECHA_ALTA_EMPRESAIsNull: Boolean; virtual; function GetOldFECHA_ALTA_EMPRESAValue: DateTime; virtual; function GetOldFECHA_ALTA_EMPRESAIsNull: Boolean; virtual; procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); virtual; function GetFORMACION_BASEValue: IROStrings; virtual; function GetFORMACION_BASEIsNull: Boolean; virtual; function GetOldFORMACION_BASEValue: IROStrings; virtual; function GetOldFORMACION_BASEIsNull: Boolean; virtual; procedure SetFORMACION_BASEIsNull(const aValue: Boolean); virtual; function GetFORMACION_COMPLEValue: IROStrings; virtual; function GetFORMACION_COMPLEIsNull: Boolean; virtual; function GetOldFORMACION_COMPLEValue: IROStrings; virtual; function GetOldFORMACION_COMPLEIsNull: Boolean; virtual; procedure SetFORMACION_COMPLEIsNull(const aValue: Boolean); virtual; function GetFORMACION_RECIBIDAValue: IROStrings; virtual; function GetFORMACION_RECIBIDAIsNull: Boolean; virtual; function GetOldFORMACION_RECIBIDAValue: IROStrings; virtual; function GetOldFORMACION_RECIBIDAIsNull: Boolean; virtual; procedure SetFORMACION_RECIBIDAIsNull(const aValue: Boolean); virtual; function GetEXPERIENCIAValue: IROStrings; virtual; function GetEXPERIENCIAIsNull: Boolean; virtual; function GetOldEXPERIENCIAValue: IROStrings; virtual; function GetOldEXPERIENCIAIsNull: Boolean; virtual; procedure SetEXPERIENCIAIsNull(const aValue: Boolean); virtual; function GetCONTRATOValue: String; virtual; function GetCONTRATOIsNull: Boolean; virtual; function GetOldCONTRATOValue: String; virtual; function GetOldCONTRATOIsNull: Boolean; virtual; procedure SetCONTRATOValue(const aValue: String); virtual; procedure SetCONTRATOIsNull(const aValue: Boolean); virtual; function GetDURACIONValue: String; virtual; function GetDURACIONIsNull: Boolean; virtual; function GetOldDURACIONValue: String; virtual; function GetOldDURACIONIsNull: Boolean; virtual; procedure SetDURACIONValue(const aValue: String); virtual; procedure SetDURACIONIsNull(const aValue: Boolean); virtual; function GetFECHA_BAJAValue: DateTime; virtual; function GetFECHA_BAJAIsNull: Boolean; virtual; function GetOldFECHA_BAJAValue: DateTime; virtual; function GetOldFECHA_BAJAIsNull: Boolean; virtual; procedure SetFECHA_BAJAValue(const aValue: DateTime); virtual; procedure SetFECHA_BAJAIsNull(const aValue: Boolean); virtual; function GetCAUSA_BAJAValue: String; virtual; function GetCAUSA_BAJAIsNull: Boolean; virtual; function GetOldCAUSA_BAJAValue: String; virtual; function GetOldCAUSA_BAJAIsNull: Boolean; virtual; procedure SetCAUSA_BAJAValue(const aValue: String); virtual; procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue; property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property OldCALLE : String read GetOldCALLEValue; property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property OldTELEFONO_1 : String read GetOldTELEFONO_1Value; property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull; property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property OldTELEFONO_2 : String read GetOldTELEFONO_2Value; property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull; property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property OldMOVIL_1 : String read GetOldMOVIL_1Value; property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull; property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property OldMOVIL_2 : String read GetOldMOVIL_2Value; property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull; property FAX : String read GetFAXValue write SetFAXValue; property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull; property OldFAX : String read GetOldFAXValue; property OldFAXIsNull : Boolean read GetOldFAXIsNull; property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property OldEMAIL_1 : String read GetOldEMAIL_1Value; property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull; property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property OldEMAIL_2 : String read GetOldEMAIL_2Value; property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull; property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue; property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull; property NOTAS : IROStrings read GetNOTASValue; property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull; property OldNOTAS : IROStrings read GetOldNOTASValue; property OldNOTASIsNull : Boolean read GetOldNOTASIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property FECHA_NACIMIENTO : DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue; property FECHA_NACIMIENTOIsNull : Boolean read GetFECHA_NACIMIENTOIsNull write SetFECHA_NACIMIENTOIsNull; property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue; property OldFECHA_NACIMIENTOIsNull : Boolean read GetOldFECHA_NACIMIENTOIsNull; property CATEGORIA : String read GetCATEGORIAValue write SetCATEGORIAValue; property CATEGORIAIsNull : Boolean read GetCATEGORIAIsNull write SetCATEGORIAIsNull; property OldCATEGORIA : String read GetOldCATEGORIAValue; property OldCATEGORIAIsNull : Boolean read GetOldCATEGORIAIsNull; property FECHA_ALTA_EMPRESA : DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue; property FECHA_ALTA_EMPRESAIsNull : Boolean read GetFECHA_ALTA_EMPRESAIsNull write SetFECHA_ALTA_EMPRESAIsNull; property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue; property OldFECHA_ALTA_EMPRESAIsNull : Boolean read GetOldFECHA_ALTA_EMPRESAIsNull; property FORMACION_BASE : IROStrings read GetFORMACION_BASEValue; property FORMACION_BASEIsNull : Boolean read GetFORMACION_BASEIsNull write SetFORMACION_BASEIsNull; property OldFORMACION_BASE : IROStrings read GetOldFORMACION_BASEValue; property OldFORMACION_BASEIsNull : Boolean read GetOldFORMACION_BASEIsNull; property FORMACION_COMPLE : IROStrings read GetFORMACION_COMPLEValue; property FORMACION_COMPLEIsNull : Boolean read GetFORMACION_COMPLEIsNull write SetFORMACION_COMPLEIsNull; property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue; property OldFORMACION_COMPLEIsNull : Boolean read GetOldFORMACION_COMPLEIsNull; property FORMACION_RECIBIDA : IROStrings read GetFORMACION_RECIBIDAValue; property FORMACION_RECIBIDAIsNull : Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull; property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue; property OldFORMACION_RECIBIDAIsNull : Boolean read GetOldFORMACION_RECIBIDAIsNull; property EXPERIENCIA : IROStrings read GetEXPERIENCIAValue; property EXPERIENCIAIsNull : Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull; property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue; property OldEXPERIENCIAIsNull : Boolean read GetOldEXPERIENCIAIsNull; property CONTRATO : String read GetCONTRATOValue write SetCONTRATOValue; property CONTRATOIsNull : Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull; property OldCONTRATO : String read GetOldCONTRATOValue; property OldCONTRATOIsNull : Boolean read GetOldCONTRATOIsNull; property DURACION : String read GetDURACIONValue write SetDURACIONValue; property DURACIONIsNull : Boolean read GetDURACIONIsNull write SetDURACIONIsNull; property OldDURACION : String read GetOldDURACIONValue; property OldDURACIONIsNull : Boolean read GetOldDURACIONIsNull; property FECHA_BAJA : DateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue; property FECHA_BAJAIsNull : Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull; property OldFECHA_BAJA : DateTime read GetOldFECHA_BAJAValue; property OldFECHA_BAJAIsNull : Boolean read GetOldFECHA_BAJAIsNull; property CAUSA_BAJA : String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue; property CAUSA_BAJAIsNull : Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull; property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue; property OldCAUSA_BAJAIsNull : Boolean read GetOldCAUSA_BAJAIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) ['{6347EA22-511C-4C75-90F8-D91E30715F1F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; function GetOldCALLEValue : String; function GetOldPOBLACIONValue : String; function GetOldPROVINCIAValue : String; function GetOldCODIGO_POSTALValue : String; function GetOldPERSONA_CONTACTOValue : String; function GetOldNOMBREValue : String; function GetOldTELEFONOValue : String; function GetOldMOVILValue : String; function GetOldFAXValue : String; function GetOldEMAILValue : String; function GetOldNOTASValue : IROStrings; function GetOldPORTEValue : Float; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; { Properties } property OldID : Integer read GetOldIDValue; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldCALLE : String read GetOldCALLEValue; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldNOMBRE : String read GetOldNOMBREValue; 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; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; end; { TDireccionesContactoBusinessProcessorRules } TDireccionesContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IDireccionesContacto, IDireccionesContactoDelta) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CONTACTOValue: Integer; virtual; function GetID_CONTACTOIsNull: Boolean; virtual; function GetOldID_CONTACTOValue: Integer; virtual; function GetOldID_CONTACTOIsNull: Boolean; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; function GetCALLEIsNull: Boolean; virtual; function GetOldCALLEValue: String; virtual; function GetOldCALLEIsNull: Boolean; virtual; procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; function GetPOBLACIONIsNull: Boolean; virtual; function GetOldPOBLACIONValue: String; virtual; function GetOldPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; function GetPROVINCIAIsNull: Boolean; virtual; function GetOldPROVINCIAValue: String; virtual; function GetOldPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; function GetOldCODIGO_POSTALValue: String; virtual; function GetOldCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetTELEFONOValue: String; virtual; function GetTELEFONOIsNull: Boolean; virtual; function GetOldTELEFONOValue: String; virtual; function GetOldTELEFONOIsNull: Boolean; virtual; procedure SetTELEFONOValue(const aValue: String); virtual; procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; function GetMOVILValue: String; virtual; function GetMOVILIsNull: Boolean; virtual; function GetOldMOVILValue: String; virtual; function GetOldMOVILIsNull: Boolean; virtual; procedure SetMOVILValue(const aValue: String); virtual; procedure SetMOVILIsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; function GetFAXIsNull: Boolean; virtual; function GetOldFAXValue: String; virtual; function GetOldFAXIsNull: Boolean; virtual; procedure SetFAXValue(const aValue: String); virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAILValue: String; virtual; function GetEMAILIsNull: Boolean; virtual; function GetOldEMAILValue: String; virtual; function GetOldEMAILIsNull: Boolean; virtual; procedure SetEMAILValue(const aValue: String); virtual; procedure SetEMAILIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; function GetOldNOTASValue: IROStrings; virtual; function GetOldNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetPORTEValue: Float; virtual; function GetPORTEIsNull: Boolean; virtual; function GetOldPORTEValue: Float; virtual; function GetOldPORTEIsNull: Boolean; virtual; procedure SetPORTEValue(const aValue: Float); virtual; procedure SetPORTEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull; property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property OldCALLE : String read GetOldCALLEValue; property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue; property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; property OldTELEFONO : String read GetOldTELEFONOValue; property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull; property MOVIL : String read GetMOVILValue write SetMOVILValue; property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull; property OldMOVIL : String read GetOldMOVILValue; property OldMOVILIsNull : Boolean read GetOldMOVILIsNull; property FAX : String read GetFAXValue write SetFAXValue; property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull; property OldFAX : String read GetOldFAXValue; property OldFAXIsNull : Boolean read GetOldFAXIsNull; property EMAIL : String read GetEMAILValue write SetEMAILValue; property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull; property OldEMAIL : String read GetOldEMAILValue; property OldEMAILIsNull : Boolean read GetOldEMAILIsNull; property NOTAS : IROStrings read GetNOTASValue; property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull; property OldNOTAS : IROStrings read GetOldNOTASValue; property OldNOTASIsNull : Boolean read GetOldNOTASIsNull; property PORTE : Float read GetPORTEValue write SetPORTEValue; property PORTEIsNull : Boolean read GetPORTEIsNull write SetPORTEIsNull; property OldPORTE : Float read GetOldPORTEValue; property OldPORTEIsNull : Boolean read GetOldPORTEIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) ['{2D3F60B0-1CC5-4433-B456-A86E9DA14E0A}'] { 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 GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CLIENTEValue: Integer; virtual; function GetID_CLIENTEIsNull: Boolean; virtual; function GetOldID_CLIENTEValue: Integer; virtual; function GetOldID_CLIENTEIsNull: Boolean; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORIsNull: Boolean; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOValue: Float; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IGruposProveedorDelta } IGruposProveedorDelta = interface(IGruposProveedor) ['{2539EDFE-EC99-4837-B8FA-2F1349A7218E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; end; { TGruposProveedorBusinessProcessorRules } TGruposProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposProveedor, IGruposProveedorDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IGruposEmpleadoDelta } IGruposEmpleadoDelta = interface(IGruposEmpleado) ['{54EFCD4E-CB9A-4FC9-9EED-AB51DFD946E0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; end; { TGruposEmpleadoBusinessProcessorRules } TGruposEmpleadoBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposEmpleado, IGruposEmpleadoDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IContactos_RefreshDelta } IContactos_RefreshDelta = interface(IContactos_Refresh) ['{226A8008-F923-4749-A46D-6BF8E4010A12}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; function GetOldNOMBREValue : String; function GetOldCALLEValue : String; function GetOldPOBLACIONValue : String; function GetOldPROVINCIAValue : String; function GetOldCODIGO_POSTALValue : String; function GetOldTELEFONO_1Value : String; function GetOldTELEFONO_2Value : String; function GetOldMOVIL_1Value : String; function GetOldMOVIL_2Value : String; function GetOldFAXValue : String; function GetOldEMAIL_1Value : String; function GetOldEMAIL_2Value : String; function GetOldPAGINA_WEBValue : String; function GetOldNOTASValue : IROStrings; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldREFERENCIAValue : String; function GetOldPERSONA_CONTACTOValue : String; function GetOldPAISValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldCALLE : String read GetOldCALLEValue; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldTELEFONO_1 : String read GetOldTELEFONO_1Value; property OldTELEFONO_2 : String read GetOldTELEFONO_2Value; property OldMOVIL_1 : String read GetOldMOVIL_1Value; property OldMOVIL_2 : String read GetOldMOVIL_2Value; property OldFAX : String read GetOldFAXValue; property OldEMAIL_1 : String read GetOldEMAIL_1Value; property OldEMAIL_2 : String read GetOldEMAIL_2Value; property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue; property OldNOTAS : IROStrings read GetOldNOTASValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPAIS : String read GetOldPAISValue; end; { TContactos_RefreshBusinessProcessorRules } TContactos_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IContactos_Refresh, IContactos_RefreshDelta) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; function GetNIF_CIFIsNull: Boolean; virtual; function GetOldNIF_CIFValue: String; virtual; function GetOldNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; function GetCALLEIsNull: Boolean; virtual; function GetOldCALLEValue: String; virtual; function GetOldCALLEIsNull: Boolean; virtual; procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; function GetPOBLACIONIsNull: Boolean; virtual; function GetOldPOBLACIONValue: String; virtual; function GetOldPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; function GetPROVINCIAIsNull: Boolean; virtual; function GetOldPROVINCIAValue: String; virtual; function GetOldPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; function GetOldCODIGO_POSTALValue: String; virtual; function GetOldCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; function GetTELEFONO_1IsNull: Boolean; virtual; function GetOldTELEFONO_1Value: String; virtual; function GetOldTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; function GetTELEFONO_2IsNull: Boolean; virtual; function GetOldTELEFONO_2Value: String; virtual; function GetOldTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; function GetMOVIL_1IsNull: Boolean; virtual; function GetOldMOVIL_1Value: String; virtual; function GetOldMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; function GetMOVIL_2IsNull: Boolean; virtual; function GetOldMOVIL_2Value: String; virtual; function GetOldMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; function GetFAXIsNull: Boolean; virtual; function GetOldFAXValue: String; virtual; function GetOldFAXIsNull: Boolean; virtual; procedure SetFAXValue(const aValue: String); virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; function GetEMAIL_1IsNull: Boolean; virtual; function GetOldEMAIL_1Value: String; virtual; function GetOldEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; function GetEMAIL_2IsNull: Boolean; virtual; function GetOldEMAIL_2Value: String; virtual; function GetOldEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; function GetOldPAGINA_WEBValue: String; virtual; function GetOldPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; function GetOldNOTASValue: IROStrings; virtual; function GetOldNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; function GetUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; function GetPAISIsNull: Boolean; virtual; function GetOldPAISValue: String; virtual; function GetOldPAISIsNull: Boolean; virtual; procedure SetPAISValue(const aValue: String); virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property OldCALLE : String read GetOldCALLEValue; property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property OldTELEFONO_1 : String read GetOldTELEFONO_1Value; property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull; property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property OldTELEFONO_2 : String read GetOldTELEFONO_2Value; property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull; property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property OldMOVIL_1 : String read GetOldMOVIL_1Value; property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull; property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property OldMOVIL_2 : String read GetOldMOVIL_2Value; property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull; property FAX : String read GetFAXValue write SetFAXValue; property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull; property OldFAX : String read GetOldFAXValue; property OldFAXIsNull : Boolean read GetOldFAXIsNull; property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property OldEMAIL_1 : String read GetOldEMAIL_1Value; property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull; property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property OldEMAIL_2 : String read GetOldEMAIL_2Value; property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull; property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue; property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull; property NOTAS : IROStrings read GetNOTASValue; property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull; property OldNOTAS : IROStrings read GetOldNOTASValue; property OldNOTASIsNull : Boolean read GetOldNOTASIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; property PAIS : String read GetPAISValue write SetPAISValue; property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; property OldPAIS : String read GetOldPAISValue; property OldPAISIsNull : Boolean read GetOldPAISIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IContratosEmpleadosDelta } IContratosEmpleadosDelta = interface(IContratosEmpleados) ['{F0EF2BFC-3F06-4CE4-A38F-AD6B2F50960D}'] { Property getters and setters } function GetOldCONTRATOValue : String; { Properties } property OldCONTRATO : String read GetOldCONTRATOValue; end; { TContratosEmpleadosBusinessProcessorRules } TContratosEmpleadosBusinessProcessorRules = class(TDABusinessProcessorRules, IContratosEmpleados, IContratosEmpleadosDelta) private protected { Property getters and setters } function GetCONTRATOValue: String; virtual; function GetCONTRATOIsNull: Boolean; virtual; function GetOldCONTRATOValue: String; virtual; function GetOldCONTRATOIsNull: Boolean; virtual; procedure SetCONTRATOValue(const aValue: String); virtual; procedure SetCONTRATOIsNull(const aValue: Boolean); virtual; { Properties } property CONTRATO : String read GetCONTRATOValue write SetCONTRATOValue; property CONTRATOIsNull : Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull; property OldCONTRATO : String read GetOldCONTRATOValue; property OldCONTRATOIsNull : Boolean read GetOldCONTRATOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDescripcionesProveedoresDelta } IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) ['{CC535BC1-65AC-43A7-822E-D73A2BC64D1D}'] { Property getters and setters } function GetOldDESCRIPCION_PROVEEDORValue : String; { Properties } property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue; end; { TDescripcionesProveedoresBusinessProcessorRules } TDescripcionesProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IDescripcionesProveedores, IDescripcionesProveedoresDelta) private protected { Property getters and setters } function GetDESCRIPCION_PROVEEDORValue: String; virtual; function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual; function GetOldDESCRIPCION_PROVEEDORValue: String; virtual; function GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; virtual; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual; procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); virtual; { Properties } property DESCRIPCION_PROVEEDOR : String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDORIsNull : Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue; property OldDESCRIPCION_PROVEEDORIsNull : Boolean read GetOldDESCRIPCION_PROVEEDORIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IPersonalContactoDelta } IPersonalContactoDelta = interface(IPersonalContacto) ['{0B0793EF-FBA3-4104-8F17-B0C1EB078D22}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; function GetOldNOMBREValue : String; function GetOldPUESTOValue : String; function GetOldTELEFONOValue : String; function GetOldMOVILValue : String; function GetOldFAXValue : String; function GetOldEMAILValue : String; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; { Properties } property OldID : Integer read GetOldIDValue; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldPUESTO : String read GetOldPUESTOValue; property OldTELEFONO : String read GetOldTELEFONOValue; property OldMOVIL : String read GetOldMOVILValue; property OldFAX : String read GetOldFAXValue; property OldEMAIL : String read GetOldEMAILValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; end; { TPersonalContactoBusinessProcessorRules } TPersonalContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IPersonalContacto, IPersonalContactoDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CONTACTOValue: Integer; virtual; function GetID_CONTACTOIsNull: Boolean; virtual; function GetOldID_CONTACTOValue: Integer; virtual; function GetOldID_CONTACTOIsNull: Boolean; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPUESTOValue: String; virtual; function GetPUESTOIsNull: Boolean; virtual; function GetOldPUESTOValue: String; virtual; function GetOldPUESTOIsNull: Boolean; virtual; procedure SetPUESTOValue(const aValue: String); virtual; procedure SetPUESTOIsNull(const aValue: Boolean); virtual; function GetTELEFONOValue: String; virtual; function GetTELEFONOIsNull: Boolean; virtual; function GetOldTELEFONOValue: String; virtual; function GetOldTELEFONOIsNull: Boolean; virtual; procedure SetTELEFONOValue(const aValue: String); virtual; procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; function GetMOVILValue: String; virtual; function GetMOVILIsNull: Boolean; virtual; function GetOldMOVILValue: String; virtual; function GetOldMOVILIsNull: Boolean; virtual; procedure SetMOVILValue(const aValue: String); virtual; procedure SetMOVILIsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; function GetFAXIsNull: Boolean; virtual; function GetOldFAXValue: String; virtual; function GetOldFAXIsNull: Boolean; virtual; procedure SetFAXValue(const aValue: String); virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAILValue: String; virtual; function GetEMAILIsNull: Boolean; virtual; function GetOldEMAILValue: String; virtual; function GetOldEMAILIsNull: Boolean; virtual; procedure SetEMAILValue(const aValue: String); virtual; procedure SetEMAILIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property PUESTO : String read GetPUESTOValue write SetPUESTOValue; property PUESTOIsNull : Boolean read GetPUESTOIsNull write SetPUESTOIsNull; property OldPUESTO : String read GetOldPUESTOValue; property OldPUESTOIsNull : Boolean read GetOldPUESTOIsNull; property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue; property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; property OldTELEFONO : String read GetOldTELEFONOValue; property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull; property MOVIL : String read GetMOVILValue write SetMOVILValue; property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull; property OldMOVIL : String read GetOldMOVILValue; property OldMOVILIsNull : Boolean read GetOldMOVILIsNull; property FAX : String read GetFAXValue write SetFAXValue; property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull; property OldFAX : String read GetOldFAXValue; property OldFAXIsNull : Boolean read GetOldFAXIsNull; property EMAIL : String read GetEMAILValue write SetEMAILValue; property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull; property OldEMAIL : String read GetOldEMAILValue; property OldEMAILIsNull : Boolean read GetOldEMAILIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers, uDAInterfaces; { TContactosBusinessProcessorRules } constructor TContactosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TContactosBusinessProcessorRules.Destroy; begin inherited; end; procedure TContactosBusinessProcessorRules.NOTAS_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := TStringList(Sender).Text; end; function TContactosBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID]; end; function TContactosBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID]; end; function TContactosBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID] := aValue; end; procedure TContactosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID] := Null; end; function TContactosBusinessProcessorRules.GetID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA]; end; function TContactosBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA]; end; function TContactosBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA] := aValue; end; procedure TContactosBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA] := Null; end; function TContactosBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF]; end; function TContactosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF]; end; function TContactosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF] := aValue; end; procedure TContactosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF] := Null; end; function TContactosBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE]; end; function TContactosBusinessProcessorRules.GetNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE]; end; function TContactosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE] := aValue; end; procedure TContactosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE] := Null; end; function TContactosBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO]; end; function TContactosBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO]; end; function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO] := aValue; end; procedure TContactosBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO] := Null; end; function TContactosBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE]; end; function TContactosBusinessProcessorRules.GetCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE]; end; function TContactosBusinessProcessorRules.GetOldCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE] := aValue; end; procedure TContactosBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE] := Null; end; function TContactosBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION]; end; function TContactosBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION]; end; function TContactosBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION] := aValue; end; procedure TContactosBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION] := Null; end; function TContactosBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA]; end; function TContactosBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA]; end; function TContactosBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA] := aValue; end; procedure TContactosBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA] := Null; end; function TContactosBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL]; end; function TContactosBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL]; end; function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL] := aValue; end; procedure TContactosBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL] := Null; end; function TContactosBusinessProcessorRules.GetTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1]; end; function TContactosBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1]; end; function TContactosBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1] := aValue; end; procedure TContactosBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1] := Null; end; function TContactosBusinessProcessorRules.GetTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2]; end; function TContactosBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2]; end; function TContactosBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2] := aValue; end; procedure TContactosBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2] := Null; end; function TContactosBusinessProcessorRules.GetMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1]; end; function TContactosBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1]; end; function TContactosBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1] := aValue; end; procedure TContactosBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1] := Null; end; function TContactosBusinessProcessorRules.GetMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2]; end; function TContactosBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2]; end; function TContactosBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2] := aValue; end; procedure TContactosBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2] := Null; end; function TContactosBusinessProcessorRules.GetFAXValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX]; end; function TContactosBusinessProcessorRules.GetFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldFAXValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX]; end; function TContactosBusinessProcessorRules.GetOldFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetFAXValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX] := aValue; end; procedure TContactosBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX] := Null; end; function TContactosBusinessProcessorRules.GetEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1]; end; function TContactosBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1]; end; function TContactosBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1] := aValue; end; procedure TContactosBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1] := Null; end; function TContactosBusinessProcessorRules.GetEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2]; end; function TContactosBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2]; end; function TContactosBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2] := aValue; end; procedure TContactosBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2] := Null; end; function TContactosBusinessProcessorRules.GetPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB]; end; function TContactosBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB]; end; function TContactosBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB] := aValue; end; procedure TContactosBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB] := Null; end; function TContactosBusinessProcessorRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS]; end; function TContactosBusinessProcessorRules.GetNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS]; end; function TContactosBusinessProcessorRules.GetOldNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := Null; end; function TContactosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA]; end; function TContactosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA]; end; function TContactosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA] := aValue; end; procedure TContactosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA] := Null; end; function TContactosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION]; end; function TContactosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION]; end; function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION] := aValue; end; procedure TContactosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION] := Null; end; function TContactosBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO]; end; function TContactosBusinessProcessorRules.GetUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO]; end; function TContactosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO] := aValue; end; procedure TContactosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO] := Null; end; function TContactosBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA]; end; function TContactosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA]; end; function TContactosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA] := aValue; end; procedure TContactosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA] := Null; end; function TContactosBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA]; end; function TContactosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA]; end; function TContactosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := aValue; end; procedure TContactosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := Null; end; function TContactosBusinessProcessorRules.GetPAISValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS]; end; function TContactosBusinessProcessorRules.GetPAISIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS]; result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldPAISValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAIS]; end; function TContactosBusinessProcessorRules.GetOldPAISIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAIS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetPAISValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS] := aValue; end; procedure TContactosBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS] := Null; end; { TGruposClienteBusinessProcessorRules } constructor TGruposClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TGruposClienteBusinessProcessorRules.Destroy; begin inherited; end; function TGruposClienteBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID]; end; function TGruposClienteBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID]; result := VarIsNull(v) or VarIsClear(v); end; function TGruposClienteBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteID]; end; function TGruposClienteBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposClienteBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID] := aValue; end; procedure TGruposClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID] := Null; end; function TGruposClienteBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION]; end; function TGruposClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION]; result := VarIsNull(v) or VarIsClear(v); end; function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION]; end; function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION] := aValue; end; procedure TGruposClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION] := Null; 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.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID]; result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID]; end; function TDatosBancariosBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID] := aValue; end; procedure TDatosBancariosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID] := Null; end; function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO]; end; function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO]; end; function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO] := aValue; end; procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO] := Null; end; function TDatosBancariosBusinessProcessorRules.GetTITULARValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR]; end; function TDatosBancariosBusinessProcessorRules.GetTITULARIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR]; result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldTITULARValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR]; end; function TDatosBancariosBusinessProcessorRules.GetOldTITULARIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetTITULARValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR] := aValue; end; procedure TDatosBancariosBusinessProcessorRules.SetTITULARIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR] := Null; end; function TDatosBancariosBusinessProcessorRules.GetENTIDADValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD]; end; function TDatosBancariosBusinessProcessorRules.GetENTIDADIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD]; result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldENTIDADValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD]; end; function TDatosBancariosBusinessProcessorRules.GetOldENTIDADIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetENTIDADValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD] := aValue; end; procedure TDatosBancariosBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD] := Null; end; function TDatosBancariosBusinessProcessorRules.GetSUCURSALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL]; end; function TDatosBancariosBusinessProcessorRules.GetSUCURSALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL]; result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL]; end; function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL] := aValue; end; procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL] := Null; end; function TDatosBancariosBusinessProcessorRules.GetDCValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC]; end; function TDatosBancariosBusinessProcessorRules.GetDCIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC]; result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldDCValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC]; end; function TDatosBancariosBusinessProcessorRules.GetOldDCIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetDCValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC] := aValue; end; procedure TDatosBancariosBusinessProcessorRules.SetDCIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC] := Null; end; function TDatosBancariosBusinessProcessorRules.GetCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA]; end; function TDatosBancariosBusinessProcessorRules.GetCUENTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA]; result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA]; end; function TDatosBancariosBusinessProcessorRules.GetOldCUENTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA] := aValue; end; procedure TDatosBancariosBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA] := Null; end; function TDatosBancariosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA]; end; function TDatosBancariosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_ALTA]; end; function TDatosBancariosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA] := aValue; end; procedure TDatosBancariosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA] := Null; end; function TDatosBancariosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION]; end; function TDatosBancariosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_MODIFICACION]; end; function TDatosBancariosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION] := aValue; end; procedure TDatosBancariosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION] := Null; end; { TVendedoresBusinessProcessorRules } constructor TVendedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TVendedoresBusinessProcessorRules.Destroy; begin inherited; end; procedure TVendedoresBusinessProcessorRules.NOTAS_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS] := TStringList(Sender).Text; end; function TVendedoresBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID]; end; function TVendedoresBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID]; end; function TVendedoresBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID] := Null; end; function TVendedoresBusinessProcessorRules.GetID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA]; end; function TVendedoresBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_CATEGORIA]; end; function TVendedoresBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_CATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA] := Null; end; function TVendedoresBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF]; end; function TVendedoresBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNIF_CIF]; end; function TVendedoresBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF] := Null; end; function TVendedoresBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE]; end; function TVendedoresBusinessProcessorRules.GetNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOMBRE]; end; function TVendedoresBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE] := Null; end; function TVendedoresBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPERSONA_CONTACTO]; end; function TVendedoresBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPERSONA_CONTACTO]; end; function TVendedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPERSONA_CONTACTO] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPERSONA_CONTACTO] := Null; end; function TVendedoresBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE]; end; function TVendedoresBusinessProcessorRules.GetCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCALLE]; end; function TVendedoresBusinessProcessorRules.GetOldCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCALLE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE] := Null; end; function TVendedoresBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION]; end; function TVendedoresBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPOBLACION]; end; function TVendedoresBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION] := Null; end; function TVendedoresBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA]; end; function TVendedoresBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPROVINCIA]; end; function TVendedoresBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA] := Null; end; function TVendedoresBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL]; end; function TVendedoresBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCODIGO_POSTAL]; end; function TVendedoresBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL] := Null; end; function TVendedoresBusinessProcessorRules.GetTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1]; end; function TVendedoresBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_1]; end; function TVendedoresBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1] := Null; end; function TVendedoresBusinessProcessorRules.GetTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2]; end; function TVendedoresBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_2]; end; function TVendedoresBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2] := Null; end; function TVendedoresBusinessProcessorRules.GetMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1]; end; function TVendedoresBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_1]; end; function TVendedoresBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1] := Null; end; function TVendedoresBusinessProcessorRules.GetMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2]; end; function TVendedoresBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_2]; end; function TVendedoresBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2] := Null; end; function TVendedoresBusinessProcessorRules.GetFAXValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX]; end; function TVendedoresBusinessProcessorRules.GetFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldFAXValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFAX]; end; function TVendedoresBusinessProcessorRules.GetOldFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFAX]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetFAXValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX] := Null; end; function TVendedoresBusinessProcessorRules.GetEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1]; end; function TVendedoresBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_1]; end; function TVendedoresBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1] := Null; end; function TVendedoresBusinessProcessorRules.GetEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2]; end; function TVendedoresBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_2]; end; function TVendedoresBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2] := Null; end; function TVendedoresBusinessProcessorRules.GetPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB]; end; function TVendedoresBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAGINA_WEB]; end; function TVendedoresBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB] := Null; end; function TVendedoresBusinessProcessorRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS]; end; function TVendedoresBusinessProcessorRules.GetNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOTAS]; end; function TVendedoresBusinessProcessorRules.GetOldNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS] := Null; end; function TVendedoresBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA]; end; function TVendedoresBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_ALTA]; end; function TVendedoresBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA] := Null; end; function TVendedoresBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION]; end; function TVendedoresBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_MODIFICACION]; end; function TVendedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION] := Null; end; function TVendedoresBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO]; end; function TVendedoresBusinessProcessorRules.GetUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresUSUARIO]; end; function TVendedoresBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO] := Null; end; function TVendedoresBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA]; end; function TVendedoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_EMPRESA]; end; function TVendedoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA] := Null; end; function TVendedoresBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA]; end; function TVendedoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresREFERENCIA]; end; function TVendedoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA] := Null; end; function TVendedoresBusinessProcessorRules.GetPAISValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS]; end; function TVendedoresBusinessProcessorRules.GetPAISIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldPAISValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAIS]; end; function TVendedoresBusinessProcessorRules.GetOldPAISIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAIS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetPAISValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS] := Null; end; function TVendedoresBusinessProcessorRules.GetCOMISIONValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION]; end; function TVendedoresBusinessProcessorRules.GetCOMISIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION]; result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldCOMISIONValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCOMISION]; end; function TVendedoresBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCOMISION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetCOMISIONValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION] := aValue; end; procedure TVendedoresBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION] := Null; end; { TClientesBusinessProcessorRules } constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TClientesBusinessProcessorRules.Destroy; begin inherited; end; procedure TClientesBusinessProcessorRules.NOTAS_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := TStringList(Sender).Text; end; function TClientesBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID]; end; function TClientesBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID]; end; function TClientesBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID] := aValue; end; procedure TClientesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID] := Null; end; function TClientesBusinessProcessorRules.GetID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA]; end; function TClientesBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA]; end; function TClientesBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA] := aValue; end; procedure TClientesBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA] := Null; end; function TClientesBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF]; end; function TClientesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF]; end; function TClientesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF] := aValue; end; procedure TClientesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF] := Null; end; function TClientesBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE]; end; function TClientesBusinessProcessorRules.GetNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE]; end; function TClientesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE] := aValue; end; procedure TClientesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE] := Null; end; function TClientesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO]; end; function TClientesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO]; end; function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO] := aValue; end; procedure TClientesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO] := Null; end; function TClientesBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE]; end; function TClientesBusinessProcessorRules.GetCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE]; end; function TClientesBusinessProcessorRules.GetOldCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE] := aValue; end; procedure TClientesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE] := Null; end; function TClientesBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION]; end; function TClientesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION]; end; function TClientesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION] := aValue; end; procedure TClientesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION] := Null; end; function TClientesBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA]; end; function TClientesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA]; end; function TClientesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA] := aValue; end; procedure TClientesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA] := Null; end; function TClientesBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL]; end; function TClientesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL]; end; function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL] := aValue; end; procedure TClientesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL] := Null; end; function TClientesBusinessProcessorRules.GetTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1]; end; function TClientesBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1]; end; function TClientesBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1] := aValue; end; procedure TClientesBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1] := Null; end; function TClientesBusinessProcessorRules.GetTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2]; end; function TClientesBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2]; end; function TClientesBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2] := aValue; end; procedure TClientesBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2] := Null; end; function TClientesBusinessProcessorRules.GetMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1]; end; function TClientesBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1]; end; function TClientesBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1] := aValue; end; procedure TClientesBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1] := Null; end; function TClientesBusinessProcessorRules.GetMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2]; end; function TClientesBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2]; end; function TClientesBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2] := aValue; end; procedure TClientesBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2] := Null; end; function TClientesBusinessProcessorRules.GetFAXValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX]; end; function TClientesBusinessProcessorRules.GetFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldFAXValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX]; end; function TClientesBusinessProcessorRules.GetOldFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetFAXValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX] := aValue; end; procedure TClientesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX] := Null; end; function TClientesBusinessProcessorRules.GetEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1]; end; function TClientesBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1]; end; function TClientesBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1] := aValue; end; procedure TClientesBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1] := Null; end; function TClientesBusinessProcessorRules.GetEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2]; end; function TClientesBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2]; end; function TClientesBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2] := aValue; end; procedure TClientesBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2] := Null; end; function TClientesBusinessProcessorRules.GetPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB]; end; function TClientesBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB]; end; function TClientesBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB] := aValue; end; procedure TClientesBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB] := Null; end; function TClientesBusinessProcessorRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS]; end; function TClientesBusinessProcessorRules.GetNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS]; end; function TClientesBusinessProcessorRules.GetOldNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := Null; end; function TClientesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA]; end; function TClientesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA]; end; function TClientesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA] := aValue; end; procedure TClientesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA] := Null; end; function TClientesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION]; end; function TClientesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION]; end; function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION] := aValue; end; procedure TClientesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION] := Null; end; function TClientesBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO]; end; function TClientesBusinessProcessorRules.GetUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO]; end; function TClientesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO] := aValue; end; procedure TClientesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO] := Null; end; function TClientesBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA]; end; function TClientesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA]; end; function TClientesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA] := aValue; end; procedure TClientesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA] := Null; end; function TClientesBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA]; end; function TClientesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA]; end; function TClientesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := aValue; end; procedure TClientesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := Null; end; function TClientesBusinessProcessorRules.GetPAISValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS]; end; function TClientesBusinessProcessorRules.GetPAISIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldPAISValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAIS]; end; function TClientesBusinessProcessorRules.GetOldPAISIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAIS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetPAISValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS] := aValue; end; procedure TClientesBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS] := Null; end; function TClientesBusinessProcessorRules.GetID_AGENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE]; end; function TClientesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldID_AGENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_AGENTE]; end; function TClientesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_AGENTE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE] := aValue; end; procedure TClientesBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE] := Null; end; function TClientesBusinessProcessorRules.GetCOMISIONValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCOMISION]; end; function TClientesBusinessProcessorRules.GetCOMISIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCOMISION]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldCOMISIONValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCOMISION]; end; function TClientesBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCOMISION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetCOMISIONValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCOMISION] := aValue; end; procedure TClientesBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCOMISION] := Null; end; function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; end; function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE]; end; function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE] := aValue; end; procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE] := Null; end; function TClientesBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; end; function TClientesBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL]; end; function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := aValue; end; procedure TClientesBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null; end; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; end; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := aValue; end; procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := Null; end; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; end; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := aValue; end; procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := Null; end; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; end; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := aValue; end; procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := Null; end; function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]; end; function TClientesBusinessProcessorRules.GetBLOQUEADOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldBLOQUEADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO]; end; function TClientesBusinessProcessorRules.GetOldBLOQUEADOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetBLOQUEADOValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO] := aValue; end; procedure TClientesBusinessProcessorRules.SetBLOQUEADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO] := Null; end; function TClientesBusinessProcessorRules.GetREGIMEN_IVAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA]; end; function TClientesBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA]; end; function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA] := aValue; end; procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA] := Null; end; function TClientesBusinessProcessorRules.GetMOTIVO_BLOQUEOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; end; function TClientesBusinessProcessorRules.GetMOTIVO_BLOQUEOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO]; end; function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetMOTIVO_BLOQUEOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO] := aValue; end; procedure TClientesBusinessProcessorRules.SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO] := Null; end; function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; end; function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; end; function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := aValue; end; procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := Null; end; function TClientesBusinessProcessorRules.GetID_TIPO_IVAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA]; end; function TClientesBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA]; end; function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA] := aValue; end; procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA] := Null; end; function TClientesBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; end; function TClientesBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO]; end; function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO] := aValue; end; procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO] := Null; end; function TClientesBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB]; end; function TClientesBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB]; end; function TClientesBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := aValue; end; procedure TClientesBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := Null; end; function TClientesBusinessProcessorRules.GetDESCUENTOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]; end; function TClientesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldDESCUENTOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]; end; function TClientesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := aValue; end; procedure TClientesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := Null; end; function TClientesBusinessProcessorRules.GetDESCUENTO2Value: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2]; end; function TClientesBusinessProcessorRules.GetDESCUENTO2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldDESCUENTO2Value: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO2]; end; function TClientesBusinessProcessorRules.GetOldDESCUENTO2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2] := aValue; end; procedure TClientesBusinessProcessorRules.SetDESCUENTO2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2] := Null; end; function TClientesBusinessProcessorRules.GetFELICITACIONValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION]; end; function TClientesBusinessProcessorRules.GetFELICITACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldFELICITACIONValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFELICITACION]; end; function TClientesBusinessProcessorRules.GetOldFELICITACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFELICITACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetFELICITACIONValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION] := aValue; end; procedure TClientesBusinessProcessorRules.SetFELICITACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION] := Null; end; { TProveedoresBusinessProcessorRules } constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TProveedoresBusinessProcessorRules.Destroy; begin inherited; end; procedure TProveedoresBusinessProcessorRules.NOTAS_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := TStringList(Sender).Text; end; function TProveedoresBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID]; end; function TProveedoresBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID]; end; function TProveedoresBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID] := Null; end; function TProveedoresBusinessProcessorRules.GetID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA]; end; function TProveedoresBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA]; end; function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA] := Null; end; function TProveedoresBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF]; end; function TProveedoresBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF]; end; function TProveedoresBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF] := Null; end; function TProveedoresBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE]; end; function TProveedoresBusinessProcessorRules.GetNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE]; end; function TProveedoresBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE] := Null; end; function TProveedoresBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO]; end; function TProveedoresBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO]; end; function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO] := Null; end; function TProveedoresBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE]; end; function TProveedoresBusinessProcessorRules.GetCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE]; end; function TProveedoresBusinessProcessorRules.GetOldCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE] := Null; end; function TProveedoresBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION]; end; function TProveedoresBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION]; end; function TProveedoresBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION] := Null; end; function TProveedoresBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA]; end; function TProveedoresBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA]; end; function TProveedoresBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA] := Null; end; function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL]; end; function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL]; end; function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL] := Null; end; function TProveedoresBusinessProcessorRules.GetTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1]; end; function TProveedoresBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1]; end; function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1] := Null; end; function TProveedoresBusinessProcessorRules.GetTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2]; end; function TProveedoresBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2]; end; function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2] := Null; end; function TProveedoresBusinessProcessorRules.GetMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1]; end; function TProveedoresBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1]; end; function TProveedoresBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1] := Null; end; function TProveedoresBusinessProcessorRules.GetMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2]; end; function TProveedoresBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2]; end; function TProveedoresBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2] := Null; end; function TProveedoresBusinessProcessorRules.GetFAXValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX]; end; function TProveedoresBusinessProcessorRules.GetFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldFAXValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX]; end; function TProveedoresBusinessProcessorRules.GetOldFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetFAXValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX] := Null; end; function TProveedoresBusinessProcessorRules.GetEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1]; end; function TProveedoresBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1]; end; function TProveedoresBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1] := Null; end; function TProveedoresBusinessProcessorRules.GetEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2]; end; function TProveedoresBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2]; end; function TProveedoresBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2] := Null; end; function TProveedoresBusinessProcessorRules.GetPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB]; end; function TProveedoresBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB]; end; function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB] := Null; end; function TProveedoresBusinessProcessorRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS]; end; function TProveedoresBusinessProcessorRules.GetNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS]; end; function TProveedoresBusinessProcessorRules.GetOldNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := Null; end; function TProveedoresBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA]; end; function TProveedoresBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA]; end; function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA] := Null; end; function TProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION]; end; function TProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION]; end; function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION] := Null; end; function TProveedoresBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO]; end; function TProveedoresBusinessProcessorRules.GetUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO]; end; function TProveedoresBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO] := Null; end; function TProveedoresBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA]; end; function TProveedoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA]; end; function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA] := Null; end; function TProveedoresBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA]; end; function TProveedoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA]; end; function TProveedoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := Null; end; function TProveedoresBusinessProcessorRules.GetPAISValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS]; end; function TProveedoresBusinessProcessorRules.GetPAISIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldPAISValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS]; end; function TProveedoresBusinessProcessorRules.GetOldPAISIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetPAISValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS] := Null; end; function TProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO]; end; function TProveedoresBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO]; end; function TProveedoresBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO] := Null; end; function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; end; function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; end; function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := Null; end; function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; end; function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; end; function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetGRUPO_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetGRUPO_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR] := Null; end; function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]; end; function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA]; end; function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := Null; end; function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]; end; function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA]; end; function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA] := Null; end; function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]; end; function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO]; end; function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO] := Null; end; function TProveedoresBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB]; end; function TProveedoresBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB]; end; function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := Null; end; function TProveedoresBusinessProcessorRules.GetHOMOLOGADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO]; end; function TProveedoresBusinessProcessorRules.GetHOMOLOGADOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO]; end; function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO] := Null; end; function TProveedoresBusinessProcessorRules.GetCERTIFICACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION]; end; function TProveedoresBusinessProcessorRules.GetCERTIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION]; end; function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := Null; end; function TProveedoresBusinessProcessorRules.GetSUBCONTRATAValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA]; end; function TProveedoresBusinessProcessorRules.GetSUBCONTRATAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldSUBCONTRATAValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresSUBCONTRATA]; end; function TProveedoresBusinessProcessorRules.GetOldSUBCONTRATAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresSUBCONTRATA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetSUBCONTRATAValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetSUBCONTRATAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA] := Null; end; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; end; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := Null; end; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; end; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := Null; end; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; end; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := aValue; end; procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := Null; end; { TEmpleadosBusinessProcessorRules } constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); StrList := TStringList.Create; StrList.OnChange := FORMACION_BASE_OnChange; f_FORMACION_BASE := NewROStrings(StrList,True); StrList := TStringList.Create; StrList.OnChange := FORMACION_COMPLE_OnChange; f_FORMACION_COMPLE := NewROStrings(StrList,True); StrList := TStringList.Create; StrList.OnChange := FORMACION_RECIBIDA_OnChange; f_FORMACION_RECIBIDA := NewROStrings(StrList,True); StrList := TStringList.Create; StrList.OnChange := EXPERIENCIA_OnChange; f_EXPERIENCIA := NewROStrings(StrList,True); end; destructor TEmpleadosBusinessProcessorRules.Destroy; begin inherited; end; procedure TEmpleadosBusinessProcessorRules.NOTAS_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS] := TStringList(Sender).Text; end; procedure TEmpleadosBusinessProcessorRules.FORMACION_BASE_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE] := TStringList(Sender).Text; end; procedure TEmpleadosBusinessProcessorRules.FORMACION_COMPLE_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE] := TStringList(Sender).Text; end; procedure TEmpleadosBusinessProcessorRules.FORMACION_RECIBIDA_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA] := TStringList(Sender).Text; end; procedure TEmpleadosBusinessProcessorRules.EXPERIENCIA_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := TStringList(Sender).Text; end; function TEmpleadosBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID]; end; function TEmpleadosBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID]; end; function TEmpleadosBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID] := Null; end; function TEmpleadosBusinessProcessorRules.GetID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA]; end; function TEmpleadosBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_CATEGORIA]; end; function TEmpleadosBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_CATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA] := Null; end; function TEmpleadosBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF]; end; function TEmpleadosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNIF_CIF]; end; function TEmpleadosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF] := Null; end; function TEmpleadosBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE]; end; function TEmpleadosBusinessProcessorRules.GetNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOMBRE]; end; function TEmpleadosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE] := Null; end; function TEmpleadosBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO]; end; function TEmpleadosBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPERSONA_CONTACTO]; end; function TEmpleadosBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO] := Null; end; function TEmpleadosBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE]; end; function TEmpleadosBusinessProcessorRules.GetCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE]; end; function TEmpleadosBusinessProcessorRules.GetOldCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE] := Null; end; function TEmpleadosBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION]; end; function TEmpleadosBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPOBLACION]; end; function TEmpleadosBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION] := Null; end; function TEmpleadosBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA]; end; function TEmpleadosBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPROVINCIA]; end; function TEmpleadosBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA] := Null; end; function TEmpleadosBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL]; end; function TEmpleadosBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCODIGO_POSTAL]; end; function TEmpleadosBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL] := Null; end; function TEmpleadosBusinessProcessorRules.GetTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1]; end; function TEmpleadosBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_1]; end; function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1] := Null; end; function TEmpleadosBusinessProcessorRules.GetTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2]; end; function TEmpleadosBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_2]; end; function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2] := Null; end; function TEmpleadosBusinessProcessorRules.GetMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1]; end; function TEmpleadosBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_1]; end; function TEmpleadosBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1] := Null; end; function TEmpleadosBusinessProcessorRules.GetMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2]; end; function TEmpleadosBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_2]; end; function TEmpleadosBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2] := Null; end; function TEmpleadosBusinessProcessorRules.GetFAXValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX]; end; function TEmpleadosBusinessProcessorRules.GetFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFAXValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFAX]; end; function TEmpleadosBusinessProcessorRules.GetOldFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFAX]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFAXValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX] := Null; end; function TEmpleadosBusinessProcessorRules.GetEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1]; end; function TEmpleadosBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_1]; end; function TEmpleadosBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1] := Null; end; function TEmpleadosBusinessProcessorRules.GetEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2]; end; function TEmpleadosBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_2]; end; function TEmpleadosBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2] := Null; end; function TEmpleadosBusinessProcessorRules.GetPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB]; end; function TEmpleadosBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAGINA_WEB]; end; function TEmpleadosBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB] := Null; end; function TEmpleadosBusinessProcessorRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS]; end; function TEmpleadosBusinessProcessorRules.GetNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOTAS]; end; function TEmpleadosBusinessProcessorRules.GetOldNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS] := Null; end; function TEmpleadosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA]; end; function TEmpleadosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA]; end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA] := Null; end; function TEmpleadosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION]; end; function TEmpleadosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_MODIFICACION]; end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION] := Null; end; function TEmpleadosBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO]; end; function TEmpleadosBusinessProcessorRules.GetUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosUSUARIO]; end; function TEmpleadosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO] := Null; end; function TEmpleadosBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA]; end; function TEmpleadosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_EMPRESA]; end; function TEmpleadosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA] := Null; end; function TEmpleadosBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA]; end; function TEmpleadosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosREFERENCIA]; end; function TEmpleadosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA] := Null; end; function TEmpleadosBusinessProcessorRules.GetFECHA_NACIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO]; end; function TEmpleadosBusinessProcessorRules.GetFECHA_NACIMIENTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_NACIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_NACIMIENTO]; end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_NACIMIENTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_NACIMIENTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_NACIMIENTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_NACIMIENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO] := Null; end; function TEmpleadosBusinessProcessorRules.GetCATEGORIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA]; end; function TEmpleadosBusinessProcessorRules.GetCATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA]; end; function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetCATEGORIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetCATEGORIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA] := Null; end; function TEmpleadosBusinessProcessorRules.GetFECHA_ALTA_EMPRESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]; end; function TEmpleadosBusinessProcessorRules.GetFECHA_ALTA_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]; end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA] := Null; end; function TEmpleadosBusinessProcessorRules.GetFORMACION_BASEValue: IROStrings; begin result := f_FORMACION_BASE; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE]; end; function TEmpleadosBusinessProcessorRules.GetFORMACION_BASEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_BASEValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_BASE]; end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_BASEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_BASE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFORMACION_BASEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE] := Null; end; function TEmpleadosBusinessProcessorRules.GetFORMACION_COMPLEValue: IROStrings; begin result := f_FORMACION_COMPLE; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE]; end; function TEmpleadosBusinessProcessorRules.GetFORMACION_COMPLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_COMPLEValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_COMPLE]; end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_COMPLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_COMPLE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFORMACION_COMPLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE] := Null; end; function TEmpleadosBusinessProcessorRules.GetFORMACION_RECIBIDAValue: IROStrings; begin result := f_FORMACION_RECIBIDA; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA]; end; function TEmpleadosBusinessProcessorRules.GetFORMACION_RECIBIDAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_RECIBIDAValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_RECIBIDA]; end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_RECIBIDAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_RECIBIDA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFORMACION_RECIBIDAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA] := Null; end; function TEmpleadosBusinessProcessorRules.GetEXPERIENCIAValue: IROStrings; begin result := f_EXPERIENCIA; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA]; end; function TEmpleadosBusinessProcessorRules.GetEXPERIENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldEXPERIENCIAValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEXPERIENCIA]; end; function TEmpleadosBusinessProcessorRules.GetOldEXPERIENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEXPERIENCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetEXPERIENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := Null; end; function TEmpleadosBusinessProcessorRules.GetCONTRATOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO]; end; function TEmpleadosBusinessProcessorRules.GetCONTRATOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldCONTRATOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCONTRATO]; end; function TEmpleadosBusinessProcessorRules.GetOldCONTRATOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCONTRATO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetCONTRATOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetCONTRATOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO] := Null; end; function TEmpleadosBusinessProcessorRules.GetDURACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION]; end; function TEmpleadosBusinessProcessorRules.GetDURACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldDURACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosDURACION]; end; function TEmpleadosBusinessProcessorRules.GetOldDURACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosDURACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetDURACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetDURACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION] := Null; end; function TEmpleadosBusinessProcessorRules.GetFECHA_BAJAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_BAJA]; end; function TEmpleadosBusinessProcessorRules.GetFECHA_BAJAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_BAJA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_BAJAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_BAJA]; end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_BAJAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_BAJA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_BAJAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_BAJA] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_BAJAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_BAJA] := Null; end; function TEmpleadosBusinessProcessorRules.GetCAUSA_BAJAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCAUSA_BAJA]; end; function TEmpleadosBusinessProcessorRules.GetCAUSA_BAJAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCAUSA_BAJA]; result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldCAUSA_BAJAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCAUSA_BAJA]; end; function TEmpleadosBusinessProcessorRules.GetOldCAUSA_BAJAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCAUSA_BAJA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetCAUSA_BAJAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCAUSA_BAJA] := aValue; end; procedure TEmpleadosBusinessProcessorRules.SetCAUSA_BAJAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCAUSA_BAJA] := Null; end; { TDireccionesContactoBusinessProcessorRules } constructor TDireccionesContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TDireccionesContactoBusinessProcessorRules.Destroy; begin inherited; end; procedure TDireccionesContactoBusinessProcessorRules.NOTAS_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := TStringList(Sender).Text; end; function TDireccionesContactoBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID]; end; function TDireccionesContactoBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID]; end; function TDireccionesContactoBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO]; end; function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO]; end; function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE]; end; function TDireccionesContactoBusinessProcessorRules.GetCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE]; end; function TDireccionesContactoBusinessProcessorRules.GetOldCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION]; end; function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION]; end; function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA]; end; function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA]; end; function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL]; end; function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL]; end; function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO]; end; function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO]; end; function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE]; end; function TDireccionesContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE]; end; function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetTELEFONOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO]; end; function TDireccionesContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO]; end; function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetMOVILValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL]; end; function TDireccionesContactoBusinessProcessorRules.GetMOVILIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldMOVILValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL]; end; function TDireccionesContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetMOVILValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetFAXValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX]; end; function TDireccionesContactoBusinessProcessorRules.GetFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldFAXValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX]; end; function TDireccionesContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetFAXValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetEMAILValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL]; end; function TDireccionesContactoBusinessProcessorRules.GetEMAILIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldEMAILValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL]; end; function TDireccionesContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetEMAILValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS]; end; function TDireccionesContactoBusinessProcessorRules.GetNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS]; end; function TDireccionesContactoBusinessProcessorRules.GetOldNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetPORTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE]; end; function TDireccionesContactoBusinessProcessorRules.GetPORTEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldPORTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE]; end; function TDireccionesContactoBusinessProcessorRules.GetOldPORTEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetPORTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetPORTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA]; end; function TDireccionesContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA]; end; function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA] := Null; end; function TDireccionesContactoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION]; end; function TDireccionesContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION]; end; function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION] := aValue; end; procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION] := Null; 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.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesDescuentosBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID]; end; function TClientesDescuentosBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesDescuentosBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID] := aValue; end; procedure TClientesDescuentosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID] := Null; end; function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE]; end; function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE]; end; function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE] := aValue; end; procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE] := Null; end; function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR]; end; function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR]; end; function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR] := aValue; end; procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR] := Null; end; function TClientesDescuentosBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE]; end; function TClientesDescuentosBusinessProcessorRules.GetNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE]; end; function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesDescuentosBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE] := aValue; end; procedure TClientesDescuentosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE] := Null; end; function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO]; end; function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO]; result := VarIsNull(v) or VarIsClear(v); end; function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO]; end; function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesDescuentosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO] := aValue; end; procedure TClientesDescuentosBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO] := Null; end; { TGruposProveedorBusinessProcessorRules } constructor TGruposProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TGruposProveedorBusinessProcessorRules.Destroy; begin inherited; end; function TGruposProveedorBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID]; end; function TGruposProveedorBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID]; result := VarIsNull(v) or VarIsClear(v); end; function TGruposProveedorBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorID]; end; function TGruposProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID] := aValue; end; procedure TGruposProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID] := Null; end; function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION]; end; function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION]; result := VarIsNull(v) or VarIsClear(v); end; function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION]; end; function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION] := aValue; end; procedure TGruposProveedorBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION] := Null; end; { TGruposEmpleadoBusinessProcessorRules } constructor TGruposEmpleadoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TGruposEmpleadoBusinessProcessorRules.Destroy; begin inherited; end; function TGruposEmpleadoBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID]; end; function TGruposEmpleadoBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID]; result := VarIsNull(v) or VarIsClear(v); end; function TGruposEmpleadoBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoID]; end; function TGruposEmpleadoBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposEmpleadoBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID] := aValue; end; procedure TGruposEmpleadoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID] := Null; end; function TGruposEmpleadoBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION]; end; function TGruposEmpleadoBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION]; result := VarIsNull(v) or VarIsClear(v); end; function TGruposEmpleadoBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoDESCRIPCION]; end; function TGruposEmpleadoBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoDESCRIPCION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposEmpleadoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION] := aValue; end; procedure TGruposEmpleadoBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION] := Null; end; { TContactos_RefreshBusinessProcessorRules } constructor TContactos_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TContactos_RefreshBusinessProcessorRules.Destroy; begin inherited; end; procedure TContactos_RefreshBusinessProcessorRules.NOTAS_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS] := TStringList(Sender).Text; end; function TContactos_RefreshBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID]; end; function TContactos_RefreshBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshID]; end; function TContactos_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF]; end; function TContactos_RefreshBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNIF_CIF]; end; function TContactos_RefreshBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNIF_CIF]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE]; end; function TContactos_RefreshBusinessProcessorRules.GetNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOMBRE]; end; function TContactos_RefreshBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE]; end; function TContactos_RefreshBusinessProcessorRules.GetCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCALLE]; end; function TContactos_RefreshBusinessProcessorRules.GetOldCALLEIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCALLE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION]; end; function TContactos_RefreshBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPOBLACION]; end; function TContactos_RefreshBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPOBLACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA]; end; function TContactos_RefreshBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPROVINCIA]; end; function TContactos_RefreshBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPROVINCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL]; end; function TContactos_RefreshBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCODIGO_POSTAL]; end; function TContactos_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCODIGO_POSTAL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1]; end; function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_1]; end; function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2]; end; function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_2]; end; function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1]; end; function TContactos_RefreshBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_1]; end; function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2]; end; function TContactos_RefreshBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_2]; end; function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetFAXValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX]; end; function TContactos_RefreshBusinessProcessorRules.GetFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldFAXValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFAX]; end; function TContactos_RefreshBusinessProcessorRules.GetOldFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFAX]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetFAXValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1]; end; function TContactos_RefreshBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_1]; end; function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_1]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2]; end; function TContactos_RefreshBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_2]; end; function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_2]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB]; end; function TContactos_RefreshBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldPAGINA_WEBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAGINA_WEB]; end; function TContactos_RefreshBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAGINA_WEB]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS]; end; function TContactos_RefreshBusinessProcessorRules.GetNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOTAS]; end; function TContactos_RefreshBusinessProcessorRules.GetOldNOTASIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOTAS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA]; end; function TContactos_RefreshBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_ALTA]; end; function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]; end; function TContactos_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]; end; function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO]; end; function TContactos_RefreshBusinessProcessorRules.GetUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshUSUARIO]; end; function TContactos_RefreshBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshUSUARIO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA]; end; function TContactos_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshREFERENCIA]; end; function TContactos_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshREFERENCIA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]; end; function TContactos_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]; end; function TContactos_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO] := Null; end; function TContactos_RefreshBusinessProcessorRules.GetPAISValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAIS]; end; function TContactos_RefreshBusinessProcessorRules.GetPAISIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAIS]; result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldPAISValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAIS]; end; function TContactos_RefreshBusinessProcessorRules.GetOldPAISIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAIS]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetPAISValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAIS] := aValue; end; procedure TContactos_RefreshBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAIS] := Null; end; { TContratosEmpleadosBusinessProcessorRules } constructor TContratosEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TContratosEmpleadosBusinessProcessorRules.Destroy; begin inherited; end; function TContratosEmpleadosBusinessProcessorRules.GetCONTRATOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosEmpleadosCONTRATO]; end; function TContratosEmpleadosBusinessProcessorRules.GetCONTRATOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosEmpleadosCONTRATO]; result := VarIsNull(v) or VarIsClear(v); end; function TContratosEmpleadosBusinessProcessorRules.GetOldCONTRATOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosEmpleadosCONTRATO]; end; function TContratosEmpleadosBusinessProcessorRules.GetOldCONTRATOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosEmpleadosCONTRATO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TContratosEmpleadosBusinessProcessorRules.SetCONTRATOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosEmpleadosCONTRATO] := aValue; end; procedure TContratosEmpleadosBusinessProcessorRules.SetCONTRATOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosEmpleadosCONTRATO] := Null; end; { TDescripcionesProveedoresBusinessProcessorRules } constructor TDescripcionesProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDescripcionesProveedoresBusinessProcessorRules.Destroy; begin inherited; end; function TDescripcionesProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR]; end; function TDescripcionesProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR]; result := VarIsNull(v) or VarIsClear(v); end; function TDescripcionesProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR]; end; function TDescripcionesProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR]; result := VarIsNull(v) or VarIsClear(v); end; procedure TDescripcionesProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR] := aValue; end; procedure TDescripcionesProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR] := Null; end; { TPersonalContactoBusinessProcessorRules } constructor TPersonalContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TPersonalContactoBusinessProcessorRules.Destroy; begin inherited; end; function TPersonalContactoBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID]; end; function TPersonalContactoBusinessProcessorRules.GetIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID]; result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID]; end; function TPersonalContactoBusinessProcessorRules.GetOldIDIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID]; result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID] := aValue; end; procedure TPersonalContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID] := Null; end; function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO]; end; function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO]; end; function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO] := aValue; end; procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO] := Null; end; function TPersonalContactoBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE]; end; function TPersonalContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE]; end; function TPersonalContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE]; result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE] := aValue; end; procedure TPersonalContactoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE] := Null; end; function TPersonalContactoBusinessProcessorRules.GetPUESTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO]; end; function TPersonalContactoBusinessProcessorRules.GetPUESTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO]; result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldPUESTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO]; end; function TPersonalContactoBusinessProcessorRules.GetOldPUESTOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetPUESTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO] := aValue; end; procedure TPersonalContactoBusinessProcessorRules.SetPUESTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO] := Null; end; function TPersonalContactoBusinessProcessorRules.GetTELEFONOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO]; end; function TPersonalContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO]; result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO]; end; function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO]; result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO] := aValue; end; procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO] := Null; end; function TPersonalContactoBusinessProcessorRules.GetMOVILValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL]; end; function TPersonalContactoBusinessProcessorRules.GetMOVILIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL]; result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldMOVILValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL]; end; function TPersonalContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetMOVILValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL] := aValue; end; procedure TPersonalContactoBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL] := Null; end; function TPersonalContactoBusinessProcessorRules.GetFAXValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX]; end; function TPersonalContactoBusinessProcessorRules.GetFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX]; result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldFAXValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX]; end; function TPersonalContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX]; result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetFAXValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX] := aValue; end; procedure TPersonalContactoBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX] := Null; end; function TPersonalContactoBusinessProcessorRules.GetEMAILValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL]; end; function TPersonalContactoBusinessProcessorRules.GetEMAILIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL]; result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldEMAILValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL]; end; function TPersonalContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL]; result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetEMAILValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL] := aValue; end; procedure TPersonalContactoBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL] := Null; end; function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA]; end; function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA]; end; function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA]; result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA] := aValue; end; procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA] := Null; end; function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION]; end; function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION]; end; function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; var v: variant; begin v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION]; result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION] := aValue; end; procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION] := Null; end; initialization RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_VendedoresDelta, TVendedoresBusinessProcessorRules); 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); RegisterBusinessProcessorRules(RID_Contactos_RefreshDelta, TContactos_RefreshBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContratosEmpleadosDelta, TContratosEmpleadosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DescripcionesProveedoresDelta, TDescripcionesProveedoresBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules); end.