roberto
c83756255b
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@309 c93665c3-c93d-084d-9b98-7d5f4a9c3376
2204 lines
102 KiB
ObjectPascal
2204 lines
102 KiB
ObjectPascal
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.
|