1570 lines
59 KiB
ObjectPascal
1570 lines
59 KiB
ObjectPascal
unit schContabilidadClient_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, schBase_Intf, 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_Asientos = '{C51C5471-A7F7-4A0B-B124-1FCA17F1EA4D}';
|
|
RID_SubCuentas = '{BBB2A9E5-DAD7-4E8B-A14D-CC7DEAF2D283}';
|
|
RID_Cuentas = '{A0EB7B63-501F-4E40-9872-5E70A1EE346A}';
|
|
RID_CuentasEspeciales = '{8714C12C-03FF-4FB3-98B7-76533DFDD66C}';
|
|
RID_Epigrafes = '{1E81E57B-5402-4881-A28B-2927146E071C}';
|
|
RID_Balances = '{39557F67-321F-41E8-8EE0-CAB8216CD882}';
|
|
|
|
{ Data table names }
|
|
nme_Asientos = 'Asientos';
|
|
nme_SubCuentas = 'SubCuentas';
|
|
nme_Cuentas = 'Cuentas';
|
|
nme_CuentasEspeciales = 'CuentasEspeciales';
|
|
nme_Epigrafes = 'Epigrafes';
|
|
nme_Balances = 'Balances';
|
|
|
|
{ Asientos fields }
|
|
fld_AsientosID = 'ID';
|
|
fld_AsientosID_ASIENTO_COMPENSADO = 'ID_ASIENTO_COMPENSADO';
|
|
fld_AsientosID_SUBCUENTA = 'ID_SUBCUENTA';
|
|
fld_AsientosFECHA_ASIENTO = 'FECHA_ASIENTO';
|
|
fld_AsientosCONCEPTO = 'CONCEPTO';
|
|
fld_AsientosPUNTEADO = 'PUNTEADO';
|
|
fld_AsientosDEBE = 'DEBE';
|
|
fld_AsientosHABER = 'HABER';
|
|
|
|
{ Asientos field indexes }
|
|
idx_AsientosID = 0;
|
|
idx_AsientosID_ASIENTO_COMPENSADO = 1;
|
|
idx_AsientosID_SUBCUENTA = 2;
|
|
idx_AsientosFECHA_ASIENTO = 3;
|
|
idx_AsientosCONCEPTO = 4;
|
|
idx_AsientosPUNTEADO = 5;
|
|
idx_AsientosDEBE = 6;
|
|
idx_AsientosHABER = 7;
|
|
|
|
{ SubCuentas fields }
|
|
fld_SubCuentasID = 'ID';
|
|
fld_SubCuentasREF_SUBCUENTA = 'REF_SUBCUENTA';
|
|
fld_SubCuentasDESCRIPCION = 'DESCRIPCION';
|
|
fld_SubCuentasID_CUENTA = 'ID_CUENTA';
|
|
fld_SubCuentasID_EJERCICIO = 'ID_EJERCICIO';
|
|
|
|
{ SubCuentas field indexes }
|
|
idx_SubCuentasID = 0;
|
|
idx_SubCuentasREF_SUBCUENTA = 1;
|
|
idx_SubCuentasDESCRIPCION = 2;
|
|
idx_SubCuentasID_CUENTA = 3;
|
|
idx_SubCuentasID_EJERCICIO = 4;
|
|
|
|
{ Cuentas fields }
|
|
fld_CuentasID = 'ID';
|
|
fld_CuentasREF_CUENTA = 'REF_CUENTA';
|
|
fld_CuentasID_EJERCICIO = 'ID_EJERCICIO';
|
|
fld_CuentasID_EPIGRAFE = 'ID_EPIGRAFE';
|
|
fld_CuentasDESCRIPCION = 'DESCRIPCION';
|
|
fld_CuentasID_BALANCE = 'ID_BALANCE';
|
|
fld_CuentasID_CUENTA_ESPECIAL = 'ID_CUENTA_ESPECIAL';
|
|
|
|
{ Cuentas field indexes }
|
|
idx_CuentasID = 0;
|
|
idx_CuentasREF_CUENTA = 1;
|
|
idx_CuentasID_EJERCICIO = 2;
|
|
idx_CuentasID_EPIGRAFE = 3;
|
|
idx_CuentasDESCRIPCION = 4;
|
|
idx_CuentasID_BALANCE = 5;
|
|
idx_CuentasID_CUENTA_ESPECIAL = 6;
|
|
|
|
{ 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
|
|
{ IAsientos }
|
|
IAsientos = interface(IDAStronglyTypedDataTable)
|
|
['{5914B799-7DB4-4B85-B63B-BA4CC1827CF3}']
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer;
|
|
procedure SetIDValue(const aValue: Integer);
|
|
function GetIDIsNull: Boolean;
|
|
procedure SetIDIsNull(const aValue: Boolean);
|
|
function GetID_ASIENTO_COMPENSADOValue: Integer;
|
|
procedure SetID_ASIENTO_COMPENSADOValue(const aValue: Integer);
|
|
function GetID_ASIENTO_COMPENSADOIsNull: Boolean;
|
|
procedure SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean);
|
|
function GetID_SUBCUENTAValue: Integer;
|
|
procedure SetID_SUBCUENTAValue(const aValue: Integer);
|
|
function GetID_SUBCUENTAIsNull: Boolean;
|
|
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
|
|
function GetFECHA_ASIENTOValue: DateTime;
|
|
procedure SetFECHA_ASIENTOValue(const aValue: DateTime);
|
|
function GetFECHA_ASIENTOIsNull: Boolean;
|
|
procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean);
|
|
function GetCONCEPTOValue: String;
|
|
procedure SetCONCEPTOValue(const aValue: String);
|
|
function GetCONCEPTOIsNull: Boolean;
|
|
procedure SetCONCEPTOIsNull(const aValue: Boolean);
|
|
function GetPUNTEADOValue: SmallInt;
|
|
procedure SetPUNTEADOValue(const aValue: SmallInt);
|
|
function GetPUNTEADOIsNull: Boolean;
|
|
procedure SetPUNTEADOIsNull(const aValue: Boolean);
|
|
function GetDEBEValue: Currency;
|
|
procedure SetDEBEValue(const aValue: Currency);
|
|
function GetDEBEIsNull: Boolean;
|
|
procedure SetDEBEIsNull(const aValue: Boolean);
|
|
function GetHABERValue: Currency;
|
|
procedure SetHABERValue(const aValue: Currency);
|
|
function GetHABERIsNull: Boolean;
|
|
procedure SetHABERIsNull(const aValue: Boolean);
|
|
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
|
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 ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
|
|
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
|
property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
|
|
property FECHA_ASIENTOIsNull: Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull;
|
|
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
|
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
|
property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
|
|
property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
|
|
property DEBE: Currency read GetDEBEValue write SetDEBEValue;
|
|
property DEBEIsNull: Boolean read GetDEBEIsNull write SetDEBEIsNull;
|
|
property HABER: Currency read GetHABERValue write SetHABERValue;
|
|
property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull;
|
|
end;
|
|
|
|
{ TAsientosDataTableRules }
|
|
TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos)
|
|
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 GetID_ASIENTO_COMPENSADOValue: Integer; virtual;
|
|
procedure SetID_ASIENTO_COMPENSADOValue(const aValue: Integer); virtual;
|
|
function GetID_ASIENTO_COMPENSADOIsNull: Boolean; virtual;
|
|
procedure SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean); virtual;
|
|
function GetID_SUBCUENTAValue: Integer; virtual;
|
|
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
|
|
function GetID_SUBCUENTAIsNull: Boolean; virtual;
|
|
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_ASIENTOValue: DateTime; virtual;
|
|
procedure SetFECHA_ASIENTOValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_ASIENTOIsNull: Boolean; virtual;
|
|
procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean); virtual;
|
|
function GetCONCEPTOValue: String; virtual;
|
|
procedure SetCONCEPTOValue(const aValue: String); virtual;
|
|
function GetCONCEPTOIsNull: Boolean; virtual;
|
|
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
|
|
function GetPUNTEADOValue: SmallInt; virtual;
|
|
procedure SetPUNTEADOValue(const aValue: SmallInt); virtual;
|
|
function GetPUNTEADOIsNull: Boolean; virtual;
|
|
procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual;
|
|
function GetDEBEValue: Currency; virtual;
|
|
procedure SetDEBEValue(const aValue: Currency); virtual;
|
|
function GetDEBEIsNull: Boolean; virtual;
|
|
procedure SetDEBEIsNull(const aValue: Boolean); virtual;
|
|
function GetHABERValue: Currency; virtual;
|
|
procedure SetHABERValue(const aValue: Currency); virtual;
|
|
function GetHABERIsNull: Boolean; virtual;
|
|
procedure SetHABERIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
|
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 ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
|
|
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
|
property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
|
|
property FECHA_ASIENTOIsNull: Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull;
|
|
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
|
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
|
property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
|
|
property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
|
|
property DEBE: Currency read GetDEBEValue write SetDEBEValue;
|
|
property DEBEIsNull: Boolean read GetDEBEIsNull write SetDEBEIsNull;
|
|
property HABER: Currency read GetHABERValue write SetHABERValue;
|
|
property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ ISubCuentas }
|
|
ISubCuentas = interface(IDAStronglyTypedDataTable)
|
|
['{C519726C-43A5-4168-AD68-A63176180B09}']
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer;
|
|
procedure SetIDValue(const aValue: Integer);
|
|
function GetIDIsNull: Boolean;
|
|
procedure SetIDIsNull(const aValue: Boolean);
|
|
function GetREF_SUBCUENTAValue: String;
|
|
procedure SetREF_SUBCUENTAValue(const aValue: String);
|
|
function GetREF_SUBCUENTAIsNull: Boolean;
|
|
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetDESCRIPCIONIsNull: Boolean;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
function GetID_CUENTAValue: Integer;
|
|
procedure SetID_CUENTAValue(const aValue: Integer);
|
|
function GetID_CUENTAIsNull: Boolean;
|
|
procedure SetID_CUENTAIsNull(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_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
|
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
|
property ID_CUENTAIsNull: Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
|
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
|
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
|
end;
|
|
|
|
{ TSubCuentasDataTableRules }
|
|
TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas)
|
|
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_SUBCUENTAValue: String; virtual;
|
|
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
|
|
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
|
|
procedure SetREF_SUBCUENTAIsNull(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_CUENTAValue: Integer; virtual;
|
|
procedure SetID_CUENTAValue(const aValue: Integer); virtual;
|
|
function GetID_CUENTAIsNull: Boolean; virtual;
|
|
procedure SetID_CUENTAIsNull(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_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
|
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
|
property ID_CUENTAIsNull: Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
|
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;
|
|
|
|
{ ICuentas }
|
|
ICuentas = interface(IDAStronglyTypedDataTable)
|
|
['{A60C051B-5B76-4B39-8B2B-30EBFCD31798}']
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer;
|
|
procedure SetIDValue(const aValue: Integer);
|
|
function GetIDIsNull: Boolean;
|
|
procedure SetIDIsNull(const aValue: Boolean);
|
|
function GetREF_CUENTAValue: String;
|
|
procedure SetREF_CUENTAValue(const aValue: String);
|
|
function GetREF_CUENTAIsNull: Boolean;
|
|
procedure SetREF_CUENTAIsNull(const aValue: Boolean);
|
|
function GetID_EJERCICIOValue: Integer;
|
|
procedure SetID_EJERCICIOValue(const aValue: Integer);
|
|
function GetID_EJERCICIOIsNull: Boolean;
|
|
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
|
|
function GetID_EPIGRAFEValue: Integer;
|
|
procedure SetID_EPIGRAFEValue(const aValue: Integer);
|
|
function GetID_EPIGRAFEIsNull: Boolean;
|
|
procedure SetID_EPIGRAFEIsNull(const aValue: Boolean);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetDESCRIPCIONIsNull: Boolean;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
function GetID_BALANCEValue: Integer;
|
|
procedure SetID_BALANCEValue(const aValue: Integer);
|
|
function GetID_BALANCEIsNull: Boolean;
|
|
procedure SetID_BALANCEIsNull(const aValue: Boolean);
|
|
function GetID_CUENTA_ESPECIALValue: Integer;
|
|
procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer);
|
|
function GetID_CUENTA_ESPECIALIsNull: Boolean;
|
|
procedure SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean);
|
|
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
|
property REF_CUENTA: String read GetREF_CUENTAValue write SetREF_CUENTAValue;
|
|
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
|
|
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
|
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
|
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
|
property ID_EPIGRAFEIsNull: Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property ID_BALANCE: Integer read GetID_BALANCEValue write SetID_BALANCEValue;
|
|
property ID_BALANCEIsNull: Boolean read GetID_BALANCEIsNull write SetID_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;
|
|
end;
|
|
|
|
{ TCuentasDataTableRules }
|
|
TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas)
|
|
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_CUENTAValue: String; virtual;
|
|
procedure SetREF_CUENTAValue(const aValue: String); virtual;
|
|
function GetREF_CUENTAIsNull: Boolean; virtual;
|
|
procedure SetREF_CUENTAIsNull(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;
|
|
function GetID_EPIGRAFEValue: Integer; virtual;
|
|
procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual;
|
|
function GetID_EPIGRAFEIsNull: Boolean; virtual;
|
|
procedure SetID_EPIGRAFEIsNull(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_BALANCEValue: Integer; virtual;
|
|
procedure SetID_BALANCEValue(const aValue: Integer); virtual;
|
|
function GetID_BALANCEIsNull: Boolean; virtual;
|
|
procedure SetID_BALANCEIsNull(const aValue: Boolean); virtual;
|
|
function GetID_CUENTA_ESPECIALValue: Integer; virtual;
|
|
procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer); virtual;
|
|
function GetID_CUENTA_ESPECIALIsNull: Boolean; 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 REF_CUENTA: String read GetREF_CUENTAValue write SetREF_CUENTAValue;
|
|
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
|
|
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
|
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
|
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
|
property ID_EPIGRAFEIsNull: Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property ID_BALANCE: Integer read GetID_BALANCEValue write SetID_BALANCEValue;
|
|
property ID_BALANCEIsNull: Boolean read GetID_BALANCEIsNull write SetID_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;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ ICuentasEspeciales }
|
|
ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
|
|
['{267A39E7-DD65-4417-B0EF-75BF2C13BB71}']
|
|
{ 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(TIntfObjectDADataTableRules, 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)
|
|
['{1F851BD7-9C70-4A5E-B0E6-EF6918802C15}']
|
|
{ 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(TIntfObjectDADataTableRules, 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)
|
|
['{A661BDD9-9EAC-4ECA-906D-7361D8ABACA6}']
|
|
{ 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(TIntfObjectDADataTableRules, 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;
|
|
|
|
{ TAsientosDataTableRules }
|
|
constructor TAsientosDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TAsientosDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetIDValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosID].AsInteger;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_AsientosID].AsInteger := aValue;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetIDIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosID].IsNull;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_AsientosID].AsVariant := Null;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetID_ASIENTO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosID_ASIENTO_COMPENSADO].AsInteger;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetID_ASIENTO_COMPENSADOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_AsientosID_ASIENTO_COMPENSADO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetID_ASIENTO_COMPENSADOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosID_ASIENTO_COMPENSADO].IsNull;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_AsientosID_ASIENTO_COMPENSADO].AsVariant := Null;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetID_SUBCUENTAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosID_SUBCUENTA].AsInteger;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetID_SUBCUENTAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_AsientosID_SUBCUENTA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetID_SUBCUENTAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosID_SUBCUENTA].IsNull;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_AsientosID_SUBCUENTA].AsVariant := Null;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetFECHA_ASIENTOValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosFECHA_ASIENTO].AsDateTime;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetFECHA_ASIENTOValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_AsientosFECHA_ASIENTO].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetFECHA_ASIENTOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosFECHA_ASIENTO].IsNull;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetFECHA_ASIENTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_AsientosFECHA_ASIENTO].AsVariant := Null;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetCONCEPTOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosCONCEPTO].AsString;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetCONCEPTOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_AsientosCONCEPTO].AsString := aValue;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetCONCEPTOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosCONCEPTO].IsNull;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_AsientosCONCEPTO].AsVariant := Null;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetPUNTEADOValue: SmallInt;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosPUNTEADO].AsSmallInt;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetPUNTEADOValue(const aValue: SmallInt);
|
|
begin
|
|
DataTable.Fields[idx_AsientosPUNTEADO].AsSmallInt := aValue;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetPUNTEADOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosPUNTEADO].IsNull;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetPUNTEADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_AsientosPUNTEADO].AsVariant := Null;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetDEBEValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosDEBE].AsCurrency;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetDEBEValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_AsientosDEBE].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetDEBEIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosDEBE].IsNull;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetDEBEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_AsientosDEBE].AsVariant := Null;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetHABERValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosHABER].AsCurrency;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetHABERValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_AsientosHABER].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TAsientosDataTableRules.GetHABERIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_AsientosHABER].IsNull;
|
|
end;
|
|
|
|
procedure TAsientosDataTableRules.SetHABERIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_AsientosHABER].AsVariant := Null;
|
|
end;
|
|
|
|
|
|
{ TSubCuentasDataTableRules }
|
|
constructor TSubCuentasDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TSubCuentasDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TSubCuentasDataTableRules.GetIDValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_SubCuentasID].AsInteger;
|
|
end;
|
|
|
|
procedure TSubCuentasDataTableRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_SubCuentasID].AsInteger := aValue;
|
|
end;
|
|
|
|
function TSubCuentasDataTableRules.GetIDIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_SubCuentasID].IsNull;
|
|
end;
|
|
|
|
procedure TSubCuentasDataTableRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_SubCuentasID].AsVariant := Null;
|
|
end;
|
|
|
|
function TSubCuentasDataTableRules.GetREF_SUBCUENTAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_SubCuentasREF_SUBCUENTA].AsString;
|
|
end;
|
|
|
|
procedure TSubCuentasDataTableRules.SetREF_SUBCUENTAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_SubCuentasREF_SUBCUENTA].AsString := aValue;
|
|
end;
|
|
|
|
function TSubCuentasDataTableRules.GetREF_SUBCUENTAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_SubCuentasREF_SUBCUENTA].IsNull;
|
|
end;
|
|
|
|
procedure TSubCuentasDataTableRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_SubCuentasREF_SUBCUENTA].AsVariant := Null;
|
|
end;
|
|
|
|
function TSubCuentasDataTableRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_SubCuentasDESCRIPCION].AsString;
|
|
end;
|
|
|
|
procedure TSubCuentasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_SubCuentasDESCRIPCION].AsString := aValue;
|
|
end;
|
|
|
|
function TSubCuentasDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_SubCuentasDESCRIPCION].IsNull;
|
|
end;
|
|
|
|
procedure TSubCuentasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_SubCuentasDESCRIPCION].AsVariant := Null;
|
|
end;
|
|
|
|
function TSubCuentasDataTableRules.GetID_CUENTAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_SubCuentasID_CUENTA].AsInteger;
|
|
end;
|
|
|
|
procedure TSubCuentasDataTableRules.SetID_CUENTAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_SubCuentasID_CUENTA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TSubCuentasDataTableRules.GetID_CUENTAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_SubCuentasID_CUENTA].IsNull;
|
|
end;
|
|
|
|
procedure TSubCuentasDataTableRules.SetID_CUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_SubCuentasID_CUENTA].AsVariant := Null;
|
|
end;
|
|
|
|
function TSubCuentasDataTableRules.GetID_EJERCICIOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_SubCuentasID_EJERCICIO].AsInteger;
|
|
end;
|
|
|
|
procedure TSubCuentasDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_SubCuentasID_EJERCICIO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TSubCuentasDataTableRules.GetID_EJERCICIOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_SubCuentasID_EJERCICIO].IsNull;
|
|
end;
|
|
|
|
procedure TSubCuentasDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_SubCuentasID_EJERCICIO].AsVariant := Null;
|
|
end;
|
|
|
|
|
|
{ TCuentasDataTableRules }
|
|
constructor TCuentasDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TCuentasDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetIDValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasID].AsInteger;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_CuentasID].AsInteger := aValue;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetIDIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasID].IsNull;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_CuentasID].AsVariant := Null;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetREF_CUENTAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasREF_CUENTA].AsString;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetREF_CUENTAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_CuentasREF_CUENTA].AsString := aValue;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetREF_CUENTAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasREF_CUENTA].IsNull;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetREF_CUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_CuentasREF_CUENTA].AsVariant := Null;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetID_EJERCICIOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasID_EJERCICIO].AsInteger;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_CuentasID_EJERCICIO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetID_EJERCICIOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasID_EJERCICIO].IsNull;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_CuentasID_EJERCICIO].AsVariant := Null;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetID_EPIGRAFEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasID_EPIGRAFE].AsInteger;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetID_EPIGRAFEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_CuentasID_EPIGRAFE].AsInteger := aValue;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetID_EPIGRAFEIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasID_EPIGRAFE].IsNull;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetID_EPIGRAFEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_CuentasID_EPIGRAFE].AsVariant := Null;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasDESCRIPCION].AsString;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_CuentasDESCRIPCION].AsString := aValue;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasDESCRIPCION].IsNull;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_CuentasDESCRIPCION].AsVariant := Null;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetID_BALANCEValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasID_BALANCE].AsInteger;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetID_BALANCEValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_CuentasID_BALANCE].AsInteger := aValue;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetID_BALANCEIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasID_BALANCE].IsNull;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetID_BALANCEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_CuentasID_BALANCE].AsVariant := Null;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetID_CUENTA_ESPECIALValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].AsInteger;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetID_CUENTA_ESPECIALValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].AsInteger := aValue;
|
|
end;
|
|
|
|
function TCuentasDataTableRules.GetID_CUENTA_ESPECIALIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].IsNull;
|
|
end;
|
|
|
|
procedure TCuentasDataTableRules.SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].AsVariant := Null;
|
|
end;
|
|
|
|
|
|
{ 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_Asientos, TAsientosDataTableRules);
|
|
RegisterDataTableRules(RID_SubCuentas, TSubCuentasDataTableRules);
|
|
RegisterDataTableRules(RID_Cuentas, TCuentasDataTableRules);
|
|
RegisterDataTableRules(RID_CuentasEspeciales, TCuentasEspecialesDataTableRules);
|
|
RegisterDataTableRules(RID_Epigrafes, TEpigrafesDataTableRules);
|
|
RegisterDataTableRules(RID_Balances, TBalancesDataTableRules);
|
|
|
|
end.
|