2019-11-18 10:36:42 +00:00
|
|
|
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 }
|
2021-03-04 14:07:54 +00:00
|
|
|
RID_ListaAnosRecibosDelta = '{E8A296C6-C6C6-4821-ABD1-65EE5C5CE5E7}';
|
|
|
|
|
RID_RecibosCompensadosProvDelta = '{6210EF83-7686-4674-A385-B7071237FACB}';
|
|
|
|
|
RID_RecibosProveedorDelta = '{41AE7B3A-2837-467C-9EF5-EE52952DC66E}';
|
|
|
|
|
RID_PagosProveedorDelta = '{42CA510C-C01E-4C46-A221-CE6EF13D95EA}';
|
2019-11-18 10:36:42 +00:00
|
|
|
|
|
|
|
|
type
|
|
|
|
|
{ IListaAnosRecibosDelta }
|
|
|
|
|
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
|
2021-03-04 14:07:54 +00:00
|
|
|
['{E8A296C6-C6C6-4821-ABD1-65EE5C5CE5E7}']
|
2019-11-18 10:36:42 +00:00
|
|
|
{ Property getters and setters }
|
|
|
|
|
function GetOldANOValue : String;
|
|
|
|
|
|
|
|
|
|
{ Properties }
|
|
|
|
|
property OldANO : String read GetOldANOValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
{ TListaAnosRecibosBusinessProcessorRules }
|
|
|
|
|
TListaAnosRecibosBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosRecibos, IListaAnosRecibosDelta)
|
|
|
|
|
private
|
|
|
|
|
protected
|
|
|
|
|
{ Property getters and setters }
|
|
|
|
|
function GetANOValue: String; virtual;
|
|
|
|
|
function GetANOIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldANOValue: String; virtual;
|
|
|
|
|
function GetOldANOIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetANOValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
|
|
|
|
|
{ Properties }
|
|
|
|
|
property ANO : String read GetANOValue write SetANOValue;
|
|
|
|
|
property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
|
|
|
|
|
property OldANO : String read GetOldANOValue;
|
|
|
|
|
property OldANOIsNull : Boolean read GetOldANOIsNull;
|
|
|
|
|
|
|
|
|
|
public
|
|
|
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
|
|
|
destructor Destroy; override;
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
{ IRecibosCompensadosProvDelta }
|
|
|
|
|
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
|
2021-03-04 14:07:54 +00:00
|
|
|
['{6210EF83-7686-4674-A385-B7071237FACB}']
|
2019-11-18 10:36:42 +00:00
|
|
|
{ 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 GetOldREFERENCIA_FACTURA_PROVValue : String;
|
|
|
|
|
function GetOldFECHA_FACTURAValue : DateTime;
|
|
|
|
|
function GetOldFORMA_PAGO_FACTURAValue : String;
|
|
|
|
|
function GetOldIMPORTE_FACTURAValue : Currency;
|
|
|
|
|
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 GetOldID_EMPRESAValue : Integer;
|
|
|
|
|
function GetOldID_PROVEEDORValue : Integer;
|
|
|
|
|
function GetOldNOMBRE_PROVEEDORValue : String;
|
|
|
|
|
function GetOldNOMBRE_COMERCIALValue : String;
|
|
|
|
|
function GetOldENTIDAD_PROVEEDORValue : String;
|
|
|
|
|
function GetOldSUCURSAL_PROVEEDORValue : String;
|
|
|
|
|
function GetOldDC_PROVEEDORValue : String;
|
|
|
|
|
function GetOldCUENTA_PROVEEDORValue : String;
|
|
|
|
|
function GetOldNIF_CIFValue : String;
|
|
|
|
|
function GetOldNOMBREValue : String;
|
|
|
|
|
function GetOldCALLEValue : String;
|
|
|
|
|
function GetOldPOBLACIONValue : String;
|
|
|
|
|
function GetOldCODIGO_POSTALValue : String;
|
|
|
|
|
function GetOldPROVINCIAValue : String;
|
|
|
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
|
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
|
|
|
function GetOldUSUARIOValue : String;
|
|
|
|
|
function GetOldID_TIENDAValue : Integer;
|
|
|
|
|
function GetOldTIENDAValue : 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 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_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 OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
|
|
|
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
|
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
|
|
|
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
|
|
|
|
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 OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
|
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
|
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
|
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
|
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
|
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
|
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
|
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
|
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
|
|
|
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
|
|
|
|
|
property OldTIENDA : String read GetOldTIENDAValue;
|
|
|
|
|
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 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_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 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 GetNOMBRE_COMERCIALValue: String; virtual;
|
|
|
|
|
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldNOMBRE_COMERCIALValue: String; virtual;
|
|
|
|
|
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetNOMBRE_COMERCIALIsNull(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 GetNIF_CIFValue: String; virtual;
|
|
|
|
|
function GetNIF_CIFIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldNIF_CIFValue: String; virtual;
|
|
|
|
|
function GetOldNIF_CIFIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetNIF_CIFValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetNOMBREValue: String; virtual;
|
|
|
|
|
function GetNOMBREIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldNOMBREValue: String; virtual;
|
|
|
|
|
function GetOldNOMBREIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetCALLEValue: String; virtual;
|
|
|
|
|
function GetCALLEIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldCALLEValue: String; virtual;
|
|
|
|
|
function GetOldCALLEIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetCALLEValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetCALLEIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetPOBLACIONValue: String; virtual;
|
|
|
|
|
function GetPOBLACIONIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldPOBLACIONValue: String; virtual;
|
|
|
|
|
function GetOldPOBLACIONIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetPOBLACIONValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetCODIGO_POSTALValue: String; virtual;
|
|
|
|
|
function GetCODIGO_POSTALIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldCODIGO_POSTALValue: String; virtual;
|
|
|
|
|
function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetPROVINCIAValue: String; virtual;
|
|
|
|
|
function GetPROVINCIAIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldPROVINCIAValue: String; virtual;
|
|
|
|
|
function GetOldPROVINCIAIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetPROVINCIAValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetPROVINCIAIsNull(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;
|
|
|
|
|
function GetID_TIENDAValue: Integer; virtual;
|
|
|
|
|
function GetID_TIENDAIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldID_TIENDAValue: Integer; virtual;
|
|
|
|
|
function GetOldID_TIENDAIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
|
|
|
|
|
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetTIENDAValue: String; virtual;
|
|
|
|
|
function GetTIENDAIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldTIENDAValue: String; virtual;
|
|
|
|
|
function GetOldTIENDAIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetTIENDAValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetTIENDAIsNull(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 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_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 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 NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
|
|
|
|
|
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
|
|
|
|
|
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
|
|
|
|
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
|
|
|
|
|
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 NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
|
|
|
|
|
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
|
|
|
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
|
|
|
property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
|
|
|
|
|
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
|
|
|
|
|
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
|
|
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
|
|
|
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
|
|
|
|
property CALLE : String read GetCALLEValue write SetCALLEValue;
|
|
|
|
|
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
|
|
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
|
|
|
property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
|
|
|
|
|
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
|
|
|
|
|
property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
|
|
|
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
|
|
|
property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
|
|
|
|
|
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
|
|
|
|
|
property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
|
|
|
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
|
|
|
property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
|
|
|
|
|
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
|
|
|
|
|
property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
|
|
|
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
|
|
|
property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
|
|
|
|
|
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;
|
|
|
|
|
property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
|
|
|
|
|
property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
|
|
|
|
|
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
|
|
|
|
|
property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
|
|
|
|
|
property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
|
|
|
|
|
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
|
|
|
|
|
property OldTIENDA : String read GetOldTIENDAValue;
|
|
|
|
|
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
|
|
|
|
|
|
|
|
|
|
public
|
|
|
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
|
|
|
destructor Destroy; override;
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
{ IRecibosProveedorDelta }
|
|
|
|
|
IRecibosProveedorDelta = interface(IRecibosProveedor)
|
2021-03-04 14:07:54 +00:00
|
|
|
['{41AE7B3A-2837-467C-9EF5-EE52952DC66E}']
|
2019-11-18 10:36:42 +00:00
|
|
|
{ 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 GetOldREFERENCIA_FACTURA_PROVValue : String;
|
|
|
|
|
function GetOldFECHA_FACTURAValue : DateTime;
|
|
|
|
|
function GetOldFORMA_PAGO_FACTURAValue : String;
|
|
|
|
|
function GetOldIMPORTE_FACTURAValue : Currency;
|
|
|
|
|
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 GetOldID_EMPRESAValue : Integer;
|
|
|
|
|
function GetOldID_PROVEEDORValue : Integer;
|
|
|
|
|
function GetOldNOMBRE_PROVEEDORValue : String;
|
|
|
|
|
function GetOldNOMBRE_COMERCIALValue : String;
|
|
|
|
|
function GetOldENTIDAD_PROVEEDORValue : String;
|
|
|
|
|
function GetOldSUCURSAL_PROVEEDORValue : String;
|
|
|
|
|
function GetOldDC_PROVEEDORValue : String;
|
|
|
|
|
function GetOldCUENTA_PROVEEDORValue : String;
|
|
|
|
|
function GetOldNIF_CIFValue : String;
|
|
|
|
|
function GetOldNOMBREValue : String;
|
|
|
|
|
function GetOldCALLEValue : String;
|
|
|
|
|
function GetOldPOBLACIONValue : String;
|
|
|
|
|
function GetOldCODIGO_POSTALValue : String;
|
|
|
|
|
function GetOldPROVINCIAValue : String;
|
|
|
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
|
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
|
|
|
function GetOldUSUARIOValue : String;
|
|
|
|
|
function GetOldID_TIENDAValue : Integer;
|
|
|
|
|
function GetOldTIENDAValue : String;
|
2021-03-04 14:07:54 +00:00
|
|
|
function GetOldFECHA_PAGOValue : DateTime;
|
|
|
|
|
function GetOldSUBCUENTAValue : String;
|
2019-11-18 10:36:42 +00:00
|
|
|
|
|
|
|
|
{ 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 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_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 OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
|
|
|
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
|
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
|
|
|
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
|
|
|
|
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 OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
|
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
|
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
|
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
|
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
|
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
|
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
|
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
|
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
|
|
|
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
|
|
|
|
|
property OldTIENDA : String read GetOldTIENDAValue;
|
2021-03-04 14:07:54 +00:00
|
|
|
property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
|
|
|
|
|
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
|
2019-11-18 10:36:42 +00:00
|
|
|
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 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_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 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 GetNOMBRE_COMERCIALValue: String; virtual;
|
|
|
|
|
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldNOMBRE_COMERCIALValue: String; virtual;
|
|
|
|
|
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetNOMBRE_COMERCIALIsNull(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 GetNIF_CIFValue: String; virtual;
|
|
|
|
|
function GetNIF_CIFIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldNIF_CIFValue: String; virtual;
|
|
|
|
|
function GetOldNIF_CIFIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetNIF_CIFValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetNOMBREValue: String; virtual;
|
|
|
|
|
function GetNOMBREIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldNOMBREValue: String; virtual;
|
|
|
|
|
function GetOldNOMBREIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetCALLEValue: String; virtual;
|
|
|
|
|
function GetCALLEIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldCALLEValue: String; virtual;
|
|
|
|
|
function GetOldCALLEIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetCALLEValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetCALLEIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetPOBLACIONValue: String; virtual;
|
|
|
|
|
function GetPOBLACIONIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldPOBLACIONValue: String; virtual;
|
|
|
|
|
function GetOldPOBLACIONIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetPOBLACIONValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetCODIGO_POSTALValue: String; virtual;
|
|
|
|
|
function GetCODIGO_POSTALIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldCODIGO_POSTALValue: String; virtual;
|
|
|
|
|
function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetPROVINCIAValue: String; virtual;
|
|
|
|
|
function GetPROVINCIAIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldPROVINCIAValue: String; virtual;
|
|
|
|
|
function GetOldPROVINCIAIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetPROVINCIAValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetPROVINCIAIsNull(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;
|
|
|
|
|
function GetID_TIENDAValue: Integer; virtual;
|
|
|
|
|
function GetID_TIENDAIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldID_TIENDAValue: Integer; virtual;
|
|
|
|
|
function GetOldID_TIENDAIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
|
|
|
|
|
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetTIENDAValue: String; virtual;
|
|
|
|
|
function GetTIENDAIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldTIENDAValue: String; virtual;
|
|
|
|
|
function GetOldTIENDAIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetTIENDAValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
|
2021-03-04 14:07:54 +00:00
|
|
|
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 GetSUBCUENTAValue: String; virtual;
|
|
|
|
|
function GetSUBCUENTAIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldSUBCUENTAValue: String; virtual;
|
|
|
|
|
function GetOldSUBCUENTAIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetSUBCUENTAValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
|
2019-11-18 10:36:42 +00:00
|
|
|
|
|
|
|
|
{ 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 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_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 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 NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
|
|
|
|
|
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
|
|
|
|
|
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
|
|
|
|
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
|
|
|
|
|
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 NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
|
|
|
|
|
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
|
|
|
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
|
|
|
property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
|
|
|
|
|
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
|
|
|
|
|
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
|
|
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
|
|
|
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
|
|
|
|
property CALLE : String read GetCALLEValue write SetCALLEValue;
|
|
|
|
|
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
|
|
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
|
|
|
property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
|
|
|
|
|
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
|
|
|
|
|
property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
|
|
|
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
|
|
|
property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
|
|
|
|
|
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
|
|
|
|
|
property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
|
|
|
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
|
|
|
property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
|
|
|
|
|
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
|
|
|
|
|
property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
|
|
|
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
|
|
|
property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
|
|
|
|
|
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;
|
|
|
|
|
property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
|
|
|
|
|
property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
|
|
|
|
|
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
|
|
|
|
|
property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
|
|
|
|
|
property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
|
|
|
|
|
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
|
|
|
|
|
property OldTIENDA : String read GetOldTIENDAValue;
|
|
|
|
|
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
|
2021-03-04 14:07:54 +00:00
|
|
|
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 SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
|
|
|
|
|
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
|
|
|
|
|
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
|
|
|
|
|
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
|
2019-11-18 10:36:42 +00:00
|
|
|
|
|
|
|
|
public
|
|
|
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
|
|
|
destructor Destroy; override;
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
{ IPagosProveedorDelta }
|
|
|
|
|
IPagosProveedorDelta = interface(IPagosProveedor)
|
2021-03-04 14:07:54 +00:00
|
|
|
['{42CA510C-C01E-4C46-A221-CE6EF13D95EA}']
|
2019-11-18 10:36:42 +00:00
|
|
|
{ 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;
|
|
|
|
|
function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
|
|
|
|
|
function GetOldID_SUBCUENTAValue : Integer;
|
|
|
|
|
function GetOldSUBCUENTAValue : String;
|
|
|
|
|
function GetOldID_EJERCICIOValue : Integer;
|
|
|
|
|
function GetOldESTADO_EJERCICIOValue : String;
|
|
|
|
|
function GetOldASIENTO_PUNTEADOValue : SmallInt;
|
|
|
|
|
|
|
|
|
|
{ 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;
|
|
|
|
|
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
|
|
|
|
|
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
|
|
|
|
|
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
|
|
|
|
|
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
|
|
|
|
property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
|
|
|
|
|
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
|
|
|
|
|
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;
|
|
|
|
|
function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual;
|
|
|
|
|
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldIGNORAR_CONTABILIDADValue: SmallInt; virtual;
|
|
|
|
|
function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
|
|
|
|
|
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetID_SUBCUENTAValue: Integer; virtual;
|
|
|
|
|
function GetID_SUBCUENTAIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldID_SUBCUENTAValue: Integer; virtual;
|
|
|
|
|
function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
|
|
|
|
|
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetSUBCUENTAValue: String; virtual;
|
|
|
|
|
function GetSUBCUENTAIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldSUBCUENTAValue: String; virtual;
|
|
|
|
|
function GetOldSUBCUENTAIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetSUBCUENTAValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetID_EJERCICIOValue: Integer; virtual;
|
|
|
|
|
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldID_EJERCICIOValue: Integer; virtual;
|
|
|
|
|
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
|
|
|
|
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetESTADO_EJERCICIOValue: String; virtual;
|
|
|
|
|
function GetESTADO_EJERCICIOIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldESTADO_EJERCICIOValue: String; virtual;
|
|
|
|
|
function GetOldESTADO_EJERCICIOIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetESTADO_EJERCICIOValue(const aValue: String); virtual;
|
|
|
|
|
procedure SetESTADO_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
|
|
|
|
function GetASIENTO_PUNTEADOValue: SmallInt; virtual;
|
|
|
|
|
function GetASIENTO_PUNTEADOIsNull: Boolean; virtual;
|
|
|
|
|
function GetOldASIENTO_PUNTEADOValue: SmallInt; virtual;
|
|
|
|
|
function GetOldASIENTO_PUNTEADOIsNull: Boolean; virtual;
|
|
|
|
|
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
|
|
|
|
|
procedure SetASIENTO_PUNTEADOIsNull(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;
|
|
|
|
|
property IGNORAR_CONTABILIDAD : SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
|
|
|
|
|
property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
|
|
|
|
|
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
|
|
|
|
|
property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
|
|
|
|
|
property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
|
|
|
|
|
property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
|
|
|
|
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
|
|
|
|
|
property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
|
|
|
|
|
property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
|
|
|
|
|
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
|
|
|
|
|
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
|
|
|
|
|
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
|
|
|
|
|
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
|
|
|
|
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
|
|
|
|
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
|
|
|
|
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
|
|
|
|
|
property ESTADO_EJERCICIO : String read GetESTADO_EJERCICIOValue write SetESTADO_EJERCICIOValue;
|
|
|
|
|
property ESTADO_EJERCICIOIsNull : Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
|
|
|
|
|
property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
|
|
|
|
|
property OldESTADO_EJERCICIOIsNull : Boolean read GetOldESTADO_EJERCICIOIsNull;
|
|
|
|
|
property ASIENTO_PUNTEADO : SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
|
|
|
|
|
property ASIENTO_PUNTEADOIsNull : Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
|
|
|
|
|
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
|
|
|
|
|
property OldASIENTO_PUNTEADOIsNull : Boolean read GetOldASIENTO_PUNTEADOIsNull;
|
|
|
|
|
|
|
|
|
|
public
|
|
|
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
|
|
|
destructor Destroy; override;
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
Variants, uROBinaryHelpers, uDAInterfaces;
|
|
|
|
|
|
|
|
|
|
{ TListaAnosRecibosBusinessProcessorRules }
|
|
|
|
|
constructor TListaAnosRecibosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
|
|
|
begin
|
|
|
|
|
inherited;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
destructor TListaAnosRecibosBusinessProcessorRules.Destroy;
|
|
|
|
|
begin
|
|
|
|
|
inherited;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TListaAnosRecibosBusinessProcessorRules.GetANOValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRecibosANO];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TListaAnosRecibosBusinessProcessorRules.GetANOIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRecibosANO]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TListaAnosRecibosBusinessProcessorRules.GetOldANOValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosRecibosANO];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TListaAnosRecibosBusinessProcessorRules.GetOldANOIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosRecibosANO]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TListaAnosRecibosBusinessProcessorRules.SetANOValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRecibosANO] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TListaAnosRecibosBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRecibosANO] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
{ 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.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_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.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.GetNOMBRE_COMERCIALValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_COMERCIAL];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_COMERCIAL]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE_COMERCIAL];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE_COMERCIAL]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_COMERCIAL] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_COMERCIAL] := 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.GetNIF_CIFValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNIF_CIF];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNIF_CIF]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetNOMBREValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetCALLEValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCALLE];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCALLE]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCALLEValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCALLE];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCALLE]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCALLE] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCALLE] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPOBLACION];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPOBLACION]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvPOBLACION];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvPOBLACION]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPOBLACION] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPOBLACION] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCODIGO_POSTAL] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPROVINCIA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPROVINCIA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvPROVINCIA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvPROVINCIA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPROVINCIA] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvPROVINCIA] := 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;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_TIENDAValue: Integer;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_TIENDA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_TIENDA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_TIENDA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_TIENDA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_TIENDA] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_TIENDA] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetTIENDAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvTIENDA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetTIENDAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvTIENDA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldTIENDAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvTIENDA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosCompensadosProvBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvTIENDA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetTIENDAValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvTIENDA] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosCompensadosProvBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvTIENDA] := 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.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_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.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.GetNOMBRE_COMERCIALValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_COMERCIAL];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_COMERCIAL]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNOMBRE_COMERCIAL];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNOMBRE_COMERCIAL]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_COMERCIAL] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_COMERCIAL] := 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.GetNIF_CIFValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNIF_CIF];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNIF_CIF]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetNOMBREValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNOMBRE];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNOMBRE]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetCALLEValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCALLE];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCALLE]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldCALLEValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCALLE];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCALLE]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCALLE] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCALLE] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPOBLACION];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPOBLACION]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorPOBLACION];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorPOBLACION]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPOBLACION] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPOBLACION] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCODIGO_POSTAL];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCODIGO_POSTAL]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCODIGO_POSTAL];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCODIGO_POSTAL]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCODIGO_POSTAL] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCODIGO_POSTAL] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPROVINCIA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPROVINCIA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorPROVINCIA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorPROVINCIA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPROVINCIA] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorPROVINCIA] := 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;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_TIENDAValue: Integer;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_TIENDA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_TIENDA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_TIENDA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_TIENDA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_TIENDA] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_TIENDA] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetTIENDAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorTIENDA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetTIENDAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorTIENDA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldTIENDAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorTIENDA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorTIENDA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetTIENDAValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorTIENDA] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorTIENDA] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
2021-03-04 14:07:54 +00:00
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_PAGOValue: DateTime;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_PAGO];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_PAGOIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_PAGO]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_PAGO];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_PAGOIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_PAGO]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_PAGO] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_PAGOIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_PAGO] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetSUBCUENTAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUBCUENTA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUBCUENTA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldSUBCUENTAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUBCUENTA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUBCUENTA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUBCUENTA] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUBCUENTA] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
2019-11-18 10:36:42 +00:00
|
|
|
|
|
|
|
|
{ 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;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: SmallInt;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: SmallInt;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorIGNORAR_CONTABILIDAD] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_SUBCUENTA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_SUBCUENTA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_SUBCUENTA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_SUBCUENTA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_SUBCUENTA] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_SUBCUENTA] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetSUBCUENTAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUBCUENTA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUBCUENTA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldSUBCUENTAValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorSUBCUENTA];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorSUBCUENTA]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUBCUENTA] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUBCUENTA] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_EJERCICIO];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_EJERCICIO]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_EJERCICIO];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_EJERCICIO]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_EJERCICIO] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_EJERCICIO] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetESTADO_EJERCICIOValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorESTADO_EJERCICIO];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetESTADO_EJERCICIOIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorESTADO_EJERCICIO]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldESTADO_EJERCICIOValue: String;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorESTADO_EJERCICIO];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldESTADO_EJERCICIOIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorESTADO_EJERCICIO]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetESTADO_EJERCICIOValue(const aValue: String);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorESTADO_EJERCICIO] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorESTADO_EJERCICIO] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetASIENTO_PUNTEADOValue: SmallInt;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorASIENTO_PUNTEADO];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetASIENTO_PUNTEADOIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorASIENTO_PUNTEADO]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldASIENTO_PUNTEADOValue: SmallInt;
|
|
|
|
|
begin
|
|
|
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorASIENTO_PUNTEADO];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldASIENTO_PUNTEADOIsNull: Boolean;
|
|
|
|
|
begin
|
|
|
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorASIENTO_PUNTEADO]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
|
|
|
|
|
begin
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorASIENTO_PUNTEADO] := aValue;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if aValue then
|
|
|
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorASIENTO_PUNTEADO] := Null;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
initialization
|
|
|
|
|
RegisterBusinessProcessorRules(RID_ListaAnosRecibosDelta, TListaAnosRecibosBusinessProcessorRules);
|
|
|
|
|
RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules);
|
|
|
|
|
RegisterBusinessProcessorRules(RID_RecibosProveedorDelta, TRecibosProveedorBusinessProcessorRules);
|
|
|
|
|
RegisterBusinessProcessorRules(RID_PagosProveedorDelta, TPagosProveedorBusinessProcessorRules);
|
|
|
|
|
|
|
|
|
|
end.
|