AcotaCocinas/AlonsoYSal_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
3d846a7f72
AlonsoYSal_FactuGES2/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
roberto 3d846a7f72 Version 2.2.2 para subir a Alonso y Sal 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@25 40301925-124e-1c4e-b97d-170ad7a8785b
2021-03-04 14:07:54 +00:00

4466 lines
202 KiB
ObjectPascal
Raw Blame History

unit schRecibosClienteServer_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schRecibosClienteClient_Intf;
const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{F05CAFE8-C43F-4E9D-AA88-62F2B9E406EA}';
RID_RecibosClienteDelta = '{0883DCB0-8B4F-4577-A247-4D4AD216B31D}';
RID_PagosClienteDelta = '{57F40BC2-CE5A-4DE2-90CB-230F5A45E7F3}';
RID_RecibosCompensadosCliDelta = '{CB3E887F-CB3D-4A93-B22A-37F15431939D}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{F05CAFE8-C43F-4E9D-AA88-62F2B9E406EA}']
{ 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;
{ IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente)
['{0883DCB0-8B4F-4577-A247-4D4AD216B31D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
function GetOldREFERENCIA_REC_COMPENSADOValue : String;
function GetOldREFERENCIAValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_FACTURAValue : Integer;
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_CLIENTEValue : Integer;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldENTIDAD_CLIENTEValue : String;
function GetOldSUCURSAL_CLIENTEValue : String;
function GetOldDC_CLIENTEValue : String;
function GetOldCUENTA_CLIENTEValue : 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;
function GetOldLISTA_NOMBRESValue : String;
function GetOldCUENTA_CONTABLEValue : String;
function GetOldID_CONTRATOValue : Integer;
function GetOldID_CON_FACTURAValue : Integer;
function GetOldREFERENCIA_CONTRATOValue : String;
function GetOldFECHA_PAGOValue : DateTime;
function GetOldSUBCUENTAValue : 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 OldSITUACION : String read GetOldSITUACIONValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
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_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
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;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID_CON_FACTURA : Integer read GetOldID_CON_FACTURAValue;
property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue;
property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
end;
{ TRecibosClienteBusinessProcessorRules }
TRecibosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCliente, IRecibosClienteDelta)
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 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 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_CLIENTEValue: Integer; virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
function GetOldID_CLIENTEValue: Integer; virtual;
function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_CLIENTEValue: String; virtual;
function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
function GetOldENTIDAD_CLIENTEValue: String; virtual;
function GetOldENTIDAD_CLIENTEIsNull: Boolean; virtual;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_CLIENTEValue: String; virtual;
function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual;
function GetOldSUCURSAL_CLIENTEValue: String; virtual;
function GetOldSUCURSAL_CLIENTEIsNull: Boolean; virtual;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetDC_CLIENTEValue: String; virtual;
function GetDC_CLIENTEIsNull: Boolean; virtual;
function GetOldDC_CLIENTEValue: String; virtual;
function GetOldDC_CLIENTEIsNull: Boolean; virtual;
procedure SetDC_CLIENTEValue(const aValue: String); virtual;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CLIENTEValue: String; virtual;
function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
function GetOldCUENTA_CLIENTEValue: String; virtual;
function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
procedure SetCUENTA_CLIENTEIsNull(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;
function GetLISTA_NOMBRESValue: String; virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
function GetOldLISTA_NOMBRESValue: String; virtual;
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CONTABLEValue: String; virtual;
function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
function GetOldCUENTA_CONTABLEValue: String; virtual;
function GetOldCUENTA_CONTABLEIsNull: Boolean; virtual;
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATOValue: Integer; virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
function GetOldID_CONTRATOValue: Integer; virtual;
function GetOldID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetID_CON_FACTURAValue: Integer; virtual;
function GetID_CON_FACTURAIsNull: Boolean; virtual;
function GetOldID_CON_FACTURAValue: Integer; virtual;
function GetOldID_CON_FACTURAIsNull: Boolean; virtual;
procedure SetID_CON_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_CON_FACTURAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CONTRATOValue: String; virtual;
function GetREFERENCIA_CONTRATOIsNull: Boolean; virtual;
function GetOldREFERENCIA_CONTRATOValue: String; virtual;
function GetOldREFERENCIA_CONTRATOIsNull: Boolean; virtual;
procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual;
procedure SetREFERENCIA_CONTRATOIsNull(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 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;
{ 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 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 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_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
property OldENTIDAD_CLIENTEIsNull : Boolean read GetOldENTIDAD_CLIENTEIsNull;
property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull : Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
property OldSUCURSAL_CLIENTEIsNull : Boolean read GetOldSUCURSAL_CLIENTEIsNull;
property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
property DC_CLIENTEIsNull : Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
property OldDC_CLIENTEIsNull : Boolean read GetOldDC_CLIENTEIsNull;
property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
property CUENTA_CLIENTEIsNull : Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
property OldCUENTA_CLIENTEIsNull : Boolean read GetOldCUENTA_CLIENTEIsNull;
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;
property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
property CUENTA_CONTABLE : String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
property OldCUENTA_CONTABLEIsNull : Boolean read GetOldCUENTA_CONTABLEIsNull;
property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull : Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID_CONTRATOIsNull : Boolean read GetOldID_CONTRATOIsNull;
property ID_CON_FACTURA : Integer read GetID_CON_FACTURAValue write SetID_CON_FACTURAValue;
property ID_CON_FACTURAIsNull : Boolean read GetID_CON_FACTURAIsNull write SetID_CON_FACTURAIsNull;
property OldID_CON_FACTURA : Integer read GetOldID_CON_FACTURAValue;
property OldID_CON_FACTURAIsNull : Boolean read GetOldID_CON_FACTURAIsNull;
property REFERENCIA_CONTRATO : String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
property REFERENCIA_CONTRATOIsNull : Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue;
property OldREFERENCIA_CONTRATOIsNull : Boolean read GetOldREFERENCIA_CONTRATOIsNull;
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;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente)
['{57F40BC2-CE5A-4DE2-90CB-230F5A45E7F3}']
{ 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;
{ TPagosClienteBusinessProcessorRules }
TPagosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPagosCliente, IPagosClienteDelta)
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;
{ IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{CB3E887F-CB3D-4A93-B22A-37F15431939D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
function GetOldREFERENCIA_REC_COMPENSADOValue : String;
function GetOldREFERENCIAValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_FACTURAValue : Integer;
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_CLIENTEValue : Integer;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldENTIDAD_CLIENTEValue : String;
function GetOldSUCURSAL_CLIENTEValue : String;
function GetOldDC_CLIENTEValue : String;
function GetOldCUENTA_CLIENTEValue : 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;
function GetOldLISTA_NOMBRESValue : String;
function GetOldID_CONTRATOValue : Integer;
{ 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 OldSITUACION : String read GetOldSITUACIONValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
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_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
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;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
end;
{ TRecibosCompensadosCliBusinessProcessorRules }
TRecibosCompensadosCliBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensadosCli, IRecibosCompensadosCliDelta)
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 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 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_CLIENTEValue: Integer; virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
function GetOldID_CLIENTEValue: Integer; virtual;
function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_CLIENTEValue: String; virtual;
function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_CLIENTEValue: String; virtual;
function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
function GetOldENTIDAD_CLIENTEValue: String; virtual;
function GetOldENTIDAD_CLIENTEIsNull: Boolean; virtual;
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_CLIENTEValue: String; virtual;
function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual;
function GetOldSUCURSAL_CLIENTEValue: String; virtual;
function GetOldSUCURSAL_CLIENTEIsNull: Boolean; virtual;
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetDC_CLIENTEValue: String; virtual;
function GetDC_CLIENTEIsNull: Boolean; virtual;
function GetOldDC_CLIENTEValue: String; virtual;
function GetOldDC_CLIENTEIsNull: Boolean; virtual;
procedure SetDC_CLIENTEValue(const aValue: String); virtual;
procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CLIENTEValue: String; virtual;
function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
function GetOldCUENTA_CLIENTEValue: String; virtual;
function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual;
procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
procedure SetCUENTA_CLIENTEIsNull(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;
function GetLISTA_NOMBRESValue: String; virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
function GetOldLISTA_NOMBRESValue: String; virtual;
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATOValue: Integer; virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
function GetOldID_CONTRATOValue: Integer; virtual;
function GetOldID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
procedure SetID_CONTRATOIsNull(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 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 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_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
property OldENTIDAD_CLIENTEIsNull : Boolean read GetOldENTIDAD_CLIENTEIsNull;
property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
property SUCURSAL_CLIENTEIsNull : Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
property OldSUCURSAL_CLIENTEIsNull : Boolean read GetOldSUCURSAL_CLIENTEIsNull;
property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
property DC_CLIENTEIsNull : Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
property OldDC_CLIENTEIsNull : Boolean read GetOldDC_CLIENTEIsNull;
property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
property CUENTA_CLIENTEIsNull : Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
property OldCUENTA_CLIENTEIsNull : Boolean read GetOldCUENTA_CLIENTEIsNull;
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;
property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull : Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID_CONTRATOIsNull : Boolean read GetOldID_CONTRATOIsNull;
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;
{ TRecibosClienteBusinessProcessorRules }
constructor TRecibosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TRecibosClienteBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TRecibosClienteBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID];
end;
function TRecibosClienteBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID];
end;
function TRecibosClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO];
end;
function TRecibosClienteBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO];
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO];
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO];
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA];
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION];
end;
function TRecibosClienteBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSITUACION];
end;
function TRecibosClienteBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSITUACION]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_FACTURA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetID_REMESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA];
end;
function TRecibosClienteBusinessProcessorRules.GetID_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_REMESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_REMESA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_REMESA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA];
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REMESA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REMESA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION];
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_EMISION];
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_EMISION]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_EMISIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO];
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_VENCIMIENTO];
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_VENCIMIENTO]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION];
end;
function TRecibosClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDESCRIPCION];
end;
function TRecibosClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDESCRIPCION]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetOBSERVACIONESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES];
end;
function TRecibosClienteBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOBSERVACIONES];
end;
function TRecibosClienteBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOBSERVACIONES]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetIMPORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE];
end;
function TRecibosClienteBusinessProcessorRules.GetIMPORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldIMPORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS];
end;
function TRecibosClienteBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOTROS_GASTOS];
end;
function TRecibosClienteBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOTROS_GASTOS]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetOTROS_GASTOSIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL];
end;
function TRecibosClienteBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_TOTAL];
end;
function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_TOTAL]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA];
end;
function TRecibosClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_EMPRESA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_EMPRESA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CLIENTE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE_CLIENTE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD_CLIENTE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL_CLIENTE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetDC_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldDC_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC_CLIENTE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetCUENTA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CLIENTE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CLIENTE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF];
end;
function TRecibosClienteBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF];
end;
function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE];
end;
function TRecibosClienteBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE];
end;
function TRecibosClienteBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION];
end;
function TRecibosClienteBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION];
end;
function TRecibosClienteBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL];
end;
function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL];
end;
function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA];
end;
function TRecibosClienteBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA];
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_ALTA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_ALTA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION];
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_MODIFICACION];
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_MODIFICACION]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO];
end;
function TRecibosClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteUSUARIO];
end;
function TRecibosClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteUSUARIO]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_TIENDA];
end;
function TRecibosClienteBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_TIENDA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_TIENDA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_TIENDA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_TIENDA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_TIENDA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetTIENDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA];
end;
function TRecibosClienteBusinessProcessorRules.GetTIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldTIENDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteTIENDA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteTIENDA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetTIENDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES];
end;
function TRecibosClienteBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteLISTA_NOMBRES];
end;
function TRecibosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteLISTA_NOMBRES]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetCUENTA_CONTABLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE];
end;
function TRecibosClienteBusinessProcessorRules.GetCUENTA_CONTABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CONTABLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CONTABLE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CONTABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CONTABLE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CONTABLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CONTRATO];
end;
function TRecibosClienteBusinessProcessorRules.GetID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CONTRATO]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CONTRATO];
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CONTRATO]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_CONTRATOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CONTRATO] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CONTRATO] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetID_CON_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CON_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetID_CON_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CON_FACTURA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_CON_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CON_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_CON_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CON_FACTURA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_CON_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CON_FACTURA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_CON_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CON_FACTURA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CONTRATOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO];
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CONTRATOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CONTRATO];
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CONTRATOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_PAGOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_PAGO];
end;
function TRecibosClienteBusinessProcessorRules.GetFECHA_PAGOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_PAGO]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_PAGO];
end;
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_PAGOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_PAGO]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_PAGO] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_PAGOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_PAGO] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUBCUENTA];
end;
function TRecibosClienteBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUBCUENTA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUBCUENTA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUBCUENTA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUBCUENTA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUBCUENTA] := Null;
end;
{ TPagosClienteBusinessProcessorRules }
constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TPagosClienteBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TPagosClienteBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID];
end;
function TPagosClienteBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID]);
end;
function TPagosClienteBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID];
end;
function TPagosClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID]);
end;
procedure TPagosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetID_RECIBOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO];
end;
function TPagosClienteBusinessProcessorRules.GetID_RECIBOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO]);
end;
function TPagosClienteBusinessProcessorRules.GetOldID_RECIBOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_RECIBO];
end;
function TPagosClienteBusinessProcessorRules.GetOldID_RECIBOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_RECIBO]);
end;
procedure TPagosClienteBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetID_RECIBOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO];
end;
function TPagosClienteBusinessProcessorRules.GetTIPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO]);
end;
function TPagosClienteBusinessProcessorRules.GetOldTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTIPO];
end;
function TPagosClienteBusinessProcessorRules.GetOldTIPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTIPO]);
end;
procedure TPagosClienteBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetFECHA_PAGOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO];
end;
function TPagosClienteBusinessProcessorRules.GetFECHA_PAGOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO]);
end;
function TPagosClienteBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_PAGO];
end;
function TPagosClienteBusinessProcessorRules.GetOldFECHA_PAGOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_PAGO]);
end;
procedure TPagosClienteBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetFECHA_PAGOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetTITULARValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR];
end;
function TPagosClienteBusinessProcessorRules.GetTITULARIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR]);
end;
function TPagosClienteBusinessProcessorRules.GetOldTITULARValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTITULAR];
end;
function TPagosClienteBusinessProcessorRules.GetOldTITULARIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTITULAR]);
end;
procedure TPagosClienteBusinessProcessorRules.SetTITULARValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetTITULARIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetENTIDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD];
end;
function TPagosClienteBusinessProcessorRules.GetENTIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD]);
end;
function TPagosClienteBusinessProcessorRules.GetOldENTIDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteENTIDAD];
end;
function TPagosClienteBusinessProcessorRules.GetOldENTIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteENTIDAD]);
end;
procedure TPagosClienteBusinessProcessorRules.SetENTIDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetSUCURSALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL];
end;
function TPagosClienteBusinessProcessorRules.GetSUCURSALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL]);
end;
function TPagosClienteBusinessProcessorRules.GetOldSUCURSALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUCURSAL];
end;
function TPagosClienteBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUCURSAL]);
end;
procedure TPagosClienteBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetDCValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC];
end;
function TPagosClienteBusinessProcessorRules.GetDCIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC]);
end;
function TPagosClienteBusinessProcessorRules.GetOldDCValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteDC];
end;
function TPagosClienteBusinessProcessorRules.GetOldDCIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteDC]);
end;
procedure TPagosClienteBusinessProcessorRules.SetDCValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetDCIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA];
end;
function TPagosClienteBusinessProcessorRules.GetCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA]);
end;
function TPagosClienteBusinessProcessorRules.GetOldCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteCUENTA];
end;
function TPagosClienteBusinessProcessorRules.GetOldCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteCUENTA]);
end;
procedure TPagosClienteBusinessProcessorRules.SetCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA];
end;
function TPagosClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA]);
end;
function TPagosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_ALTA];
end;
function TPagosClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_ALTA]);
end;
procedure TPagosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION];
end;
function TPagosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION]);
end;
function TPagosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_MODIFICACION];
end;
function TPagosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_MODIFICACION]);
end;
procedure TPagosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO];
end;
function TPagosClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO]);
end;
function TPagosClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteUSUARIO];
end;
function TPagosClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteUSUARIO]);
end;
procedure TPagosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteIGNORAR_CONTABILIDAD];
end;
function TPagosClienteBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteIGNORAR_CONTABILIDAD]);
end;
function TPagosClienteBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteIGNORAR_CONTABILIDAD];
end;
function TPagosClienteBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteIGNORAR_CONTABILIDAD]);
end;
procedure TPagosClienteBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteIGNORAR_CONTABILIDAD] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteIGNORAR_CONTABILIDAD] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_SUBCUENTA];
end;
function TPagosClienteBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_SUBCUENTA]);
end;
function TPagosClienteBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_SUBCUENTA];
end;
function TPagosClienteBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_SUBCUENTA]);
end;
procedure TPagosClienteBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_SUBCUENTA] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_SUBCUENTA] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUBCUENTA];
end;
function TPagosClienteBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUBCUENTA]);
end;
function TPagosClienteBusinessProcessorRules.GetOldSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUBCUENTA];
end;
function TPagosClienteBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUBCUENTA]);
end;
procedure TPagosClienteBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUBCUENTA] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUBCUENTA] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_EJERCICIO];
end;
function TPagosClienteBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_EJERCICIO]);
end;
function TPagosClienteBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_EJERCICIO];
end;
function TPagosClienteBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_EJERCICIO]);
end;
procedure TPagosClienteBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_EJERCICIO] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_EJERCICIO] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetESTADO_EJERCICIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteESTADO_EJERCICIO];
end;
function TPagosClienteBusinessProcessorRules.GetESTADO_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteESTADO_EJERCICIO]);
end;
function TPagosClienteBusinessProcessorRules.GetOldESTADO_EJERCICIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteESTADO_EJERCICIO];
end;
function TPagosClienteBusinessProcessorRules.GetOldESTADO_EJERCICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteESTADO_EJERCICIO]);
end;
procedure TPagosClienteBusinessProcessorRules.SetESTADO_EJERCICIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteESTADO_EJERCICIO] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetESTADO_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteESTADO_EJERCICIO] := Null;
end;
function TPagosClienteBusinessProcessorRules.GetASIENTO_PUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteASIENTO_PUNTEADO];
end;
function TPagosClienteBusinessProcessorRules.GetASIENTO_PUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteASIENTO_PUNTEADO]);
end;
function TPagosClienteBusinessProcessorRules.GetOldASIENTO_PUNTEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteASIENTO_PUNTEADO];
end;
function TPagosClienteBusinessProcessorRules.GetOldASIENTO_PUNTEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteASIENTO_PUNTEADO]);
end;
procedure TPagosClienteBusinessProcessorRules.SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteASIENTO_PUNTEADO] := aValue;
end;
procedure TPagosClienteBusinessProcessorRules.SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteASIENTO_PUNTEADO] := Null;
end;
{ TRecibosCompensadosCliBusinessProcessorRules }
constructor TRecibosCompensadosCliBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TRecibosCompensadosCliBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSITUACION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSITUACION]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_FACTURA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_REMESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_REMESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_REMESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_REMESA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_EMISION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_EMISION]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_EMISIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDESCRIPCION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDESCRIPCION]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOBSERVACIONESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOBSERVACIONES];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOBSERVACIONES]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOTROS_GASTOS];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOTROS_GASTOS]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetOTROS_GASTOSIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCALLE]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCALLE] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPOBLACION]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPOBLACION] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCODIGO_POSTAL] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliPROVINCIA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliPROVINCIA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_ALTA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_ALTA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliUSUARIO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliUSUARIO]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_TIENDA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_TIENDA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_TIENDA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_TIENDA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_TIENDA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_TIENDA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetTIENDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetTIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldTIENDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliTIENDA];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliTIENDA]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetTIENDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CONTRATO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CONTRATO]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CONTRATO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CONTRATO]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CONTRATOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CONTRATO] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CONTRATO] := Null;
end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosRecibosDelta, TListaAnosRecibosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PagosClienteDelta, TPagosClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_RecibosCompensadosCliDelta, TRecibosCompensadosCliBusinessProcessorRules);
end.
Reference in New Issue View Git Blame Copy Permalink