1829 lines
74 KiB
ObjectPascal
1829 lines
74 KiB
ObjectPascal
unit schContabilidadServer_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schContabilidadClient_Intf;
|
|
|
|
const
|
|
{ Delta rules ids
|
|
Feel free to change them to something more human readable
|
|
but make sure they are unique in the context of your application }
|
|
RID_AsientosDelta = '{E5444D5F-9D7A-4EF7-A3EC-54E04047ABB8}';
|
|
RID_SubCuentasDelta = '{06655A2F-ECFC-4984-B5EF-275E3B2F84E3}';
|
|
RID_CuentasDelta = '{FB48551E-0531-4FC3-8494-51ABBA80938C}';
|
|
RID_CuentasEspecialesDelta = '{4A7CF142-4CE5-41BE-863B-A4983EB6D7DC}';
|
|
RID_EpigrafesDelta = '{691EBC10-A868-46C5-9EDF-8E55A27221D0}';
|
|
RID_BalancesDelta = '{C6255FDC-F284-4F1F-9559-685B3FEE30A9}';
|
|
|
|
type
|
|
{ IAsientosDelta }
|
|
IAsientosDelta = interface(IAsientos)
|
|
['{E5444D5F-9D7A-4EF7-A3EC-54E04047ABB8}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_ASIENTO_COMPENSADOValue : Integer;
|
|
function GetOldID_SUBCUENTAValue : Integer;
|
|
function GetOldFECHA_ASIENTOValue : DateTime;
|
|
function GetOldCONCEPTOValue : String;
|
|
function GetOldPUNTEADOValue : SmallInt;
|
|
function GetOldDEBEValue : Currency;
|
|
function GetOldHABERValue : Currency;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_ASIENTO_COMPENSADO : Integer read GetOldID_ASIENTO_COMPENSADOValue;
|
|
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
|
|
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
|
|
property OldCONCEPTO : String read GetOldCONCEPTOValue;
|
|
property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
|
|
property OldDEBE : Currency read GetOldDEBEValue;
|
|
property OldHABER : Currency read GetOldHABERValue;
|
|
end;
|
|
|
|
{ TAsientosBusinessProcessorRules }
|
|
TAsientosBusinessProcessorRules = class(TDABusinessProcessorRules, IAsientos, IAsientosDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
function GetIDIsNull: Boolean; virtual;
|
|
function GetOldIDValue: Integer; virtual;
|
|
function GetOldIDIsNull: Boolean; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
|
function GetID_ASIENTO_COMPENSADOValue: Integer; virtual;
|
|
function GetID_ASIENTO_COMPENSADOIsNull: Boolean; virtual;
|
|
function GetOldID_ASIENTO_COMPENSADOValue: Integer; virtual;
|
|
function GetOldID_ASIENTO_COMPENSADOIsNull: Boolean; virtual;
|
|
procedure SetID_ASIENTO_COMPENSADOValue(const aValue: Integer); virtual;
|
|
procedure SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean); virtual;
|
|
function GetID_SUBCUENTAValue: Integer; virtual;
|
|
function GetID_SUBCUENTAIsNull: Boolean; virtual;
|
|
function GetOldID_SUBCUENTAValue: Integer; virtual;
|
|
function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
|
|
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
|
|
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_ASIENTOValue: DateTime; virtual;
|
|
function GetFECHA_ASIENTOIsNull: Boolean; virtual;
|
|
function GetOldFECHA_ASIENTOValue: DateTime; virtual;
|
|
function GetOldFECHA_ASIENTOIsNull: Boolean; virtual;
|
|
procedure SetFECHA_ASIENTOValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean); virtual;
|
|
function GetCONCEPTOValue: String; virtual;
|
|
function GetCONCEPTOIsNull: Boolean; virtual;
|
|
function GetOldCONCEPTOValue: String; virtual;
|
|
function GetOldCONCEPTOIsNull: Boolean; virtual;
|
|
procedure SetCONCEPTOValue(const aValue: String); virtual;
|
|
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
|
|
function GetPUNTEADOValue: SmallInt; virtual;
|
|
function GetPUNTEADOIsNull: Boolean; virtual;
|
|
function GetOldPUNTEADOValue: SmallInt; virtual;
|
|
function GetOldPUNTEADOIsNull: Boolean; virtual;
|
|
procedure SetPUNTEADOValue(const aValue: SmallInt); virtual;
|
|
procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual;
|
|
function GetDEBEValue: Currency; virtual;
|
|
function GetDEBEIsNull: Boolean; virtual;
|
|
function GetOldDEBEValue: Currency; virtual;
|
|
function GetOldDEBEIsNull: Boolean; virtual;
|
|
procedure SetDEBEValue(const aValue: Currency); virtual;
|
|
procedure SetDEBEIsNull(const aValue: Boolean); virtual;
|
|
function GetHABERValue: Currency; virtual;
|
|
function GetHABERIsNull: Boolean; virtual;
|
|
function GetOldHABERValue: Currency; virtual;
|
|
function GetOldHABERIsNull: Boolean; virtual;
|
|
procedure SetHABERValue(const aValue: Currency); virtual;
|
|
procedure SetHABERIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property ID_ASIENTO_COMPENSADO : Integer read GetID_ASIENTO_COMPENSADOValue write SetID_ASIENTO_COMPENSADOValue;
|
|
property ID_ASIENTO_COMPENSADOIsNull : Boolean read GetID_ASIENTO_COMPENSADOIsNull write SetID_ASIENTO_COMPENSADOIsNull;
|
|
property OldID_ASIENTO_COMPENSADO : Integer read GetOldID_ASIENTO_COMPENSADOValue;
|
|
property OldID_ASIENTO_COMPENSADOIsNull : Boolean read GetOldID_ASIENTO_COMPENSADOIsNull;
|
|
property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
|
|
property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
|
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
|
|
property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
|
|
property FECHA_ASIENTO : DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
|
|
property FECHA_ASIENTOIsNull : Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull;
|
|
property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
|
|
property OldFECHA_ASIENTOIsNull : Boolean read GetOldFECHA_ASIENTOIsNull;
|
|
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
|
|
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
|
property OldCONCEPTO : String read GetOldCONCEPTOValue;
|
|
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
|
|
property PUNTEADO : SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
|
|
property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
|
|
property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
|
|
property OldPUNTEADOIsNull : Boolean read GetOldPUNTEADOIsNull;
|
|
property DEBE : Currency read GetDEBEValue write SetDEBEValue;
|
|
property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull;
|
|
property OldDEBE : Currency read GetOldDEBEValue;
|
|
property OldDEBEIsNull : Boolean read GetOldDEBEIsNull;
|
|
property HABER : Currency read GetHABERValue write SetHABERValue;
|
|
property HABERIsNull : Boolean read GetHABERIsNull write SetHABERIsNull;
|
|
property OldHABER : Currency read GetOldHABERValue;
|
|
property OldHABERIsNull : Boolean read GetOldHABERIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ ISubCuentasDelta }
|
|
ISubCuentasDelta = interface(ISubCuentas)
|
|
['{06655A2F-ECFC-4984-B5EF-275E3B2F84E3}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldREF_SUBCUENTAValue : String;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldID_CUENTAValue : Integer;
|
|
function GetOldID_EJERCICIOValue : Integer;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
|
|
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
|
end;
|
|
|
|
{ TSubCuentasBusinessProcessorRules }
|
|
TSubCuentasBusinessProcessorRules = class(TDABusinessProcessorRules, ISubCuentas, ISubCuentasDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
function GetIDIsNull: Boolean; virtual;
|
|
function GetOldIDValue: Integer; virtual;
|
|
function GetOldIDIsNull: Boolean; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
|
function GetREF_SUBCUENTAValue: String; virtual;
|
|
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
|
|
function GetOldREF_SUBCUENTAValue: String; virtual;
|
|
function GetOldREF_SUBCUENTAIsNull: Boolean; virtual;
|
|
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
|
|
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
function GetID_CUENTAValue: Integer; virtual;
|
|
function GetID_CUENTAIsNull: Boolean; virtual;
|
|
function GetOldID_CUENTAValue: Integer; virtual;
|
|
function GetOldID_CUENTAIsNull: Boolean; virtual;
|
|
procedure SetID_CUENTAValue(const aValue: Integer); virtual;
|
|
procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_EJERCICIOValue: Integer; virtual;
|
|
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
|
function GetOldID_EJERCICIOValue: Integer; virtual;
|
|
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
|
|
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
|
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
|
property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
|
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
|
|
property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
property ID_CUENTA : Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
|
property ID_CUENTAIsNull : Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
|
property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
|
|
property OldID_CUENTAIsNull : Boolean read GetOldID_CUENTAIsNull;
|
|
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
|
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
|
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
|
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ ICuentasDelta }
|
|
ICuentasDelta = interface(ICuentas)
|
|
['{FB48551E-0531-4FC3-8494-51ABBA80938C}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldREF_CUENTAValue : String;
|
|
function GetOldID_EJERCICIOValue : Integer;
|
|
function GetOldID_EPIGRAFEValue : Integer;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldID_BALANCEValue : Integer;
|
|
function GetOldID_CUENTA_ESPECIALValue : Integer;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
|
|
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
|
property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldID_BALANCE : Integer read GetOldID_BALANCEValue;
|
|
property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue;
|
|
end;
|
|
|
|
{ TCuentasBusinessProcessorRules }
|
|
TCuentasBusinessProcessorRules = class(TDABusinessProcessorRules, ICuentas, ICuentasDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
function GetIDIsNull: Boolean; virtual;
|
|
function GetOldIDValue: Integer; virtual;
|
|
function GetOldIDIsNull: Boolean; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
|
function GetREF_CUENTAValue: String; virtual;
|
|
function GetREF_CUENTAIsNull: Boolean; virtual;
|
|
function GetOldREF_CUENTAValue: String; virtual;
|
|
function GetOldREF_CUENTAIsNull: Boolean; virtual;
|
|
procedure SetREF_CUENTAValue(const aValue: String); virtual;
|
|
procedure SetREF_CUENTAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_EJERCICIOValue: Integer; virtual;
|
|
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
|
function GetOldID_EJERCICIOValue: Integer; virtual;
|
|
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
|
|
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
|
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
|
function GetID_EPIGRAFEValue: Integer; virtual;
|
|
function GetID_EPIGRAFEIsNull: Boolean; virtual;
|
|
function GetOldID_EPIGRAFEValue: Integer; virtual;
|
|
function GetOldID_EPIGRAFEIsNull: Boolean; virtual;
|
|
procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual;
|
|
procedure SetID_EPIGRAFEIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
function GetID_BALANCEValue: Integer; virtual;
|
|
function GetID_BALANCEIsNull: Boolean; virtual;
|
|
function GetOldID_BALANCEValue: Integer; virtual;
|
|
function GetOldID_BALANCEIsNull: Boolean; virtual;
|
|
procedure SetID_BALANCEValue(const aValue: Integer); virtual;
|
|
procedure SetID_BALANCEIsNull(const aValue: Boolean); virtual;
|
|
function GetID_CUENTA_ESPECIALValue: Integer; virtual;
|
|
function GetID_CUENTA_ESPECIALIsNull: Boolean; virtual;
|
|
function GetOldID_CUENTA_ESPECIALValue: Integer; virtual;
|
|
function GetOldID_CUENTA_ESPECIALIsNull: Boolean; virtual;
|
|
procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer); virtual;
|
|
procedure SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property REF_CUENTA : String read GetREF_CUENTAValue write SetREF_CUENTAValue;
|
|
property REF_CUENTAIsNull : Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
|
|
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
|
|
property OldREF_CUENTAIsNull : Boolean read GetOldREF_CUENTAIsNull;
|
|
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
|
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
|
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
|
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
|
|
property ID_EPIGRAFE : Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
|
property ID_EPIGRAFEIsNull : Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
|
property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
|
|
property OldID_EPIGRAFEIsNull : Boolean read GetOldID_EPIGRAFEIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
property ID_BALANCE : Integer read GetID_BALANCEValue write SetID_BALANCEValue;
|
|
property ID_BALANCEIsNull : Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull;
|
|
property OldID_BALANCE : Integer read GetOldID_BALANCEValue;
|
|
property OldID_BALANCEIsNull : Boolean read GetOldID_BALANCEIsNull;
|
|
property ID_CUENTA_ESPECIAL : Integer read GetID_CUENTA_ESPECIALValue write SetID_CUENTA_ESPECIALValue;
|
|
property ID_CUENTA_ESPECIALIsNull : Boolean read GetID_CUENTA_ESPECIALIsNull write SetID_CUENTA_ESPECIALIsNull;
|
|
property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue;
|
|
property OldID_CUENTA_ESPECIALIsNull : Boolean read GetOldID_CUENTA_ESPECIALIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ ICuentasEspecialesDelta }
|
|
ICuentasEspecialesDelta = interface(ICuentasEspeciales)
|
|
['{4A7CF142-4CE5-41BE-863B-A4983EB6D7DC}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
end;
|
|
|
|
{ TCuentasEspecialesBusinessProcessorRules }
|
|
TCuentasEspecialesBusinessProcessorRules = class(TDABusinessProcessorRules, ICuentasEspeciales, ICuentasEspecialesDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
function GetIDIsNull: Boolean; virtual;
|
|
function GetOldIDValue: Integer; virtual;
|
|
function GetOldIDIsNull: Boolean; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IEpigrafesDelta }
|
|
IEpigrafesDelta = interface(IEpigrafes)
|
|
['{691EBC10-A868-46C5-9EDF-8E55A27221D0}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldREF_EPIGRAFEValue : String;
|
|
function GetOldID_PADREValue : Integer;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldID_EJERCICIOValue : Integer;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
|
|
property OldID_PADRE : Integer read GetOldID_PADREValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
|
end;
|
|
|
|
{ TEpigrafesBusinessProcessorRules }
|
|
TEpigrafesBusinessProcessorRules = class(TDABusinessProcessorRules, IEpigrafes, IEpigrafesDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
function GetIDIsNull: Boolean; virtual;
|
|
function GetOldIDValue: Integer; virtual;
|
|
function GetOldIDIsNull: Boolean; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
|
function GetREF_EPIGRAFEValue: String; virtual;
|
|
function GetREF_EPIGRAFEIsNull: Boolean; virtual;
|
|
function GetOldREF_EPIGRAFEValue: String; virtual;
|
|
function GetOldREF_EPIGRAFEIsNull: Boolean; virtual;
|
|
procedure SetREF_EPIGRAFEValue(const aValue: String); virtual;
|
|
procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual;
|
|
function GetID_PADREValue: Integer; virtual;
|
|
function GetID_PADREIsNull: Boolean; virtual;
|
|
function GetOldID_PADREValue: Integer; virtual;
|
|
function GetOldID_PADREIsNull: Boolean; virtual;
|
|
procedure SetID_PADREValue(const aValue: Integer); virtual;
|
|
procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
function GetID_EJERCICIOValue: Integer; virtual;
|
|
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
|
function GetOldID_EJERCICIOValue: Integer; virtual;
|
|
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
|
|
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
|
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property REF_EPIGRAFE : String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
|
|
property REF_EPIGRAFEIsNull : Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
|
|
property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
|
|
property OldREF_EPIGRAFEIsNull : Boolean read GetOldREF_EPIGRAFEIsNull;
|
|
property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue;
|
|
property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
|
|
property OldID_PADRE : Integer read GetOldID_PADREValue;
|
|
property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
|
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
|
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
|
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IBalancesDelta }
|
|
IBalancesDelta = interface(IBalances)
|
|
['{C6255FDC-F284-4F1F-9559-685B3FEE30A9}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldREF_BALANCEValue : String;
|
|
function GetOldNATURALEZAValue : String;
|
|
function GetOldNIVEL1Value : String;
|
|
function GetOldDESCRIPCION1Value : String;
|
|
function GetOldNIVEL2Value : String;
|
|
function GetOldDESCRIPCION2Value : String;
|
|
function GetOldNIVEL3Value : String;
|
|
function GetOldDESCRIPCION3Value : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldREF_BALANCE : String read GetOldREF_BALANCEValue;
|
|
property OldNATURALEZA : String read GetOldNATURALEZAValue;
|
|
property OldNIVEL1 : String read GetOldNIVEL1Value;
|
|
property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value;
|
|
property OldNIVEL2 : String read GetOldNIVEL2Value;
|
|
property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value;
|
|
property OldNIVEL3 : String read GetOldNIVEL3Value;
|
|
property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value;
|
|
end;
|
|
|
|
{ TBalancesBusinessProcessorRules }
|
|
TBalancesBusinessProcessorRules = class(TDABusinessProcessorRules, IBalances, IBalancesDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
function GetIDIsNull: Boolean; virtual;
|
|
function GetOldIDValue: Integer; virtual;
|
|
function GetOldIDIsNull: Boolean; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
|
function GetREF_BALANCEValue: String; virtual;
|
|
function GetREF_BALANCEIsNull: Boolean; virtual;
|
|
function GetOldREF_BALANCEValue: String; virtual;
|
|
function GetOldREF_BALANCEIsNull: Boolean; virtual;
|
|
procedure SetREF_BALANCEValue(const aValue: String); virtual;
|
|
procedure SetREF_BALANCEIsNull(const aValue: Boolean); virtual;
|
|
function GetNATURALEZAValue: String; virtual;
|
|
function GetNATURALEZAIsNull: Boolean; virtual;
|
|
function GetOldNATURALEZAValue: String; virtual;
|
|
function GetOldNATURALEZAIsNull: Boolean; virtual;
|
|
procedure SetNATURALEZAValue(const aValue: String); virtual;
|
|
procedure SetNATURALEZAIsNull(const aValue: Boolean); virtual;
|
|
function GetNIVEL1Value: String; virtual;
|
|
function GetNIVEL1IsNull: Boolean; virtual;
|
|
function GetOldNIVEL1Value: String; virtual;
|
|
function GetOldNIVEL1IsNull: Boolean; virtual;
|
|
procedure SetNIVEL1Value(const aValue: String); virtual;
|
|
procedure SetNIVEL1IsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCION1Value: String; virtual;
|
|
function GetDESCRIPCION1IsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCION1Value: String; virtual;
|
|
function GetOldDESCRIPCION1IsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCION1Value(const aValue: String); virtual;
|
|
procedure SetDESCRIPCION1IsNull(const aValue: Boolean); virtual;
|
|
function GetNIVEL2Value: String; virtual;
|
|
function GetNIVEL2IsNull: Boolean; virtual;
|
|
function GetOldNIVEL2Value: String; virtual;
|
|
function GetOldNIVEL2IsNull: Boolean; virtual;
|
|
procedure SetNIVEL2Value(const aValue: String); virtual;
|
|
procedure SetNIVEL2IsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCION2Value: String; virtual;
|
|
function GetDESCRIPCION2IsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCION2Value: String; virtual;
|
|
function GetOldDESCRIPCION2IsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCION2Value(const aValue: String); virtual;
|
|
procedure SetDESCRIPCION2IsNull(const aValue: Boolean); virtual;
|
|
function GetNIVEL3Value: String; virtual;
|
|
function GetNIVEL3IsNull: Boolean; virtual;
|
|
function GetOldNIVEL3Value: String; virtual;
|
|
function GetOldNIVEL3IsNull: Boolean; virtual;
|
|
procedure SetNIVEL3Value(const aValue: String); virtual;
|
|
procedure SetNIVEL3IsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCION3Value: String; virtual;
|
|
function GetDESCRIPCION3IsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCION3Value: String; virtual;
|
|
function GetOldDESCRIPCION3IsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCION3Value(const aValue: String); virtual;
|
|
procedure SetDESCRIPCION3IsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property REF_BALANCE : String read GetREF_BALANCEValue write SetREF_BALANCEValue;
|
|
property REF_BALANCEIsNull : Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull;
|
|
property OldREF_BALANCE : String read GetOldREF_BALANCEValue;
|
|
property OldREF_BALANCEIsNull : Boolean read GetOldREF_BALANCEIsNull;
|
|
property NATURALEZA : String read GetNATURALEZAValue write SetNATURALEZAValue;
|
|
property NATURALEZAIsNull : Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull;
|
|
property OldNATURALEZA : String read GetOldNATURALEZAValue;
|
|
property OldNATURALEZAIsNull : Boolean read GetOldNATURALEZAIsNull;
|
|
property NIVEL1 : String read GetNIVEL1Value write SetNIVEL1Value;
|
|
property NIVEL1IsNull : Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull;
|
|
property OldNIVEL1 : String read GetOldNIVEL1Value;
|
|
property OldNIVEL1IsNull : Boolean read GetOldNIVEL1IsNull;
|
|
property DESCRIPCION1 : String read GetDESCRIPCION1Value write SetDESCRIPCION1Value;
|
|
property DESCRIPCION1IsNull : Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull;
|
|
property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value;
|
|
property OldDESCRIPCION1IsNull : Boolean read GetOldDESCRIPCION1IsNull;
|
|
property NIVEL2 : String read GetNIVEL2Value write SetNIVEL2Value;
|
|
property NIVEL2IsNull : Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull;
|
|
property OldNIVEL2 : String read GetOldNIVEL2Value;
|
|
property OldNIVEL2IsNull : Boolean read GetOldNIVEL2IsNull;
|
|
property DESCRIPCION2 : String read GetDESCRIPCION2Value write SetDESCRIPCION2Value;
|
|
property DESCRIPCION2IsNull : Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull;
|
|
property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value;
|
|
property OldDESCRIPCION2IsNull : Boolean read GetOldDESCRIPCION2IsNull;
|
|
property NIVEL3 : String read GetNIVEL3Value write SetNIVEL3Value;
|
|
property NIVEL3IsNull : Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull;
|
|
property OldNIVEL3 : String read GetOldNIVEL3Value;
|
|
property OldNIVEL3IsNull : Boolean read GetOldNIVEL3IsNull;
|
|
property DESCRIPCION3 : String read GetDESCRIPCION3Value write SetDESCRIPCION3Value;
|
|
property DESCRIPCION3IsNull : Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull;
|
|
property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value;
|
|
property OldDESCRIPCION3IsNull : Boolean read GetOldDESCRIPCION3IsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uROBinaryHelpers, uDAInterfaces;
|
|
|
|
{ TAsientosBusinessProcessorRules }
|
|
constructor TAsientosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TAsientosBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID]);
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID]);
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID] := aValue;
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID] := Null;
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetID_ASIENTO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetID_ASIENTO_COMPENSADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO]);
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldID_ASIENTO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_ASIENTO_COMPENSADO];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldID_ASIENTO_COMPENSADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_ASIENTO_COMPENSADO]);
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetID_ASIENTO_COMPENSADOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO] := aValue;
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO] := Null;
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA]);
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_SUBCUENTA];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_SUBCUENTA]);
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA] := aValue;
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA] := Null;
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetFECHA_ASIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetFECHA_ASIENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO]);
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldFECHA_ASIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosFECHA_ASIENTO];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldFECHA_ASIENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosFECHA_ASIENTO]);
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetFECHA_ASIENTOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO] := aValue;
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetFECHA_ASIENTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO] := Null;
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetCONCEPTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO]);
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldCONCEPTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosCONCEPTO];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosCONCEPTO]);
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO] := aValue;
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO] := Null;
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetPUNTEADOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetPUNTEADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO]);
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldPUNTEADOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosPUNTEADO];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldPUNTEADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosPUNTEADO]);
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetPUNTEADOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO] := aValue;
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetPUNTEADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO] := Null;
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetDEBEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetDEBEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE]);
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldDEBEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosDEBE];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldDEBEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosDEBE]);
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetDEBEValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE] := aValue;
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE] := Null;
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetHABERValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetHABERIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER]);
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldHABERValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosHABER];
|
|
end;
|
|
|
|
function TAsientosBusinessProcessorRules.GetOldHABERIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosHABER]);
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetHABERValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER] := aValue;
|
|
end;
|
|
|
|
procedure TAsientosBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER] := Null;
|
|
end;
|
|
|
|
|
|
{ TSubCuentasBusinessProcessorRules }
|
|
constructor TSubCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TSubCuentasBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID];
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID]);
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID];
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID]);
|
|
end;
|
|
|
|
procedure TSubCuentasBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID] := aValue;
|
|
end;
|
|
|
|
procedure TSubCuentasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID] := Null;
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetREF_SUBCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA];
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA]);
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_SUBCUENTA];
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_SUBCUENTA]);
|
|
end;
|
|
|
|
procedure TSubCuentasBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA] := aValue;
|
|
end;
|
|
|
|
procedure TSubCuentasBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA] := Null;
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION];
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION]);
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDESCRIPCION];
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TSubCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TSubCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION] := Null;
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetID_CUENTAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA];
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetID_CUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA]);
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetOldID_CUENTAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CUENTA];
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetOldID_CUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CUENTA]);
|
|
end;
|
|
|
|
procedure TSubCuentasBusinessProcessorRules.SetID_CUENTAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := aValue;
|
|
end;
|
|
|
|
procedure TSubCuentasBusinessProcessorRules.SetID_CUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := Null;
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO];
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO]);
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_EJERCICIO];
|
|
end;
|
|
|
|
function TSubCuentasBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_EJERCICIO]);
|
|
end;
|
|
|
|
procedure TSubCuentasBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := aValue;
|
|
end;
|
|
|
|
procedure TSubCuentasBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := Null;
|
|
end;
|
|
|
|
|
|
{ TCuentasBusinessProcessorRules }
|
|
constructor TCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TCuentasBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID]);
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID]);
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID] := aValue;
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID] := Null;
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetREF_CUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetREF_CUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA]);
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldREF_CUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasREF_CUENTA];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldREF_CUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasREF_CUENTA]);
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetREF_CUENTAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA] := aValue;
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetREF_CUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA] := Null;
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO]);
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EJERCICIO];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EJERCICIO]);
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := aValue;
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := Null;
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetID_EPIGRAFEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetID_EPIGRAFEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE]);
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldID_EPIGRAFEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EPIGRAFE];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldID_EPIGRAFEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EPIGRAFE]);
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetID_EPIGRAFEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := aValue;
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetID_EPIGRAFEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := Null;
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]);
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := Null;
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetID_BALANCEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetID_BALANCEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE]);
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldID_BALANCEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_BALANCE];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldID_BALANCEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_BALANCE]);
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetID_BALANCEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := aValue;
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetID_BALANCEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := Null;
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL]);
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldID_CUENTA_ESPECIALValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_CUENTA_ESPECIAL];
|
|
end;
|
|
|
|
function TCuentasBusinessProcessorRules.GetOldID_CUENTA_ESPECIALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_CUENTA_ESPECIAL]);
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetID_CUENTA_ESPECIALValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := aValue;
|
|
end;
|
|
|
|
procedure TCuentasBusinessProcessorRules.SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := Null;
|
|
end;
|
|
|
|
|
|
{ TCuentasEspecialesBusinessProcessorRules }
|
|
constructor TCuentasEspecialesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TCuentasEspecialesBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID];
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID]);
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID];
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID]);
|
|
end;
|
|
|
|
procedure TCuentasEspecialesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := aValue;
|
|
end;
|
|
|
|
procedure TCuentasEspecialesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := Null;
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA];
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA]);
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA];
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA]);
|
|
end;
|
|
|
|
procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := Null;
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION];
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION]);
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION];
|
|
end;
|
|
|
|
function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := Null;
|
|
end;
|
|
|
|
|
|
{ TEpigrafesBusinessProcessorRules }
|
|
constructor TEpigrafesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TEpigrafesBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID];
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID]);
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID];
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID]);
|
|
end;
|
|
|
|
procedure TEpigrafesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := aValue;
|
|
end;
|
|
|
|
procedure TEpigrafesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := Null;
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE];
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE]);
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE];
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE]);
|
|
end;
|
|
|
|
procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := aValue;
|
|
end;
|
|
|
|
procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := Null;
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE];
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]);
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE];
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]);
|
|
end;
|
|
|
|
procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue;
|
|
end;
|
|
|
|
procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null;
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION];
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION]);
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION];
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := Null;
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO];
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO]);
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO];
|
|
end;
|
|
|
|
function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO]);
|
|
end;
|
|
|
|
procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := aValue;
|
|
end;
|
|
|
|
procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null;
|
|
end;
|
|
|
|
|
|
{ TBalancesBusinessProcessorRules }
|
|
constructor TBalancesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TBalancesBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID]);
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID]);
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := aValue;
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := Null;
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetREF_BALANCEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetREF_BALANCEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE]);
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldREF_BALANCEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldREF_BALANCEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE]);
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetREF_BALANCEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := aValue;
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetREF_BALANCEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := Null;
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetNATURALEZAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetNATURALEZAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA]);
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldNATURALEZAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldNATURALEZAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA]);
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetNATURALEZAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := aValue;
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetNATURALEZAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := Null;
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetNIVEL1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetNIVEL1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1]);
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldNIVEL1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldNIVEL1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1]);
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetNIVEL1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := aValue;
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetNIVEL1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := Null;
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetDESCRIPCION1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetDESCRIPCION1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1]);
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1]);
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := aValue;
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := Null;
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetNIVEL2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetNIVEL2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2]);
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldNIVEL2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldNIVEL2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2]);
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetNIVEL2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := aValue;
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetNIVEL2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := Null;
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetDESCRIPCION2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetDESCRIPCION2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2]);
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2]);
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := aValue;
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := Null;
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetNIVEL3Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetNIVEL3IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3]);
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldNIVEL3Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldNIVEL3IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3]);
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetNIVEL3Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := aValue;
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetNIVEL3IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := Null;
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetDESCRIPCION3Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetDESCRIPCION3IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3]);
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3];
|
|
end;
|
|
|
|
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3]);
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := aValue;
|
|
end;
|
|
|
|
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := Null;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_AsientosDelta, TAsientosBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_SubCuentasDelta, TSubCuentasBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_CuentasDelta, TCuentasBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules);
|
|
|
|
end.
|