FactuGES2/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas

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_CuentasEspecialesDelta = '{4D4FE910-3F37-4077-8FBA-E2CFC412CF13}';
  RID_EpigrafesDelta = '{5515CCA6-9D22-4C9C-BE52-492B6143F817}';
  RID_BalancesDelta = '{37149E5B-96DE-4CA9-AFBB-F410CBC4BEE7}';

type
  { ICuentasEspecialesDelta }
  ICuentasEspecialesDelta = interface(ICuentasEspeciales)
  ['{4D4FE910-3F37-4077-8FBA-E2CFC412CF13}']
    { 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)
  ['{5515CCA6-9D22-4C9C-BE52-492B6143F817}']
    { 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)
  ['{37149E5B-96DE-4CA9-AFBB-F410CBC4BEE7}']
    { 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;

{ 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_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules);

end.