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

unit schContabilidadClient_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;

const
  { Data table 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_CuentasEspeciales = '{7010703B-8175-4A1E-8756-C0E20C516FFC}';
  RID_Epigrafes = '{0EE6E73B-71AE-45FD-B91F-3DEC9485EF9C}';
  RID_Balances = '{C15D38B4-0D4D-4236-90BE-662998D63281}';

  { Data table names }
  nme_CuentasEspeciales = 'CuentasEspeciales';
  nme_Epigrafes = 'Epigrafes';
  nme_Balances = 'Balances';

  { CuentasEspeciales fields }
  fld_CuentasEspecialesID = 'ID';
  fld_CuentasEspecialesREFERENCIA = 'REFERENCIA';
  fld_CuentasEspecialesDESCRIPCION = 'DESCRIPCION';

  { CuentasEspeciales field indexes }
  idx_CuentasEspecialesID = 0;
  idx_CuentasEspecialesREFERENCIA = 1;
  idx_CuentasEspecialesDESCRIPCION = 2;

  { Epigrafes fields }
  fld_EpigrafesID = 'ID';
  fld_EpigrafesREF_EPIGRAFE = 'REF_EPIGRAFE';
  fld_EpigrafesID_PADRE = 'ID_PADRE';
  fld_EpigrafesDESCRIPCION = 'DESCRIPCION';
  fld_EpigrafesID_EJERCICIO = 'ID_EJERCICIO';

  { Epigrafes field indexes }
  idx_EpigrafesID = 0;
  idx_EpigrafesREF_EPIGRAFE = 1;
  idx_EpigrafesID_PADRE = 2;
  idx_EpigrafesDESCRIPCION = 3;
  idx_EpigrafesID_EJERCICIO = 4;

  { Balances fields }
  fld_BalancesID = 'ID';
  fld_BalancesREF_BALANCE = 'REF_BALANCE';
  fld_BalancesNATURALEZA = 'NATURALEZA';
  fld_BalancesNIVEL1 = 'NIVEL1';
  fld_BalancesDESCRIPCION1 = 'DESCRIPCION1';
  fld_BalancesNIVEL2 = 'NIVEL2';
  fld_BalancesDESCRIPCION2 = 'DESCRIPCION2';
  fld_BalancesNIVEL3 = 'NIVEL3';
  fld_BalancesDESCRIPCION3 = 'DESCRIPCION3';

  { Balances field indexes }
  idx_BalancesID = 0;
  idx_BalancesREF_BALANCE = 1;
  idx_BalancesNATURALEZA = 2;
  idx_BalancesNIVEL1 = 3;
  idx_BalancesDESCRIPCION1 = 4;
  idx_BalancesNIVEL2 = 5;
  idx_BalancesDESCRIPCION2 = 6;
  idx_BalancesNIVEL3 = 7;
  idx_BalancesDESCRIPCION3 = 8;

type
  { ICuentasEspeciales }
  ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
  ['{B124DFE8-E622-4149-B43F-7E62A28343AF}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetREFERENCIAIsNull: Boolean;
    procedure SetREFERENCIAIsNull(const aValue: Boolean);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetDESCRIPCIONIsNull: Boolean;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
  end;

  { TCuentasEspecialesDataTableRules }
  TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;

  public
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

  { IEpigrafes }
  IEpigrafes = interface(IDAStronglyTypedDataTable)
  ['{AC7DC016-22AE-41E3-BF12-44D7B8EA6CF6}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetREF_EPIGRAFEValue: String;
    procedure SetREF_EPIGRAFEValue(const aValue: String);
    function GetREF_EPIGRAFEIsNull: Boolean;
    procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean);
    function GetID_PADREValue: Integer;
    procedure SetID_PADREValue(const aValue: Integer);
    function GetID_PADREIsNull: Boolean;
    procedure SetID_PADREIsNull(const aValue: Boolean);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetDESCRIPCIONIsNull: Boolean;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
    function GetID_EJERCICIOValue: Integer;
    procedure SetID_EJERCICIOValue(const aValue: Integer);
    function GetID_EJERCICIOIsNull: Boolean;
    procedure SetID_EJERCICIOIsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property REF_EPIGRAFE: String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
    property REF_EPIGRAFEIsNull: Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
    property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
    property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
    property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
  end;

  { TEpigrafesDataTableRules }
  TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetREF_EPIGRAFEValue: String; virtual;
    procedure SetREF_EPIGRAFEValue(const aValue: String); virtual;
    function GetREF_EPIGRAFEIsNull: Boolean; virtual;
    procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual;
    function GetID_PADREValue: Integer; virtual;
    procedure SetID_PADREValue(const aValue: Integer); virtual;
    function GetID_PADREIsNull: Boolean; virtual;
    procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
    function GetID_EJERCICIOValue: Integer; virtual;
    procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
    function GetID_EJERCICIOIsNull: Boolean; virtual;
    procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property REF_EPIGRAFE: String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
    property REF_EPIGRAFEIsNull: Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
    property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
    property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
    property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;

  public
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

  { IBalances }
  IBalances = interface(IDAStronglyTypedDataTable)
  ['{F479251D-0CF5-4E81-AA80-E5A09CF25400}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetREF_BALANCEValue: String;
    procedure SetREF_BALANCEValue(const aValue: String);
    function GetREF_BALANCEIsNull: Boolean;
    procedure SetREF_BALANCEIsNull(const aValue: Boolean);
    function GetNATURALEZAValue: String;
    procedure SetNATURALEZAValue(const aValue: String);
    function GetNATURALEZAIsNull: Boolean;
    procedure SetNATURALEZAIsNull(const aValue: Boolean);
    function GetNIVEL1Value: String;
    procedure SetNIVEL1Value(const aValue: String);
    function GetNIVEL1IsNull: Boolean;
    procedure SetNIVEL1IsNull(const aValue: Boolean);
    function GetDESCRIPCION1Value: String;
    procedure SetDESCRIPCION1Value(const aValue: String);
    function GetDESCRIPCION1IsNull: Boolean;
    procedure SetDESCRIPCION1IsNull(const aValue: Boolean);
    function GetNIVEL2Value: String;
    procedure SetNIVEL2Value(const aValue: String);
    function GetNIVEL2IsNull: Boolean;
    procedure SetNIVEL2IsNull(const aValue: Boolean);
    function GetDESCRIPCION2Value: String;
    procedure SetDESCRIPCION2Value(const aValue: String);
    function GetDESCRIPCION2IsNull: Boolean;
    procedure SetDESCRIPCION2IsNull(const aValue: Boolean);
    function GetNIVEL3Value: String;
    procedure SetNIVEL3Value(const aValue: String);
    function GetNIVEL3IsNull: Boolean;
    procedure SetNIVEL3IsNull(const aValue: Boolean);
    function GetDESCRIPCION3Value: String;
    procedure SetDESCRIPCION3Value(const aValue: String);
    function GetDESCRIPCION3IsNull: Boolean;
    procedure SetDESCRIPCION3IsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property REF_BALANCE: String read GetREF_BALANCEValue write SetREF_BALANCEValue;
    property REF_BALANCEIsNull: Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull;
    property NATURALEZA: String read GetNATURALEZAValue write SetNATURALEZAValue;
    property NATURALEZAIsNull: Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull;
    property NIVEL1: String read GetNIVEL1Value write SetNIVEL1Value;
    property NIVEL1IsNull: Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull;
    property DESCRIPCION1: String read GetDESCRIPCION1Value write SetDESCRIPCION1Value;
    property DESCRIPCION1IsNull: Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull;
    property NIVEL2: String read GetNIVEL2Value write SetNIVEL2Value;
    property NIVEL2IsNull: Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull;
    property DESCRIPCION2: String read GetDESCRIPCION2Value write SetDESCRIPCION2Value;
    property DESCRIPCION2IsNull: Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull;
    property NIVEL3: String read GetNIVEL3Value write SetNIVEL3Value;
    property NIVEL3IsNull: Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull;
    property DESCRIPCION3: String read GetDESCRIPCION3Value write SetDESCRIPCION3Value;
    property DESCRIPCION3IsNull: Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull;
  end;

  { TBalancesDataTableRules }
  TBalancesDataTableRules = class(TDADataTableRules, IBalances)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetREF_BALANCEValue: String; virtual;
    procedure SetREF_BALANCEValue(const aValue: String); virtual;
    function GetREF_BALANCEIsNull: Boolean; virtual;
    procedure SetREF_BALANCEIsNull(const aValue: Boolean); virtual;
    function GetNATURALEZAValue: String; virtual;
    procedure SetNATURALEZAValue(const aValue: String); virtual;
    function GetNATURALEZAIsNull: Boolean; virtual;
    procedure SetNATURALEZAIsNull(const aValue: Boolean); virtual;
    function GetNIVEL1Value: String; virtual;
    procedure SetNIVEL1Value(const aValue: String); virtual;
    function GetNIVEL1IsNull: Boolean; virtual;
    procedure SetNIVEL1IsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCION1Value: String; virtual;
    procedure SetDESCRIPCION1Value(const aValue: String); virtual;
    function GetDESCRIPCION1IsNull: Boolean; virtual;
    procedure SetDESCRIPCION1IsNull(const aValue: Boolean); virtual;
    function GetNIVEL2Value: String; virtual;
    procedure SetNIVEL2Value(const aValue: String); virtual;
    function GetNIVEL2IsNull: Boolean; virtual;
    procedure SetNIVEL2IsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCION2Value: String; virtual;
    procedure SetDESCRIPCION2Value(const aValue: String); virtual;
    function GetDESCRIPCION2IsNull: Boolean; virtual;
    procedure SetDESCRIPCION2IsNull(const aValue: Boolean); virtual;
    function GetNIVEL3Value: String; virtual;
    procedure SetNIVEL3Value(const aValue: String); virtual;
    function GetNIVEL3IsNull: Boolean; virtual;
    procedure SetNIVEL3IsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCION3Value: String; virtual;
    procedure SetDESCRIPCION3Value(const aValue: String); virtual;
    function GetDESCRIPCION3IsNull: Boolean; virtual;
    procedure SetDESCRIPCION3IsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property REF_BALANCE: String read GetREF_BALANCEValue write SetREF_BALANCEValue;
    property REF_BALANCEIsNull: Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull;
    property NATURALEZA: String read GetNATURALEZAValue write SetNATURALEZAValue;
    property NATURALEZAIsNull: Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull;
    property NIVEL1: String read GetNIVEL1Value write SetNIVEL1Value;
    property NIVEL1IsNull: Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull;
    property DESCRIPCION1: String read GetDESCRIPCION1Value write SetDESCRIPCION1Value;
    property DESCRIPCION1IsNull: Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull;
    property NIVEL2: String read GetNIVEL2Value write SetNIVEL2Value;
    property NIVEL2IsNull: Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull;
    property DESCRIPCION2: String read GetDESCRIPCION2Value write SetDESCRIPCION2Value;
    property DESCRIPCION2IsNull: Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull;
    property NIVEL3: String read GetNIVEL3Value write SetNIVEL3Value;
    property NIVEL3IsNull: Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull;
    property DESCRIPCION3: String read GetDESCRIPCION3Value write SetDESCRIPCION3Value;
    property DESCRIPCION3IsNull: Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull;

  public
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

implementation

uses Variants, uROBinaryHelpers;

{ TCuentasEspecialesDataTableRules }
constructor TCuentasEspecialesDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
end;

destructor TCuentasEspecialesDataTableRules.Destroy;
begin
  inherited;
end;

function TCuentasEspecialesDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_CuentasEspecialesID].AsInteger;
end;

procedure TCuentasEspecialesDataTableRules.SetIDValue(const aValue: Integer);
begin
  DataTable.Fields[idx_CuentasEspecialesID].AsInteger := aValue;
end;

function TCuentasEspecialesDataTableRules.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_CuentasEspecialesID].IsNull;
end;

procedure TCuentasEspecialesDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_CuentasEspecialesID].AsVariant := Null;
end;

function TCuentasEspecialesDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_CuentasEspecialesREFERENCIA].AsString;
end;

procedure TCuentasEspecialesDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
  DataTable.Fields[idx_CuentasEspecialesREFERENCIA].AsString := aValue;
end;

function TCuentasEspecialesDataTableRules.GetREFERENCIAIsNull: boolean;
begin
  result := DataTable.Fields[idx_CuentasEspecialesREFERENCIA].IsNull;
end;

procedure TCuentasEspecialesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_CuentasEspecialesREFERENCIA].AsVariant := Null;
end;

function TCuentasEspecialesDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].AsString;
end;

procedure TCuentasEspecialesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
  DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].AsString := aValue;
end;

function TCuentasEspecialesDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].IsNull;
end;

procedure TCuentasEspecialesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].AsVariant := Null;
end;


{ TEpigrafesDataTableRules }
constructor TEpigrafesDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
end;

destructor TEpigrafesDataTableRules.Destroy;
begin
  inherited;
end;

function TEpigrafesDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_EpigrafesID].AsInteger;
end;

procedure TEpigrafesDataTableRules.SetIDValue(const aValue: Integer);
begin
  DataTable.Fields[idx_EpigrafesID].AsInteger := aValue;
end;

function TEpigrafesDataTableRules.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_EpigrafesID].IsNull;
end;

