roberto
ccbf9441a6
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@147 0c75b7a4-871f-7646-8a2f-f78d34cc349f
3312 lines
155 KiB
ObjectPascal
3312 lines
155 KiB
ObjectPascal
unit schRecibosProveedorServer_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schRecibosProveedorClient_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_RecibosCompensadosProvDelta = '{7D64E436-4A62-4815-9B17-18188D7EB661}';
|
|
RID_RecibosProveedorDelta = '{8CC4F287-B555-4CB1-B413-10F941E621CF}';
|
|
RID_PagosProveedorDelta = '{C62DC80C-8A6A-4FC1-899E-4A97895130AC}';
|
|
|
|
type
|
|
{ IRecibosCompensadosProvDelta }
|
|
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
|
|
['{7D64E436-4A62-4815-9B17-18188D7EB661}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
|
function GetOldREFERENCIA_REC_COMPENSADOValue : String;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldREFERENCIA_PROVEEDORValue : String;
|
|
function GetOldSITUACIONValue : String;
|
|
function GetOldID_FACTURAValue : Integer;
|
|
function GetOldID_REMESAValue : Integer;
|
|
function GetOldREFERENCIA_REMESAValue : String;
|
|
function GetOldFECHA_EMISIONValue : DateTime;
|
|
function GetOldFECHA_VENCIMIENTOValue : DateTime;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldOBSERVACIONESValue : String;
|
|
function GetOldIMPORTEValue : Currency;
|
|
function GetOldOTROS_GASTOSValue : Currency;
|
|
function GetOldIMPORTE_TOTALValue : Currency;
|
|
function GetOldREFERENCIA_FACTURA_PROVValue : String;
|
|
function GetOldFECHA_FACTURAValue : DateTime;
|
|
function GetOldFORMA_PAGO_FACTURAValue : String;
|
|
function GetOldIMPORTE_FACTURAValue : Currency;
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldID_PROVEEDORValue : Integer;
|
|
function GetOldNOMBRE_PROVEEDORValue : String;
|
|
function GetOldNIF_CIF_PROVEEDORValue : String;
|
|
function GetOldENTIDAD_PROVEEDORValue : String;
|
|
function GetOldSUCURSAL_PROVEEDORValue : String;
|
|
function GetOldDC_PROVEEDORValue : String;
|
|
function GetOldCUENTA_PROVEEDORValue : String;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldUSUARIOValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
|
|
property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
|
property OldSITUACION : String read GetOldSITUACIONValue;
|
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
property OldID_REMESA : Integer read GetOldID_REMESAValue;
|
|
property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
|
|
property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
|
|
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
|
|
property OldIMPORTE : Currency read GetOldIMPORTEValue;
|
|
property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
|
|
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
|
property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue;
|
|
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
|
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
|
|
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
|
|
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
|
|
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
|
|
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
|
|
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
end;
|
|
|
|
{ TRecibosCompensadosProvBusinessProcessorRules }
|
|
TRecibosCompensadosProvBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensadosProv, IRecibosCompensadosProvDelta)
|
|
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_RECIBO_COMPENSADOValue: Integer; virtual;
|
|
function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
|
|
function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual;
|
|
function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
|
|
procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
|
|
procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
|
|
function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual;
|
|
function GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIA_REC_COMPENSADOIsNull(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 GetREFERENCIA_PROVEEDORValue: String; virtual;
|
|
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
|
|
function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetSITUACIONValue: String; virtual;
|
|
function GetSITUACIONIsNull: Boolean; virtual;
|
|
function GetOldSITUACIONValue: String; virtual;
|
|
function GetOldSITUACIONIsNull: Boolean; virtual;
|
|
procedure SetSITUACIONValue(const aValue: String); virtual;
|
|
procedure SetSITUACIONIsNull(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_REMESAValue: Integer; virtual;
|
|
function GetID_REMESAIsNull: Boolean; virtual;
|
|
function GetOldID_REMESAValue: Integer; virtual;
|
|
function GetOldID_REMESAIsNull: Boolean; virtual;
|
|
procedure SetID_REMESAValue(const aValue: Integer); virtual;
|
|
procedure SetID_REMESAIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIA_REMESAValue: String; virtual;
|
|
function GetREFERENCIA_REMESAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIA_REMESAValue: String; virtual;
|
|
function GetOldREFERENCIA_REMESAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_EMISIONValue: DateTime; virtual;
|
|
function GetFECHA_EMISIONIsNull: Boolean; virtual;
|
|
function GetOldFECHA_EMISIONValue: DateTime; virtual;
|
|
function GetOldFECHA_EMISIONIsNull: Boolean; virtual;
|
|
procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
|
|
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
|
|
function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
|
|
function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual;
|
|
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_VENCIMIENTOIsNull(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 GetOBSERVACIONESValue: String; virtual;
|
|
function GetOBSERVACIONESIsNull: Boolean; virtual;
|
|
function GetOldOBSERVACIONESValue: String; virtual;
|
|
function GetOldOBSERVACIONESIsNull: Boolean; virtual;
|
|
procedure SetOBSERVACIONESValue(const aValue: String); virtual;
|
|
procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
|
|
function GetIMPORTEValue: Currency; virtual;
|
|
function GetIMPORTEIsNull: Boolean; virtual;
|
|
function GetOldIMPORTEValue: Currency; virtual;
|
|
function GetOldIMPORTEIsNull: Boolean; virtual;
|
|
procedure SetIMPORTEValue(const aValue: Currency); virtual;
|
|
procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
|
|
function GetOTROS_GASTOSValue: Currency; virtual;
|
|
function GetOTROS_GASTOSIsNull: Boolean; virtual;
|
|
function GetOldOTROS_GASTOSValue: Currency; virtual;
|
|
function GetOldOTROS_GASTOSIsNull: Boolean; virtual;
|
|
procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual;
|
|
procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); virtual;
|
|
function GetIMPORTE_TOTALValue: Currency; virtual;
|
|
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
|
|
function GetOldIMPORTE_TOTALValue: Currency; virtual;
|
|
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
|
|
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
|
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIA_FACTURA_PROVValue: String; virtual;
|
|
function GetREFERENCIA_FACTURA_PROVIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIA_FACTURA_PROVValue: String; virtual;
|
|
function GetOldREFERENCIA_FACTURA_PROVIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_FACTURAValue: DateTime; virtual;
|
|
function GetFECHA_FACTURAIsNull: Boolean; virtual;
|
|
function GetOldFECHA_FACTURAValue: DateTime; virtual;
|
|
function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
|
|
function GetFORMA_PAGO_FACTURAValue: String; virtual;
|
|
function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
|
|
function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
|
|
function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
|
|
procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
|
|
procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
|
|
function GetIMPORTE_FACTURAValue: Currency; virtual;
|
|
function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
|
|
function GetOldIMPORTE_FACTURAValue: Currency; virtual;
|
|
function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
|
|
procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
|
|
procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_PROVEEDORValue: Integer; virtual;
|
|
function GetID_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldID_PROVEEDORValue: Integer; virtual;
|
|
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
|
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetNOMBRE_PROVEEDORValue: String; virtual;
|
|
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
|
|
function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetNIF_CIF_PROVEEDORValue: String; virtual;
|
|
function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldNIF_CIF_PROVEEDORValue: String; virtual;
|
|
function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetENTIDAD_PROVEEDORValue: String; virtual;
|
|
function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldENTIDAD_PROVEEDORValue: String; virtual;
|
|
function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetSUCURSAL_PROVEEDORValue: String; virtual;
|
|
function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldSUCURSAL_PROVEEDORValue: String; virtual;
|
|
function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetDC_PROVEEDORValue: String; virtual;
|
|
function GetDC_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldDC_PROVEEDORValue: String; virtual;
|
|
function GetOldDC_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetCUENTA_PROVEEDORValue: String; virtual;
|
|
function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldCUENTA_PROVEEDORValue: String; virtual;
|
|
function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
function GetFECHA_ALTAIsNull: Boolean; virtual;
|
|
function GetOldFECHA_ALTAValue: DateTime; virtual;
|
|
function GetOldFECHA_ALTAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
|
|
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
function GetUSUARIOIsNull: Boolean; virtual;
|
|
function GetOldUSUARIOValue: String; virtual;
|
|
function GetOldUSUARIOIsNull: Boolean; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
procedure SetUSUARIOIsNull(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_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
|
|
property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
|
|
property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
|
|
property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull;
|
|
property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
|
|
property REFERENCIA_REC_COMPENSADOIsNull : Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
|
|
property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
|
|
property OldREFERENCIA_REC_COMPENSADOIsNull : Boolean read GetOldREFERENCIA_REC_COMPENSADOIsNull;
|
|
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 REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
|
|
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
|
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
|
property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
|
|
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
|
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
|
property OldSITUACION : String read GetOldSITUACIONValue;
|
|
property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
|
|
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_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue;
|
|
property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
|
|
property OldID_REMESA : Integer read GetOldID_REMESAValue;
|
|
property OldID_REMESAIsNull : Boolean read GetOldID_REMESAIsNull;
|
|
property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
|
|
property REFERENCIA_REMESAIsNull : Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
|
|
property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
|
|
property OldREFERENCIA_REMESAIsNull : Boolean read GetOldREFERENCIA_REMESAIsNull;
|
|
property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
|
|
property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
|
|
property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
|
|
property OldFECHA_EMISIONIsNull : Boolean read GetOldFECHA_EMISIONIsNull;
|
|
property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
|
|
property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
|
|
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
|
|
property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull;
|
|
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 OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
|
|
property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
|
|
property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
|
|
property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
|
|
property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue;
|
|
property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
|
|
property OldIMPORTE : Currency read GetOldIMPORTEValue;
|
|
property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull;
|
|
property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
|
|
property OTROS_GASTOSIsNull : Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
|
|
property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
|
|
property OldOTROS_GASTOSIsNull : Boolean read GetOldOTROS_GASTOSIsNull;
|
|
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
|
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
|
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
|
|
property REFERENCIA_FACTURA_PROV : String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue;
|
|
property REFERENCIA_FACTURA_PROVIsNull : Boolean read GetREFERENCIA_FACTURA_PROVIsNull write SetREFERENCIA_FACTURA_PROVIsNull;
|
|
property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue;
|
|
property OldREFERENCIA_FACTURA_PROVIsNull : Boolean read GetOldREFERENCIA_FACTURA_PROVIsNull;
|
|
property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
|
property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
|
|
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
|
property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
|
|
property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
|
|
property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
|
|
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
|
|
property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull;
|
|
property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
|
|
property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
|
|
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
|
|
property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
|
|
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
|
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
|
|
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
|
|
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull;
|
|
property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
|
|
property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
|
|
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
|
|
property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull;
|
|
property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
|
|
property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
|
|
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
|
|
property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull;
|
|
property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
|
|
property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
|
|
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
|
|
property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull;
|
|
property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
|
|
property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
|
|
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
|
|
property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull;
|
|
property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
|
|
property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
|
|
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
|
|
property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull;
|
|
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
|
|
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
|
|
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRecibosProveedorDelta }
|
|
IRecibosProveedorDelta = interface(IRecibosProveedor)
|
|
['{8CC4F287-B555-4CB1-B413-10F941E621CF}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
|
function GetOldREFERENCIA_REC_COMPENSADOValue : String;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldREFERENCIA_PROVEEDORValue : String;
|
|
function GetOldSITUACIONValue : String;
|
|
function GetOldID_FACTURAValue : Integer;
|
|
function GetOldID_REMESAValue : Integer;
|
|
function GetOldREFERENCIA_REMESAValue : String;
|
|
function GetOldFECHA_EMISIONValue : DateTime;
|
|
function GetOldFECHA_VENCIMIENTOValue : DateTime;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldOBSERVACIONESValue : String;
|
|
function GetOldIMPORTEValue : Currency;
|
|
function GetOldOTROS_GASTOSValue : Currency;
|
|
function GetOldIMPORTE_TOTALValue : Currency;
|
|
function GetOldREFERENCIA_FACTURA_PROVValue : String;
|
|
function GetOldFECHA_FACTURAValue : DateTime;
|
|
function GetOldFORMA_PAGO_FACTURAValue : String;
|
|
function GetOldIMPORTE_FACTURAValue : Currency;
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldID_PROVEEDORValue : Integer;
|
|
function GetOldNOMBRE_PROVEEDORValue : String;
|
|
function GetOldNIF_CIF_PROVEEDORValue : String;
|
|
function GetOldENTIDAD_PROVEEDORValue : String;
|
|
function GetOldSUCURSAL_PROVEEDORValue : String;
|
|
function GetOldDC_PROVEEDORValue : String;
|
|
function GetOldCUENTA_PROVEEDORValue : String;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldUSUARIOValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
|
|
property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
|
property OldSITUACION : String read GetOldSITUACIONValue;
|
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
property OldID_REMESA : Integer read GetOldID_REMESAValue;
|
|
property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
|
|
property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
|
|
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
|
|
property OldIMPORTE : Currency read GetOldIMPORTEValue;
|
|
property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
|
|
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
|
property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue;
|
|
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
|
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
|
|
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
|
|
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
|
|
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
|
|
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
|
|
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
end;
|
|
|
|
{ TRecibosProveedorBusinessProcessorRules }
|
|
TRecibosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosProveedor, IRecibosProveedorDelta)
|
|
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_RECIBO_COMPENSADOValue: Integer; virtual;
|
|
function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
|
|
function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual;
|
|
function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
|
|
procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
|
|
procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
|
|
function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual;
|
|
function GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIA_REC_COMPENSADOIsNull(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 GetREFERENCIA_PROVEEDORValue: String; virtual;
|
|
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
|
|
function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetSITUACIONValue: String; virtual;
|
|
function GetSITUACIONIsNull: Boolean; virtual;
|
|
function GetOldSITUACIONValue: String; virtual;
|
|
function GetOldSITUACIONIsNull: Boolean; virtual;
|
|
procedure SetSITUACIONValue(const aValue: String); virtual;
|
|
procedure SetSITUACIONIsNull(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_REMESAValue: Integer; virtual;
|
|
function GetID_REMESAIsNull: Boolean; virtual;
|
|
function GetOldID_REMESAValue: Integer; virtual;
|
|
function GetOldID_REMESAIsNull: Boolean; virtual;
|
|
procedure SetID_REMESAValue(const aValue: Integer); virtual;
|
|
procedure SetID_REMESAIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIA_REMESAValue: String; virtual;
|
|
function GetREFERENCIA_REMESAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIA_REMESAValue: String; virtual;
|
|
function GetOldREFERENCIA_REMESAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_EMISIONValue: DateTime; virtual;
|
|
function GetFECHA_EMISIONIsNull: Boolean; virtual;
|
|
function GetOldFECHA_EMISIONValue: DateTime; virtual;
|
|
function GetOldFECHA_EMISIONIsNull: Boolean; virtual;
|
|
procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
|
|
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
|
|
function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
|
|
function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual;
|
|
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_VENCIMIENTOIsNull(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 GetOBSERVACIONESValue: String; virtual;
|
|
function GetOBSERVACIONESIsNull: Boolean; virtual;
|
|
function GetOldOBSERVACIONESValue: String; virtual;
|
|
function GetOldOBSERVACIONESIsNull: Boolean; virtual;
|
|
procedure SetOBSERVACIONESValue(const aValue: String); virtual;
|
|
procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
|
|
function GetIMPORTEValue: Currency; virtual;
|
|
function GetIMPORTEIsNull: Boolean; virtual;
|
|
function GetOldIMPORTEValue: Currency; virtual;
|
|
function GetOldIMPORTEIsNull: Boolean; virtual;
|
|
procedure SetIMPORTEValue(const aValue: Currency); virtual;
|
|
procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
|
|
function GetOTROS_GASTOSValue: Currency; virtual;
|
|
function GetOTROS_GASTOSIsNull: Boolean; virtual;
|
|
function GetOldOTROS_GASTOSValue: Currency; virtual;
|
|
function GetOldOTROS_GASTOSIsNull: Boolean; virtual;
|
|
procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual;
|
|
procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); virtual;
|
|
function GetIMPORTE_TOTALValue: Currency; virtual;
|
|
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
|
|
function GetOldIMPORTE_TOTALValue: Currency; virtual;
|
|
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
|
|
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
|
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIA_FACTURA_PROVValue: String; virtual;
|
|
function GetREFERENCIA_FACTURA_PROVIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIA_FACTURA_PROVValue: String; virtual;
|
|
function GetOldREFERENCIA_FACTURA_PROVIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_FACTURAValue: DateTime; virtual;
|
|
function GetFECHA_FACTURAIsNull: Boolean; virtual;
|
|
function GetOldFECHA_FACTURAValue: DateTime; virtual;
|
|
function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
|
|
function GetFORMA_PAGO_FACTURAValue: String; virtual;
|
|
function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
|
|
function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
|
|
function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
|
|
procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
|
|
procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
|
|
function GetIMPORTE_FACTURAValue: Currency; virtual;
|
|
function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
|
|
function GetOldIMPORTE_FACTURAValue: Currency; virtual;
|
|
function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
|
|
procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
|
|
procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_PROVEEDORValue: Integer; virtual;
|
|
function GetID_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldID_PROVEEDORValue: Integer; virtual;
|
|
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
|
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetNOMBRE_PROVEEDORValue: String; virtual;
|
|
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
|
|
function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetNIF_CIF_PROVEEDORValue: String; virtual;
|
|
function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldNIF_CIF_PROVEEDORValue: String; virtual;
|
|
function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetENTIDAD_PROVEEDORValue: String; virtual;
|
|
function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldENTIDAD_PROVEEDORValue: String; virtual;
|
|
function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetSUCURSAL_PROVEEDORValue: String; virtual;
|
|
function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldSUCURSAL_PROVEEDORValue: String; virtual;
|
|
function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetDC_PROVEEDORValue: String; virtual;
|
|
function GetDC_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldDC_PROVEEDORValue: String; virtual;
|
|
function GetOldDC_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetCUENTA_PROVEEDORValue: String; virtual;
|
|
function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldCUENTA_PROVEEDORValue: String; virtual;
|
|
function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
function GetFECHA_ALTAIsNull: Boolean; virtual;
|
|
function GetOldFECHA_ALTAValue: DateTime; virtual;
|
|
function GetOldFECHA_ALTAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
|
|
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
function GetUSUARIOIsNull: Boolean; virtual;
|
|
function GetOldUSUARIOValue: String; virtual;
|
|
function GetOldUSUARIOIsNull: Boolean; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
procedure SetUSUARIOIsNull(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_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
|
|
property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
|
|
property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
|
|
property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull;
|
|
property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
|
|
property REFERENCIA_REC_COMPENSADOIsNull : Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
|
|
property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
|
|
property OldREFERENCIA_REC_COMPENSADOIsNull : Boolean read GetOldREFERENCIA_REC_COMPENSADOIsNull;
|
|
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 REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
|
|
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
|
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
|
property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
|
|
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
|
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
|
property OldSITUACION : String read GetOldSITUACIONValue;
|
|
property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
|
|
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_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue;
|
|
property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
|
|
property OldID_REMESA : Integer read GetOldID_REMESAValue;
|
|
property OldID_REMESAIsNull : Boolean read GetOldID_REMESAIsNull;
|
|
property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
|
|
property REFERENCIA_REMESAIsNull : Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
|
|
property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
|
|
property OldREFERENCIA_REMESAIsNull : Boolean read GetOldREFERENCIA_REMESAIsNull;
|
|
property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
|
|
property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
|
|
property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
|
|
property OldFECHA_EMISIONIsNull : Boolean read GetOldFECHA_EMISIONIsNull;
|
|
property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
|
|
property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
|
|
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
|
|
property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull;
|
|
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 OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
|
|
property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
|
|
property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
|
|
property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
|
|
property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue;
|
|
property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
|
|
property OldIMPORTE : Currency read GetOldIMPORTEValue;
|
|
property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull;
|
|
property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
|
|
property OTROS_GASTOSIsNull : Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
|
|
property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
|
|
property OldOTROS_GASTOSIsNull : Boolean read GetOldOTROS_GASTOSIsNull;
|
|
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
|
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
|
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
|
|
property REFERENCIA_FACTURA_PROV : String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue;
|
|
property REFERENCIA_FACTURA_PROVIsNull : Boolean read GetREFERENCIA_FACTURA_PROVIsNull write SetREFERENCIA_FACTURA_PROVIsNull;
|
|
property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue;
|
|
property OldREFERENCIA_FACTURA_PROVIsNull : Boolean read GetOldREFERENCIA_FACTURA_PROVIsNull;
|
|
property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
|
property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
|
|
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
|
property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
|
|
property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
|
|
property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
|
|
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
|
|
property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull;
|
|
property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
|
|
property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
|
|
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
|
|
property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
|
|
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
|
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
|
|
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
|
|
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull;
|
|
property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
|
|
property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
|
|
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
|
|
property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull;
|
|
property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
|
|
property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
|
|
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
|
|
property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull;
|
|
property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
|
|
property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
|
|
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
|
|
property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull;
|
|
property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
|
|
property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
|
|
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
|
|
property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull;
|
|
property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
|
|
property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
|
|
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
|
|
property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull;
|
|
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
|
|
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
|
|
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IPagosProveedorDelta }
|
|
IPagosProveedorDelta = interface(IPagosProveedor)
|
|
['{C62DC80C-8A6A-4FC1-899E-4A97895130AC}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_RECIBOValue : Integer;
|
|
function GetOldTIPOValue : String;
|
|
function GetOldFECHA_PAGOValue : DateTime;
|
|
function GetOldTITULARValue : String;
|
|
function GetOldENTIDADValue : String;
|
|
function GetOldSUCURSALValue : String;
|
|
function GetOldDCValue : String;
|
|
function GetOldCUENTAValue : String;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldUSUARIOValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_RECIBO : Integer read GetOldID_RECIBOValue;
|
|
property OldTIPO : String read GetOldTIPOValue;
|
|
property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
|
|
property OldTITULAR : String read GetOldTITULARValue;
|
|
property OldENTIDAD : String read GetOldENTIDADValue;
|
|
property OldSUCURSAL : String read GetOldSUCURSALValue;
|
|
property OldDC : String read GetOldDCValue;
|
|
property OldCUENTA : String read GetOldCUENTAValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
end;
|
|
|
|
{ TPagosProveedorBusinessProcessorRules }
|
|
TPagosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IPagosProveedor, IPagosProveedorDelta)
|
|
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_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;
|
|
function GetTIPOValue: String; virtual;
|
|
function GetTIPOIsNull: Boolean; virtual;
|
|
function GetOldTIPOValue: String; virtual;
|
|
function GetOldTIPOIsNull: Boolean; virtual;
|
|
procedure SetTIPOValue(const aValue: String); virtual;
|
|
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_PAGOValue: DateTime; virtual;
|
|
function GetFECHA_PAGOIsNull: Boolean; virtual;
|
|
function GetOldFECHA_PAGOValue: DateTime; virtual;
|
|
function GetOldFECHA_PAGOIsNull: Boolean; virtual;
|
|
procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_PAGOIsNull(const aValue: Boolean); virtual;
|
|
function GetTITULARValue: String; virtual;
|
|
function GetTITULARIsNull: Boolean; virtual;
|
|
function GetOldTITULARValue: String; virtual;
|
|
function GetOldTITULARIsNull: Boolean; virtual;
|
|
procedure SetTITULARValue(const aValue: String); virtual;
|
|
procedure SetTITULARIsNull(const aValue: Boolean); virtual;
|
|
function GetENTIDADValue: String; virtual;
|
|
function GetENTIDADIsNull: Boolean; virtual;
|
|
function GetOldENTIDADValue: String; virtual;
|
|
function GetOldENTIDADIsNull: Boolean; virtual;
|
|
procedure SetENTIDADValue(const aValue: String); virtual;
|
|
procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
|
|
function GetSUCURSALValue: String; virtual;
|
|
function GetSUCURSALIsNull: Boolean; virtual;
|
|
function GetOldSUCURSALValue: String; virtual;
|
|
function GetOldSUCURSALIsNull: Boolean; virtual;
|
|
procedure SetSUCURSALValue(const aValue: String); virtual;
|
|
procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
|
|
function GetDCValue: String; virtual;
|
|
function GetDCIsNull: Boolean; virtual;
|
|
function GetOldDCValue: String; virtual;
|
|
function GetOldDCIsNull: Boolean; virtual;
|
|
procedure SetDCValue(const aValue: String); virtual;
|
|
procedure SetDCIsNull(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 GetFECHA_ALTAValue: DateTime; virtual;
|
|
function GetFECHA_ALTAIsNull: Boolean; virtual;
|
|
function GetOldFECHA_ALTAValue: DateTime; virtual;
|
|
function GetOldFECHA_ALTAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
|
|
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
function GetUSUARIOIsNull: Boolean; virtual;
|
|
function GetOldUSUARIOValue: String; virtual;
|
|
function GetOldUSUARIOIsNull: Boolean; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
procedure SetUSUARIOIsNull(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_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;
|
|
property TIPO : String read GetTIPOValue write SetTIPOValue;
|
|
property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
|
|
property OldTIPO : String read GetOldTIPOValue;
|
|
property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
|
|
property FECHA_PAGO : DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
|
|
property FECHA_PAGOIsNull : Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull;
|
|
property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
|
|
property OldFECHA_PAGOIsNull : Boolean read GetOldFECHA_PAGOIsNull;
|
|
property TITULAR : String read GetTITULARValue write SetTITULARValue;
|
|
property TITULARIsNull : Boolean read GetTITULARIsNull write SetTITULARIsNull;
|
|
property OldTITULAR : String read GetOldTITULARValue;
|
|
property OldTITULARIsNull : Boolean read GetOldTITULARIsNull;
|
|
property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
|
|
property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
|
|
property OldENTIDAD : String read GetOldENTIDADValue;
|
|
property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull;
|
|
property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
|
|
property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
|
|
property OldSUCURSAL : String read GetOldSUCURSALValue;
|
|
property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull;
|
|
property DC : String read GetDCValue write SetDCValue;
|
|
property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull;
|
|
property OldDC : String read GetOldDCValue;
|
|
property OldDCIsNull : Boolean read GetOldDCIsNull;
|
|
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 FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
|
|
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
|
|
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uROBinaryHelpers, uDAInterfaces;
|
|
|
|
{ TRecibosCompensadosProvBusinessProcessorRules }
|
|
constructor TRecibosCompensadosProvBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRecibosCompensadosProvBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSITUACION];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSITUACION]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_FACTURA]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_REMESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_REMESA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_REMESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_REMESA]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_REMESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_REMESA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_REMESA]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_REMESA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_REMESA] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_EMISION];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_EMISION]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_EMISIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDESCRIPCION];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDESCRIPCION]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDESCRIPCION];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDESCRIPCION] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOBSERVACIONES];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOBSERVACIONES]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOBSERVACIONES];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOBSERVACIONES]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOBSERVACIONES] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOBSERVACIONES] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOTROS_GASTOS];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOTROS_GASTOS]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetOTROS_GASTOSIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_FACTURA]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_EMPRESA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetNIF_CIF_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_ALTA];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO]);
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvUSUARIO];
|
|
end;
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvUSUARIO]);
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO] := Null;
|
|
end;
|
|
|
|
|
|
{ TRecibosProveedorBusinessProcessorRules }
|
|
constructor TRecibosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRecibosProveedorBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSITUACION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSITUACION]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_FACTURA]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_REMESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_REMESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_REMESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_REMESA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_REMESA]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REMESA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REMESA]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_EMISION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_EMISION]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_EMISIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDESCRIPCION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOBSERVACIONES];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOBSERVACIONES]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIMPORTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOTROS_GASTOS];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOTROS_GASTOS]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetOTROS_GASTOSIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_TOTAL];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_TOTAL]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_FACTURA]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_FACTURA]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_EMPRESA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetNIF_CIF_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_ALTA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO]);
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorUSUARIO];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorUSUARIO]);
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO] := Null;
|
|
end;
|
|
|
|
|
|
{ TPagosProveedorBusinessProcessorRules }
|
|
constructor TPagosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TPagosProveedorBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetID_RECIBOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetID_RECIBOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldID_RECIBOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_RECIBO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldID_RECIBOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_RECIBO]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetID_RECIBOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetTIPOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetTIPOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldTIPOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTIPO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldTIPOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTIPO]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetTIPOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetFECHA_PAGOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetFECHA_PAGOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_PAGO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldFECHA_PAGOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_PAGO]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetFECHA_PAGOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetTITULARValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetTITULARIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldTITULARValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTITULAR];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldTITULARIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTITULAR]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetTITULARValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetTITULARIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetENTIDADValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetENTIDADIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldENTIDADValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorENTIDAD];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldENTIDADIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorENTIDAD]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetENTIDADValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetSUCURSALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetSUCURSALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldSUCURSALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorSUCURSAL];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorSUCURSAL]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetDCValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetDCIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldDCValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorDC];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldDCIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorDC]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetDCValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetDCIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetCUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorCUENTA];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldCUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorCUENTA]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetCUENTAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_ALTA];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO]);
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorUSUARIO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorUSUARIO]);
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO] := Null;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_RecibosProveedorDelta, TRecibosProveedorBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_PagosProveedorDelta, TPagosProveedorBusinessProcessorRules);
|
|
|
|
end.
|