unit schRecibosProveedorServer_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schRecibosProveedorClient_Intf; const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } RID_ListaAnosRecibosDelta = '{BFF440E9-12BC-425B-8040-CBECEF5190CB}'; RID_RecibosCompensadosProvDelta = '{016D5CE9-683B-4A12-8274-656BD000E183}'; RID_RecibosProveedorDelta = '{FE478D0D-F8F0-4399-B6EC-12BED231E97D}'; RID_RecibosProveedor_RefreshDelta = '{3B183AEE-00B6-4C9F-8D57-B9BA4A7939B2}'; RID_PagosProveedorDelta = '{773645D4-A67B-4355-BD24-3AF6431F4FD9}'; type { IListaAnosRecibosDelta } IListaAnosRecibosDelta = interface(IListaAnosRecibos) ['{BFF440E9-12BC-425B-8040-CBECEF5190CB}'] { 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 GetOldANOValue: String; virtual; procedure SetANOValue(const aValue: String); virtual; { Properties } property ANO : String read GetANOValue write SetANOValue; property OldANO : String read GetOldANOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IRecibosCompensadosProvDelta } IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) ['{016D5CE9-683B-4A12-8274-656BD000E183}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldREFERENCIAValue : String; function GetOldSITUACIONValue : String; function GetOldID_FACTURAValue : Integer; function GetOldFECHA_EMISIONValue : DateTime; function GetOldFECHA_VENCIMIENTOValue : DateTime; function GetOldIMPORTEValue : Float; function GetOldOTROS_GASTOSValue : Float; function GetOldIMPORTE_TOTALValue : Float; function GetOldFECHA_FACTURAValue : DateTime; function GetOldIMPORTE_FACTURAValue : Float; function GetOldID_PROVEEDORValue : Integer; function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNIF_CIF_PROVEEDORValue : String; function GetOldID_EMPRESAValue : Integer; { Properties } property OldID : Integer read GetOldIDValue; property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property OldIMPORTE : Float read GetOldIMPORTEValue; property OldOTROS_GASTOS : Float read GetOldOTROS_GASTOSValue; property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property OldIMPORTE_FACTURA : Float read GetOldIMPORTE_FACTURAValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; end; { TRecibosCompensadosProvBusinessProcessorRules } TRecibosCompensadosProvBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensadosProv, IRecibosCompensadosProvDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_RECIBO_COMPENSADOValue: Integer; virtual; function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual; procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetSITUACIONValue: String; virtual; function GetOldSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; function GetID_FACTURAValue: Integer; virtual; function GetOldID_FACTURAValue: Integer; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; function GetFECHA_EMISIONValue: DateTime; virtual; function GetOldFECHA_EMISIONValue: DateTime; virtual; procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; function GetFECHA_VENCIMIENTOValue: DateTime; virtual; function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; function GetIMPORTEValue: Float; virtual; function GetOldIMPORTEValue: Float; virtual; procedure SetIMPORTEValue(const aValue: Float); virtual; function GetOTROS_GASTOSValue: Float; virtual; function GetOldOTROS_GASTOSValue: Float; virtual; procedure SetOTROS_GASTOSValue(const aValue: Float); virtual; function GetIMPORTE_TOTALValue: Float; virtual; function GetOldIMPORTE_TOTALValue: Float; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; function GetFECHA_FACTURAValue: DateTime; virtual; function GetOldFECHA_FACTURAValue: DateTime; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; function GetIMPORTE_FACTURAValue: Float; virtual; function GetOldIMPORTE_FACTURAValue: Float; virtual; procedure SetIMPORTE_FACTURAValue(const aValue: Float); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; function GetNOMBRE_PROVEEDORValue: String; virtual; function GetOldNOMBRE_PROVEEDORValue: String; virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; function GetNIF_CIF_PROVEEDORValue: String; virtual; function GetOldNIF_CIF_PROVEEDORValue: String; virtual; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue; property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property IMPORTE : Float read GetIMPORTEValue write SetIMPORTEValue; property OldIMPORTE : Float read GetOldIMPORTEValue; property OTROS_GASTOS : Float read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; property OldOTROS_GASTOS : Float read GetOldOTROS_GASTOSValue; property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property IMPORTE_FACTURA : Float read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; property OldIMPORTE_FACTURA : Float read GetOldIMPORTE_FACTURAValue; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IRecibosProveedorDelta } IRecibosProveedorDelta = interface(IRecibosProveedor) ['{FE478D0D-F8F0-4399-B6EC-12BED231E97D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldREFERENCIA_REC_COMPENSADOValue : String; function GetOldREFERENCIAValue : String; function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldSITUACIONValue : String; function GetOldID_FACTURAValue : Integer; function GetOldID_REMESAValue : Integer; function GetOldREFERENCIA_REMESAValue : String; function GetOldFECHA_EMISIONValue : DateTime; function GetOldFECHA_VENCIMIENTOValue : DateTime; function GetOldDESCRIPCIONValue : String; function GetOldOBSERVACIONESValue : String; function GetOldIMPORTEValue : Currency; function GetOldOTROS_GASTOSValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldFECHA_FACTURAValue : DateTime; function GetOldREFERENCIA_FACTURA_PROVValue : String; function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldIMPORTE_FACTURAValue : Currency; function GetOldID_PROVEEDORValue : Integer; function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNIF_CIF_PROVEEDORValue : String; function GetOldENTIDAD_PROVEEDORValue : String; function GetOldSUCURSAL_PROVEEDORValue : String; function GetOldDC_PROVEEDORValue : String; function GetOldCUENTA_PROVEEDORValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_REMESA : Integer read GetOldID_REMESAValue; property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; property OldIMPORTE : Currency read GetOldIMPORTEValue; property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; end; { TRecibosProveedorBusinessProcessorRules } TRecibosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosProveedor, IRecibosProveedorDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_RECIBO_COMPENSADOValue: Integer; virtual; function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual; procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual; procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual; function GetOldREFERENCIA_PROVEEDORValue: String; virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetSITUACIONValue: String; virtual; function GetOldSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; function GetID_FACTURAValue: Integer; virtual; function GetOldID_FACTURAValue: Integer; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; function GetID_REMESAValue: Integer; virtual; function GetOldID_REMESAValue: Integer; virtual; procedure SetID_REMESAValue(const aValue: Integer); virtual; function GetREFERENCIA_REMESAValue: String; virtual; function GetOldREFERENCIA_REMESAValue: String; virtual; procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual; function GetFECHA_EMISIONValue: DateTime; virtual; function GetOldFECHA_EMISIONValue: DateTime; virtual; procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; function GetFECHA_VENCIMIENTOValue: DateTime; virtual; function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetOBSERVACIONESValue: String; virtual; function GetOldOBSERVACIONESValue: String; virtual; procedure SetOBSERVACIONESValue(const aValue: String); virtual; function GetIMPORTEValue: Currency; virtual; function GetOldIMPORTEValue: Currency; virtual; procedure SetIMPORTEValue(const aValue: Currency); virtual; function GetOTROS_GASTOSValue: Currency; virtual; function GetOldOTROS_GASTOSValue: Currency; virtual; procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual; function GetIMPORTE_TOTALValue: Currency; virtual; function GetOldIMPORTE_TOTALValue: Currency; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetFECHA_FACTURAValue: DateTime; virtual; function GetOldFECHA_FACTURAValue: DateTime; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; function GetREFERENCIA_FACTURA_PROVValue: String; virtual; function GetOldREFERENCIA_FACTURA_PROVValue: String; virtual; procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual; function GetFORMA_PAGO_FACTURAValue: String; virtual; function GetOldFORMA_PAGO_FACTURAValue: String; virtual; procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; function GetIMPORTE_FACTURAValue: Currency; virtual; function GetOldIMPORTE_FACTURAValue: Currency; virtual; procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; function GetNOMBRE_PROVEEDORValue: String; virtual; function GetOldNOMBRE_PROVEEDORValue: String; virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; function GetNIF_CIF_PROVEEDORValue: String; virtual; function GetOldNIF_CIF_PROVEEDORValue: String; virtual; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; function GetENTIDAD_PROVEEDORValue: String; virtual; function GetOldENTIDAD_PROVEEDORValue: String; virtual; procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual; function GetSUCURSAL_PROVEEDORValue: String; virtual; function GetOldSUCURSAL_PROVEEDORValue: String; virtual; procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual; function GetDC_PROVEEDORValue: String; virtual; function GetOldDC_PROVEEDORValue: String; virtual; procedure SetDC_PROVEEDORValue(const aValue: String); virtual; function GetCUENTA_PROVEEDORValue: String; virtual; function GetOldCUENTA_PROVEEDORValue: String; virtual; procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetUSUARIOValue: String; virtual; function GetOldUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue; property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue; property OldID_REMESA : Integer read GetOldID_REMESAValue; property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue; property OldIMPORTE : Currency read GetOldIMPORTEValue; property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property REFERENCIA_FACTURA_PROV : String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IRecibosProveedor_RefreshDelta } IRecibosProveedor_RefreshDelta = interface(IRecibosProveedor_Refresh) ['{3B183AEE-00B6-4C9F-8D57-B9BA4A7939B2}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldREFERENCIA_REC_COMPENSADOValue : String; function GetOldREFERENCIAValue : String; function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldSITUACIONValue : String; function GetOldID_FACTURAValue : Integer; function GetOldID_REMESAValue : Integer; function GetOldREFERENCIA_REMESAValue : String; function GetOldFECHA_EMISIONValue : DateTime; function GetOldFECHA_VENCIMIENTOValue : DateTime; function GetOldDESCRIPCIONValue : String; function GetOldOBSERVACIONESValue : String; function GetOldIMPORTEValue : Currency; function GetOldOTROS_GASTOSValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldFECHA_FACTURAValue : DateTime; function GetOldREFERENCIA_FACTURA_PROVValue : String; function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldIMPORTE_FACTURAValue : Currency; function GetOldID_PROVEEDORValue : Integer; function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNIF_CIF_PROVEEDORValue : String; function GetOldENTIDAD_PROVEEDORValue : String; function GetOldSUCURSAL_PROVEEDORValue : String; function GetOldDC_PROVEEDORValue : String; function GetOldCUENTA_PROVEEDORValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_REMESA : Integer read GetOldID_REMESAValue; property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; property OldIMPORTE : Currency read GetOldIMPORTEValue; property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; end; { TRecibosProveedor_RefreshBusinessProcessorRules } TRecibosProveedor_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosProveedor_Refresh, IRecibosProveedor_RefreshDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_RECIBO_COMPENSADOValue: Integer; virtual; function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual; procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual; procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual; function GetOldREFERENCIA_PROVEEDORValue: String; virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetSITUACIONValue: String; virtual; function GetOldSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; function GetID_FACTURAValue: Integer; virtual; function GetOldID_FACTURAValue: Integer; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; function GetID_REMESAValue: Integer; virtual; function GetOldID_REMESAValue: Integer; virtual; procedure SetID_REMESAValue(const aValue: Integer); virtual; function GetREFERENCIA_REMESAValue: String; virtual; function GetOldREFERENCIA_REMESAValue: String; virtual; procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual; function GetFECHA_EMISIONValue: DateTime; virtual; function GetOldFECHA_EMISIONValue: DateTime; virtual; procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; function GetFECHA_VENCIMIENTOValue: DateTime; virtual; function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetOBSERVACIONESValue: String; virtual; function GetOldOBSERVACIONESValue: String; virtual; procedure SetOBSERVACIONESValue(const aValue: String); virtual; function GetIMPORTEValue: Currency; virtual; function GetOldIMPORTEValue: Currency; virtual; procedure SetIMPORTEValue(const aValue: Currency); virtual; function GetOTROS_GASTOSValue: Currency; virtual; function GetOldOTROS_GASTOSValue: Currency; virtual; procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual; function GetIMPORTE_TOTALValue: Currency; virtual; function GetOldIMPORTE_TOTALValue: Currency; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetFECHA_FACTURAValue: DateTime; virtual; function GetOldFECHA_FACTURAValue: DateTime; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; function GetREFERENCIA_FACTURA_PROVValue: String; virtual; function GetOldREFERENCIA_FACTURA_PROVValue: String; virtual; procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual; function GetFORMA_PAGO_FACTURAValue: String; virtual; function GetOldFORMA_PAGO_FACTURAValue: String; virtual; procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; function GetIMPORTE_FACTURAValue: Currency; virtual; function GetOldIMPORTE_FACTURAValue: Currency; virtual; procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; function GetNOMBRE_PROVEEDORValue: String; virtual; function GetOldNOMBRE_PROVEEDORValue: String; virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; function GetNIF_CIF_PROVEEDORValue: String; virtual; function GetOldNIF_CIF_PROVEEDORValue: String; virtual; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; function GetENTIDAD_PROVEEDORValue: String; virtual; function GetOldENTIDAD_PROVEEDORValue: String; virtual; procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual; function GetSUCURSAL_PROVEEDORValue: String; virtual; function GetOldSUCURSAL_PROVEEDORValue: String; virtual; procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual; function GetDC_PROVEEDORValue: String; virtual; function GetOldDC_PROVEEDORValue: String; virtual; procedure SetDC_PROVEEDORValue(const aValue: String); virtual; function GetCUENTA_PROVEEDORValue: String; virtual; function GetOldCUENTA_PROVEEDORValue: String; virtual; procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetUSUARIOValue: String; virtual; function GetOldUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue; property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue; property OldID_REMESA : Integer read GetOldID_REMESAValue; property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue; property OldIMPORTE : Currency read GetOldIMPORTEValue; property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property REFERENCIA_FACTURA_PROV : String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IPagosProveedorDelta } IPagosProveedorDelta = interface(IPagosProveedor) ['{773645D4-A67B-4355-BD24-3AF6431F4FD9}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; function GetOldTIPOValue : String; function GetOldFECHA_PAGOValue : DateTime; function GetOldTITULARValue : String; function GetOldENTIDADValue : String; function GetOldSUCURSALValue : String; function GetOldDCValue : String; function GetOldCUENTAValue : String; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_RECIBO : Integer read GetOldID_RECIBOValue; property OldTIPO : String read GetOldTIPOValue; property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue; property OldTITULAR : String read GetOldTITULARValue; property OldENTIDAD : String read GetOldENTIDADValue; property OldSUCURSAL : String read GetOldSUCURSALValue; property OldDC : String read GetOldDCValue; property OldCUENTA : String read GetOldCUENTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; end; { TPagosProveedorBusinessProcessorRules } TPagosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IPagosProveedor, IPagosProveedorDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_RECIBOValue: Integer; virtual; function GetOldID_RECIBOValue: Integer; virtual; procedure SetID_RECIBOValue(const aValue: Integer); virtual; function GetTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetFECHA_PAGOValue: DateTime; virtual; function GetOldFECHA_PAGOValue: DateTime; virtual; procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual; function GetTITULARValue: String; virtual; function GetOldTITULARValue: String; virtual; procedure SetTITULARValue(const aValue: String); virtual; function GetENTIDADValue: String; virtual; function GetOldENTIDADValue: String; virtual; procedure SetENTIDADValue(const aValue: String); virtual; function GetSUCURSALValue: String; virtual; function GetOldSUCURSALValue: String; virtual; procedure SetSUCURSALValue(const aValue: String); virtual; function GetDCValue: String; virtual; function GetOldDCValue: String; virtual; procedure SetDCValue(const aValue: String); virtual; function GetCUENTAValue: String; virtual; function GetOldCUENTAValue: String; virtual; procedure SetCUENTAValue(const aValue: String); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetUSUARIOValue: String; virtual; function GetOldUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; property ID_RECIBO : Integer read GetID_RECIBOValue write SetID_RECIBOValue; property OldID_RECIBO : Integer read GetOldID_RECIBOValue; property TIPO : String read GetTIPOValue write SetTIPOValue; property OldTIPO : String read GetOldTIPOValue; property FECHA_PAGO : DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue; property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue; property TITULAR : String read GetTITULARValue write SetTITULARValue; property OldTITULAR : String read GetOldTITULARValue; property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; property OldENTIDAD : String read GetOldENTIDADValue; property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue; property OldSUCURSAL : String read GetOldSUCURSALValue; property DC : String read GetDCValue write SetDCValue; property OldDC : String read GetOldDCValue; property CUENTA : String read GetCUENTAValue write SetCUENTAValue; property OldCUENTA : String read GetOldCUENTAValue; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers; { 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.GetOldANOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosRecibosANO]; end; procedure TListaAnosRecibosBusinessProcessorRules.SetANOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRecibosANO] := aValue; end; { TRecibosCompensadosProvBusinessProcessorRules } constructor TRecibosCompensadosProvBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TRecibosCompensadosProvBusinessProcessorRules.Destroy; begin inherited; end; function TRecibosCompensadosProvBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSITUACION]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetSITUACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_FACTURA]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_EMISION]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOTROS_GASTOSValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldOTROS_GASTOSValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOTROS_GASTOS]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_TOTALValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_FACTURA]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_FACTURAValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := aValue; end; function TRecibosCompensadosProvBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA]; end; function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_EMPRESA]; end; procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := aValue; end; { TRecibosProveedorBusinessProcessorRules } constructor TRecibosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TRecibosProveedorBusinessProcessorRules.Destroy; begin inherited; end; function TRecibosProveedorBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID]; end; function TRecibosProveedorBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID]; end; procedure TRecibosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO]; end; function TRecibosProveedorBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO]; end; procedure TRecibosProveedorBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO]; end; function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO]; end; procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA]; end; function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA]; end; procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR]; end; function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR]; end; procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION]; end; function TRecibosProveedorBusinessProcessorRules.GetOldSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSITUACION]; end; procedure TRecibosProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA]; end; function TRecibosProveedorBusinessProcessorRules.GetOldID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_FACTURA]; end; procedure TRecibosProveedorBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetID_REMESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA]; end; function TRecibosProveedorBusinessProcessorRules.GetOldID_REMESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_REMESA]; end; procedure TRecibosProveedorBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REMESAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA]; end; function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REMESA]; end; procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION]; end; function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_EMISION]; end; procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO]; end; function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO]; end; procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION]; end; function TRecibosProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDESCRIPCION]; end; procedure TRecibosProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetOBSERVACIONESValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES]; end; function TRecibosProveedorBusinessProcessorRules.GetOldOBSERVACIONESValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOBSERVACIONES]; end; procedure TRecibosProveedorBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetIMPORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE]; end; function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE]; end; procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetOTROS_GASTOSValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS]; end; function TRecibosProveedorBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOTROS_GASTOS]; end; procedure TRecibosProveedorBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL]; end; function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_TOTAL]; end; procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA]; end; function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_FACTURA]; end; procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV]; end; function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV]; end; procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA]; end; function TRecibosProveedorBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA]; end; procedure TRecibosProveedorBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA]; end; function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_FACTURA]; end; procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR]; end; function TRecibosProveedorBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_PROVEEDOR]; end; procedure TRecibosProveedorBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR]; end; function TRecibosProveedorBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR]; end; procedure TRecibosProveedorBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR]; end; function TRecibosProveedorBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR]; end; procedure TRecibosProveedorBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]; end; function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]; end; procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]; end; function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]; end; procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR]; end; function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR]; end; procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]; end; function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]; end; procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA]; end; function TRecibosProveedorBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_EMPRESA]; end; procedure TRecibosProveedorBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA]; end; function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_ALTA]; end; procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION]; end; function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_MODIFICACION]; end; procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION] := aValue; end; function TRecibosProveedorBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO]; end; function TRecibosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorUSUARIO]; end; procedure TRecibosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO] := aValue; end; { TRecibosProveedor_RefreshBusinessProcessorRules } constructor TRecibosProveedor_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TRecibosProveedor_RefreshBusinessProcessorRules.Destroy; begin inherited; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshSITUACION]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshSITUACION]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetSITUACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshSITUACION] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_FACTURA]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_FACTURA]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_FACTURA] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_REMESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_REMESA]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_REMESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_REMESA]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_REMESA] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_REMESAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REMESA]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REMESA]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REMESA] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_EMISION]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFECHA_EMISION]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_EMISION] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_VENCIMIENTO]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFECHA_VENCIMIENTO]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_VENCIMIENTO] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshDESCRIPCION]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshDESCRIPCION]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshDESCRIPCION] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOBSERVACIONESValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshOBSERVACIONES]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldOBSERVACIONESValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshOBSERVACIONES]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshOBSERVACIONES] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetIMPORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldIMPORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshIMPORTE]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOTROS_GASTOSValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshOTROS_GASTOS]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshOTROS_GASTOS]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshOTROS_GASTOS] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE_TOTAL]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshIMPORTE_TOTAL]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE_TOTAL] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_FACTURA]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFECHA_FACTURA]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_FACTURA] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFORMA_PAGO_FACTURA]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFORMA_PAGO_FACTURA]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFORMA_PAGO_FACTURA] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE_FACTURA]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshIMPORTE_FACTURA]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE_FACTURA] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_PROVEEDOR]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_PROVEEDOR]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_PROVEEDOR] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshNOMBRE_PROVEEDOR]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshNOMBRE_PROVEEDOR]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshNOMBRE_PROVEEDOR] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshENTIDAD_PROVEEDOR]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshENTIDAD_PROVEEDOR]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshENTIDAD_PROVEEDOR] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetDC_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshDC_PROVEEDOR]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldDC_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshDC_PROVEEDOR]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshDC_PROVEEDOR] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshCUENTA_PROVEEDOR]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshCUENTA_PROVEEDOR]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshCUENTA_PROVEEDOR] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_EMPRESA]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_EMPRESA]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_EMPRESA] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_ALTA]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFECHA_ALTA]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_ALTA] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_MODIFICACION]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFECHA_MODIFICACION]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_MODIFICACION] := aValue; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshUSUARIO]; end; function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshUSUARIO]; end; procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshUSUARIO] := aValue; end; { TPagosProveedorBusinessProcessorRules } constructor TPagosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TPagosProveedorBusinessProcessorRules.Destroy; begin inherited; end; function TPagosProveedorBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID]; end; function TPagosProveedorBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID]; end; procedure TPagosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetID_RECIBOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO]; end; function TPagosProveedorBusinessProcessorRules.GetOldID_RECIBOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_RECIBO]; end; procedure TPagosProveedorBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO]; end; function TPagosProveedorBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTIPO]; end; procedure TPagosProveedorBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetFECHA_PAGOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO]; end; function TPagosProveedorBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_PAGO]; end; procedure TPagosProveedorBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetTITULARValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR]; end; function TPagosProveedorBusinessProcessorRules.GetOldTITULARValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTITULAR]; end; procedure TPagosProveedorBusinessProcessorRules.SetTITULARValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetENTIDADValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD]; end; function TPagosProveedorBusinessProcessorRules.GetOldENTIDADValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorENTIDAD]; end; procedure TPagosProveedorBusinessProcessorRules.SetENTIDADValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetSUCURSALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL]; end; function TPagosProveedorBusinessProcessorRules.GetOldSUCURSALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorSUCURSAL]; end; procedure TPagosProveedorBusinessProcessorRules.SetSUCURSALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetDCValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC]; end; function TPagosProveedorBusinessProcessorRules.GetOldDCValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorDC]; end; procedure TPagosProveedorBusinessProcessorRules.SetDCValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA]; end; function TPagosProveedorBusinessProcessorRules.GetOldCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorCUENTA]; end; procedure TPagosProveedorBusinessProcessorRules.SetCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA]; end; function TPagosProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_ALTA]; end; procedure TPagosProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION]; end; function TPagosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_MODIFICACION]; end; procedure TPagosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION] := aValue; end; function TPagosProveedorBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO]; end; function TPagosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorUSUARIO]; end; procedure TPagosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO] := aValue; end; initialization RegisterBusinessProcessorRules(RID_ListaAnosRecibosDelta, TListaAnosRecibosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RecibosProveedorDelta, TRecibosProveedorBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RecibosProveedor_RefreshDelta, TRecibosProveedor_RefreshBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PagosProveedorDelta, TPagosProveedorBusinessProcessorRules); end.