procedure TEpigrafesDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_EpigrafesID].AsVariant := Null;
end;

function TEpigrafesDataTableRules.GetREF_EPIGRAFEValue: String;
begin
  result := DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsString;
end;

procedure TEpigrafesDataTableRules.SetREF_EPIGRAFEValue(const aValue: String);
begin
  DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsString := aValue;
end;

function TEpigrafesDataTableRules.GetREF_EPIGRAFEIsNull: boolean;
begin
  result := DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].IsNull;
end;

procedure TEpigrafesDataTableRules.SetREF_EPIGRAFEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsVariant := Null;
end;

function TEpigrafesDataTableRules.GetID_PADREValue: Integer;
begin
  result := DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger;
end;

procedure TEpigrafesDataTableRules.SetID_PADREValue(const aValue: Integer);
begin
  DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger := aValue;
end;

function TEpigrafesDataTableRules.GetID_PADREIsNull: boolean;
begin
  result := DataTable.Fields[idx_EpigrafesID_PADRE].IsNull;
end;

procedure TEpigrafesDataTableRules.SetID_PADREIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_EpigrafesID_PADRE].AsVariant := Null;
end;

function TEpigrafesDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_EpigrafesDESCRIPCION].AsString;
end;

procedure TEpigrafesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
  DataTable.Fields[idx_EpigrafesDESCRIPCION].AsString := aValue;
