unit schContabilidadServer_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schContabilidadClient_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_DarIDCuentaDelta = '{58945EDF-4ED1-4342-99B8-01D0D903616F}'; RID_DarCodigoContableTiendaDelta = '{322E6489-6BDE-488B-BE05-7FDB19C736EA}'; RID_DarMaxRefSubCuentaProvDelta = '{6ED5AE39-4CF7-4DED-925D-0258FED22CDB}'; RID_ExisteSubCuentaDelta = '{108BDCF7-7E2F-4FC0-AB42-1F0AD8DAABC3}'; RID_DiarioDelta = '{5C4E0A25-EB00-4230-9BB5-BC542F95FDE0}'; RID_ApuntesDelta = '{19DF1F3D-4101-4A62-9EC0-2923B730CEEE}'; RID_AsientosDelta = '{5CECCDE5-83BF-452A-9B0C-0350DD4E0B85}'; RID_SubCuentasDelta = '{E791546D-F5C7-4ABB-B84C-CCB5E210C1A8}'; RID_CuentasDelta = '{23452BF5-9E60-4A25-9460-8B3214862F46}'; RID_CuentasEspecialesDelta = '{62F08124-2141-40B6-B5BA-894708D593D8}'; RID_EpigrafesDelta = '{4582AF11-7E29-4C37-A6CF-6AFCD3B5E117}'; RID_BalancesDelta = '{51C1653A-406B-4D36-AA7D-009675E81772}'; RID_DarMaxRefSubCuentaCliDelta = '{1F2CE410-A9E2-4057-B438-7895EF8DEF2C}'; RID_DarNumOrdenAsientoDelta = '{16EEB9C7-F7B4-44A6-BE0B-C9BFB5C60E8A}'; type { IDarIDCuentaDelta } IDarIDCuentaDelta = interface(IDarIDCuenta) ['{58945EDF-4ED1-4342-99B8-01D0D903616F}'] { Property getters and setters } function GetOldIDValue : Integer; { Properties } property OldID : Integer read GetOldIDValue; end; { TDarIDCuentaBusinessProcessorRules } TDarIDCuentaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarIDCuenta, IDarIDCuentaDelta) 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; { 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; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDarCodigoContableTiendaDelta } IDarCodigoContableTiendaDelta = interface(IDarCodigoContableTienda) ['{322E6489-6BDE-488B-BE05-7FDB19C736EA}'] { Property getters and setters } function GetOldCODIGO_CONTABLEValue : String; { Properties } property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue; end; { TDarCodigoContableTiendaBusinessProcessorRules } TDarCodigoContableTiendaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarCodigoContableTienda, IDarCodigoContableTiendaDelta) private protected { Property getters and setters } function GetCODIGO_CONTABLEValue: String; virtual; function GetCODIGO_CONTABLEIsNull: Boolean; virtual; function GetOldCODIGO_CONTABLEValue: String; virtual; function GetOldCODIGO_CONTABLEIsNull: Boolean; virtual; procedure SetCODIGO_CONTABLEValue(const aValue: String); virtual; procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean); virtual; { Properties } property CODIGO_CONTABLE : String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue; property CODIGO_CONTABLEIsNull : Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull; property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue; property OldCODIGO_CONTABLEIsNull : Boolean read GetOldCODIGO_CONTABLEIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDarMaxRefSubCuentaProvDelta } IDarMaxRefSubCuentaProvDelta = interface(IDarMaxRefSubCuentaProv) ['{6ED5AE39-4CF7-4DED-925D-0258FED22CDB}'] { Property getters and setters } function GetOldMAXValue : Integer; { Properties } property OldMAX : Integer read GetOldMAXValue; end; { TDarMaxRefSubCuentaProvBusinessProcessorRules } TDarMaxRefSubCuentaProvBusinessProcessorRules = class(TDABusinessProcessorRules, IDarMaxRefSubCuentaProv, IDarMaxRefSubCuentaProvDelta) private protected { Property getters and setters } function GetMAXValue: Integer; virtual; function GetMAXIsNull: Boolean; virtual; function GetOldMAXValue: Integer; virtual; function GetOldMAXIsNull: Boolean; virtual; procedure SetMAXValue(const aValue: Integer); virtual; procedure SetMAXIsNull(const aValue: Boolean); virtual; { Properties } property MAX : Integer read GetMAXValue write SetMAXValue; property MAXIsNull : Boolean read GetMAXIsNull write SetMAXIsNull; property OldMAX : Integer read GetOldMAXValue; property OldMAXIsNull : Boolean read GetOldMAXIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IExisteSubCuentaDelta } IExisteSubCuentaDelta = interface(IExisteSubCuenta) ['{108BDCF7-7E2F-4FC0-AB42-1F0AD8DAABC3}'] { Property getters and setters } function GetOldCOUNTValue : Integer; { Properties } property OldCOUNT : Integer read GetOldCOUNTValue; end; { TExisteSubCuentaBusinessProcessorRules } TExisteSubCuentaBusinessProcessorRules = class(TDABusinessProcessorRules, IExisteSubCuenta, IExisteSubCuentaDelta) private protected { Property getters and setters } function GetCOUNTValue: Integer; virtual; function GetCOUNTIsNull: Boolean; virtual; function GetOldCOUNTValue: Integer; virtual; function GetOldCOUNTIsNull: Boolean; virtual; procedure SetCOUNTValue(const aValue: Integer); virtual; procedure SetCOUNTIsNull(const aValue: Boolean); virtual; { Properties } property COUNT : Integer read GetCOUNTValue write SetCOUNTValue; property COUNTIsNull : Boolean read GetCOUNTIsNull write SetCOUNTIsNull; property OldCOUNT : Integer read GetOldCOUNTValue; property OldCOUNTIsNull : Boolean read GetOldCOUNTIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDiarioDelta } IDiarioDelta = interface(IDiario) ['{5C4E0A25-EB00-4230-9BB5-BC542F95FDE0}'] { Property getters and setters } function GetOldID_APUNTEValue : Integer; function GetOldID_ASIENTOValue : Integer; function GetOldID_FACTURAValue : Integer; function GetOldID_PAGOValue : Integer; function GetOldTIPOValue : String; function GetOldORDEN_ASIENTOValue : Integer; function GetOldFECHA_ASIENTOValue : DateTime; function GetOldID_SUBCUENTAValue : Integer; function GetOldREF_SUBCUENTAValue : String; function GetOldSUBCUENTAValue : String; function GetOldID_EJERCICIOValue : Integer; function GetOldESTADOValue : String; function GetOldCONCEPTOValue : String; function GetOldDOCUMENTOValue : String; function GetOldDEBEValue : Currency; function GetOldHABERValue : Currency; function GetOldPUNTEADOValue : SmallInt; function GetOldSALDOValue : Currency; { Properties } property OldID_APUNTE : Integer read GetOldID_APUNTEValue; property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_PAGO : Integer read GetOldID_PAGOValue; property OldTIPO : String read GetOldTIPOValue; property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue; property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldESTADO : String read GetOldESTADOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldDOCUMENTO : String read GetOldDOCUMENTOValue; property OldDEBE : Currency read GetOldDEBEValue; property OldHABER : Currency read GetOldHABERValue; property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; property OldSALDO : Currency read GetOldSALDOValue; end; { TDiarioBusinessProcessorRules } TDiarioBusinessProcessorRules = class(TDABusinessProcessorRules, IDiario, IDiarioDelta) private protected { Property getters and setters } function GetID_APUNTEValue: Integer; virtual; function GetID_APUNTEIsNull: Boolean; virtual; function GetOldID_APUNTEValue: Integer; virtual; function GetOldID_APUNTEIsNull: Boolean; virtual; procedure SetID_APUNTEValue(const aValue: Integer); virtual; procedure SetID_APUNTEIsNull(const aValue: Boolean); virtual; function GetID_ASIENTOValue: Integer; virtual; function GetID_ASIENTOIsNull: Boolean; virtual; function GetOldID_ASIENTOValue: Integer; virtual; function GetOldID_ASIENTOIsNull: Boolean; virtual; procedure SetID_ASIENTOValue(const aValue: Integer); virtual; procedure SetID_ASIENTOIsNull(const aValue: Boolean); virtual; function GetID_FACTURAValue: Integer; virtual; function GetID_FACTURAIsNull: Boolean; virtual; function GetOldID_FACTURAValue: Integer; virtual; function GetOldID_FACTURAIsNull: Boolean; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; function GetID_PAGOValue: Integer; virtual; function GetID_PAGOIsNull: Boolean; virtual; function GetOldID_PAGOValue: Integer; virtual; function GetOldID_PAGOIsNull: Boolean; virtual; procedure SetID_PAGOValue(const aValue: Integer); virtual; procedure SetID_PAGOIsNull(const aValue: Boolean); virtual; function GetTIPOValue: String; virtual; function GetTIPOIsNull: Boolean; virtual; function GetOldTIPOValue: String; virtual; function GetOldTIPOIsNull: Boolean; virtual; procedure SetTIPOValue(const aValue: String); virtual; procedure SetTIPOIsNull(const aValue: Boolean); virtual; function GetORDEN_ASIENTOValue: Integer; virtual; function GetORDEN_ASIENTOIsNull: Boolean; virtual; function GetOldORDEN_ASIENTOValue: Integer; virtual; function GetOldORDEN_ASIENTOIsNull: Boolean; virtual; procedure SetORDEN_ASIENTOValue(const aValue: Integer); virtual; procedure SetORDEN_ASIENTOIsNull(const aValue: Boolean); virtual; function GetFECHA_ASIENTOValue: DateTime; virtual; function GetFECHA_ASIENTOIsNull: Boolean; virtual; function GetOldFECHA_ASIENTOValue: DateTime; virtual; function GetOldFECHA_ASIENTOIsNull: Boolean; virtual; procedure SetFECHA_ASIENTOValue(const aValue: DateTime); virtual; procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean); virtual; function GetID_SUBCUENTAValue: Integer; virtual; function GetID_SUBCUENTAIsNull: Boolean; virtual; function GetOldID_SUBCUENTAValue: Integer; virtual; function GetOldID_SUBCUENTAIsNull: Boolean; virtual; procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual; procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual; function GetREF_SUBCUENTAValue: String; virtual; function GetREF_SUBCUENTAIsNull: Boolean; virtual; function GetOldREF_SUBCUENTAValue: String; virtual; function GetOldREF_SUBCUENTAIsNull: Boolean; virtual; procedure SetREF_SUBCUENTAValue(const aValue: String); virtual; procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual; function GetSUBCUENTAValue: String; virtual; function GetSUBCUENTAIsNull: Boolean; virtual; function GetOldSUBCUENTAValue: String; virtual; function GetOldSUBCUENTAIsNull: Boolean; virtual; procedure SetSUBCUENTAValue(const aValue: String); virtual; procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual; function GetID_EJERCICIOValue: Integer; virtual; function GetID_EJERCICIOIsNull: Boolean; virtual; function GetOldID_EJERCICIOValue: Integer; virtual; function GetOldID_EJERCICIOIsNull: Boolean; virtual; procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; function GetESTADOValue: String; virtual; function GetESTADOIsNull: Boolean; virtual; function GetOldESTADOValue: String; virtual; function GetOldESTADOIsNull: Boolean; virtual; procedure SetESTADOValue(const aValue: String); virtual; procedure SetESTADOIsNull(const aValue: Boolean); virtual; function GetCONCEPTOValue: String; virtual; function GetCONCEPTOIsNull: Boolean; virtual; function GetOldCONCEPTOValue: String; virtual; function GetOldCONCEPTOIsNull: Boolean; virtual; procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; function GetDOCUMENTOValue: String; virtual; function GetDOCUMENTOIsNull: Boolean; virtual; function GetOldDOCUMENTOValue: String; virtual; function GetOldDOCUMENTOIsNull: Boolean; virtual; procedure SetDOCUMENTOValue(const aValue: String); virtual; procedure SetDOCUMENTOIsNull(const aValue: Boolean); virtual; function GetDEBEValue: Currency; virtual; function GetDEBEIsNull: Boolean; virtual; function GetOldDEBEValue: Currency; virtual; function GetOldDEBEIsNull: Boolean; virtual; procedure SetDEBEValue(const aValue: Currency); virtual; procedure SetDEBEIsNull(const aValue: Boolean); virtual; function GetHABERValue: Currency; virtual; function GetHABERIsNull: Boolean; virtual; function GetOldHABERValue: Currency; virtual; function GetOldHABERIsNull: Boolean; virtual; procedure SetHABERValue(const aValue: Currency); virtual; procedure SetHABERIsNull(const aValue: Boolean); virtual; function GetPUNTEADOValue: SmallInt; virtual; function GetPUNTEADOIsNull: Boolean; virtual; function GetOldPUNTEADOValue: SmallInt; virtual; function GetOldPUNTEADOIsNull: Boolean; virtual; procedure SetPUNTEADOValue(const aValue: SmallInt); virtual; procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual; function GetSALDOValue: Currency; virtual; function GetSALDOIsNull: Boolean; virtual; function GetOldSALDOValue: Currency; virtual; function GetOldSALDOIsNull: Boolean; virtual; procedure SetSALDOValue(const aValue: Currency); virtual; procedure SetSALDOIsNull(const aValue: Boolean); virtual; { Properties } property ID_APUNTE : Integer read GetID_APUNTEValue write SetID_APUNTEValue; property ID_APUNTEIsNull : Boolean read GetID_APUNTEIsNull write SetID_APUNTEIsNull; property OldID_APUNTE : Integer read GetOldID_APUNTEValue; property OldID_APUNTEIsNull : Boolean read GetOldID_APUNTEIsNull; property ID_ASIENTO : Integer read GetID_ASIENTOValue write SetID_ASIENTOValue; property ID_ASIENTOIsNull : Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull; property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue; property OldID_ASIENTOIsNull : Boolean read GetOldID_ASIENTOIsNull; property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull; property ID_PAGO : Integer read GetID_PAGOValue write SetID_PAGOValue; property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; property OldID_PAGO : Integer read GetOldID_PAGOValue; property OldID_PAGOIsNull : Boolean read GetOldID_PAGOIsNull; property TIPO : String read GetTIPOValue write SetTIPOValue; property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; property OldTIPO : String read GetOldTIPOValue; property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; property ORDEN_ASIENTO : Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue; property ORDEN_ASIENTOIsNull : Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull; property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue; property OldORDEN_ASIENTOIsNull : Boolean read GetOldORDEN_ASIENTOIsNull; property FECHA_ASIENTO : DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue; property FECHA_ASIENTOIsNull : Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull; property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldFECHA_ASIENTOIsNull : Boolean read GetOldFECHA_ASIENTOIsNull; property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue; property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull; property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull; property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue; property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull; property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull; property ESTADO : String read GetESTADOValue write SetESTADOValue; property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull; property OldESTADO : String read GetOldESTADOValue; property OldESTADOIsNull : Boolean read GetOldESTADOIsNull; property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; property DOCUMENTO : String read GetDOCUMENTOValue write SetDOCUMENTOValue; property DOCUMENTOIsNull : Boolean read GetDOCUMENTOIsNull write SetDOCUMENTOIsNull; property OldDOCUMENTO : String read GetOldDOCUMENTOValue; property OldDOCUMENTOIsNull : Boolean read GetOldDOCUMENTOIsNull; property DEBE : Currency read GetDEBEValue write SetDEBEValue; property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull; property OldDEBE : Currency read GetOldDEBEValue; property OldDEBEIsNull : Boolean read GetOldDEBEIsNull; property HABER : Currency read GetHABERValue write SetHABERValue; property HABERIsNull : Boolean read GetHABERIsNull write SetHABERIsNull; property OldHABER : Currency read GetOldHABERValue; property OldHABERIsNull : Boolean read GetOldHABERIsNull; property PUNTEADO : SmallInt read GetPUNTEADOValue write SetPUNTEADOValue; property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; property OldPUNTEADOIsNull : Boolean read GetOldPUNTEADOIsNull; property SALDO : Currency read GetSALDOValue write SetSALDOValue; property SALDOIsNull : Boolean read GetSALDOIsNull write SetSALDOIsNull; property OldSALDO : Currency read GetOldSALDOValue; property OldSALDOIsNull : Boolean read GetOldSALDOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IApuntesDelta } IApuntesDelta = interface(IApuntes) ['{19DF1F3D-4101-4A62-9EC0-2923B730CEEE}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ASIENTOValue : Integer; function GetOldID_SUBCUENTAValue : Integer; function GetOldNUM_ORDENValue : Integer; function GetOldREF_SUBCUENTAValue : String; function GetOldSUBCUENTAValue : String; function GetOldCONCEPTOValue : String; function GetOldDOCUMENTOValue : String; function GetOldDEBEValue : Currency; function GetOldHABERValue : Currency; function GetOldPUNTEADOValue : SmallInt; { Properties } property OldID : Integer read GetOldIDValue; property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldNUM_ORDEN : Integer read GetOldNUM_ORDENValue; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldDOCUMENTO : String read GetOldDOCUMENTOValue; property OldDEBE : Currency read GetOldDEBEValue; property OldHABER : Currency read GetOldHABERValue; property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; end; { TApuntesBusinessProcessorRules } TApuntesBusinessProcessorRules = class(TDABusinessProcessorRules, IApuntes, IApuntesDelta) 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_ASIENTOValue: Integer; virtual; function GetID_ASIENTOIsNull: Boolean; virtual; function GetOldID_ASIENTOValue: Integer; virtual; function GetOldID_ASIENTOIsNull: Boolean; virtual; procedure SetID_ASIENTOValue(const aValue: Integer); virtual; procedure SetID_ASIENTOIsNull(const aValue: Boolean); virtual; function GetID_SUBCUENTAValue: Integer; virtual; function GetID_SUBCUENTAIsNull: Boolean; virtual; function GetOldID_SUBCUENTAValue: Integer; virtual; function GetOldID_SUBCUENTAIsNull: Boolean; virtual; procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual; procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual; function GetNUM_ORDENValue: Integer; virtual; function GetNUM_ORDENIsNull: Boolean; virtual; function GetOldNUM_ORDENValue: Integer; virtual; function GetOldNUM_ORDENIsNull: Boolean; virtual; procedure SetNUM_ORDENValue(const aValue: Integer); virtual; procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual; function GetREF_SUBCUENTAValue: String; virtual; function GetREF_SUBCUENTAIsNull: Boolean; virtual; function GetOldREF_SUBCUENTAValue: String; virtual; function GetOldREF_SUBCUENTAIsNull: Boolean; virtual; procedure SetREF_SUBCUENTAValue(const aValue: String); virtual; procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual; function GetSUBCUENTAValue: String; virtual; function GetSUBCUENTAIsNull: Boolean; virtual; function GetOldSUBCUENTAValue: String; virtual; function GetOldSUBCUENTAIsNull: Boolean; virtual; procedure SetSUBCUENTAValue(const aValue: String); virtual; procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual; function GetCONCEPTOValue: String; virtual; function GetCONCEPTOIsNull: Boolean; virtual; function GetOldCONCEPTOValue: String; virtual; function GetOldCONCEPTOIsNull: Boolean; virtual; procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; function GetDOCUMENTOValue: String; virtual; function GetDOCUMENTOIsNull: Boolean; virtual; function GetOldDOCUMENTOValue: String; virtual; function GetOldDOCUMENTOIsNull: Boolean; virtual; procedure SetDOCUMENTOValue(const aValue: String); virtual; procedure SetDOCUMENTOIsNull(const aValue: Boolean); virtual; function GetDEBEValue: Currency; virtual; function GetDEBEIsNull: Boolean; virtual; function GetOldDEBEValue: Currency; virtual; function GetOldDEBEIsNull: Boolean; virtual; procedure SetDEBEValue(const aValue: Currency); virtual; procedure SetDEBEIsNull(const aValue: Boolean); virtual; function GetHABERValue: Currency; virtual; function GetHABERIsNull: Boolean; virtual; function GetOldHABERValue: Currency; virtual; function GetOldHABERIsNull: Boolean; virtual; procedure SetHABERValue(const aValue: Currency); virtual; procedure SetHABERIsNull(const aValue: Boolean); virtual; function GetPUNTEADOValue: SmallInt; virtual; function GetPUNTEADOIsNull: Boolean; virtual; function GetOldPUNTEADOValue: SmallInt; virtual; function GetOldPUNTEADOIsNull: Boolean; virtual; procedure SetPUNTEADOValue(const aValue: SmallInt); virtual; procedure SetPUNTEADOIsNull(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_ASIENTO : Integer read GetID_ASIENTOValue write SetID_ASIENTOValue; property ID_ASIENTOIsNull : Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull; property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue; property OldID_ASIENTOIsNull : Boolean read GetOldID_ASIENTOIsNull; property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue; property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull; property NUM_ORDEN : Integer read GetNUM_ORDENValue write SetNUM_ORDENValue; property NUM_ORDENIsNull : Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull; property OldNUM_ORDEN : Integer read GetOldNUM_ORDENValue; property OldNUM_ORDENIsNull : Boolean read GetOldNUM_ORDENIsNull; property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull; property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue; property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull; property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; property DOCUMENTO : String read GetDOCUMENTOValue write SetDOCUMENTOValue; property DOCUMENTOIsNull : Boolean read GetDOCUMENTOIsNull write SetDOCUMENTOIsNull; property OldDOCUMENTO : String read GetOldDOCUMENTOValue; property OldDOCUMENTOIsNull : Boolean read GetOldDOCUMENTOIsNull; property DEBE : Currency read GetDEBEValue write SetDEBEValue; property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull; property OldDEBE : Currency read GetOldDEBEValue; property OldDEBEIsNull : Boolean read GetOldDEBEIsNull; property HABER : Currency read GetHABERValue write SetHABERValue; property HABERIsNull : Boolean read GetHABERIsNull write SetHABERIsNull; property OldHABER : Currency read GetOldHABERValue; property OldHABERIsNull : Boolean read GetOldHABERIsNull; property PUNTEADO : SmallInt read GetPUNTEADOValue write SetPUNTEADOValue; property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull; property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue; property OldPUNTEADOIsNull : Boolean read GetOldPUNTEADOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IAsientosDelta } IAsientosDelta = interface(IAsientos) ['{5CECCDE5-83BF-452A-9B0C-0350DD4E0B85}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldFECHA_ASIENTOValue : DateTime; function GetOldORDENValue : Integer; function GetOldID_FACTURAValue : Integer; function GetOldID_PAGOValue : Integer; function GetOldTIPOValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldORDEN : Integer read GetOldORDENValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_PAGO : Integer read GetOldID_PAGOValue; property OldTIPO : String read GetOldTIPOValue; end; { TAsientosBusinessProcessorRules } TAsientosBusinessProcessorRules = class(TDABusinessProcessorRules, IAsientos, IAsientosDelta) 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 GetFECHA_ASIENTOValue: DateTime; virtual; function GetFECHA_ASIENTOIsNull: Boolean; virtual; function GetOldFECHA_ASIENTOValue: DateTime; virtual; function GetOldFECHA_ASIENTOIsNull: Boolean; virtual; procedure SetFECHA_ASIENTOValue(const aValue: DateTime); virtual; procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean); virtual; function GetORDENValue: Integer; virtual; function GetORDENIsNull: Boolean; virtual; function GetOldORDENValue: Integer; virtual; function GetOldORDENIsNull: Boolean; virtual; procedure SetORDENValue(const aValue: Integer); virtual; procedure SetORDENIsNull(const aValue: Boolean); virtual; function GetID_FACTURAValue: Integer; virtual; function GetID_FACTURAIsNull: Boolean; virtual; function GetOldID_FACTURAValue: Integer; virtual; function GetOldID_FACTURAIsNull: Boolean; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; function GetID_PAGOValue: Integer; virtual; function GetID_PAGOIsNull: Boolean; virtual; function GetOldID_PAGOValue: Integer; virtual; function GetOldID_PAGOIsNull: Boolean; virtual; procedure SetID_PAGOValue(const aValue: Integer); virtual; procedure SetID_PAGOIsNull(const aValue: Boolean); virtual; function GetTIPOValue: String; virtual; function GetTIPOIsNull: Boolean; virtual; function GetOldTIPOValue: String; virtual; function GetOldTIPOIsNull: Boolean; virtual; procedure SetTIPOValue(const aValue: String); virtual; procedure SetTIPOIsNull(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 FECHA_ASIENTO : DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue; property FECHA_ASIENTOIsNull : Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull; property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue; property OldFECHA_ASIENTOIsNull : Boolean read GetOldFECHA_ASIENTOIsNull; property ORDEN : Integer read GetORDENValue write SetORDENValue; property ORDENIsNull : Boolean read GetORDENIsNull write SetORDENIsNull; property OldORDEN : Integer read GetOldORDENValue; property OldORDENIsNull : Boolean read GetOldORDENIsNull; property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull; property ID_PAGO : Integer read GetID_PAGOValue write SetID_PAGOValue; property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull; property OldID_PAGO : Integer read GetOldID_PAGOValue; property OldID_PAGOIsNull : Boolean read GetOldID_PAGOIsNull; property TIPO : String read GetTIPOValue write SetTIPOValue; property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; property OldTIPO : String read GetOldTIPOValue; property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { ISubCuentasDelta } ISubCuentasDelta = interface(ISubCuentas) ['{E791546D-F5C7-4ABB-B84C-CCB5E210C1A8}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_SUBCUENTAValue : String; function GetOldDESCRIPCIONValue : String; function GetOldID_EJERCICIOValue : Integer; function GetOldESTADOValue : String; function GetOldREF_EPIGRAFE_PADREValue : String; function GetOldID_CONTACTOValue : Integer; function GetOldID_CUENTAValue : Integer; function GetOldREF_CUENTAValue : String; function GetOldCUENTAValue : String; function GetOldDEBEValue : Currency; function GetOldHABERValue : Currency; function GetOldSALDOValue : Currency; { Properties } property OldID : Integer read GetOldIDValue; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldESTADO : String read GetOldESTADOValue; property OldREF_EPIGRAFE_PADRE : String read GetOldREF_EPIGRAFE_PADREValue; property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; property OldID_CUENTA : Integer read GetOldID_CUENTAValue; property OldREF_CUENTA : String read GetOldREF_CUENTAValue; property OldCUENTA : String read GetOldCUENTAValue; property OldDEBE : Currency read GetOldDEBEValue; property OldHABER : Currency read GetOldHABERValue; property OldSALDO : Currency read GetOldSALDOValue; end; { TSubCuentasBusinessProcessorRules } TSubCuentasBusinessProcessorRules = class(TDABusinessProcessorRules, ISubCuentas, ISubCuentasDelta) 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 GetREF_SUBCUENTAValue: String; virtual; function GetREF_SUBCUENTAIsNull: Boolean; virtual; function GetOldREF_SUBCUENTAValue: String; virtual; function GetOldREF_SUBCUENTAIsNull: Boolean; virtual; procedure SetREF_SUBCUENTAValue(const aValue: String); virtual; procedure SetREF_SUBCUENTAIsNull(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; function GetID_EJERCICIOValue: Integer; virtual; function GetID_EJERCICIOIsNull: Boolean; virtual; function GetOldID_EJERCICIOValue: Integer; virtual; function GetOldID_EJERCICIOIsNull: Boolean; virtual; procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; function GetESTADOValue: String; virtual; function GetESTADOIsNull: Boolean; virtual; function GetOldESTADOValue: String; virtual; function GetOldESTADOIsNull: Boolean; virtual; procedure SetESTADOValue(const aValue: String); virtual; procedure SetESTADOIsNull(const aValue: Boolean); virtual; function GetREF_EPIGRAFE_PADREValue: String; virtual; function GetREF_EPIGRAFE_PADREIsNull: Boolean; virtual; function GetOldREF_EPIGRAFE_PADREValue: String; virtual; function GetOldREF_EPIGRAFE_PADREIsNull: Boolean; virtual; procedure SetREF_EPIGRAFE_PADREValue(const aValue: String); virtual; procedure SetREF_EPIGRAFE_PADREIsNull(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 GetID_CUENTAValue: Integer; virtual; function GetID_CUENTAIsNull: Boolean; virtual; function GetOldID_CUENTAValue: Integer; virtual; function GetOldID_CUENTAIsNull: Boolean; virtual; procedure SetID_CUENTAValue(const aValue: Integer); virtual; procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual; function GetREF_CUENTAValue: String; virtual; function GetREF_CUENTAIsNull: Boolean; virtual; function GetOldREF_CUENTAValue: String; virtual; function GetOldREF_CUENTAIsNull: Boolean; virtual; procedure SetREF_CUENTAValue(const aValue: String); virtual; procedure SetREF_CUENTAIsNull(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 GetDEBEValue: Currency; virtual; function GetDEBEIsNull: Boolean; virtual; function GetOldDEBEValue: Currency; virtual; function GetOldDEBEIsNull: Boolean; virtual; procedure SetDEBEValue(const aValue: Currency); virtual; procedure SetDEBEIsNull(const aValue: Boolean); virtual; function GetHABERValue: Currency; virtual; function GetHABERIsNull: Boolean; virtual; function GetOldHABERValue: Currency; virtual; function GetOldHABERIsNull: Boolean; virtual; procedure SetHABERValue(const aValue: Currency); virtual; procedure SetHABERIsNull(const aValue: Boolean); virtual; function GetSALDOValue: Currency; virtual; function GetSALDOIsNull: Boolean; virtual; function GetOldSALDOValue: Currency; virtual; function GetOldSALDOIsNull: Boolean; virtual; procedure SetSALDOValue(const aValue: Currency); virtual; procedure SetSALDOIsNull(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 REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue; property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull; property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue; property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull; property ESTADO : String read GetESTADOValue write SetESTADOValue; property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull; property OldESTADO : String read GetOldESTADOValue; property OldESTADOIsNull : Boolean read GetOldESTADOIsNull; property REF_EPIGRAFE_PADRE : String read GetREF_EPIGRAFE_PADREValue write SetREF_EPIGRAFE_PADREValue; property REF_EPIGRAFE_PADREIsNull : Boolean read GetREF_EPIGRAFE_PADREIsNull write SetREF_EPIGRAFE_PADREIsNull; property OldREF_EPIGRAFE_PADRE : String read GetOldREF_EPIGRAFE_PADREValue; property OldREF_EPIGRAFE_PADREIsNull : Boolean read GetOldREF_EPIGRAFE_PADREIsNull; 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 ID_CUENTA : Integer read GetID_CUENTAValue write SetID_CUENTAValue; property ID_CUENTAIsNull : Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull; property OldID_CUENTA : Integer read GetOldID_CUENTAValue; property OldID_CUENTAIsNull : Boolean read GetOldID_CUENTAIsNull; property REF_CUENTA : String read GetREF_CUENTAValue write SetREF_CUENTAValue; property REF_CUENTAIsNull : Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull; property OldREF_CUENTA : String read GetOldREF_CUENTAValue; property OldREF_CUENTAIsNull : Boolean read GetOldREF_CUENTAIsNull; 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 DEBE : Currency read GetDEBEValue write SetDEBEValue; property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull; property OldDEBE : Currency read GetOldDEBEValue; property OldDEBEIsNull : Boolean read GetOldDEBEIsNull; property HABER : Currency read GetHABERValue write SetHABERValue; property HABERIsNull : Boolean read GetHABERIsNull write SetHABERIsNull; property OldHABER : Currency read GetOldHABERValue; property OldHABERIsNull : Boolean read GetOldHABERIsNull; property SALDO : Currency read GetSALDOValue write SetSALDOValue; property SALDOIsNull : Boolean read GetSALDOIsNull write SetSALDOIsNull; property OldSALDO : Currency read GetOldSALDOValue; property OldSALDOIsNull : Boolean read GetOldSALDOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { ICuentasDelta } ICuentasDelta = interface(ICuentas) ['{23452BF5-9E60-4A25-9460-8B3214862F46}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_CUENTAValue : String; function GetOldID_EJERCICIOValue : Integer; function GetOldESTADOValue : String; function GetOldDESCRIPCIONValue : String; function GetOldID_EPIGRAFEValue : Integer; function GetOldEPIGRAFEValue : String; function GetOldID_BALANCEValue : Integer; function GetOldBALANCEValue : String; function GetOldID_CUENTA_ESPECIALValue : Integer; function GetOldCUENTA_ESPECIALValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldREF_CUENTA : String read GetOldREF_CUENTAValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldESTADO : String read GetOldESTADOValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue; property OldEPIGRAFE : String read GetOldEPIGRAFEValue; property OldID_BALANCE : Integer read GetOldID_BALANCEValue; property OldBALANCE : String read GetOldBALANCEValue; property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue; property OldCUENTA_ESPECIAL : String read GetOldCUENTA_ESPECIALValue; end; { TCuentasBusinessProcessorRules } TCuentasBusinessProcessorRules = class(TDABusinessProcessorRules, ICuentas, ICuentasDelta) 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 GetREF_CUENTAValue: String; virtual; function GetREF_CUENTAIsNull: Boolean; virtual; function GetOldREF_CUENTAValue: String; virtual; function GetOldREF_CUENTAIsNull: Boolean; virtual; procedure SetREF_CUENTAValue(const aValue: String); virtual; procedure SetREF_CUENTAIsNull(const aValue: Boolean); virtual; function GetID_EJERCICIOValue: Integer; virtual; function GetID_EJERCICIOIsNull: Boolean; virtual; function GetOldID_EJERCICIOValue: Integer; virtual; function GetOldID_EJERCICIOIsNull: Boolean; virtual; procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; function GetESTADOValue: String; virtual; function GetESTADOIsNull: Boolean; virtual; function GetOldESTADOValue: String; virtual; function GetOldESTADOIsNull: Boolean; virtual; procedure SetESTADOValue(const aValue: String); virtual; procedure SetESTADOIsNull(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; function GetID_EPIGRAFEValue: Integer; virtual; function GetID_EPIGRAFEIsNull: Boolean; virtual; function GetOldID_EPIGRAFEValue: Integer; virtual; function GetOldID_EPIGRAFEIsNull: Boolean; virtual; procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual; procedure SetID_EPIGRAFEIsNull(const aValue: Boolean); virtual; function GetEPIGRAFEValue: String; virtual; function GetEPIGRAFEIsNull: Boolean; virtual; function GetOldEPIGRAFEValue: String; virtual; function GetOldEPIGRAFEIsNull: Boolean; virtual; procedure SetEPIGRAFEValue(const aValue: String); virtual; procedure SetEPIGRAFEIsNull(const aValue: Boolean); virtual; function GetID_BALANCEValue: Integer; virtual; function GetID_BALANCEIsNull: Boolean; virtual; function GetOldID_BALANCEValue: Integer; virtual; function GetOldID_BALANCEIsNull: Boolean; virtual; procedure SetID_BALANCEValue(const aValue: Integer); virtual; procedure SetID_BALANCEIsNull(const aValue: Boolean); virtual; function GetBALANCEValue: String; virtual; function GetBALANCEIsNull: Boolean; virtual; function GetOldBALANCEValue: String; virtual; function GetOldBALANCEIsNull: Boolean; virtual; procedure SetBALANCEValue(const aValue: String); virtual; procedure SetBALANCEIsNull(const aValue: Boolean); virtual; function GetID_CUENTA_ESPECIALValue: Integer; virtual; function GetID_CUENTA_ESPECIALIsNull: Boolean; virtual; function GetOldID_CUENTA_ESPECIALValue: Integer; virtual; function GetOldID_CUENTA_ESPECIALIsNull: Boolean; virtual; procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer); virtual; procedure SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean); virtual; function GetCUENTA_ESPECIALValue: String; virtual; function GetCUENTA_ESPECIALIsNull: Boolean; virtual; function GetOldCUENTA_ESPECIALValue: String; virtual; function GetOldCUENTA_ESPECIALIsNull: Boolean; virtual; procedure SetCUENTA_ESPECIALValue(const aValue: String); virtual; procedure SetCUENTA_ESPECIALIsNull(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 REF_CUENTA : String read GetREF_CUENTAValue write SetREF_CUENTAValue; property REF_CUENTAIsNull : Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull; property OldREF_CUENTA : String read GetOldREF_CUENTAValue; property OldREF_CUENTAIsNull : Boolean read GetOldREF_CUENTAIsNull; property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull; property ESTADO : String read GetESTADOValue write SetESTADOValue; property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull; property OldESTADO : String read GetOldESTADOValue; property OldESTADOIsNull : Boolean read GetOldESTADOIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property ID_EPIGRAFE : Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue; property ID_EPIGRAFEIsNull : Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull; property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue; property OldID_EPIGRAFEIsNull : Boolean read GetOldID_EPIGRAFEIsNull; property EPIGRAFE : String read GetEPIGRAFEValue write SetEPIGRAFEValue; property EPIGRAFEIsNull : Boolean read GetEPIGRAFEIsNull write SetEPIGRAFEIsNull; property OldEPIGRAFE : String read GetOldEPIGRAFEValue; property OldEPIGRAFEIsNull : Boolean read GetOldEPIGRAFEIsNull; property ID_BALANCE : Integer read GetID_BALANCEValue write SetID_BALANCEValue; property ID_BALANCEIsNull : Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull; property OldID_BALANCE : Integer read GetOldID_BALANCEValue; property OldID_BALANCEIsNull : Boolean read GetOldID_BALANCEIsNull; property BALANCE : String read GetBALANCEValue write SetBALANCEValue; property BALANCEIsNull : Boolean read GetBALANCEIsNull write SetBALANCEIsNull; property OldBALANCE : String read GetOldBALANCEValue; property OldBALANCEIsNull : Boolean read GetOldBALANCEIsNull; property ID_CUENTA_ESPECIAL : Integer read GetID_CUENTA_ESPECIALValue write SetID_CUENTA_ESPECIALValue; property ID_CUENTA_ESPECIALIsNull : Boolean read GetID_CUENTA_ESPECIALIsNull write SetID_CUENTA_ESPECIALIsNull; property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue; property OldID_CUENTA_ESPECIALIsNull : Boolean read GetOldID_CUENTA_ESPECIALIsNull; property CUENTA_ESPECIAL : String read GetCUENTA_ESPECIALValue write SetCUENTA_ESPECIALValue; property CUENTA_ESPECIALIsNull : Boolean read GetCUENTA_ESPECIALIsNull write SetCUENTA_ESPECIALIsNull; property OldCUENTA_ESPECIAL : String read GetOldCUENTA_ESPECIALValue; property OldCUENTA_ESPECIALIsNull : Boolean read GetOldCUENTA_ESPECIALIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { ICuentasEspecialesDelta } ICuentasEspecialesDelta = interface(ICuentasEspeciales) ['{62F08124-2141-40B6-B5BA-894708D593D8}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; function GetOldDESCRIPCIONValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; end; { TCuentasEspecialesBusinessProcessorRules } TCuentasEspecialesBusinessProcessorRules = class(TDABusinessProcessorRules, ICuentasEspeciales, ICuentasEspecialesDelta) 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 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 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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; 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; { IEpigrafesDelta } IEpigrafesDelta = interface(IEpigrafes) ['{4582AF11-7E29-4C37-A6CF-6AFCD3B5E117}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_EPIGRAFEValue : String; function GetOldDESCRIPCIONValue : String; function GetOldID_EJERCICIOValue : Integer; function GetOldESTADOValue : String; function GetOldID_PADREValue : Integer; function GetOldEPIGRAFE_PADREValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldESTADO : String read GetOldESTADOValue; property OldID_PADRE : Integer read GetOldID_PADREValue; property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue; end; { TEpigrafesBusinessProcessorRules } TEpigrafesBusinessProcessorRules = class(TDABusinessProcessorRules, IEpigrafes, IEpigrafesDelta) 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 GetREF_EPIGRAFEValue: String; virtual; function GetREF_EPIGRAFEIsNull: Boolean; virtual; function GetOldREF_EPIGRAFEValue: String; virtual; function GetOldREF_EPIGRAFEIsNull: Boolean; virtual; procedure SetREF_EPIGRAFEValue(const aValue: String); virtual; procedure SetREF_EPIGRAFEIsNull(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; function GetID_EJERCICIOValue: Integer; virtual; function GetID_EJERCICIOIsNull: Boolean; virtual; function GetOldID_EJERCICIOValue: Integer; virtual; function GetOldID_EJERCICIOIsNull: Boolean; virtual; procedure SetID_EJERCICIOValue(const aValue: Integer); virtual; procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual; function GetESTADOValue: String; virtual; function GetESTADOIsNull: Boolean; virtual; function GetOldESTADOValue: String; virtual; function GetOldESTADOIsNull: Boolean; virtual; procedure SetESTADOValue(const aValue: String); virtual; procedure SetESTADOIsNull(const aValue: Boolean); virtual; function GetID_PADREValue: Integer; virtual; function GetID_PADREIsNull: Boolean; virtual; function GetOldID_PADREValue: Integer; virtual; function GetOldID_PADREIsNull: Boolean; virtual; procedure SetID_PADREValue(const aValue: Integer); virtual; procedure SetID_PADREIsNull(const aValue: Boolean); virtual; function GetEPIGRAFE_PADREValue: String; virtual; function GetEPIGRAFE_PADREIsNull: Boolean; virtual; function GetOldEPIGRAFE_PADREValue: String; virtual; function GetOldEPIGRAFE_PADREIsNull: Boolean; virtual; procedure SetEPIGRAFE_PADREValue(const aValue: String); virtual; procedure SetEPIGRAFE_PADREIsNull(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 REF_EPIGRAFE : String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue; property REF_EPIGRAFEIsNull : Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull; property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue; property OldREF_EPIGRAFEIsNull : Boolean read GetOldREF_EPIGRAFEIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue; property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull; property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue; property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull; property ESTADO : String read GetESTADOValue write SetESTADOValue; property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull; property OldESTADO : String read GetOldESTADOValue; property OldESTADOIsNull : Boolean read GetOldESTADOIsNull; property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue; property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull; property OldID_PADRE : Integer read GetOldID_PADREValue; property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull; property EPIGRAFE_PADRE : String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue; property EPIGRAFE_PADREIsNull : Boolean read GetEPIGRAFE_PADREIsNull write SetEPIGRAFE_PADREIsNull; property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue; property OldEPIGRAFE_PADREIsNull : Boolean read GetOldEPIGRAFE_PADREIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IBalancesDelta } IBalancesDelta = interface(IBalances) ['{51C1653A-406B-4D36-AA7D-009675E81772}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_BALANCEValue : String; function GetOldNATURALEZAValue : String; function GetOldNIVEL1Value : String; function GetOldDESCRIPCION1Value : String; function GetOldNIVEL2Value : String; function GetOldDESCRIPCION2Value : String; function GetOldNIVEL3Value : String; function GetOldDESCRIPCION3Value : String; { Properties } property OldID : Integer read GetOldIDValue; property OldREF_BALANCE : String read GetOldREF_BALANCEValue; property OldNATURALEZA : String read GetOldNATURALEZAValue; property OldNIVEL1 : String read GetOldNIVEL1Value; property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value; property OldNIVEL2 : String read GetOldNIVEL2Value; property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value; property OldNIVEL3 : String read GetOldNIVEL3Value; property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value; end; { TBalancesBusinessProcessorRules } TBalancesBusinessProcessorRules = class(TDABusinessProcessorRules, IBalances, IBalancesDelta) 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 GetREF_BALANCEValue: String; virtual; function GetREF_BALANCEIsNull: Boolean; virtual; function GetOldREF_BALANCEValue: String; virtual; function GetOldREF_BALANCEIsNull: Boolean; virtual; procedure SetREF_BALANCEValue(const aValue: String); virtual; procedure SetREF_BALANCEIsNull(const aValue: Boolean); virtual; function GetNATURALEZAValue: String; virtual; function GetNATURALEZAIsNull: Boolean; virtual; function GetOldNATURALEZAValue: String; virtual; function GetOldNATURALEZAIsNull: Boolean; virtual; procedure SetNATURALEZAValue(const aValue: String); virtual; procedure SetNATURALEZAIsNull(const aValue: Boolean); virtual; function GetNIVEL1Value: String; virtual; function GetNIVEL1IsNull: Boolean; virtual; function GetOldNIVEL1Value: String; virtual; function GetOldNIVEL1IsNull: Boolean; virtual; procedure SetNIVEL1Value(const aValue: String); virtual; procedure SetNIVEL1IsNull(const aValue: Boolean); virtual; function GetDESCRIPCION1Value: String; virtual; function GetDESCRIPCION1IsNull: Boolean; virtual; function GetOldDESCRIPCION1Value: String; virtual; function GetOldDESCRIPCION1IsNull: Boolean; virtual; procedure SetDESCRIPCION1Value(const aValue: String); virtual; procedure SetDESCRIPCION1IsNull(const aValue: Boolean); virtual; function GetNIVEL2Value: String; virtual; function GetNIVEL2IsNull: Boolean; virtual; function GetOldNIVEL2Value: String; virtual; function GetOldNIVEL2IsNull: Boolean; virtual; procedure SetNIVEL2Value(const aValue: String); virtual; procedure SetNIVEL2IsNull(const aValue: Boolean); virtual; function GetDESCRIPCION2Value: String; virtual; function GetDESCRIPCION2IsNull: Boolean; virtual; function GetOldDESCRIPCION2Value: String; virtual; function GetOldDESCRIPCION2IsNull: Boolean; virtual; procedure SetDESCRIPCION2Value(const aValue: String); virtual; procedure SetDESCRIPCION2IsNull(const aValue: Boolean); virtual; function GetNIVEL3Value: String; virtual; function GetNIVEL3IsNull: Boolean; virtual; function GetOldNIVEL3Value: String; virtual; function GetOldNIVEL3IsNull: Boolean; virtual; procedure SetNIVEL3Value(const aValue: String); virtual; procedure SetNIVEL3IsNull(const aValue: Boolean); virtual; function GetDESCRIPCION3Value: String; virtual; function GetDESCRIPCION3IsNull: Boolean; virtual; function GetOldDESCRIPCION3Value: String; virtual; function GetOldDESCRIPCION3IsNull: Boolean; virtual; procedure SetDESCRIPCION3Value(const aValue: String); virtual; procedure SetDESCRIPCION3IsNull(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 REF_BALANCE : String read GetREF_BALANCEValue write SetREF_BALANCEValue; property REF_BALANCEIsNull : Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull; property OldREF_BALANCE : String read GetOldREF_BALANCEValue; property OldREF_BALANCEIsNull : Boolean read GetOldREF_BALANCEIsNull; property NATURALEZA : String read GetNATURALEZAValue write SetNATURALEZAValue; property NATURALEZAIsNull : Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull; property OldNATURALEZA : String read GetOldNATURALEZAValue; property OldNATURALEZAIsNull : Boolean read GetOldNATURALEZAIsNull; property NIVEL1 : String read GetNIVEL1Value write SetNIVEL1Value; property NIVEL1IsNull : Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull; property OldNIVEL1 : String read GetOldNIVEL1Value; property OldNIVEL1IsNull : Boolean read GetOldNIVEL1IsNull; property DESCRIPCION1 : String read GetDESCRIPCION1Value write SetDESCRIPCION1Value; property DESCRIPCION1IsNull : Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull; property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value; property OldDESCRIPCION1IsNull : Boolean read GetOldDESCRIPCION1IsNull; property NIVEL2 : String read GetNIVEL2Value write SetNIVEL2Value; property NIVEL2IsNull : Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull; property OldNIVEL2 : String read GetOldNIVEL2Value; property OldNIVEL2IsNull : Boolean read GetOldNIVEL2IsNull; property DESCRIPCION2 : String read GetDESCRIPCION2Value write SetDESCRIPCION2Value; property DESCRIPCION2IsNull : Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull; property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value; property OldDESCRIPCION2IsNull : Boolean read GetOldDESCRIPCION2IsNull; property NIVEL3 : String read GetNIVEL3Value write SetNIVEL3Value; property NIVEL3IsNull : Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull; property OldNIVEL3 : String read GetOldNIVEL3Value; property OldNIVEL3IsNull : Boolean read GetOldNIVEL3IsNull; property DESCRIPCION3 : String read GetDESCRIPCION3Value write SetDESCRIPCION3Value; property DESCRIPCION3IsNull : Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull; property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value; property OldDESCRIPCION3IsNull : Boolean read GetOldDESCRIPCION3IsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDarMaxRefSubCuentaCliDelta } IDarMaxRefSubCuentaCliDelta = interface(IDarMaxRefSubCuentaCli) ['{1F2CE410-A9E2-4057-B438-7895EF8DEF2C}'] { Property getters and setters } function GetOldMAXValue : Integer; { Properties } property OldMAX : Integer read GetOldMAXValue; end; { TDarMaxRefSubCuentaCliBusinessProcessorRules } TDarMaxRefSubCuentaCliBusinessProcessorRules = class(TDABusinessProcessorRules, IDarMaxRefSubCuentaCli, IDarMaxRefSubCuentaCliDelta) private protected { Property getters and setters } function GetMAXValue: Integer; virtual; function GetMAXIsNull: Boolean; virtual; function GetOldMAXValue: Integer; virtual; function GetOldMAXIsNull: Boolean; virtual; procedure SetMAXValue(const aValue: Integer); virtual; procedure SetMAXIsNull(const aValue: Boolean); virtual; { Properties } property MAX : Integer read GetMAXValue write SetMAXValue; property MAXIsNull : Boolean read GetMAXIsNull write SetMAXIsNull; property OldMAX : Integer read GetOldMAXValue; property OldMAXIsNull : Boolean read GetOldMAXIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDarNumOrdenAsientoDelta } IDarNumOrdenAsientoDelta = interface(IDarNumOrdenAsiento) ['{16EEB9C7-F7B4-44A6-BE0B-C9BFB5C60E8A}'] { Property getters and setters } function GetOldNUM_ORDENValue : Int64; { Properties } property OldNUM_ORDEN : Int64 read GetOldNUM_ORDENValue; end; { TDarNumOrdenAsientoBusinessProcessorRules } TDarNumOrdenAsientoBusinessProcessorRules = class(TDABusinessProcessorRules, IDarNumOrdenAsiento, IDarNumOrdenAsientoDelta) private protected { Property getters and setters } function GetNUM_ORDENValue: Int64; virtual; function GetNUM_ORDENIsNull: Boolean; virtual; function GetOldNUM_ORDENValue: Int64; virtual; function GetOldNUM_ORDENIsNull: Boolean; virtual; procedure SetNUM_ORDENValue(const aValue: Int64); virtual; procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual; { Properties } property NUM_ORDEN : Int64 read GetNUM_ORDENValue write SetNUM_ORDENValue; property NUM_ORDENIsNull : Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull; property OldNUM_ORDEN : Int64 read GetOldNUM_ORDENValue; property OldNUM_ORDENIsNull : Boolean read GetOldNUM_ORDENIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers, uDAInterfaces; { TDarIDCuentaBusinessProcessorRules } constructor TDarIDCuentaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDarIDCuentaBusinessProcessorRules.Destroy; begin inherited; end; function TDarIDCuentaBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID]; end; function TDarIDCuentaBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID]); end; function TDarIDCuentaBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarIDCuentaID]; end; function TDarIDCuentaBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarIDCuentaID]); end; procedure TDarIDCuentaBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID] := aValue; end; procedure TDarIDCuentaBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DarIDCuentaID] := Null; end; { TDarCodigoContableTiendaBusinessProcessorRules } constructor TDarCodigoContableTiendaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDarCodigoContableTiendaBusinessProcessorRules.Destroy; begin inherited; end; function TDarCodigoContableTiendaBusinessProcessorRules.GetCODIGO_CONTABLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE]; end; function TDarCodigoContableTiendaBusinessProcessorRules.GetCODIGO_CONTABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE]); end; function TDarCodigoContableTiendaBusinessProcessorRules.GetOldCODIGO_CONTABLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE]; end; function TDarCodigoContableTiendaBusinessProcessorRules.GetOldCODIGO_CONTABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE]); end; procedure TDarCodigoContableTiendaBusinessProcessorRules.SetCODIGO_CONTABLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE] := aValue; end; procedure TDarCodigoContableTiendaBusinessProcessorRules.SetCODIGO_CONTABLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DarCodigoContableTiendaCODIGO_CONTABLE] := Null; end; { TDarMaxRefSubCuentaProvBusinessProcessorRules } constructor TDarMaxRefSubCuentaProvBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDarMaxRefSubCuentaProvBusinessProcessorRules.Destroy; begin inherited; end; function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetMAXValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX]; end; function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetMAXIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX]); end; function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetOldMAXValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaProvMAX]; end; function TDarMaxRefSubCuentaProvBusinessProcessorRules.GetOldMAXIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaProvMAX]); end; procedure TDarMaxRefSubCuentaProvBusinessProcessorRules.SetMAXValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX] := aValue; end; procedure TDarMaxRefSubCuentaProvBusinessProcessorRules.SetMAXIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaProvMAX] := Null; end; { TExisteSubCuentaBusinessProcessorRules } constructor TExisteSubCuentaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TExisteSubCuentaBusinessProcessorRules.Destroy; begin inherited; end; function TExisteSubCuentaBusinessProcessorRules.GetCOUNTValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT]; end; function TExisteSubCuentaBusinessProcessorRules.GetCOUNTIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT]); end; function TExisteSubCuentaBusinessProcessorRules.GetOldCOUNTValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ExisteSubCuentaCOUNT]; end; function TExisteSubCuentaBusinessProcessorRules.GetOldCOUNTIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ExisteSubCuentaCOUNT]); end; procedure TExisteSubCuentaBusinessProcessorRules.SetCOUNTValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT] := aValue; end; procedure TExisteSubCuentaBusinessProcessorRules.SetCOUNTIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteSubCuentaCOUNT] := Null; end; { TDiarioBusinessProcessorRules } constructor TDiarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDiarioBusinessProcessorRules.Destroy; begin inherited; end; function TDiarioBusinessProcessorRules.GetID_APUNTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE]; end; function TDiarioBusinessProcessorRules.GetID_APUNTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE]); end; function TDiarioBusinessProcessorRules.GetOldID_APUNTEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_APUNTE]; end; function TDiarioBusinessProcessorRules.GetOldID_APUNTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_APUNTE]); end; procedure TDiarioBusinessProcessorRules.SetID_APUNTEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE] := aValue; end; procedure TDiarioBusinessProcessorRules.SetID_APUNTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE] := Null; end; function TDiarioBusinessProcessorRules.GetID_ASIENTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO]; end; function TDiarioBusinessProcessorRules.GetID_ASIENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO]); end; function TDiarioBusinessProcessorRules.GetOldID_ASIENTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_ASIENTO]; end; function TDiarioBusinessProcessorRules.GetOldID_ASIENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_ASIENTO]); end; procedure TDiarioBusinessProcessorRules.SetID_ASIENTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetID_ASIENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO] := Null; end; function TDiarioBusinessProcessorRules.GetID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA]; end; function TDiarioBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA]); end; function TDiarioBusinessProcessorRules.GetOldID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_FACTURA]; end; function TDiarioBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_FACTURA]); end; procedure TDiarioBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA] := aValue; end; procedure TDiarioBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA] := Null; end; function TDiarioBusinessProcessorRules.GetID_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO]; end; function TDiarioBusinessProcessorRules.GetID_PAGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO]); end; function TDiarioBusinessProcessorRules.GetOldID_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_PAGO]; end; function TDiarioBusinessProcessorRules.GetOldID_PAGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_PAGO]); end; procedure TDiarioBusinessProcessorRules.SetID_PAGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetID_PAGOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := Null; end; function TDiarioBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioTIPO]; end; function TDiarioBusinessProcessorRules.GetTIPOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioTIPO]); end; function TDiarioBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioTIPO]; end; function TDiarioBusinessProcessorRules.GetOldTIPOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioTIPO]); end; procedure TDiarioBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioTIPO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioTIPO] := Null; end; function TDiarioBusinessProcessorRules.GetORDEN_ASIENTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO]; end; function TDiarioBusinessProcessorRules.GetORDEN_ASIENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO]); end; function TDiarioBusinessProcessorRules.GetOldORDEN_ASIENTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioORDEN_ASIENTO]; end; function TDiarioBusinessProcessorRules.GetOldORDEN_ASIENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioORDEN_ASIENTO]); end; procedure TDiarioBusinessProcessorRules.SetORDEN_ASIENTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetORDEN_ASIENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO] := Null; end; function TDiarioBusinessProcessorRules.GetFECHA_ASIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO]; end; function TDiarioBusinessProcessorRules.GetFECHA_ASIENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO]); end; function TDiarioBusinessProcessorRules.GetOldFECHA_ASIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioFECHA_ASIENTO]; end; function TDiarioBusinessProcessorRules.GetOldFECHA_ASIENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioFECHA_ASIENTO]); end; procedure TDiarioBusinessProcessorRules.SetFECHA_ASIENTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetFECHA_ASIENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO] := Null; end; function TDiarioBusinessProcessorRules.GetID_SUBCUENTAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA]; end; function TDiarioBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA]); end; function TDiarioBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_SUBCUENTA]; end; function TDiarioBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_SUBCUENTA]); end; procedure TDiarioBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA] := aValue; end; procedure TDiarioBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA] := Null; end; function TDiarioBusinessProcessorRules.GetREF_SUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA]; end; function TDiarioBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA]); end; function TDiarioBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioREF_SUBCUENTA]; end; function TDiarioBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioREF_SUBCUENTA]); end; procedure TDiarioBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := aValue; end; procedure TDiarioBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := Null; end; function TDiarioBusinessProcessorRules.GetSUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA]; end; function TDiarioBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA]); end; function TDiarioBusinessProcessorRules.GetOldSUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSUBCUENTA]; end; function TDiarioBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSUBCUENTA]); end; procedure TDiarioBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA] := aValue; end; procedure TDiarioBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSUBCUENTA] := Null; end; function TDiarioBusinessProcessorRules.GetID_EJERCICIOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO]; end; function TDiarioBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO]); end; function TDiarioBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_EJERCICIO]; end; function TDiarioBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_EJERCICIO]); end; procedure TDiarioBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO] := Null; end; function TDiarioBusinessProcessorRules.GetESTADOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioESTADO]; end; function TDiarioBusinessProcessorRules.GetESTADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioESTADO]); end; function TDiarioBusinessProcessorRules.GetOldESTADOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioESTADO]; end; function TDiarioBusinessProcessorRules.GetOldESTADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioESTADO]); end; procedure TDiarioBusinessProcessorRules.SetESTADOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioESTADO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioESTADO] := Null; end; function TDiarioBusinessProcessorRules.GetCONCEPTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO]; end; function TDiarioBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO]); end; function TDiarioBusinessProcessorRules.GetOldCONCEPTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioCONCEPTO]; end; function TDiarioBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioCONCEPTO]); end; procedure TDiarioBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO] := Null; end; function TDiarioBusinessProcessorRules.GetDOCUMENTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO]; end; function TDiarioBusinessProcessorRules.GetDOCUMENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO]); end; function TDiarioBusinessProcessorRules.GetOldDOCUMENTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDOCUMENTO]; end; function TDiarioBusinessProcessorRules.GetOldDOCUMENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDOCUMENTO]); end; procedure TDiarioBusinessProcessorRules.SetDOCUMENTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetDOCUMENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO] := Null; end; function TDiarioBusinessProcessorRules.GetDEBEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE]; end; function TDiarioBusinessProcessorRules.GetDEBEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE]); end; function TDiarioBusinessProcessorRules.GetOldDEBEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDEBE]; end; function TDiarioBusinessProcessorRules.GetOldDEBEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDEBE]); end; procedure TDiarioBusinessProcessorRules.SetDEBEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE] := aValue; end; procedure TDiarioBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE] := Null; end; function TDiarioBusinessProcessorRules.GetHABERValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER]; end; function TDiarioBusinessProcessorRules.GetHABERIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER]); end; function TDiarioBusinessProcessorRules.GetOldHABERValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioHABER]; end; function TDiarioBusinessProcessorRules.GetOldHABERIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioHABER]); end; procedure TDiarioBusinessProcessorRules.SetHABERValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER] := aValue; end; procedure TDiarioBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER] := Null; end; function TDiarioBusinessProcessorRules.GetPUNTEADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO]; end; function TDiarioBusinessProcessorRules.GetPUNTEADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO]); end; function TDiarioBusinessProcessorRules.GetOldPUNTEADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioPUNTEADO]; end; function TDiarioBusinessProcessorRules.GetOldPUNTEADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioPUNTEADO]); end; procedure TDiarioBusinessProcessorRules.SetPUNTEADOValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetPUNTEADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO] := Null; end; function TDiarioBusinessProcessorRules.GetSALDOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSALDO]; end; function TDiarioBusinessProcessorRules.GetSALDOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSALDO]); end; function TDiarioBusinessProcessorRules.GetOldSALDOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSALDO]; end; function TDiarioBusinessProcessorRules.GetOldSALDOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioSALDO]); end; procedure TDiarioBusinessProcessorRules.SetSALDOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSALDO] := aValue; end; procedure TDiarioBusinessProcessorRules.SetSALDOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioSALDO] := Null; end; { TApuntesBusinessProcessorRules } constructor TApuntesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TApuntesBusinessProcessorRules.Destroy; begin inherited; end; function TApuntesBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID]; end; function TApuntesBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID]); end; function TApuntesBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID]; end; function TApuntesBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID]); end; procedure TApuntesBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID] := aValue; end; procedure TApuntesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID] := Null; end; function TApuntesBusinessProcessorRules.GetID_ASIENTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO]; end; function TApuntesBusinessProcessorRules.GetID_ASIENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO]); end; function TApuntesBusinessProcessorRules.GetOldID_ASIENTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_ASIENTO]; end; function TApuntesBusinessProcessorRules.GetOldID_ASIENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_ASIENTO]); end; procedure TApuntesBusinessProcessorRules.SetID_ASIENTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO] := aValue; end; procedure TApuntesBusinessProcessorRules.SetID_ASIENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO] := Null; end; function TApuntesBusinessProcessorRules.GetID_SUBCUENTAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA]; end; function TApuntesBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA]); end; function TApuntesBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_SUBCUENTA]; end; function TApuntesBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_SUBCUENTA]); end; procedure TApuntesBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA] := aValue; end; procedure TApuntesBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA] := Null; end; function TApuntesBusinessProcessorRules.GetNUM_ORDENValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN]; end; function TApuntesBusinessProcessorRules.GetNUM_ORDENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN]); end; function TApuntesBusinessProcessorRules.GetOldNUM_ORDENValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesNUM_ORDEN]; end; function TApuntesBusinessProcessorRules.GetOldNUM_ORDENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesNUM_ORDEN]); end; procedure TApuntesBusinessProcessorRules.SetNUM_ORDENValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN] := aValue; end; procedure TApuntesBusinessProcessorRules.SetNUM_ORDENIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN] := Null; end; function TApuntesBusinessProcessorRules.GetREF_SUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA]; end; function TApuntesBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA]); end; function TApuntesBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesREF_SUBCUENTA]; end; function TApuntesBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesREF_SUBCUENTA]); end; procedure TApuntesBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA] := aValue; end; procedure TApuntesBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA] := Null; end; function TApuntesBusinessProcessorRules.GetSUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA]; end; function TApuntesBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA]); end; function TApuntesBusinessProcessorRules.GetOldSUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesSUBCUENTA]; end; function TApuntesBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesSUBCUENTA]); end; procedure TApuntesBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA] := aValue; end; procedure TApuntesBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA] := Null; end; function TApuntesBusinessProcessorRules.GetCONCEPTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO]; end; function TApuntesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO]); end; function TApuntesBusinessProcessorRules.GetOldCONCEPTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesCONCEPTO]; end; function TApuntesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesCONCEPTO]); end; procedure TApuntesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO] := aValue; end; procedure TApuntesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO] := Null; end; function TApuntesBusinessProcessorRules.GetDOCUMENTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO]; end; function TApuntesBusinessProcessorRules.GetDOCUMENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO]); end; function TApuntesBusinessProcessorRules.GetOldDOCUMENTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDOCUMENTO]; end; function TApuntesBusinessProcessorRules.GetOldDOCUMENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDOCUMENTO]); end; procedure TApuntesBusinessProcessorRules.SetDOCUMENTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO] := aValue; end; procedure TApuntesBusinessProcessorRules.SetDOCUMENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO] := Null; end; function TApuntesBusinessProcessorRules.GetDEBEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE]; end; function TApuntesBusinessProcessorRules.GetDEBEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE]); end; function TApuntesBusinessProcessorRules.GetOldDEBEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDEBE]; end; function TApuntesBusinessProcessorRules.GetOldDEBEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDEBE]); end; procedure TApuntesBusinessProcessorRules.SetDEBEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE] := aValue; end; procedure TApuntesBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE] := Null; end; function TApuntesBusinessProcessorRules.GetHABERValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER]; end; function TApuntesBusinessProcessorRules.GetHABERIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER]); end; function TApuntesBusinessProcessorRules.GetOldHABERValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesHABER]; end; function TApuntesBusinessProcessorRules.GetOldHABERIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesHABER]); end; procedure TApuntesBusinessProcessorRules.SetHABERValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER] := aValue; end; procedure TApuntesBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER] := Null; end; function TApuntesBusinessProcessorRules.GetPUNTEADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO]; end; function TApuntesBusinessProcessorRules.GetPUNTEADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO]); end; function TApuntesBusinessProcessorRules.GetOldPUNTEADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesPUNTEADO]; end; function TApuntesBusinessProcessorRules.GetOldPUNTEADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesPUNTEADO]); end; procedure TApuntesBusinessProcessorRules.SetPUNTEADOValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO] := aValue; end; procedure TApuntesBusinessProcessorRules.SetPUNTEADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO] := Null; end; { TAsientosBusinessProcessorRules } constructor TAsientosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TAsientosBusinessProcessorRules.Destroy; begin inherited; end; function TAsientosBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID]; end; function TAsientosBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID]); end; function TAsientosBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID]; end; function TAsientosBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID]); end; procedure TAsientosBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID] := aValue; end; procedure TAsientosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID] := Null; end; function TAsientosBusinessProcessorRules.GetFECHA_ASIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO]; end; function TAsientosBusinessProcessorRules.GetFECHA_ASIENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO]); end; function TAsientosBusinessProcessorRules.GetOldFECHA_ASIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosFECHA_ASIENTO]; end; function TAsientosBusinessProcessorRules.GetOldFECHA_ASIENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosFECHA_ASIENTO]); end; procedure TAsientosBusinessProcessorRules.SetFECHA_ASIENTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO] := aValue; end; procedure TAsientosBusinessProcessorRules.SetFECHA_ASIENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO] := Null; end; function TAsientosBusinessProcessorRules.GetORDENValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN]; end; function TAsientosBusinessProcessorRules.GetORDENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN]); end; function TAsientosBusinessProcessorRules.GetOldORDENValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosORDEN]; end; function TAsientosBusinessProcessorRules.GetOldORDENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosORDEN]); end; procedure TAsientosBusinessProcessorRules.SetORDENValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN] := aValue; end; procedure TAsientosBusinessProcessorRules.SetORDENIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN] := Null; end; function TAsientosBusinessProcessorRules.GetID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA]; end; function TAsientosBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA]); end; function TAsientosBusinessProcessorRules.GetOldID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_FACTURA]; end; function TAsientosBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_FACTURA]); end; procedure TAsientosBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA] := aValue; end; procedure TAsientosBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA] := Null; end; function TAsientosBusinessProcessorRules.GetID_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO]; end; function TAsientosBusinessProcessorRules.GetID_PAGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO]); end; function TAsientosBusinessProcessorRules.GetOldID_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_PAGO]; end; function TAsientosBusinessProcessorRules.GetOldID_PAGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_PAGO]); end; procedure TAsientosBusinessProcessorRules.SetID_PAGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO] := aValue; end; procedure TAsientosBusinessProcessorRules.SetID_PAGOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_PAGO] := Null; end; function TAsientosBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosTIPO]; end; function TAsientosBusinessProcessorRules.GetTIPOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosTIPO]); end; function TAsientosBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosTIPO]; end; function TAsientosBusinessProcessorRules.GetOldTIPOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosTIPO]); end; procedure TAsientosBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosTIPO] := aValue; end; procedure TAsientosBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosTIPO] := Null; end; { TSubCuentasBusinessProcessorRules } constructor TSubCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TSubCuentasBusinessProcessorRules.Destroy; begin inherited; end; function TSubCuentasBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID]; end; function TSubCuentasBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID]); end; function TSubCuentasBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID]; end; function TSubCuentasBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID]); end; procedure TSubCuentasBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID] := Null; end; function TSubCuentasBusinessProcessorRules.GetREF_SUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA]; end; function TSubCuentasBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA]); end; function TSubCuentasBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_SUBCUENTA]; end; function TSubCuentasBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_SUBCUENTA]); end; procedure TSubCuentasBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA] := Null; end; function TSubCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION]; end; function TSubCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION]); end; function TSubCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDESCRIPCION]; end; function TSubCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDESCRIPCION]); end; procedure TSubCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION] := Null; end; function TSubCuentasBusinessProcessorRules.GetID_EJERCICIOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO]; end; function TSubCuentasBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO]); end; function TSubCuentasBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_EJERCICIO]; end; function TSubCuentasBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_EJERCICIO]); end; procedure TSubCuentasBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := Null; end; function TSubCuentasBusinessProcessorRules.GetESTADOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasESTADO]; end; function TSubCuentasBusinessProcessorRules.GetESTADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasESTADO]); end; function TSubCuentasBusinessProcessorRules.GetOldESTADOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasESTADO]; end; function TSubCuentasBusinessProcessorRules.GetOldESTADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasESTADO]); end; procedure TSubCuentasBusinessProcessorRules.SetESTADOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasESTADO] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasESTADO] := Null; end; function TSubCuentasBusinessProcessorRules.GetREF_EPIGRAFE_PADREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE]; end; function TSubCuentasBusinessProcessorRules.GetREF_EPIGRAFE_PADREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE]); end; function TSubCuentasBusinessProcessorRules.GetOldREF_EPIGRAFE_PADREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE]; end; function TSubCuentasBusinessProcessorRules.GetOldREF_EPIGRAFE_PADREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE]); end; procedure TSubCuentasBusinessProcessorRules.SetREF_EPIGRAFE_PADREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetREF_EPIGRAFE_PADREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_EPIGRAFE_PADRE] := Null; end; function TSubCuentasBusinessProcessorRules.GetID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO]; end; function TSubCuentasBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO]); end; function TSubCuentasBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CONTACTO]; end; function TSubCuentasBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CONTACTO]); end; procedure TSubCuentasBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO] := Null; end; function TSubCuentasBusinessProcessorRules.GetID_CUENTAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA]; end; function TSubCuentasBusinessProcessorRules.GetID_CUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA]); end; function TSubCuentasBusinessProcessorRules.GetOldID_CUENTAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CUENTA]; end; function TSubCuentasBusinessProcessorRules.GetOldID_CUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CUENTA]); end; procedure TSubCuentasBusinessProcessorRules.SetID_CUENTAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetID_CUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := Null; end; function TSubCuentasBusinessProcessorRules.GetREF_CUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA]; end; function TSubCuentasBusinessProcessorRules.GetREF_CUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA]); end; function TSubCuentasBusinessProcessorRules.GetOldREF_CUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_CUENTA]; end; function TSubCuentasBusinessProcessorRules.GetOldREF_CUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_CUENTA]); end; procedure TSubCuentasBusinessProcessorRules.SetREF_CUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetREF_CUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA] := Null; end; function TSubCuentasBusinessProcessorRules.GetCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA]; end; function TSubCuentasBusinessProcessorRules.GetCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA]); end; function TSubCuentasBusinessProcessorRules.GetOldCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasCUENTA]; end; function TSubCuentasBusinessProcessorRules.GetOldCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasCUENTA]); end; procedure TSubCuentasBusinessProcessorRules.SetCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA] := Null; end; function TSubCuentasBusinessProcessorRules.GetDEBEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE]; end; function TSubCuentasBusinessProcessorRules.GetDEBEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE]); end; function TSubCuentasBusinessProcessorRules.GetOldDEBEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDEBE]; end; function TSubCuentasBusinessProcessorRules.GetOldDEBEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDEBE]); end; procedure TSubCuentasBusinessProcessorRules.SetDEBEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE] := Null; end; function TSubCuentasBusinessProcessorRules.GetHABERValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER]; end; function TSubCuentasBusinessProcessorRules.GetHABERIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER]); end; function TSubCuentasBusinessProcessorRules.GetOldHABERValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasHABER]; end; function TSubCuentasBusinessProcessorRules.GetOldHABERIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasHABER]); end; procedure TSubCuentasBusinessProcessorRules.SetHABERValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER] := Null; end; function TSubCuentasBusinessProcessorRules.GetSALDOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO]; end; function TSubCuentasBusinessProcessorRules.GetSALDOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO]); end; function TSubCuentasBusinessProcessorRules.GetOldSALDOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasSALDO]; end; function TSubCuentasBusinessProcessorRules.GetOldSALDOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasSALDO]); end; procedure TSubCuentasBusinessProcessorRules.SetSALDOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO] := aValue; end; procedure TSubCuentasBusinessProcessorRules.SetSALDOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO] := Null; end; { TCuentasBusinessProcessorRules } constructor TCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TCuentasBusinessProcessorRules.Destroy; begin inherited; end; function TCuentasBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID]; end; function TCuentasBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID]); end; function TCuentasBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID]; end; function TCuentasBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID]); end; procedure TCuentasBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID] := aValue; end; procedure TCuentasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID] := Null; end; function TCuentasBusinessProcessorRules.GetREF_CUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA]; end; function TCuentasBusinessProcessorRules.GetREF_CUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA]); end; function TCuentasBusinessProcessorRules.GetOldREF_CUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasREF_CUENTA]; end; function TCuentasBusinessProcessorRules.GetOldREF_CUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasREF_CUENTA]); end; procedure TCuentasBusinessProcessorRules.SetREF_CUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA] := aValue; end; procedure TCuentasBusinessProcessorRules.SetREF_CUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA] := Null; end; function TCuentasBusinessProcessorRules.GetID_EJERCICIOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO]; end; function TCuentasBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO]); end; function TCuentasBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EJERCICIO]; end; function TCuentasBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EJERCICIO]); end; procedure TCuentasBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := aValue; end; procedure TCuentasBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := Null; end; function TCuentasBusinessProcessorRules.GetESTADOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasESTADO]; end; function TCuentasBusinessProcessorRules.GetESTADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasESTADO]); end; function TCuentasBusinessProcessorRules.GetOldESTADOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasESTADO]; end; function TCuentasBusinessProcessorRules.GetOldESTADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasESTADO]); end; procedure TCuentasBusinessProcessorRules.SetESTADOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasESTADO] := aValue; end; procedure TCuentasBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasESTADO] := Null; end; function TCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]; end; function TCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]); end; function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION]; end; function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION]); end; procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := aValue; end; procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := Null; end; function TCuentasBusinessProcessorRules.GetID_EPIGRAFEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE]; end; function TCuentasBusinessProcessorRules.GetID_EPIGRAFEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE]); end; function TCuentasBusinessProcessorRules.GetOldID_EPIGRAFEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EPIGRAFE]; end; function TCuentasBusinessProcessorRules.GetOldID_EPIGRAFEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EPIGRAFE]); end; procedure TCuentasBusinessProcessorRules.SetID_EPIGRAFEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := aValue; end; procedure TCuentasBusinessProcessorRules.SetID_EPIGRAFEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := Null; end; function TCuentasBusinessProcessorRules.GetEPIGRAFEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE]; end; function TCuentasBusinessProcessorRules.GetEPIGRAFEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE]); end; function TCuentasBusinessProcessorRules.GetOldEPIGRAFEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEPIGRAFE]; end; function TCuentasBusinessProcessorRules.GetOldEPIGRAFEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEPIGRAFE]); end; procedure TCuentasBusinessProcessorRules.SetEPIGRAFEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE] := aValue; end; procedure TCuentasBusinessProcessorRules.SetEPIGRAFEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE] := Null; end; function TCuentasBusinessProcessorRules.GetID_BALANCEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE]; end; function TCuentasBusinessProcessorRules.GetID_BALANCEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE]); end; function TCuentasBusinessProcessorRules.GetOldID_BALANCEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_BALANCE]; end; function TCuentasBusinessProcessorRules.GetOldID_BALANCEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_BALANCE]); end; procedure TCuentasBusinessProcessorRules.SetID_BALANCEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := aValue; end; procedure TCuentasBusinessProcessorRules.SetID_BALANCEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := Null; end; function TCuentasBusinessProcessorRules.GetBALANCEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE]; end; function TCuentasBusinessProcessorRules.GetBALANCEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE]); end; function TCuentasBusinessProcessorRules.GetOldBALANCEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasBALANCE]; end; function TCuentasBusinessProcessorRules.GetOldBALANCEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasBALANCE]); end; procedure TCuentasBusinessProcessorRules.SetBALANCEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE] := aValue; end; procedure TCuentasBusinessProcessorRules.SetBALANCEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE] := Null; end; function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL]; end; function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL]); end; function TCuentasBusinessProcessorRules.GetOldID_CUENTA_ESPECIALValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_CUENTA_ESPECIAL]; end; function TCuentasBusinessProcessorRules.GetOldID_CUENTA_ESPECIALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_CUENTA_ESPECIAL]); end; procedure TCuentasBusinessProcessorRules.SetID_CUENTA_ESPECIALValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := aValue; end; procedure TCuentasBusinessProcessorRules.SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := Null; end; function TCuentasBusinessProcessorRules.GetCUENTA_ESPECIALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL]; end; function TCuentasBusinessProcessorRules.GetCUENTA_ESPECIALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL]); end; function TCuentasBusinessProcessorRules.GetOldCUENTA_ESPECIALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasCUENTA_ESPECIAL]; end; function TCuentasBusinessProcessorRules.GetOldCUENTA_ESPECIALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasCUENTA_ESPECIAL]); end; procedure TCuentasBusinessProcessorRules.SetCUENTA_ESPECIALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL] := aValue; end; procedure TCuentasBusinessProcessorRules.SetCUENTA_ESPECIALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL] := Null; end; { TCuentasEspecialesBusinessProcessorRules } constructor TCuentasEspecialesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TCuentasEspecialesBusinessProcessorRules.Destroy; begin inherited; end; function TCuentasEspecialesBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID]; end; function TCuentasEspecialesBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID]); end; function TCuentasEspecialesBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID]; end; function TCuentasEspecialesBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID]); end; procedure TCuentasEspecialesBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := aValue; end; procedure TCuentasEspecialesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := Null; end; function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA]; end; function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA]); end; function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA]; end; function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA]); end; procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := aValue; end; procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := Null; end; function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION]; end; function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION]); end; function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION]; end; function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION]); end; procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := aValue; end; procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := Null; end; { TEpigrafesBusinessProcessorRules } constructor TEpigrafesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TEpigrafesBusinessProcessorRules.Destroy; begin inherited; end; function TEpigrafesBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID]; end; function TEpigrafesBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID]); end; function TEpigrafesBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID]; end; function TEpigrafesBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID]); end; procedure TEpigrafesBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := aValue; end; procedure TEpigrafesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := Null; end; function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE]; end; function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE]); end; function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE]; end; function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE]); end; procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := aValue; end; procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := Null; end; function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION]; end; function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION]); end; function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION]; end; function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION]); end; procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := aValue; end; procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := Null; end; function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO]; end; function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO]); end; function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO]; end; function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO]); end; procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := aValue; end; procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null; end; function TEpigrafesBusinessProcessorRules.GetESTADOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesESTADO]; end; function TEpigrafesBusinessProcessorRules.GetESTADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesESTADO]); end; function TEpigrafesBusinessProcessorRules.GetOldESTADOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesESTADO]; end; function TEpigrafesBusinessProcessorRules.GetOldESTADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesESTADO]); end; procedure TEpigrafesBusinessProcessorRules.SetESTADOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesESTADO] := aValue; end; procedure TEpigrafesBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesESTADO] := Null; end; function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]; end; function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]); end; function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]; end; function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]); end; procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue; end; procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null; end; function TEpigrafesBusinessProcessorRules.GetEPIGRAFE_PADREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE]; end; function TEpigrafesBusinessProcessorRules.GetEPIGRAFE_PADREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE]); end; function TEpigrafesBusinessProcessorRules.GetOldEPIGRAFE_PADREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesEPIGRAFE_PADRE]; end; function TEpigrafesBusinessProcessorRules.GetOldEPIGRAFE_PADREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesEPIGRAFE_PADRE]); end; procedure TEpigrafesBusinessProcessorRules.SetEPIGRAFE_PADREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE] := aValue; end; procedure TEpigrafesBusinessProcessorRules.SetEPIGRAFE_PADREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE] := Null; end; { TBalancesBusinessProcessorRules } constructor TBalancesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TBalancesBusinessProcessorRules.Destroy; begin inherited; end; function TBalancesBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID]; end; function TBalancesBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID]); end; function TBalancesBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID]; end; function TBalancesBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID]); end; procedure TBalancesBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := aValue; end; procedure TBalancesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := Null; end; function TBalancesBusinessProcessorRules.GetREF_BALANCEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE]; end; function TBalancesBusinessProcessorRules.GetREF_BALANCEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE]); end; function TBalancesBusinessProcessorRules.GetOldREF_BALANCEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE]; end; function TBalancesBusinessProcessorRules.GetOldREF_BALANCEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE]); end; procedure TBalancesBusinessProcessorRules.SetREF_BALANCEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := aValue; end; procedure TBalancesBusinessProcessorRules.SetREF_BALANCEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := Null; end; function TBalancesBusinessProcessorRules.GetNATURALEZAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA]; end; function TBalancesBusinessProcessorRules.GetNATURALEZAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA]); end; function TBalancesBusinessProcessorRules.GetOldNATURALEZAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA]; end; function TBalancesBusinessProcessorRules.GetOldNATURALEZAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA]); end; procedure TBalancesBusinessProcessorRules.SetNATURALEZAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := aValue; end; procedure TBalancesBusinessProcessorRules.SetNATURALEZAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := Null; end; function TBalancesBusinessProcessorRules.GetNIVEL1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1]; end; function TBalancesBusinessProcessorRules.GetNIVEL1IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1]); end; function TBalancesBusinessProcessorRules.GetOldNIVEL1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1]; end; function TBalancesBusinessProcessorRules.GetOldNIVEL1IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1]); end; procedure TBalancesBusinessProcessorRules.SetNIVEL1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := aValue; end; procedure TBalancesBusinessProcessorRules.SetNIVEL1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := Null; end; function TBalancesBusinessProcessorRules.GetDESCRIPCION1Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1]; end; function TBalancesBusinessProcessorRules.GetDESCRIPCION1IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1]); end; function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1]; end; function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1]); end; procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := aValue; end; procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := Null; end; function TBalancesBusinessProcessorRules.GetNIVEL2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2]; end; function TBalancesBusinessProcessorRules.GetNIVEL2IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2]); end; function TBalancesBusinessProcessorRules.GetOldNIVEL2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2]; end; function TBalancesBusinessProcessorRules.GetOldNIVEL2IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2]); end; procedure TBalancesBusinessProcessorRules.SetNIVEL2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := aValue; end; procedure TBalancesBusinessProcessorRules.SetNIVEL2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := Null; end; function TBalancesBusinessProcessorRules.GetDESCRIPCION2Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2]; end; function TBalancesBusinessProcessorRules.GetDESCRIPCION2IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2]); end; function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2]; end; function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2]); end; procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := aValue; end; procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := Null; end; function TBalancesBusinessProcessorRules.GetNIVEL3Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3]; end; function TBalancesBusinessProcessorRules.GetNIVEL3IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3]); end; function TBalancesBusinessProcessorRules.GetOldNIVEL3Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3]; end; function TBalancesBusinessProcessorRules.GetOldNIVEL3IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3]); end; procedure TBalancesBusinessProcessorRules.SetNIVEL3Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := aValue; end; procedure TBalancesBusinessProcessorRules.SetNIVEL3IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := Null; end; function TBalancesBusinessProcessorRules.GetDESCRIPCION3Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3]; end; function TBalancesBusinessProcessorRules.GetDESCRIPCION3IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3]); end; function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3]; end; function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3]); end; procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := aValue; end; procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := Null; end; { TDarMaxRefSubCuentaCliBusinessProcessorRules } constructor TDarMaxRefSubCuentaCliBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDarMaxRefSubCuentaCliBusinessProcessorRules.Destroy; begin inherited; end; function TDarMaxRefSubCuentaCliBusinessProcessorRules.GetMAXValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaCliMAX]; end; function TDarMaxRefSubCuentaCliBusinessProcessorRules.GetMAXIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaCliMAX]); end; function TDarMaxRefSubCuentaCliBusinessProcessorRules.GetOldMAXValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaCliMAX]; end; function TDarMaxRefSubCuentaCliBusinessProcessorRules.GetOldMAXIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarMaxRefSubCuentaCliMAX]); end; procedure TDarMaxRefSubCuentaCliBusinessProcessorRules.SetMAXValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaCliMAX] := aValue; end; procedure TDarMaxRefSubCuentaCliBusinessProcessorRules.SetMAXIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DarMaxRefSubCuentaCliMAX] := Null; end; { TDarNumOrdenAsientoBusinessProcessorRules } constructor TDarNumOrdenAsientoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDarNumOrdenAsientoBusinessProcessorRules.Destroy; begin inherited; end; function TDarNumOrdenAsientoBusinessProcessorRules.GetNUM_ORDENValue: Int64; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarNumOrdenAsientoNUM_ORDEN]; end; function TDarNumOrdenAsientoBusinessProcessorRules.GetNUM_ORDENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarNumOrdenAsientoNUM_ORDEN]); end; function TDarNumOrdenAsientoBusinessProcessorRules.GetOldNUM_ORDENValue: Int64; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarNumOrdenAsientoNUM_ORDEN]; end; function TDarNumOrdenAsientoBusinessProcessorRules.GetOldNUM_ORDENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarNumOrdenAsientoNUM_ORDEN]); end; procedure TDarNumOrdenAsientoBusinessProcessorRules.SetNUM_ORDENValue(const aValue: Int64); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DarNumOrdenAsientoNUM_ORDEN] := aValue; end; procedure TDarNumOrdenAsientoBusinessProcessorRules.SetNUM_ORDENIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_DarNumOrdenAsientoNUM_ORDEN] := Null; end; initialization RegisterBusinessProcessorRules(RID_DarIDCuentaDelta, TDarIDCuentaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarCodigoContableTiendaDelta, TDarCodigoContableTiendaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaProvDelta, TDarMaxRefSubCuentaProvBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ExisteSubCuentaDelta, TExisteSubCuentaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DiarioDelta, TDiarioBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ApuntesDelta, TApuntesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_AsientosDelta, TAsientosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_SubCuentasDelta, TSubCuentasBusinessProcessorRules); RegisterBusinessProcessorRules(RID_CuentasDelta, TCuentasBusinessProcessorRules); RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarMaxRefSubCuentaCliDelta, TDarMaxRefSubCuentaCliBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarNumOrdenAsientoDelta, TDarNumOrdenAsientoBusinessProcessorRules); end.