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_AsientosDelta = '{E5444D5F-9D7A-4EF7-A3EC-54E04047ABB8}';
  RID_SubCuentasDelta = '{06655A2F-ECFC-4984-B5EF-275E3B2F84E3}';
  RID_CuentasDelta = '{FB48551E-0531-4FC3-8494-51ABBA80938C}';
  RID_CuentasEspecialesDelta = '{4A7CF142-4CE5-41BE-863B-A4983EB6D7DC}';
  RID_EpigrafesDelta = '{691EBC10-A868-46C5-9EDF-8E55A27221D0}';
  RID_BalancesDelta = '{C6255FDC-F284-4F1F-9559-685B3FEE30A9}';

type
  { IAsientosDelta }
  IAsientosDelta = interface(IAsientos)
  ['{E5444D5F-9D7A-4EF7-A3EC-54E04047ABB8}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_ASIENTO_COMPENSADOValue : Integer;
    function GetOldID_SUBCUENTAValue : Integer;
    function GetOldFECHA_ASIENTOValue : DateTime;
    function GetOldCONCEPTOValue : String;
    function GetOldPUNTEADOValue : SmallInt;
    function GetOldDEBEValue : Currency;
    function GetOldHABERValue : Currency;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_ASIENTO_COMPENSADO : Integer read GetOldID_ASIENTO_COMPENSADOValue;
    property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
    property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
    property OldCONCEPTO : String read GetOldCONCEPTOValue;
    property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
    property OldDEBE : Currency read GetOldDEBEValue;
    property OldHABER : Currency read GetOldHABERValue;
  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 GetID_ASIENTO_COMPENSADOValue: Integer; virtual;
    function GetID_ASIENTO_COMPENSADOIsNull: Boolean; virtual;
    function GetOldID_ASIENTO_COMPENSADOValue: Integer; virtual;
    function GetOldID_ASIENTO_COMPENSADOIsNull: Boolean; virtual;
    procedure SetID_ASIENTO_COMPENSADOValue(const aValue: Integer); virtual;
    procedure SetID_ASIENTO_COMPENSADOIsNull(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 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 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 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 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;

    { 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_COMPENSADO : Integer read GetID_ASIENTO_COMPENSADOValue write SetID_ASIENTO_COMPENSADOValue;
    property ID_ASIENTO_COMPENSADOIsNull : Boolean read GetID_ASIENTO_COMPENSADOIsNull write SetID_ASIENTO_COMPENSADOIsNull;
    property OldID_ASIENTO_COMPENSADO : Integer read GetOldID_ASIENTO_COMPENSADOValue;
    property OldID_ASIENTO_COMPENSADOIsNull : Boolean read GetOldID_ASIENTO_COMPENSADOIsNull;
    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 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 CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
    property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
    property OldCONCEPTO : String read GetOldCONCEPTOValue;
    property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
    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 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;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { ISubCuentasDelta }
  ISubCuentasDelta = interface(ISubCuentas)
  ['{06655A2F-ECFC-4984-B5EF-275E3B2F84E3}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldREF_SUBCUENTAValue : String;
    function GetOldDESCRIPCIONValue : String;
    function GetOldID_CUENTAValue : Integer;
    function GetOldID_EJERCICIOValue : Integer;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
  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_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 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;

    { 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_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 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;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { ICuentasDelta }
  ICuentasDelta = interface(ICuentas)
  ['{FB48551E-0531-4FC3-8494-51ABBA80938C}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldREF_CUENTAValue : String;
    function GetOldID_EJERCICIOValue : Integer;
    function GetOldID_EPIGRAFEValue : Integer;
    function GetOldDESCRIPCIONValue : String;
    function GetOldID_BALANCEValue : Integer;
    function GetOldID_CUENTA_ESPECIALValue : Integer;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
    property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldID_BALANCE : Integer read GetOldID_BALANCEValue;
    property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_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 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 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_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 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;

    { 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 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 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_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 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;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { ICuentasEspecialesDelta }
  ICuentasEspecialesDelta = interface(ICuentasEspeciales)
  ['{4A7CF142-4CE5-41BE-863B-A4983EB6D7DC}']
    { 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)
  ['{691EBC10-A868-46C5-9EDF-8E55A27221D0}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldREF_EPIGRAFEValue : String;
    function GetOldID_PADREValue : Integer;
    function GetOldDESCRIPCIONValue : String;
    function GetOldID_EJERCICIOValue : Integer;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
    property OldID_PADRE : Integer read GetOldID_PADREValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
  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 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 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;

    { 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 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 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;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IBalancesDelta }
  IBalancesDelta = interface(IBalances)
  ['{C6255FDC-F284-4F1F-9559-685B3FEE30A9}']
    { 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;

implementation

uses
  Variants, uROBinaryHelpers, uDAInterfaces;

{ 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.GetID_ASIENTO_COMPENSADOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO];
end;

function TAsientosBusinessProcessorRules.GetID_ASIENTO_COMPENSADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO]);
end;

function TAsientosBusinessProcessorRules.GetOldID_ASIENTO_COMPENSADOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_ASIENTO_COMPENSADO];
end;

function TAsientosBusinessProcessorRules.GetOldID_ASIENTO_COMPENSADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_ASIENTO_COMPENSADO]);
end;

procedure TAsientosBusinessProcessorRules.SetID_ASIENTO_COMPENSADOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO] := aValue;
end;

procedure TAsientosBusinessProcessorRules.SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO] := Null;
end;

function TAsientosBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA];
end;

function TAsientosBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA]);
end;

function TAsientosBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_SUBCUENTA];
end;

function TAsientosBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_SUBCUENTA]);
end;

procedure TAsientosBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA] := aValue;
end;

procedure TAsientosBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA] := 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.GetCONCEPTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO];
end;

function TAsientosBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO]);
end;

function TAsientosBusinessProcessorRules.GetOldCONCEPTOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosCONCEPTO];
end;

function TAsientosBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosCONCEPTO]);
end;

procedure TAsientosBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO] := aValue;
end;

procedure TAsientosBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO] := Null;
end;

function TAsientosBusinessProcessorRules.GetPUNTEADOValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO];
end;

function TAsientosBusinessProcessorRules.GetPUNTEADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO]);
end;

function TAsientosBusinessProcessorRules.GetOldPUNTEADOValue: SmallInt;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosPUNTEADO];
end;

function TAsientosBusinessProcessorRules.GetOldPUNTEADOIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosPUNTEADO]);
end;

procedure TAsientosBusinessProcessorRules.SetPUNTEADOValue(const aValue: SmallInt);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO] := aValue;
end;

procedure TAsientosBusinessProcessorRules.SetPUNTEADOIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO] := Null;
end;

function TAsientosBusinessProcessorRules.GetDEBEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE];
end;

function TAsientosBusinessProcessorRules.GetDEBEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE]);
end;

function TAsientosBusinessProcessorRules.GetOldDEBEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosDEBE];
end;

function TAsientosBusinessProcessorRules.GetOldDEBEIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosDEBE]);
end;

procedure TAsientosBusinessProcessorRules.SetDEBEValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE] := aValue;
end;

procedure TAsientosBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE] := Null;
end;

function TAsientosBusinessProcessorRules.GetHABERValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER];
end;

function TAsientosBusinessProcessorRules.GetHABERIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER]);
end;

function TAsientosBusinessProcessorRules.GetOldHABERValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosHABER];
end;

function TAsientosBusinessProcessorRules.GetOldHABERIsNull: Boolean;
begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosHABER]);
end;

procedure TAsientosBusinessProcessorRules.SetHABERValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER] := aValue;
end;

procedure TAsientosBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean);
begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER] := 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_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.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;


{ 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.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.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_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.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;


{ 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.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.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;


{ 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;


initialization
  RegisterBusinessProcessorRules(RID_AsientosDelta, TAsientosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_SubCuentasDelta, TSubCuentasBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_CuentasDelta, TCuentasBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules);

end.