end;

function TEpigrafesDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_EpigrafesDESCRIPCION].IsNull;
end;

procedure TEpigrafesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_EpigrafesDESCRIPCION].AsVariant := Null;
end;

function TEpigrafesDataTableRules.GetID_EJERCICIOValue: Integer;
begin
  result := DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsInteger;
end;

procedure TEpigrafesDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsInteger := aValue;
end;

function TEpigrafesDataTableRules.GetID_EJERCICIOIsNull: boolean;
begin
  result := DataTable.Fields[idx_EpigrafesID_EJERCICIO].IsNull;
end;

procedure TEpigrafesDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsVariant := Null;
end;


{ TBalancesDataTableRules }
constructor TBalancesDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
end;

destructor TBalancesDataTableRules.Destroy;
begin
  inherited;
end;

function TBalancesDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_BalancesID].AsInteger;
end;

procedure TBalancesDataTableRules.SetIDValue(const aValue: Integer);
begin
  DataTable.Fields[idx_BalancesID].AsInteger := aValue;
end;

function TBalancesDataTableRules.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_BalancesID].IsNull;
end;

procedure TBalancesDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_BalancesID].AsVariant := Null;
end;

function TBalancesDataTableRules.GetREF_BALANCEValue: String;
begin
  result := DataTable.Fields[idx_BalancesREF_BALANCE].AsString;
end;

procedure TBalancesDataTableRules.SetREF_BALANCEValue(const aValue: String);
begin
  DataTable.Fields[idx_BalancesREF_BALANCE].AsString := aValue;
end;

function TBalancesDataTableRules.GetREF_BALANCEIsNull: boolean;
begin
  result := DataTable.Fields[idx_BalancesREF_BALANCE].IsNull;
end;

procedure TBalancesDataTableRules.SetREF_BALANCEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_BalancesREF_BALANCE].AsVariant := Null;
end;

function TBalancesDataTableRules.GetNATURALEZAValue: String;
begin
  result := DataTable.Fields[idx_BalancesNATURALEZA].AsString;
end;

procedure TBalancesDataTableRules.SetNATURALEZAValue(const aValue: String);
begin
  DataTable.Fields[idx_BalancesNATURALEZA].AsString := aValue;
end;

function TBalancesDataTableRules.GetNATURALEZAIsNull: boolean;
begin
  result := DataTable.Fields[idx_BalancesNATURALEZA].IsNull;
end;

procedure TBalancesDataTableRules.SetNATURALEZAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_BalancesNATURALEZA].AsVariant := Null;
end;

