roberto
c83756255b
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@309 c93665c3-c93d-084d-9b98-7d5f4a9c3376
2204 lines
99 KiB
ObjectPascal
2204 lines
99 KiB
ObjectPascal
unit schRecibosClienteServer_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schRecibosClienteClient_Intf;
|
|
|
|
const
|
|
{ Delta rules ids
|
|
Feel free to change them to something more human readable
|
|
but make sure they are unique in the context of your application }
|
|
RID_ListaAnosRecibosDelta = '{AFB3F9CF-8D5C-40FD-AC65-7B9BBD04E7D8}';
|
|
RID_RecibosClienteDelta = '{9E317E04-A207-4CD5-87CB-323881FF3991}';
|
|
RID_RecibosCliente_RefreshDelta = '{07DDE83E-B15B-4B40-86AE-40A0E920D8D6}';
|
|
RID_PagosClienteDelta = '{1DDDA700-4544-40C4-9763-D46B3F058E28}';
|
|
RID_RecibosCompensadosCliDelta = '{692B5FAD-7002-4B0C-A0C5-5FC22CC3A75C}';
|
|
|
|
type
|
|
{ IListaAnosRecibosDelta }
|
|
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
|
|
['{AFB3F9CF-8D5C-40FD-AC65-7B9BBD04E7D8}']
|
|
{ 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;
|
|
|
|
{ IRecibosClienteDelta }
|
|
IRecibosClienteDelta = interface(IRecibosCliente)
|
|
['{9E317E04-A207-4CD5-87CB-323881FF3991}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
|
function GetOldREFERENCIA_REC_COMPENSADOValue : String;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldSITUACIONValue : String;
|
|
function GetOldID_FACTURAValue : Integer;
|
|
function 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 GetOldFORMA_PAGO_FACTURAValue : String;
|
|
function GetOldIMPORTE_FACTURAValue : Currency;
|
|
function GetOldID_CLIENTEValue : Integer;
|
|
function GetOldNOMBRE_CLIENTEValue : String;
|
|
function GetOldNIF_CIF_CLIENTEValue : String;
|
|
function GetOldENTIDAD_CLIENTEValue : String;
|
|
function GetOldSUCURSAL_CLIENTEValue : String;
|
|
function GetOldDC_CLIENTEValue : String;
|
|
function GetOldCUENTA_CLIENTEValue : String;
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldUSUARIOValue : String;
|
|
function GetOldNUM_COPIASValue : Integer;
|
|
function GetOldNUM_CORREOSValue : Integer;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
|
|
property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldSITUACION : String read GetOldSITUACIONValue;
|
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
property 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 OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
|
|
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
|
|
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
|
|
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
|
|
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
|
|
property 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;
|
|
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
|
|
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
|
|
end;
|
|
|
|
{ TRecibosClienteBusinessProcessorRules }
|
|
TRecibosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCliente, IRecibosClienteDelta)
|
|
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 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 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_CLIENTEValue: Integer; virtual;
|
|
function GetOldID_CLIENTEValue: Integer; virtual;
|
|
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
|
function GetNOMBRE_CLIENTEValue: String; virtual;
|
|
function GetOldNOMBRE_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_CLIENTEValue: String; virtual;
|
|
function GetOldNIF_CIF_CLIENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
|
|
function GetENTIDAD_CLIENTEValue: String; virtual;
|
|
function GetOldENTIDAD_CLIENTEValue: String; virtual;
|
|
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
|
|
function GetSUCURSAL_CLIENTEValue: String; virtual;
|
|
function GetOldSUCURSAL_CLIENTEValue: String; virtual;
|
|
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
|
|
function GetDC_CLIENTEValue: String; virtual;
|
|
function GetOldDC_CLIENTEValue: String; virtual;
|
|
procedure SetDC_CLIENTEValue(const aValue: String); virtual;
|
|
function GetCUENTA_CLIENTEValue: String; virtual;
|
|
function GetOldCUENTA_CLIENTEValue: String; virtual;
|
|
procedure SetCUENTA_CLIENTEValue(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;
|
|
function GetNUM_COPIASValue: Integer; virtual;
|
|
function GetOldNUM_COPIASValue: Integer; virtual;
|
|
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
|
|
function GetNUM_CORREOSValue: Integer; virtual;
|
|
function GetOldNUM_CORREOSValue: Integer; virtual;
|
|
procedure SetNUM_CORREOSValue(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_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 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 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_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
|
|
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
|
|
property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
|
|
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
|
|
property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
|
|
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
|
|
property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
|
|
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
|
|
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;
|
|
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
|
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
|
|
property NUM_CORREOS : Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
|
|
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRecibosCliente_RefreshDelta }
|
|
IRecibosCliente_RefreshDelta = interface(IRecibosCliente_Refresh)
|
|
['{07DDE83E-B15B-4B40-86AE-40A0E920D8D6}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
|
function GetOldREFERENCIA_REC_COMPENSADOValue : String;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldSITUACIONValue : String;
|
|
function GetOldID_FACTURAValue : Integer;
|
|
function 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 GetOldFORMA_PAGO_FACTURAValue : String;
|
|
function GetOldIMPORTE_FACTURAValue : Currency;
|
|
function GetOldID_CLIENTEValue : Integer;
|
|
function GetOldNOMBRE_CLIENTEValue : String;
|
|
function GetOldNIF_CIF_CLIENTEValue : String;
|
|
function GetOldENTIDAD_CLIENTEValue : String;
|
|
function GetOldSUCURSAL_CLIENTEValue : String;
|
|
function GetOldDC_CLIENTEValue : String;
|
|
function GetOldCUENTA_CLIENTEValue : String;
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldUSUARIOValue : String;
|
|
function GetOldNUM_COPIASValue : Integer;
|
|
function GetOldNUM_CORREOSValue : Integer;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
|
|
property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldSITUACION : String read GetOldSITUACIONValue;
|
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
property 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 OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
|
|
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
|
|
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
|
|
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
|
|
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
|
|
property 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;
|
|
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
|
|
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
|
|
end;
|
|
|
|
{ TRecibosCliente_RefreshBusinessProcessorRules }
|
|
TRecibosCliente_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCliente_Refresh, IRecibosCliente_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 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 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_CLIENTEValue: Integer; virtual;
|
|
function GetOldID_CLIENTEValue: Integer; virtual;
|
|
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
|
function GetNOMBRE_CLIENTEValue: String; virtual;
|
|
function GetOldNOMBRE_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_CLIENTEValue: String; virtual;
|
|
function GetOldNIF_CIF_CLIENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
|
|
function GetENTIDAD_CLIENTEValue: String; virtual;
|
|
function GetOldENTIDAD_CLIENTEValue: String; virtual;
|
|
procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
|
|
function GetSUCURSAL_CLIENTEValue: String; virtual;
|
|
function GetOldSUCURSAL_CLIENTEValue: String; virtual;
|
|
procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
|
|
function GetDC_CLIENTEValue: String; virtual;
|
|
function GetOldDC_CLIENTEValue: String; virtual;
|
|
procedure SetDC_CLIENTEValue(const aValue: String); virtual;
|
|
function GetCUENTA_CLIENTEValue: String; virtual;
|
|
function GetOldCUENTA_CLIENTEValue: String; virtual;
|
|
procedure SetCUENTA_CLIENTEValue(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;
|
|
function GetNUM_COPIASValue: Integer; virtual;
|
|
function GetOldNUM_COPIASValue: Integer; virtual;
|
|
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
|
|
function GetNUM_CORREOSValue: Integer; virtual;
|
|
function GetOldNUM_CORREOSValue: Integer; virtual;
|
|
procedure SetNUM_CORREOSValue(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_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 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 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_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
|
|
property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
|
|
property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
|
|
property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
|
|
property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
|
|
property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
|
|
property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
|
|
property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
|
|
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;
|
|
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
|
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
|
|
property NUM_CORREOS : Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
|
|
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IPagosClienteDelta }
|
|
IPagosClienteDelta = interface(IPagosCliente)
|
|
['{1DDDA700-4544-40C4-9763-D46B3F058E28}']
|
|
{ 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;
|
|
|
|
{ TPagosClienteBusinessProcessorRules }
|
|
TPagosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPagosCliente, IPagosClienteDelta)
|
|
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;
|
|
|
|
{ IRecibosCompensadosCliDelta }
|
|
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
|
|
['{692B5FAD-7002-4B0C-A0C5-5FC22CC3A75C}']
|
|
{ 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 : Currency;
|
|
function GetOldOTROS_GASTOSValue : Currency;
|
|
function GetOldIMPORTE_TOTALValue : Currency;
|
|
function GetOldFECHA_FACTURAValue : DateTime;
|
|
function GetOldIMPORTE_FACTURAValue : Currency;
|
|
function GetOldID_CLIENTEValue : Integer;
|
|
function GetOldNOMBRE_CLIENTEValue : String;
|
|
function GetOldNIF_CIF_CLIENTEValue : 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 : 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 OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
end;
|
|
|
|
{ TRecibosCompensadosCliBusinessProcessorRules }
|
|
TRecibosCompensadosCliBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensadosCli, IRecibosCompensadosCliDelta)
|
|
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: 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 GetIMPORTE_FACTURAValue: Currency; virtual;
|
|
function GetOldIMPORTE_FACTURAValue: Currency; virtual;
|
|
procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
|
|
function GetID_CLIENTEValue: Integer; virtual;
|
|
function GetOldID_CLIENTEValue: Integer; virtual;
|
|
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
|
function GetNOMBRE_CLIENTEValue: String; virtual;
|
|
function GetOldNOMBRE_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_CLIENTEValue: String; virtual;
|
|
function GetOldNIF_CIF_CLIENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_CLIENTEValue(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 : 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 IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
|
|
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
|
|
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
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;
|
|
|
|
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;
|
|
|
|
|
|
{ TRecibosClienteBusinessProcessorRules }
|
|
constructor TRecibosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRecibosClienteBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSITUACION];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSITUACION] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetID_REMESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldID_REMESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_REMESA];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_REMESA] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REMESA];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REMESA] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_EMISION];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_EMISION] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_VENCIMIENTO] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDESCRIPCION];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOBSERVACIONES];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOBSERVACIONES] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteOTROS_GASTOS];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteOTROS_GASTOS] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_TOTAL];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFORMA_PAGO_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNIF_CIF_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteENTIDAD_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteENTIDAD_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUCURSAL_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUCURSAL_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetDC_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldDC_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteDC_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteDC_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetCUENTA_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_EMPRESA];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_ALTA];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_MODIFICACION];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteUSUARIO];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNUM_COPIAS];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNUM_COPIAS];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNUM_COPIAS] := aValue;
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetNUM_CORREOSValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNUM_CORREOS];
|
|
end;
|
|
|
|
function TRecibosClienteBusinessProcessorRules.GetOldNUM_CORREOSValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNUM_CORREOS];
|
|
end;
|
|
|
|
procedure TRecibosClienteBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNUM_CORREOS] := aValue;
|
|
end;
|
|
|
|
|
|
{ TRecibosCliente_RefreshBusinessProcessorRules }
|
|
constructor TRecibosCliente_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRecibosCliente_RefreshBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSITUACION];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshSITUACION];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSITUACION] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetID_REMESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_REMESA];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_REMESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_REMESA];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_REMESA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REMESA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_EMISION];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_EMISION];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_EMISION] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_VENCIMIENTO] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDESCRIPCION];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshDESCRIPCION];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOBSERVACIONES];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshOBSERVACIONES];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOBSERVACIONES] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshOTROS_GASTOS] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFORMA_PAGO_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshIMPORTE_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNOMBRE_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNIF_CIF_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshENTIDAD_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshSUCURSAL_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetDC_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDC_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldDC_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshDC_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshDC_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetCUENTA_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshCUENTA_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_EMPRESA];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_EMPRESA];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_ALTA];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_ALTA];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshUSUARIO];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNUM_COPIAS];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNUM_COPIAS];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNUM_COPIAS] := aValue;
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetNUM_CORREOSValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNUM_CORREOS];
|
|
end;
|
|
|
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNUM_CORREOSValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNUM_CORREOS];
|
|
end;
|
|
|
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNUM_CORREOS] := aValue;
|
|
end;
|
|
|
|
|
|
{ TPagosClienteBusinessProcessorRules }
|
|
constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TPagosClienteBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetID_RECIBOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldID_RECIBOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteID_RECIBO];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteID_RECIBO] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetTIPOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldTIPOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTIPO];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetTIPOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTIPO] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetFECHA_PAGOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_PAGO];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_PAGO] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetTITULARValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldTITULARValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteTITULAR];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetTITULARValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteTITULAR] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetENTIDADValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldENTIDADValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteENTIDAD];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetENTIDADValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteENTIDAD] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetSUCURSALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldSUCURSALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteSUCURSAL];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteSUCURSAL] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetDCValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldDCValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteDC];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetDCValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteDC] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteCUENTA];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetCUENTAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteCUENTA] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_ALTA];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteFECHA_MODIFICACION];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO];
|
|
end;
|
|
|
|
function TPagosClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosClienteUSUARIO];
|
|
end;
|
|
|
|
procedure TPagosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosClienteUSUARIO] := aValue;
|
|
end;
|
|
|
|
|
|
{ TRecibosCompensadosCliBusinessProcessorRules }
|
|
constructor TRecibosCompensadosCliBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRecibosCompensadosCliBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSITUACION];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_EMISION];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOTROS_GASTOS];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA];
|
|
end;
|
|
|
|
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA];
|
|
end;
|
|
|
|
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_ListaAnosRecibosDelta, TListaAnosRecibosBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_RecibosCliente_RefreshDelta, TRecibosCliente_RefreshBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_PagosClienteDelta, TPagosClienteBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_RecibosCompensadosCliDelta, TRecibosCompensadosCliBusinessProcessorRules);
|
|
|
|
end.
|