Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
7afbff54dd
FactuGES2/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas
david 7afbff54dd Subida de modificaciones sobre contabilidad 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@72 f4e31baf-9722-1c47-927c-6f952f962d4b
2007-12-27 10:33:45 +00:00

3277 lines
132 KiB
ObjectPascal
Raw Blame History

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_DiarioDelta = '{489AF8EC-B8CA-4327-8D7D-1E69C3F5D2CF}';
RID_ApuntesDelta = '{63516B07-1307-4ED4-A78D-6A706E53F262}';
RID_AsientosDelta = '{4091C97B-82C3-4C9E-AFF7-1A647A9A8F9F}';
RID_SubCuentasDelta = '{627EB32A-BD56-4A63-B354-D1E03FAFB7A9}';
RID_CuentasDelta = '{7C6308C3-D09C-49BB-8FCD-D557B421747D}';
RID_CuentasEspecialesDelta = '{18300F58-6909-4C4A-9755-52B39262CC58}';
RID_EpigrafesDelta = '{61340163-241D-4DF6-9CE2-807E5CD1A2E7}';
RID_BalancesDelta = '{BB5830B6-4776-4278-B840-4D6453A709CA}';
type
{ IDiarioDelta }
IDiarioDelta = interface(IDiario)
['{489AF8EC-B8CA-4327-8D7D-1E69C3F5D2CF}']
{ Property getters and setters }
function GetOldID_APUNTEValue : Integer;
function GetOldID_ASIENTOValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldID_PAGOValue : Integer;
function GetOldORDEN_ASIENTOValue : Integer;
function GetOldFECHA_ASIENTOValue : DateTime;
function GetOldID_SUBCUENTAValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldCONCEPTOValue : String;
function GetOldDOCUMENTOValue : String;
function GetOldDEBEValue : Currency;
function GetOldHABERValue : Currency;
function GetOldPUNTEADOValue : SmallInt;
{ Properties }
property OldID_APUNTE : Integer read GetOldID_APUNTEValue;
property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_PAGO : Integer read GetOldID_PAGOValue;
property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue;
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldDOCUMENTO : String read GetOldDOCUMENTOValue;
property OldDEBE : Currency read GetOldDEBEValue;
property OldHABER : Currency read GetOldHABERValue;
property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
end;
{ TDiarioBusinessProcessorRules }
TDiarioBusinessProcessorRules = class(TDABusinessProcessorRules, IDiario, IDiarioDelta)
private
protected
{ Property getters and setters }
function GetID_APUNTEValue: Integer; virtual;
function GetID_APUNTEIsNull: Boolean; virtual;
function GetOldID_APUNTEValue: Integer; virtual;
function GetOldID_APUNTEIsNull: Boolean; virtual;
procedure SetID_APUNTEValue(const aValue: Integer); virtual;
procedure SetID_APUNTEIsNull(const aValue: Boolean); virtual;
function GetID_ASIENTOValue: Integer; virtual;
function GetID_ASIENTOIsNull: Boolean; virtual;
function GetOldID_ASIENTOValue: Integer; virtual;
function GetOldID_ASIENTOIsNull: Boolean; virtual;
procedure SetID_ASIENTOValue(const aValue: Integer); virtual;
procedure SetID_ASIENTOIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_PAGOValue: Integer; virtual;
function GetID_PAGOIsNull: Boolean; virtual;
function GetOldID_PAGOValue: Integer; virtual;
function GetOldID_PAGOIsNull: Boolean; virtual;
procedure SetID_PAGOValue(const aValue: Integer); virtual;
procedure SetID_PAGOIsNull(const aValue: Boolean); virtual;
function GetORDEN_ASIENTOValue: Integer; virtual;
function GetORDEN_ASIENTOIsNull: Boolean; virtual;
function GetOldORDEN_ASIENTOValue: Integer; virtual;
function GetOldORDEN_ASIENTOIsNull: Boolean; virtual;
procedure SetORDEN_ASIENTOValue(const aValue: Integer); virtual;
procedure SetORDEN_ASIENTOIsNull(const aValue: Boolean); virtual;
function GetFECHA_ASIENTOValue: DateTime; virtual;
function GetFECHA_ASIENTOIsNull: Boolean; virtual;
function GetOldFECHA_ASIENTOValue: DateTime; virtual;
function GetOldFECHA_ASIENTOIsNull: Boolean; virtual;
procedure SetFECHA_ASIENTOValue(const aValue: DateTime); virtual;
procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean); virtual;
function GetID_SUBCUENTAValue: Integer; virtual;
function GetID_SUBCUENTAIsNull: Boolean; virtual;
function GetOldID_SUBCUENTAValue: Integer; virtual;
function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetREF_SUBCUENTAValue: String; virtual;
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
function GetOldREF_SUBCUENTAValue: String; virtual;
function GetOldREF_SUBCUENTAIsNull: Boolean; virtual;
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
function GetOldID_EJERCICIOValue: Integer; virtual;
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetDOCUMENTOValue: String; virtual;
function GetDOCUMENTOIsNull: Boolean; virtual;
function GetOldDOCUMENTOValue: String; virtual;
function GetOldDOCUMENTOIsNull: Boolean; virtual;
procedure SetDOCUMENTOValue(const aValue: String); virtual;
procedure SetDOCUMENTOIsNull(const aValue: Boolean); virtual;
function GetDEBEValue: Currency; virtual;
function GetDEBEIsNull: Boolean; virtual;
function GetOldDEBEValue: Currency; virtual;
function GetOldDEBEIsNull: Boolean; virtual;
procedure SetDEBEValue(const aValue: Currency); virtual;
procedure SetDEBEIsNull(const aValue: Boolean); virtual;
function GetHABERValue: Currency; virtual;
function GetHABERIsNull: Boolean; virtual;
function GetOldHABERValue: Currency; virtual;
function GetOldHABERIsNull: Boolean; virtual;
procedure SetHABERValue(const aValue: Currency); virtual;
procedure SetHABERIsNull(const aValue: Boolean); virtual;
function GetPUNTEADOValue: SmallInt; virtual;
function GetPUNTEADOIsNull: Boolean; virtual;
function GetOldPUNTEADOValue: SmallInt; virtual;
function GetOldPUNTEADOIsNull: Boolean; virtual;
procedure SetPUNTEADOValue(const aValue: SmallInt); virtual;
procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_APUNTE : Integer read GetID_APUNTEValue write SetID_APUNTEValue;
property ID_APUNTEIsNull : Boolean read GetID_APUNTEIsNull write SetID_APUNTEIsNull;
property OldID_APUNTE : Integer read GetOldID_APUNTEValue;
property OldID_APUNTEIsNull : Boolean read GetOldID_APUNTEIsNull;
property ID_ASIENTO : Integer read GetID_ASIENTOValue write SetID_ASIENTOValue;
property ID_ASIENTOIsNull : Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull;
property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue;
property OldID_ASIENTOIsNull : Boolean read GetOldID_ASIENTOIsNull;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
property ID_PAGO : Integer read GetID_PAGOValue write SetID_PAGOValue;
property ID_PAGOIsNull : Boolean read GetID_PAGOIsNull write SetID_PAGOIsNull;
property OldID_PAGO : Integer read GetOldID_PAGOValue;
property OldID_PAGOIsNull : Boolean read GetOldID_PAGOIsNull;
property ORDEN_ASIENTO : Integer read GetORDEN_ASIENTOValue write SetORDEN_ASIENTOValue;
property ORDEN_ASIENTOIsNull : Boolean read GetORDEN_ASIENTOIsNull write SetORDEN_ASIENTOIsNull;
property OldORDEN_ASIENTO : Integer read GetOldORDEN_ASIENTOValue;
property OldORDEN_ASIENTOIsNull : Boolean read GetOldORDEN_ASIENTOIsNull;
property FECHA_ASIENTO : DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
property FECHA_ASIENTOIsNull : Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull;
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
property OldFECHA_ASIENTOIsNull : Boolean read GetOldFECHA_ASIENTOIsNull;
property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull;
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property DOCUMENTO : String read GetDOCUMENTOValue write SetDOCUMENTOValue;
property DOCUMENTOIsNull : Boolean read GetDOCUMENTOIsNull write SetDOCUMENTOIsNull;
property OldDOCUMENTO : String read GetOldDOCUMENTOValue;
property OldDOCUMENTOIsNull : Boolean read GetOldDOCUMENTOIsNull;
property DEBE : Currency read GetDEBEValue write SetDEBEValue;
property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull;
property OldDEBE : Currency read GetOldDEBEValue;
property OldDEBEIsNull : Boolean read GetOldDEBEIsNull;
property HABER : Currency read GetHABERValue write SetHABERValue;
property HABERIsNull : Boolean read GetHABERIsNull write SetHABERIsNull;
property OldHABER : Currency read GetOldHABERValue;
property OldHABERIsNull : Boolean read GetOldHABERIsNull;
property PUNTEADO : SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
property OldPUNTEADOIsNull : Boolean read GetOldPUNTEADOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IApuntesDelta }
IApuntesDelta = interface(IApuntes)
['{63516B07-1307-4ED4-A78D-6A706E53F262}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ASIENTOValue : Integer;
function GetOldID_SUBCUENTAValue : Integer;
function GetOldNUM_ORDENValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
function GetOldSUBCUENTAValue : String;
function GetOldCONCEPTOValue : String;
function GetOldDOCUMENTOValue : String;
function GetOldDEBEValue : Currency;
function GetOldHABERValue : Currency;
function GetOldPUNTEADOValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldNUM_ORDEN : Integer read GetOldNUM_ORDENValue;
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldDOCUMENTO : String read GetOldDOCUMENTOValue;
property OldDEBE : Currency read GetOldDEBEValue;
property OldHABER : Currency read GetOldHABERValue;
property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
end;
{ TApuntesBusinessProcessorRules }
TApuntesBusinessProcessorRules = class(TDABusinessProcessorRules, IApuntes, IApuntesDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_ASIENTOValue: Integer; virtual;
function GetID_ASIENTOIsNull: Boolean; virtual;
function GetOldID_ASIENTOValue: Integer; virtual;
function GetOldID_ASIENTOIsNull: Boolean; virtual;
procedure SetID_ASIENTOValue(const aValue: Integer); virtual;
procedure SetID_ASIENTOIsNull(const aValue: Boolean); virtual;
function GetID_SUBCUENTAValue: Integer; virtual;
function GetID_SUBCUENTAIsNull: Boolean; virtual;
function GetOldID_SUBCUENTAValue: Integer; virtual;
function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetNUM_ORDENValue: Integer; virtual;
function GetNUM_ORDENIsNull: Boolean; virtual;
function GetOldNUM_ORDENValue: Integer; virtual;
function GetOldNUM_ORDENIsNull: Boolean; virtual;
procedure SetNUM_ORDENValue(const aValue: Integer); virtual;
procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual;
function GetREF_SUBCUENTAValue: String; virtual;
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
function GetOldREF_SUBCUENTAValue: String; virtual;
function GetOldREF_SUBCUENTAIsNull: Boolean; virtual;
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetSUBCUENTAValue: String; virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
function GetOldSUBCUENTAValue: String; virtual;
function GetOldSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetDOCUMENTOValue: String; virtual;
function GetDOCUMENTOIsNull: Boolean; virtual;
function GetOldDOCUMENTOValue: String; virtual;
function GetOldDOCUMENTOIsNull: Boolean; virtual;
procedure SetDOCUMENTOValue(const aValue: String); virtual;
procedure SetDOCUMENTOIsNull(const aValue: Boolean); virtual;
function GetDEBEValue: Currency; virtual;
function GetDEBEIsNull: Boolean; virtual;
function GetOldDEBEValue: Currency; virtual;
function GetOldDEBEIsNull: Boolean; virtual;
procedure SetDEBEValue(const aValue: Currency); virtual;
procedure SetDEBEIsNull(const aValue: Boolean); virtual;
function GetHABERValue: Currency; virtual;
function GetHABERIsNull: Boolean; virtual;
function GetOldHABERValue: Currency; virtual;
function GetOldHABERIsNull: Boolean; virtual;
procedure SetHABERValue(const aValue: Currency); virtual;
procedure SetHABERIsNull(const aValue: Boolean); virtual;
function GetPUNTEADOValue: SmallInt; virtual;
function GetPUNTEADOIsNull: Boolean; virtual;
function GetOldPUNTEADOValue: SmallInt; virtual;
function GetOldPUNTEADOIsNull: Boolean; virtual;
procedure SetPUNTEADOValue(const aValue: SmallInt); virtual;
procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_ASIENTO : Integer read GetID_ASIENTOValue write SetID_ASIENTOValue;
property ID_ASIENTOIsNull : Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull;
property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue;
property OldID_ASIENTOIsNull : Boolean read GetOldID_ASIENTOIsNull;
property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
property NUM_ORDEN : Integer read GetNUM_ORDENValue write SetNUM_ORDENValue;
property NUM_ORDENIsNull : Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
property OldNUM_ORDEN : Integer read GetOldNUM_ORDENValue;
property OldNUM_ORDENIsNull : Boolean read GetOldNUM_ORDENIsNull;
property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull;
property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property DOCUMENTO : String read GetDOCUMENTOValue write SetDOCUMENTOValue;
property DOCUMENTOIsNull : Boolean read GetDOCUMENTOIsNull write SetDOCUMENTOIsNull;
property OldDOCUMENTO : String read GetOldDOCUMENTOValue;
property OldDOCUMENTOIsNull : Boolean read GetOldDOCUMENTOIsNull;
property DEBE : Currency read GetDEBEValue write SetDEBEValue;
property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull;
property OldDEBE : Currency read GetOldDEBEValue;
property OldDEBEIsNull : Boolean read GetOldDEBEIsNull;
property HABER : Currency read GetHABERValue write SetHABERValue;
property HABERIsNull : Boolean read GetHABERIsNull write SetHABERIsNull;
property OldHABER : Currency read GetOldHABERValue;
property OldHABERIsNull : Boolean read GetOldHABERIsNull;
property PUNTEADO : SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
property OldPUNTEADOIsNull : Boolean read GetOldPUNTEADOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IAsientosDelta }
IAsientosDelta = interface(IAsientos)
['{4091C97B-82C3-4C9E-AFF7-1A647A9A8F9F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldFECHA_ASIENTOValue : DateTime;
function GetOldORDENValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldID_RECIBOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
property OldORDEN : Integer read GetOldORDENValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_RECIBO : Integer read GetOldID_RECIBOValue;
end;
{ TAsientosBusinessProcessorRules }
TAsientosBusinessProcessorRules = class(TDABusinessProcessorRules, IAsientos, IAsientosDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetFECHA_ASIENTOValue: DateTime; virtual;
function GetFECHA_ASIENTOIsNull: Boolean; virtual;
function GetOldFECHA_ASIENTOValue: DateTime; virtual;
function GetOldFECHA_ASIENTOIsNull: Boolean; virtual;
procedure SetFECHA_ASIENTOValue(const aValue: DateTime); virtual;
procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean); virtual;
function GetORDENValue: Integer; virtual;
function GetORDENIsNull: Boolean; virtual;
function GetOldORDENValue: Integer; virtual;
function GetOldORDENIsNull: Boolean; virtual;
procedure SetORDENValue(const aValue: Integer); virtual;
procedure SetORDENIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_RECIBOValue: Integer; virtual;
function GetID_RECIBOIsNull: Boolean; virtual;
function GetOldID_RECIBOValue: Integer; virtual;
function GetOldID_RECIBOIsNull: Boolean; virtual;
procedure SetID_RECIBOValue(const aValue: Integer); virtual;
procedure SetID_RECIBOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property FECHA_ASIENTO : DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
property FECHA_ASIENTOIsNull : Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull;
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
property OldFECHA_ASIENTOIsNull : Boolean read GetOldFECHA_ASIENTOIsNull;
property ORDEN : Integer read GetORDENValue write SetORDENValue;
property ORDENIsNull : Boolean read GetORDENIsNull write SetORDENIsNull;
property OldORDEN : Integer read GetOldORDENValue;
property OldORDENIsNull : Boolean read GetOldORDENIsNull;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
property ID_RECIBO : Integer read GetID_RECIBOValue write SetID_RECIBOValue;
property ID_RECIBOIsNull : Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull;
property OldID_RECIBO : Integer read GetOldID_RECIBOValue;
property OldID_RECIBOIsNull : Boolean read GetOldID_RECIBOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ ISubCuentasDelta }
ISubCuentasDelta = interface(ISubCuentas)
['{627EB32A-BD56-4A63-B354-D1E03FAFB7A9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldID_CONTACTOValue : Integer;
function GetOldID_CUENTAValue : Integer;
function GetOldREF_CUENTAValue : String;
function GetOldCUENTAValue : String;
function GetOldDEBEValue : Currency;
function GetOldHABERValue : Currency;
function GetOldSALDOValue : Currency;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
property OldCUENTA : String read GetOldCUENTAValue;
property OldDEBE : Currency read GetOldDEBEValue;
property OldHABER : Currency read GetOldHABERValue;
property OldSALDO : Currency read GetOldSALDOValue;
end;
{ TSubCuentasBusinessProcessorRules }
TSubCuentasBusinessProcessorRules = class(TDABusinessProcessorRules, ISubCuentas, ISubCuentasDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetREF_SUBCUENTAValue: String; virtual;
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
function GetOldREF_SUBCUENTAValue: String; virtual;
function GetOldREF_SUBCUENTAIsNull: Boolean; virtual;
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
function GetOldID_EJERCICIOValue: Integer; virtual;
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetID_CONTACTOValue: Integer; virtual;
function GetID_CONTACTOIsNull: Boolean; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
function GetOldID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetID_CUENTAValue: Integer; virtual;
function GetID_CUENTAIsNull: Boolean; virtual;
function GetOldID_CUENTAValue: Integer; virtual;
function GetOldID_CUENTAIsNull: Boolean; virtual;
procedure SetID_CUENTAValue(const aValue: Integer); virtual;
procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual;
function GetREF_CUENTAValue: String; virtual;
function GetREF_CUENTAIsNull: Boolean; virtual;
function GetOldREF_CUENTAValue: String; virtual;
function GetOldREF_CUENTAIsNull: Boolean; virtual;
procedure SetREF_CUENTAValue(const aValue: String); virtual;
procedure SetREF_CUENTAIsNull(const aValue: Boolean); virtual;
function GetCUENTAValue: String; virtual;
function GetCUENTAIsNull: Boolean; virtual;
function GetOldCUENTAValue: String; virtual;
function GetOldCUENTAIsNull: Boolean; virtual;
procedure SetCUENTAValue(const aValue: String); virtual;
procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
function GetDEBEValue: Currency; virtual;
function GetDEBEIsNull: Boolean; virtual;
function GetOldDEBEValue: Currency; virtual;
function GetOldDEBEIsNull: Boolean; virtual;
procedure SetDEBEValue(const aValue: Currency); virtual;
procedure SetDEBEIsNull(const aValue: Boolean); virtual;
function GetHABERValue: Currency; virtual;
function GetHABERIsNull: Boolean; virtual;
function GetOldHABERValue: Currency; virtual;
function GetOldHABERIsNull: Boolean; virtual;
procedure SetHABERValue(const aValue: Currency); virtual;
procedure SetHABERIsNull(const aValue: Boolean); virtual;
function GetSALDOValue: Currency; virtual;
function GetSALDOIsNull: Boolean; virtual;
function GetOldSALDOValue: Currency; virtual;
function GetOldSALDOIsNull: Boolean; virtual;
procedure SetSALDOValue(const aValue: Currency); virtual;
procedure SetSALDOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
property ID_CUENTA : Integer read GetID_CUENTAValue write SetID_CUENTAValue;
property ID_CUENTAIsNull : Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
property OldID_CUENTAIsNull : Boolean read GetOldID_CUENTAIsNull;
property REF_CUENTA : String read GetREF_CUENTAValue write SetREF_CUENTAValue;
property REF_CUENTAIsNull : Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
property OldREF_CUENTAIsNull : Boolean read GetOldREF_CUENTAIsNull;
property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
property OldCUENTA : String read GetOldCUENTAValue;
property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull;
property DEBE : Currency read GetDEBEValue write SetDEBEValue;
property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull;
property OldDEBE : Currency read GetOldDEBEValue;
property OldDEBEIsNull : Boolean read GetOldDEBEIsNull;
property HABER : Currency read GetHABERValue write SetHABERValue;
property HABERIsNull : Boolean read GetHABERIsNull write SetHABERIsNull;
property OldHABER : Currency read GetOldHABERValue;
property OldHABERIsNull : Boolean read GetOldHABERIsNull;
property SALDO : Currency read GetSALDOValue write SetSALDOValue;
property SALDOIsNull : Boolean read GetSALDOIsNull write SetSALDOIsNull;
property OldSALDO : Currency read GetOldSALDOValue;
property OldSALDOIsNull : Boolean read GetOldSALDOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ ICuentasDelta }
ICuentasDelta = interface(ICuentas)
['{7C6308C3-D09C-49BB-8FCD-D557B421747D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_CUENTAValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldDESCRIPCIONValue : String;
function GetOldID_EPIGRAFEValue : Integer;
function GetOldEPIGRAFEValue : String;
function GetOldID_BALANCEValue : Integer;
function GetOldBALANCEValue : String;
function GetOldID_CUENTA_ESPECIALValue : Integer;
function GetOldCUENTA_ESPECIALValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
property OldEPIGRAFE : String read GetOldEPIGRAFEValue;
property OldID_BALANCE : Integer read GetOldID_BALANCEValue;
property OldBALANCE : String read GetOldBALANCEValue;
property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue;
property OldCUENTA_ESPECIAL : String read GetOldCUENTA_ESPECIALValue;
end;
{ TCuentasBusinessProcessorRules }
TCuentasBusinessProcessorRules = class(TDABusinessProcessorRules, ICuentas, ICuentasDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetREF_CUENTAValue: String; virtual;
function GetREF_CUENTAIsNull: Boolean; virtual;
function GetOldREF_CUENTAValue: String; virtual;
function GetOldREF_CUENTAIsNull: Boolean; virtual;
procedure SetREF_CUENTAValue(const aValue: String); virtual;
procedure SetREF_CUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
function GetOldID_EJERCICIOValue: Integer; virtual;
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetID_EPIGRAFEValue: Integer; virtual;
function GetID_EPIGRAFEIsNull: Boolean; virtual;
function GetOldID_EPIGRAFEValue: Integer; virtual;
function GetOldID_EPIGRAFEIsNull: Boolean; virtual;
procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual;
procedure SetID_EPIGRAFEIsNull(const aValue: Boolean); virtual;
function GetEPIGRAFEValue: String; virtual;
function GetEPIGRAFEIsNull: Boolean; virtual;
function GetOldEPIGRAFEValue: String; virtual;
function GetOldEPIGRAFEIsNull: Boolean; virtual;
procedure SetEPIGRAFEValue(const aValue: String); virtual;
procedure SetEPIGRAFEIsNull(const aValue: Boolean); virtual;
function GetID_BALANCEValue: Integer; virtual;
function GetID_BALANCEIsNull: Boolean; virtual;
function GetOldID_BALANCEValue: Integer; virtual;
function GetOldID_BALANCEIsNull: Boolean; virtual;
procedure SetID_BALANCEValue(const aValue: Integer); virtual;
procedure SetID_BALANCEIsNull(const aValue: Boolean); virtual;
function GetBALANCEValue: String; virtual;
function GetBALANCEIsNull: Boolean; virtual;
function GetOldBALANCEValue: String; virtual;
function GetOldBALANCEIsNull: Boolean; virtual;
procedure SetBALANCEValue(const aValue: String); virtual;
procedure SetBALANCEIsNull(const aValue: Boolean); virtual;
function GetID_CUENTA_ESPECIALValue: Integer; virtual;
function GetID_CUENTA_ESPECIALIsNull: Boolean; virtual;
function GetOldID_CUENTA_ESPECIALValue: Integer; virtual;
function GetOldID_CUENTA_ESPECIALIsNull: Boolean; virtual;
procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer); virtual;
procedure SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean); virtual;
function GetCUENTA_ESPECIALValue: String; virtual;
function GetCUENTA_ESPECIALIsNull: Boolean; virtual;
function GetOldCUENTA_ESPECIALValue: String; virtual;
function GetOldCUENTA_ESPECIALIsNull: Boolean; virtual;
procedure SetCUENTA_ESPECIALValue(const aValue: String); virtual;
procedure SetCUENTA_ESPECIALIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property REF_CUENTA : String read GetREF_CUENTAValue write SetREF_CUENTAValue;
property REF_CUENTAIsNull : Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
property OldREF_CUENTAIsNull : Boolean read GetOldREF_CUENTAIsNull;
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property ID_EPIGRAFE : Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
property ID_EPIGRAFEIsNull : Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
property OldID_EPIGRAFEIsNull : Boolean read GetOldID_EPIGRAFEIsNull;
property EPIGRAFE : String read GetEPIGRAFEValue write SetEPIGRAFEValue;
property EPIGRAFEIsNull : Boolean read GetEPIGRAFEIsNull write SetEPIGRAFEIsNull;
property OldEPIGRAFE : String read GetOldEPIGRAFEValue;
property OldEPIGRAFEIsNull : Boolean read GetOldEPIGRAFEIsNull;
property ID_BALANCE : Integer read GetID_BALANCEValue write SetID_BALANCEValue;
property ID_BALANCEIsNull : Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull;
property OldID_BALANCE : Integer read GetOldID_BALANCEValue;
property OldID_BALANCEIsNull : Boolean read GetOldID_BALANCEIsNull;
property BALANCE : String read GetBALANCEValue write SetBALANCEValue;
property BALANCEIsNull : Boolean read GetBALANCEIsNull write SetBALANCEIsNull;
property OldBALANCE : String read GetOldBALANCEValue;
property OldBALANCEIsNull : Boolean read GetOldBALANCEIsNull;
property ID_CUENTA_ESPECIAL : Integer read GetID_CUENTA_ESPECIALValue write SetID_CUENTA_ESPECIALValue;
property ID_CUENTA_ESPECIALIsNull : Boolean read GetID_CUENTA_ESPECIALIsNull write SetID_CUENTA_ESPECIALIsNull;
property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue;
property OldID_CUENTA_ESPECIALIsNull : Boolean read GetOldID_CUENTA_ESPECIALIsNull;
property CUENTA_ESPECIAL : String read GetCUENTA_ESPECIALValue write SetCUENTA_ESPECIALValue;
property CUENTA_ESPECIALIsNull : Boolean read GetCUENTA_ESPECIALIsNull write SetCUENTA_ESPECIALIsNull;
property OldCUENTA_ESPECIAL : String read GetOldCUENTA_ESPECIALValue;
property OldCUENTA_ESPECIALIsNull : Boolean read GetOldCUENTA_ESPECIALIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ ICuentasEspecialesDelta }
ICuentasEspecialesDelta = interface(ICuentasEspeciales)
['{18300F58-6909-4C4A-9755-52B39262CC58}']
{ 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)
['{61340163-241D-4DF6-9CE2-807E5CD1A2E7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_EPIGRAFEValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldID_EJERCICIOValue : Integer;
function GetOldID_PADREValue : Integer;
function GetOldEPIGRAFE_PADREValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_PADRE : Integer read GetOldID_PADREValue;
property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue;
end;
{ TEpigrafesBusinessProcessorRules }
TEpigrafesBusinessProcessorRules = class(TDABusinessProcessorRules, IEpigrafes, IEpigrafesDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetREF_EPIGRAFEValue: String; virtual;
function GetREF_EPIGRAFEIsNull: Boolean; virtual;
function GetOldREF_EPIGRAFEValue: String; virtual;
function GetOldREF_EPIGRAFEIsNull: Boolean; virtual;
procedure SetREF_EPIGRAFEValue(const aValue: String); virtual;
procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
function GetOldID_EJERCICIOValue: Integer; virtual;
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
function GetID_PADREValue: Integer; virtual;
function GetID_PADREIsNull: Boolean; virtual;
function GetOldID_PADREValue: Integer; virtual;
function GetOldID_PADREIsNull: Boolean; virtual;
procedure SetID_PADREValue(const aValue: Integer); virtual;
procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
function GetEPIGRAFE_PADREValue: String; virtual;
function GetEPIGRAFE_PADREIsNull: Boolean; virtual;
function GetOldEPIGRAFE_PADREValue: String; virtual;
function GetOldEPIGRAFE_PADREIsNull: Boolean; virtual;
procedure SetEPIGRAFE_PADREValue(const aValue: String); virtual;
procedure SetEPIGRAFE_PADREIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property REF_EPIGRAFE : String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
property REF_EPIGRAFEIsNull : Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
property OldREF_EPIGRAFEIsNull : Boolean read GetOldREF_EPIGRAFEIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue;
property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
property OldID_PADRE : Integer read GetOldID_PADREValue;
property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull;
property EPIGRAFE_PADRE : String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
property EPIGRAFE_PADREIsNull : Boolean read GetEPIGRAFE_PADREIsNull write SetEPIGRAFE_PADREIsNull;
property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue;
property OldEPIGRAFE_PADREIsNull : Boolean read GetOldEPIGRAFE_PADREIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IBalancesDelta }
IBalancesDelta = interface(IBalances)
['{BB5830B6-4776-4278-B840-4D6453A709CA}']
{ 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;
{ TDiarioBusinessProcessorRules }
constructor TDiarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDiarioBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDiarioBusinessProcessorRules.GetID_APUNTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE];
end;
function TDiarioBusinessProcessorRules.GetID_APUNTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE]);
end;
function TDiarioBusinessProcessorRules.GetOldID_APUNTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_APUNTE];
end;
function TDiarioBusinessProcessorRules.GetOldID_APUNTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_APUNTE]);
end;
procedure TDiarioBusinessProcessorRules.SetID_APUNTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetID_APUNTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_APUNTE] := Null;
end;
function TDiarioBusinessProcessorRules.GetID_ASIENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO];
end;
function TDiarioBusinessProcessorRules.GetID_ASIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO]);
end;
function TDiarioBusinessProcessorRules.GetOldID_ASIENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_ASIENTO];
end;
function TDiarioBusinessProcessorRules.GetOldID_ASIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_ASIENTO]);
end;
procedure TDiarioBusinessProcessorRules.SetID_ASIENTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetID_ASIENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_ASIENTO] := Null;
end;
function TDiarioBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA];
end;
function TDiarioBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA]);
end;
function TDiarioBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_FACTURA];
end;
function TDiarioBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_FACTURA]);
end;
procedure TDiarioBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_FACTURA] := Null;
end;
function TDiarioBusinessProcessorRules.GetID_PAGOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO];
end;
function TDiarioBusinessProcessorRules.GetID_PAGOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO]);
end;
function TDiarioBusinessProcessorRules.GetOldID_PAGOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_PAGO];
end;
function TDiarioBusinessProcessorRules.GetOldID_PAGOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_PAGO]);
end;
procedure TDiarioBusinessProcessorRules.SetID_PAGOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetID_PAGOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_PAGO] := Null;
end;
function TDiarioBusinessProcessorRules.GetORDEN_ASIENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO];
end;
function TDiarioBusinessProcessorRules.GetORDEN_ASIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO]);
end;
function TDiarioBusinessProcessorRules.GetOldORDEN_ASIENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioORDEN_ASIENTO];
end;
function TDiarioBusinessProcessorRules.GetOldORDEN_ASIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioORDEN_ASIENTO]);
end;
procedure TDiarioBusinessProcessorRules.SetORDEN_ASIENTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetORDEN_ASIENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioORDEN_ASIENTO] := Null;
end;
function TDiarioBusinessProcessorRules.GetFECHA_ASIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO];
end;
function TDiarioBusinessProcessorRules.GetFECHA_ASIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO]);
end;
function TDiarioBusinessProcessorRules.GetOldFECHA_ASIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioFECHA_ASIENTO];
end;
function TDiarioBusinessProcessorRules.GetOldFECHA_ASIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioFECHA_ASIENTO]);
end;
procedure TDiarioBusinessProcessorRules.SetFECHA_ASIENTOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetFECHA_ASIENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioFECHA_ASIENTO] := Null;
end;
function TDiarioBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA];
end;
function TDiarioBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA]);
end;
function TDiarioBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_SUBCUENTA];
end;
function TDiarioBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_SUBCUENTA]);
end;
procedure TDiarioBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_SUBCUENTA] := Null;
end;
function TDiarioBusinessProcessorRules.GetREF_SUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA];
end;
function TDiarioBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA]);
end;
function TDiarioBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioREF_SUBCUENTA];
end;
function TDiarioBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioREF_SUBCUENTA]);
end;
procedure TDiarioBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioREF_SUBCUENTA] := Null;
end;
function TDiarioBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO];
end;
function TDiarioBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO]);
end;
function TDiarioBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_EJERCICIO];
end;
function TDiarioBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioID_EJERCICIO]);
end;
procedure TDiarioBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioID_EJERCICIO] := Null;
end;
function TDiarioBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO];
end;
function TDiarioBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO]);
end;
function TDiarioBusinessProcessorRules.GetOldCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioCONCEPTO];
end;
function TDiarioBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioCONCEPTO]);
end;
procedure TDiarioBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioCONCEPTO] := Null;
end;
function TDiarioBusinessProcessorRules.GetDOCUMENTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO];
end;
function TDiarioBusinessProcessorRules.GetDOCUMENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO]);
end;
function TDiarioBusinessProcessorRules.GetOldDOCUMENTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDOCUMENTO];
end;
function TDiarioBusinessProcessorRules.GetOldDOCUMENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDOCUMENTO]);
end;
procedure TDiarioBusinessProcessorRules.SetDOCUMENTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetDOCUMENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDOCUMENTO] := Null;
end;
function TDiarioBusinessProcessorRules.GetDEBEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE];
end;
function TDiarioBusinessProcessorRules.GetDEBEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE]);
end;
function TDiarioBusinessProcessorRules.GetOldDEBEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDEBE];
end;
function TDiarioBusinessProcessorRules.GetOldDEBEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioDEBE]);
end;
procedure TDiarioBusinessProcessorRules.SetDEBEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioDEBE] := Null;
end;
function TDiarioBusinessProcessorRules.GetHABERValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER];
end;
function TDiarioBusinessProcessorRules.GetHABERIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER]);
end;
function TDiarioBusinessProcessorRules.GetOldHABERValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioHABER];
end;
function TDiarioBusinessProcessorRules.GetOldHABERIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioHABER]);
end;
procedure TDiarioBusinessProcessorRules.SetHABERValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioHABER] := Null;
end;
function TDiarioBusinessProcessorRules.GetPUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO];
end;
function TDiarioBusinessProcessorRules.GetPUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO]);
end;
function TDiarioBusinessProcessorRules.GetOldPUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioPUNTEADO];
end;
function TDiarioBusinessProcessorRules.GetOldPUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DiarioPUNTEADO]);
end;
procedure TDiarioBusinessProcessorRules.SetPUNTEADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO] := aValue;
end;
procedure TDiarioBusinessProcessorRules.SetPUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DiarioPUNTEADO] := Null;
end;
{ TApuntesBusinessProcessorRules }
constructor TApuntesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TApuntesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TApuntesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID];
end;
function TApuntesBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID]);
end;
function TApuntesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID];
end;
function TApuntesBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID]);
end;
procedure TApuntesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID] := Null;
end;
function TApuntesBusinessProcessorRules.GetID_ASIENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO];
end;
function TApuntesBusinessProcessorRules.GetID_ASIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO]);
end;
function TApuntesBusinessProcessorRules.GetOldID_ASIENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_ASIENTO];
end;
function TApuntesBusinessProcessorRules.GetOldID_ASIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_ASIENTO]);
end;
procedure TApuntesBusinessProcessorRules.SetID_ASIENTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetID_ASIENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_ASIENTO] := Null;
end;
function TApuntesBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA];
end;
function TApuntesBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA]);
end;
function TApuntesBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_SUBCUENTA];
end;
function TApuntesBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesID_SUBCUENTA]);
end;
procedure TApuntesBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA] := Null;
end;
function TApuntesBusinessProcessorRules.GetNUM_ORDENValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN];
end;
function TApuntesBusinessProcessorRules.GetNUM_ORDENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN]);
end;
function TApuntesBusinessProcessorRules.GetOldNUM_ORDENValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesNUM_ORDEN];
end;
function TApuntesBusinessProcessorRules.GetOldNUM_ORDENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesNUM_ORDEN]);
end;
procedure TApuntesBusinessProcessorRules.SetNUM_ORDENValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetNUM_ORDENIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN] := Null;
end;
function TApuntesBusinessProcessorRules.GetREF_SUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA];
end;
function TApuntesBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA]);
end;
function TApuntesBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesREF_SUBCUENTA];
end;
function TApuntesBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesREF_SUBCUENTA]);
end;
procedure TApuntesBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA] := Null;
end;
function TApuntesBusinessProcessorRules.GetSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA];
end;
function TApuntesBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA]);
end;
function TApuntesBusinessProcessorRules.GetOldSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesSUBCUENTA];
end;
function TApuntesBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesSUBCUENTA]);
end;
procedure TApuntesBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesSUBCUENTA] := Null;
end;
function TApuntesBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO];
end;
function TApuntesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO]);
end;
function TApuntesBusinessProcessorRules.GetOldCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesCONCEPTO];
end;
function TApuntesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesCONCEPTO]);
end;
procedure TApuntesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesCONCEPTO] := Null;
end;
function TApuntesBusinessProcessorRules.GetDOCUMENTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO];
end;
function TApuntesBusinessProcessorRules.GetDOCUMENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO]);
end;
function TApuntesBusinessProcessorRules.GetOldDOCUMENTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDOCUMENTO];
end;
function TApuntesBusinessProcessorRules.GetOldDOCUMENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDOCUMENTO]);
end;
procedure TApuntesBusinessProcessorRules.SetDOCUMENTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetDOCUMENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDOCUMENTO] := Null;
end;
function TApuntesBusinessProcessorRules.GetDEBEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE];
end;
function TApuntesBusinessProcessorRules.GetDEBEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE]);
end;
function TApuntesBusinessProcessorRules.GetOldDEBEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDEBE];
end;
function TApuntesBusinessProcessorRules.GetOldDEBEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesDEBE]);
end;
procedure TApuntesBusinessProcessorRules.SetDEBEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesDEBE] := Null;
end;
function TApuntesBusinessProcessorRules.GetHABERValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER];
end;
function TApuntesBusinessProcessorRules.GetHABERIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER]);
end;
function TApuntesBusinessProcessorRules.GetOldHABERValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesHABER];
end;
function TApuntesBusinessProcessorRules.GetOldHABERIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesHABER]);
end;
procedure TApuntesBusinessProcessorRules.SetHABERValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesHABER] := Null;
end;
function TApuntesBusinessProcessorRules.GetPUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO];
end;
function TApuntesBusinessProcessorRules.GetPUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO]);
end;
function TApuntesBusinessProcessorRules.GetOldPUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesPUNTEADO];
end;
function TApuntesBusinessProcessorRules.GetOldPUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesPUNTEADO]);
end;
procedure TApuntesBusinessProcessorRules.SetPUNTEADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO] := aValue;
end;
procedure TApuntesBusinessProcessorRules.SetPUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesPUNTEADO] := Null;
end;
{ TAsientosBusinessProcessorRules }
constructor TAsientosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TAsientosBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TAsientosBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID];
end;
function TAsientosBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID]);
end;
function TAsientosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID];
end;
function TAsientosBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID]);
end;
procedure TAsientosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID] := aValue;
end;
procedure TAsientosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID] := Null;
end;
function TAsientosBusinessProcessorRules.GetFECHA_ASIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO];
end;
function TAsientosBusinessProcessorRules.GetFECHA_ASIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO]);
end;
function TAsientosBusinessProcessorRules.GetOldFECHA_ASIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosFECHA_ASIENTO];
end;
function TAsientosBusinessProcessorRules.GetOldFECHA_ASIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosFECHA_ASIENTO]);
end;
procedure TAsientosBusinessProcessorRules.SetFECHA_ASIENTOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO] := aValue;
end;
procedure TAsientosBusinessProcessorRules.SetFECHA_ASIENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO] := Null;
end;
function TAsientosBusinessProcessorRules.GetORDENValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN];
end;
function TAsientosBusinessProcessorRules.GetORDENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN]);
end;
function TAsientosBusinessProcessorRules.GetOldORDENValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosORDEN];
end;
function TAsientosBusinessProcessorRules.GetOldORDENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosORDEN]);
end;
procedure TAsientosBusinessProcessorRules.SetORDENValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN] := aValue;
end;
procedure TAsientosBusinessProcessorRules.SetORDENIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosORDEN] := Null;
end;
function TAsientosBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA];
end;
function TAsientosBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA]);
end;
function TAsientosBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_FACTURA];
end;
function TAsientosBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_FACTURA]);
end;
procedure TAsientosBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA] := aValue;
end;
procedure TAsientosBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_FACTURA] := Null;
end;
function TAsientosBusinessProcessorRules.GetID_RECIBOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO];
end;
function TAsientosBusinessProcessorRules.GetID_RECIBOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO]);
end;
function TAsientosBusinessProcessorRules.GetOldID_RECIBOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_RECIBO];
end;
function TAsientosBusinessProcessorRules.GetOldID_RECIBOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_RECIBO]);
end;
procedure TAsientosBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO] := aValue;
end;
procedure TAsientosBusinessProcessorRules.SetID_RECIBOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_RECIBO] := Null;
end;
{ TSubCuentasBusinessProcessorRules }
constructor TSubCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TSubCuentasBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TSubCuentasBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID];
end;
function TSubCuentasBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID]);
end;
function TSubCuentasBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID];
end;
function TSubCuentasBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID]);
end;
procedure TSubCuentasBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetREF_SUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA];
end;
function TSubCuentasBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA]);
end;
function TSubCuentasBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_SUBCUENTA];
end;
function TSubCuentasBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_SUBCUENTA]);
end;
procedure TSubCuentasBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION];
end;
function TSubCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION]);
end;
function TSubCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDESCRIPCION];
end;
function TSubCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDESCRIPCION]);
end;
procedure TSubCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO];
end;
function TSubCuentasBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO]);
end;
function TSubCuentasBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_EJERCICIO];
end;
function TSubCuentasBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_EJERCICIO]);
end;
procedure TSubCuentasBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO];
end;
function TSubCuentasBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO]);
end;
function TSubCuentasBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CONTACTO];
end;
function TSubCuentasBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CONTACTO]);
end;
procedure TSubCuentasBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetID_CUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA];
end;
function TSubCuentasBusinessProcessorRules.GetID_CUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA]);
end;
function TSubCuentasBusinessProcessorRules.GetOldID_CUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CUENTA];
end;
function TSubCuentasBusinessProcessorRules.GetOldID_CUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CUENTA]);
end;
procedure TSubCuentasBusinessProcessorRules.SetID_CUENTAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetID_CUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetREF_CUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA];
end;
function TSubCuentasBusinessProcessorRules.GetREF_CUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA]);
end;
function TSubCuentasBusinessProcessorRules.GetOldREF_CUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_CUENTA];
end;
function TSubCuentasBusinessProcessorRules.GetOldREF_CUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_CUENTA]);
end;
procedure TSubCuentasBusinessProcessorRules.SetREF_CUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetREF_CUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA];
end;
function TSubCuentasBusinessProcessorRules.GetCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA]);
end;
function TSubCuentasBusinessProcessorRules.GetOldCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasCUENTA];
end;
function TSubCuentasBusinessProcessorRules.GetOldCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasCUENTA]);
end;
procedure TSubCuentasBusinessProcessorRules.SetCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetDEBEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE];
end;
function TSubCuentasBusinessProcessorRules.GetDEBEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE]);
end;
function TSubCuentasBusinessProcessorRules.GetOldDEBEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDEBE];
end;
function TSubCuentasBusinessProcessorRules.GetOldDEBEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDEBE]);
end;
procedure TSubCuentasBusinessProcessorRules.SetDEBEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDEBE] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetHABERValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER];
end;
function TSubCuentasBusinessProcessorRules.GetHABERIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER]);
end;
function TSubCuentasBusinessProcessorRules.GetOldHABERValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasHABER];
end;
function TSubCuentasBusinessProcessorRules.GetOldHABERIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasHABER]);
end;
procedure TSubCuentasBusinessProcessorRules.SetHABERValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasHABER] := Null;
end;
function TSubCuentasBusinessProcessorRules.GetSALDOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO];
end;
function TSubCuentasBusinessProcessorRules.GetSALDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO]);
end;
function TSubCuentasBusinessProcessorRules.GetOldSALDOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasSALDO];
end;
function TSubCuentasBusinessProcessorRules.GetOldSALDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasSALDO]);
end;
procedure TSubCuentasBusinessProcessorRules.SetSALDOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO] := aValue;
end;
procedure TSubCuentasBusinessProcessorRules.SetSALDOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasSALDO] := Null;
end;
{ TCuentasBusinessProcessorRules }
constructor TCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TCuentasBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TCuentasBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID];
end;
function TCuentasBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID]);
end;
function TCuentasBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID];
end;
function TCuentasBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID]);
end;
procedure TCuentasBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID] := Null;
end;
function TCuentasBusinessProcessorRules.GetREF_CUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA];
end;
function TCuentasBusinessProcessorRules.GetREF_CUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA]);
end;
function TCuentasBusinessProcessorRules.GetOldREF_CUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasREF_CUENTA];
end;
function TCuentasBusinessProcessorRules.GetOldREF_CUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasREF_CUENTA]);
end;
procedure TCuentasBusinessProcessorRules.SetREF_CUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetREF_CUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA] := Null;
end;
function TCuentasBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO];
end;
function TCuentasBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO]);
end;
function TCuentasBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EJERCICIO];
end;
function TCuentasBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EJERCICIO]);
end;
procedure TCuentasBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := Null;
end;
function TCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION];
end;
function TCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]);
end;
function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION];
end;
function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION]);
end;
procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := Null;
end;
function TCuentasBusinessProcessorRules.GetID_EPIGRAFEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE];
end;
function TCuentasBusinessProcessorRules.GetID_EPIGRAFEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE]);
end;
function TCuentasBusinessProcessorRules.GetOldID_EPIGRAFEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EPIGRAFE];
end;
function TCuentasBusinessProcessorRules.GetOldID_EPIGRAFEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EPIGRAFE]);
end;
procedure TCuentasBusinessProcessorRules.SetID_EPIGRAFEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetID_EPIGRAFEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := Null;
end;
function TCuentasBusinessProcessorRules.GetEPIGRAFEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE];
end;
function TCuentasBusinessProcessorRules.GetEPIGRAFEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE]);
end;
function TCuentasBusinessProcessorRules.GetOldEPIGRAFEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEPIGRAFE];
end;
function TCuentasBusinessProcessorRules.GetOldEPIGRAFEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEPIGRAFE]);
end;
procedure TCuentasBusinessProcessorRules.SetEPIGRAFEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetEPIGRAFEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE] := Null;
end;
function TCuentasBusinessProcessorRules.GetID_BALANCEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE];
end;
function TCuentasBusinessProcessorRules.GetID_BALANCEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE]);
end;
function TCuentasBusinessProcessorRules.GetOldID_BALANCEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_BALANCE];
end;
function TCuentasBusinessProcessorRules.GetOldID_BALANCEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_BALANCE]);
end;
procedure TCuentasBusinessProcessorRules.SetID_BALANCEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetID_BALANCEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := Null;
end;
function TCuentasBusinessProcessorRules.GetBALANCEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE];
end;
function TCuentasBusinessProcessorRules.GetBALANCEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE]);
end;
function TCuentasBusinessProcessorRules.GetOldBALANCEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasBALANCE];
end;
function TCuentasBusinessProcessorRules.GetOldBALANCEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasBALANCE]);
end;
procedure TCuentasBusinessProcessorRules.SetBALANCEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetBALANCEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE] := Null;
end;
function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL];
end;
function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL]);
end;
function TCuentasBusinessProcessorRules.GetOldID_CUENTA_ESPECIALValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_CUENTA_ESPECIAL];
end;
function TCuentasBusinessProcessorRules.GetOldID_CUENTA_ESPECIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_CUENTA_ESPECIAL]);
end;
procedure TCuentasBusinessProcessorRules.SetID_CUENTA_ESPECIALValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := Null;
end;
function TCuentasBusinessProcessorRules.GetCUENTA_ESPECIALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL];
end;
function TCuentasBusinessProcessorRules.GetCUENTA_ESPECIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL]);
end;
function TCuentasBusinessProcessorRules.GetOldCUENTA_ESPECIALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasCUENTA_ESPECIAL];
end;
function TCuentasBusinessProcessorRules.GetOldCUENTA_ESPECIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasCUENTA_ESPECIAL]);
end;
procedure TCuentasBusinessProcessorRules.SetCUENTA_ESPECIALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL] := aValue;
end;
procedure TCuentasBusinessProcessorRules.SetCUENTA_ESPECIALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL] := Null;
end;
{ TCuentasEspecialesBusinessProcessorRules }
constructor TCuentasEspecialesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TCuentasEspecialesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TCuentasEspecialesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID];
end;
function TCuentasEspecialesBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID]);
end;
function TCuentasEspecialesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID];
end;
function TCuentasEspecialesBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID]);
end;
procedure TCuentasEspecialesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := aValue;
end;
procedure TCuentasEspecialesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := Null;
end;
function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA];
end;
function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA]);
end;
function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA];
end;
function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA]);
end;
procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := aValue;
end;
procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := Null;
end;
function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION];
end;
function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION]);
end;
function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION];
end;
function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION]);
end;
procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := aValue;
end;
procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := Null;
end;
{ TEpigrafesBusinessProcessorRules }
constructor TEpigrafesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TEpigrafesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TEpigrafesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID];
end;
function TEpigrafesBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID]);
end;
function TEpigrafesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID];
end;
function TEpigrafesBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID]);
end;
procedure TEpigrafesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := aValue;
end;
procedure TEpigrafesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := Null;
end;
function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE];
end;
function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE]);
end;
function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE];
end;
function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE]);
end;
procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := aValue;
end;
procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := Null;
end;
function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION];
end;
function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION]);
end;
function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION];
end;
function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION]);
end;
procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := aValue;
end;
procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := Null;
end;
function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO];
end;
function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO]);
end;
function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO];
end;
function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO]);
end;
procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := aValue;
end;
procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null;
end;
function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE];
end;
function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]);
end;
function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE];
end;
function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]);
end;
procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue;
end;
procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null;
end;
function TEpigrafesBusinessProcessorRules.GetEPIGRAFE_PADREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE];
end;
function TEpigrafesBusinessProcessorRules.GetEPIGRAFE_PADREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE]);
end;
function TEpigrafesBusinessProcessorRules.GetOldEPIGRAFE_PADREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesEPIGRAFE_PADRE];
end;
function TEpigrafesBusinessProcessorRules.GetOldEPIGRAFE_PADREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesEPIGRAFE_PADRE]);
end;
procedure TEpigrafesBusinessProcessorRules.SetEPIGRAFE_PADREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE] := aValue;
end;
procedure TEpigrafesBusinessProcessorRules.SetEPIGRAFE_PADREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE] := Null;
end;
{ TBalancesBusinessProcessorRules }
constructor TBalancesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TBalancesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TBalancesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID];
end;
function TBalancesBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID]);
end;
function TBalancesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID];
end;
function TBalancesBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID]);
end;
procedure TBalancesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := aValue;
end;
procedure TBalancesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := Null;
end;
function TBalancesBusinessProcessorRules.GetREF_BALANCEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE];
end;
function TBalancesBusinessProcessorRules.GetREF_BALANCEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE]);
end;
function TBalancesBusinessProcessorRules.GetOldREF_BALANCEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE];
end;
function TBalancesBusinessProcessorRules.GetOldREF_BALANCEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE]);
end;
procedure TBalancesBusinessProcessorRules.SetREF_BALANCEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := aValue;
end;
procedure TBalancesBusinessProcessorRules.SetREF_BALANCEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := Null;
end;
function TBalancesBusinessProcessorRules.GetNATURALEZAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA];
end;
function TBalancesBusinessProcessorRules.GetNATURALEZAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA]);
end;
function TBalancesBusinessProcessorRules.GetOldNATURALEZAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA];
end;
function TBalancesBusinessProcessorRules.GetOldNATURALEZAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA]);
end;
procedure TBalancesBusinessProcessorRules.SetNATURALEZAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := aValue;
end;
procedure TBalancesBusinessProcessorRules.SetNATURALEZAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := Null;
end;
function TBalancesBusinessProcessorRules.GetNIVEL1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1];
end;
function TBalancesBusinessProcessorRules.GetNIVEL1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1]);
end;
function TBalancesBusinessProcessorRules.GetOldNIVEL1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1];
end;
function TBalancesBusinessProcessorRules.GetOldNIVEL1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1]);
end;
procedure TBalancesBusinessProcessorRules.SetNIVEL1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := aValue;
end;
procedure TBalancesBusinessProcessorRules.SetNIVEL1IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := Null;
end;
function TBalancesBusinessProcessorRules.GetDESCRIPCION1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1];
end;
function TBalancesBusinessProcessorRules.GetDESCRIPCION1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1]);
end;
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1];
end;
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1]);
end;
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := aValue;
end;
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := Null;
end;
function TBalancesBusinessProcessorRules.GetNIVEL2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2];
end;
function TBalancesBusinessProcessorRules.GetNIVEL2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2]);
end;
function TBalancesBusinessProcessorRules.GetOldNIVEL2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2];
end;
function TBalancesBusinessProcessorRules.GetOldNIVEL2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2]);
end;
procedure TBalancesBusinessProcessorRules.SetNIVEL2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := aValue;
end;
procedure TBalancesBusinessProcessorRules.SetNIVEL2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := Null;
end;
function TBalancesBusinessProcessorRules.GetDESCRIPCION2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2];
end;
function TBalancesBusinessProcessorRules.GetDESCRIPCION2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2]);
end;
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2];
end;
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2]);
end;
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := aValue;
end;
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := Null;
end;
function TBalancesBusinessProcessorRules.GetNIVEL3Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3];
end;
function TBalancesBusinessProcessorRules.GetNIVEL3IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3]);
end;
function TBalancesBusinessProcessorRules.GetOldNIVEL3Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3];
end;
function TBalancesBusinessProcessorRules.GetOldNIVEL3IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3]);
end;
procedure TBalancesBusinessProcessorRules.SetNIVEL3Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := aValue;
end;
procedure TBalancesBusinessProcessorRules.SetNIVEL3IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := Null;
end;
function TBalancesBusinessProcessorRules.GetDESCRIPCION3Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3];
end;
function TBalancesBusinessProcessorRules.GetDESCRIPCION3IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3]);
end;
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3];
end;
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3]);
end;
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := aValue;
end;
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := Null;
end;
initialization
RegisterBusinessProcessorRules(RID_DiarioDelta, TDiarioBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ApuntesDelta, TApuntesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AsientosDelta, TAsientosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_SubCuentasDelta, TSubCuentasBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_CuentasDelta, TCuentasBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules);
end.
Reference in New Issue View Git Blame Copy Permalink