function TBalancesDataTableRules.GetNIVEL1Value: String;
begin
  result := DataTable.Fields[idx_BalancesNIVEL1].AsString;
end;

procedure TBalancesDataTableRules.SetNIVEL1Value(const aValue: String);
begin
  DataTable.Fields[idx_BalancesNIVEL1].AsString := aValue;
end;

function TBalancesDataTableRules.GetNIVEL1IsNull: boolean;
begin
  result := DataTable.Fields[idx_BalancesNIVEL1].IsNull;
end;

procedure TBalancesDataTableRules.SetNIVEL1IsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_BalancesNIVEL1].AsVariant := Null;
end;

function TBalancesDataTableRules.GetDESCRIPCION1Value: String;
begin
  result := DataTable.Fields[idx_BalancesDESCRIPCION1].AsString;
end;

procedure TBalancesDataTableRules.SetDESCRIPCION1Value(const aValue: String);
begin
  DataTable.Fields[idx_BalancesDESCRIPCION1].AsString := aValue;
end;

function TBalancesDataTableRules.GetDESCRIPCION1IsNull: boolean;
begin
  result := DataTable.Fields[idx_BalancesDESCRIPCION1].IsNull;
end;

procedure TBalancesDataTableRules.SetDESCRIPCION1IsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_BalancesDESCRIPCION1].AsVariant := Null;
end;

function TBalancesDataTableRules.GetNIVEL2Value: String;
begin
  result := DataTable.Fields[idx_BalancesNIVEL2].AsString;
end;

procedure TBalancesDataTableRules.SetNIVEL2Value(const aValue: String);
begin
  DataTable.Fields[idx_BalancesNIVEL2].AsString := aValue;
end;

function TBalancesDataTableRules.GetNIVEL2IsNull: boolean;
begin
  result := DataTable.Fields[idx_BalancesNIVEL2].IsNull;
end;

procedure TBalancesDataTableRules.SetNIVEL2IsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_BalancesNIVEL2].AsVariant := Null;
end;

function TBalancesDataTableRules.GetDESCRIPCION2Value: String;
begin
  result := DataTable.Fields[idx_BalancesDESCRIPCION2].AsString;
end;

procedure TBalancesDataTableRules.SetDESCRIPCION2Value(const aValue: String);
begin
  DataTable.Fields[idx_BalancesDESCRIPCION2].AsString := aValue;
end;

function TBalancesDataTableRules.GetDESCRIPCION2IsNull: boolean;
begin
  result := DataTable.Fields[idx_BalancesDESCRIPCION2].IsNull;
end;

procedure TBalancesDataTableRules.SetDESCRIPCION2IsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_BalancesDESCRIPCION2].AsVariant := Null;
end;

function TBalancesDataTableRules.GetNIVEL3Value: String;
begin
  result := DataTable.Fields[idx_BalancesNIVEL3].AsString;
end;

procedure TBalancesDataTableRules.SetNIVEL3Value(const aValue: String);
begin
  DataTable.Fields[idx_BalancesNIVEL3].AsString := aValue;
end;

function TBalancesDataTableRules.GetNIVEL3IsNull: boolean;
begin
  result := DataTable.Fields[idx_BalancesNIVEL3].IsNull;
end;

procedure TBalancesDataTableRules.SetNIVEL3IsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_BalancesNIVEL3].AsVariant := Null;
end;

function TBalancesDataTableRules.GetDESCRIPCION3Value: String;
begin
  result := DataTable.Fields[idx_BalancesDESCRIPCION3].AsString;
end;

procedure TBalancesDataTableRules.SetDESCRIPCION3Value(const aValue: String);
begin
  DataTable.Fields[idx_BalancesDESCRIPCION3].AsString := aValue;
end;

function TBalancesDataTableRules.GetDESCRIPCION3IsNull: boolean;
begin
  result := DataTable.Fields[idx_BalancesDESCRIPCION3].IsNull;
end;

procedure TBalancesDataTableRules.SetDESCRIPCION3IsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_BalancesDESCRIPCION3].AsVariant := Null;
end;


initialization
  RegisterDataTableRules(RID_CuentasEspeciales, TCuentasEspecialesDataTableRules);
  RegisterDataTableRules(RID_Epigrafes, TEpigrafesDataTableRules);
  RegisterDataTableRules(RID_Balances, TBalancesDataTableRules);

end.