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.