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 = '{4A8D8FA0-0EEF-4491-BFB4-799375FF5528}';
  RID_DarCodigoContableTiendaDelta = '{4E3CF1AC-F8CB-4D95-B44F-5554F384A7A4}';
  RID_DarMaxRefSubCuentaProvDelta = '{F3BD2639-0408-456A-93C0-DF43CBB10A0A}';
  RID_ExisteSubCuentaDelta = '{2D136513-7A96-4A3D-9DA6-2A8822F53748}';
  RID_DiarioDelta = '{DC0F4316-FAF1-4DD1-8682-66E915811023}';
  RID_ApuntesDelta = '{F2EDB86B-74A8-4A52-8157-2692165612C9}';
  RID_AsientosDelta = '{35612FDC-F9CE-467A-A2E8-0D26DC3AD200}';
  RID_SubCuentasDelta = '{6E660749-3293-4E06-96AB-A11049C7C342}';
  RID_CuentasDelta = '{018CF9CE-E675-40D9-A9E4-F8575423D2DB}';
  RID_CuentasEspecialesDelta = '{6C17A277-C23B-45F2-9815-F5B231A52442}';
  RID_EpigrafesDelta = '{7164D494-BF70-459F-A6D1-71A368ACB6D6}';
  RID_BalancesDelta = '{B7E31CED-2229-4BED-8AA5-F00D8642478B}';
  RID_DarMaxRefSubCuentaCliDelta = '{B3246BC2-0498-4F96-B2E1-939CD9179F02}';
  RID_DarNumOrdenAsientoDelta = '{1751D5F8-1A96-4208-BFE1-074E99A36D4F}';

type
  { IDarIDCuentaDelta }
  IDarIDCuentaDelta = interface(IDarIDCuenta)
  ['{4A8D8FA0-0EEF-4491-BFB4-799375FF5528}']
    { 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)
  ['{4E3CF1AC-F8CB-4D95-B44F-5554F384A7A4}']
    { 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)
  ['{F3BD2639-0408-456A-93C0-DF43CBB10A0A}']
    { 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)
  ['{2D136513-7A96-4A3D-9DA6-2A8822F53748}']
    { 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)
  ['{DC0F4316-FAF1-4DD1-8682-66E915811023}']
    { 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 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 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 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 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)
  ['{F2EDB86B-74A8-4A52-8157-2692165612C9}']
    { 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)
  ['{35612FDC-F9CE-467A-A2E8-0D26DC3AD200}']
    { 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)
  ['{6E660749-3293-4E06-96AB-A11049C7C342}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldREF_SUBCUENTAValue : String;
    function GetOldDESCRIPCIONValue : String;
    function GetOldID_EJERCICIOValue : Integer;
    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 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 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 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)
  ['{018CF9CE-E675-40D9-A9E4-F8575423D2DB}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldREF_CUENTAValue : String;
    function GetOldID_EJERCICIOValue : Integer;
    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 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 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 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)
  ['{6C17A277-C23B-45F2-9815-F5B231A52442}']
    { 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)
  ['{7164D494-BF70-459F-A6D1-71A368ACB6D6}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldREF_EPIGRAFEValue : String;
    function GetOldDESCRIPCIONValue : String;
    function GetOldID_EJERCICIOValue : Integer;
    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 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 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 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)
  ['{B7E31CED-2229-4BED-8AA5-F00D8642478B}']
    { 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)
  ['{B3246BC2-0498-4F96-B2E1-939CD9179F02}']
    { 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)
  ['{1751D5F8-1A96-4208-BFE1-074E99A36D4F}']
    { 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.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.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.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.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.
