david
acd17b74cc
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@2 c93665c3-c93d-084d-9b98-7d5f4a9c3376
1538 lines
70 KiB
ObjectPascal
1538 lines
70 KiB
ObjectPascal
unit schRecibosProveedorServer_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schRecibosProveedorClient_Intf;
|
|
|
|
const
|
|
{ Delta rules ids
|
|
Feel free to change them to something more human readable
|
|
but make sure they are unique in the context of your application }
|
|
RID_RecibosProveedorDelta = '{BCC0F8EA-2780-4D83-973A-E894BB0EF2AF}';
|
|
RID_RecibosProveedor_RefreshDelta = '{19184AE3-ED2E-48EF-8CA9-422567CE161B}';
|
|
RID_PagosProveedorDelta = '{7D84B7A6-CE5E-427D-BF11-E7A74B003876}';
|
|
|
|
type
|
|
{ IRecibosProveedorDelta }
|
|
IRecibosProveedorDelta = interface(IRecibosProveedor)
|
|
['{BCC0F8EA-2780-4D83-973A-E894BB0EF2AF}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldREFERENCIA_PROVEEDORValue : String;
|
|
function GetOldSITUACIONValue : String;
|
|
function GetOldID_FACTURAValue : Integer;
|
|
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_PROVEEDORValue : Integer;
|
|
function GetOldNOMBRE_PROVEEDORValue : String;
|
|
function GetOldNIF_CIF_PROVEEDORValue : String;
|
|
function GetOldENTIDAD_PROVEEDORValue : String;
|
|
function GetOldSUCURSAL_PROVEEDORValue : String;
|
|
function GetOldDC_PROVEEDORValue : String;
|
|
function GetOldCUENTA_PROVEEDORValue : String;
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldUSUARIOValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
|
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 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_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
|
|
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
|
|
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
|
|
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
|
|
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
end;
|
|
|
|
{ TRecibosProveedorBusinessProcessorRules }
|
|
TRecibosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosProveedor, IRecibosProveedorDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
function GetOldIDValue: Integer; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_PROVEEDORValue: String; virtual;
|
|
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
|
|
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetSITUACIONValue: String; virtual;
|
|
function GetOldSITUACIONValue: String; virtual;
|
|
procedure SetSITUACIONValue(const aValue: String); virtual;
|
|
function GetID_FACTURAValue: Integer; virtual;
|
|
function GetOldID_FACTURAValue: Integer; virtual;
|
|
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
|
|
function 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_PROVEEDORValue: Integer; virtual;
|
|
function GetOldID_PROVEEDORValue: Integer; virtual;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
|
function GetNOMBRE_PROVEEDORValue: String; virtual;
|
|
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_PROVEEDORValue: String; virtual;
|
|
function GetOldNIF_CIF_PROVEEDORValue: String; virtual;
|
|
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetENTIDAD_PROVEEDORValue: String; virtual;
|
|
function GetOldENTIDAD_PROVEEDORValue: String; virtual;
|
|
procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetSUCURSAL_PROVEEDORValue: String; virtual;
|
|
function GetOldSUCURSAL_PROVEEDORValue: String; virtual;
|
|
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetDC_PROVEEDORValue: String; virtual;
|
|
function GetOldDC_PROVEEDORValue: String; virtual;
|
|
procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetCUENTA_PROVEEDORValue: String; virtual;
|
|
function GetOldCUENTA_PROVEEDORValue: String; virtual;
|
|
procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
function GetOldFECHA_ALTAValue: DateTime; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
function GetOldUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
|
|
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
|
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
|
property OldSITUACION : String read GetOldSITUACIONValue;
|
|
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
property 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_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
|
|
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
|
|
property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
|
|
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
|
|
property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
|
|
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
|
|
property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
|
|
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
|
|
property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
|
|
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
|
|
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRecibosProveedor_RefreshDelta }
|
|
IRecibosProveedor_RefreshDelta = interface(IRecibosProveedor_Refresh)
|
|
['{19184AE3-ED2E-48EF-8CA9-422567CE161B}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldREFERENCIA_PROVEEDORValue : String;
|
|
function GetOldSITUACIONValue : String;
|
|
function GetOldID_FACTURAValue : Integer;
|
|
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_PROVEEDORValue : Integer;
|
|
function GetOldNOMBRE_PROVEEDORValue : String;
|
|
function GetOldNIF_CIF_PROVEEDORValue : String;
|
|
function GetOldENTIDAD_PROVEEDORValue : String;
|
|
function GetOldSUCURSAL_PROVEEDORValue : String;
|
|
function GetOldDC_PROVEEDORValue : String;
|
|
function GetOldCUENTA_PROVEEDORValue : String;
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldUSUARIOValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
|
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 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_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
|
|
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
|
|
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
|
|
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
|
|
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
end;
|
|
|
|
{ TRecibosProveedor_RefreshBusinessProcessorRules }
|
|
TRecibosProveedor_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosProveedor_Refresh, IRecibosProveedor_RefreshDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
function GetOldIDValue: Integer; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_PROVEEDORValue: String; virtual;
|
|
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
|
|
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetSITUACIONValue: String; virtual;
|
|
function GetOldSITUACIONValue: String; virtual;
|
|
procedure SetSITUACIONValue(const aValue: String); virtual;
|
|
function GetID_FACTURAValue: Integer; virtual;
|
|
function GetOldID_FACTURAValue: Integer; virtual;
|
|
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
|
|
function 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_PROVEEDORValue: Integer; virtual;
|
|
function GetOldID_PROVEEDORValue: Integer; virtual;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
|
function GetNOMBRE_PROVEEDORValue: String; virtual;
|
|
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_PROVEEDORValue: String; virtual;
|
|
function GetOldNIF_CIF_PROVEEDORValue: String; virtual;
|
|
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetENTIDAD_PROVEEDORValue: String; virtual;
|
|
function GetOldENTIDAD_PROVEEDORValue: String; virtual;
|
|
procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetSUCURSAL_PROVEEDORValue: String; virtual;
|
|
function GetOldSUCURSAL_PROVEEDORValue: String; virtual;
|
|
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetDC_PROVEEDORValue: String; virtual;
|
|
function GetOldDC_PROVEEDORValue: String; virtual;
|
|
procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetCUENTA_PROVEEDORValue: String; virtual;
|
|
function GetOldCUENTA_PROVEEDORValue: String; virtual;
|
|
procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
function GetOldFECHA_ALTAValue: DateTime; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
function GetOldUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
|
|
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
|
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
|
property OldSITUACION : String read GetOldSITUACIONValue;
|
|
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
property 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_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
|
|
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
|
|
property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
|
|
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
|
|
property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
|
|
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
|
|
property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
|
|
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
|
|
property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
|
|
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
|
|
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IPagosProveedorDelta }
|
|
IPagosProveedorDelta = interface(IPagosProveedor)
|
|
['{7D84B7A6-CE5E-427D-BF11-E7A74B003876}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_RECIBOValue : Integer;
|
|
function GetOldTIPOValue : String;
|
|
function GetOldFECHA_PAGOValue : DateTime;
|
|
function GetOldTITULARValue : String;
|
|
function GetOldENTIDADValue : String;
|
|
function GetOldSUCURSALValue : String;
|
|
function GetOldDCValue : String;
|
|
function GetOldCUENTAValue : String;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldUSUARIOValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_RECIBO : Integer read GetOldID_RECIBOValue;
|
|
property OldTIPO : String read GetOldTIPOValue;
|
|
property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
|
|
property OldTITULAR : String read GetOldTITULARValue;
|
|
property OldENTIDAD : String read GetOldENTIDADValue;
|
|
property OldSUCURSAL : String read GetOldSUCURSALValue;
|
|
property OldDC : String read GetOldDCValue;
|
|
property OldCUENTA : String read GetOldCUENTAValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
end;
|
|
|
|
{ TPagosProveedorBusinessProcessorRules }
|
|
TPagosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IPagosProveedor, IPagosProveedorDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
function GetOldIDValue: Integer; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
function GetID_RECIBOValue: Integer; virtual;
|
|
function GetOldID_RECIBOValue: Integer; virtual;
|
|
procedure SetID_RECIBOValue(const aValue: Integer); virtual;
|
|
function GetTIPOValue: String; virtual;
|
|
function GetOldTIPOValue: String; virtual;
|
|
procedure SetTIPOValue(const aValue: String); virtual;
|
|
function GetFECHA_PAGOValue: DateTime; virtual;
|
|
function GetOldFECHA_PAGOValue: DateTime; virtual;
|
|
procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual;
|
|
function GetTITULARValue: String; virtual;
|
|
function GetOldTITULARValue: String; virtual;
|
|
procedure SetTITULARValue(const aValue: String); virtual;
|
|
function GetENTIDADValue: String; virtual;
|
|
function GetOldENTIDADValue: String; virtual;
|
|
procedure SetENTIDADValue(const aValue: String); virtual;
|
|
function GetSUCURSALValue: String; virtual;
|
|
function GetOldSUCURSALValue: String; virtual;
|
|
procedure SetSUCURSALValue(const aValue: String); virtual;
|
|
function GetDCValue: String; virtual;
|
|
function GetOldDCValue: String; virtual;
|
|
procedure SetDCValue(const aValue: String); virtual;
|
|
function GetCUENTAValue: String; virtual;
|
|
function GetOldCUENTAValue: String; virtual;
|
|
procedure SetCUENTAValue(const aValue: String); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
function GetOldFECHA_ALTAValue: DateTime; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
function GetOldUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property ID_RECIBO : Integer read GetID_RECIBOValue write SetID_RECIBOValue;
|
|
property OldID_RECIBO : Integer read GetOldID_RECIBOValue;
|
|
property TIPO : String read GetTIPOValue write SetTIPOValue;
|
|
property OldTIPO : String read GetOldTIPOValue;
|
|
property FECHA_PAGO : DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
|
|
property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
|
|
property TITULAR : String read GetTITULARValue write SetTITULARValue;
|
|
property OldTITULAR : String read GetOldTITULARValue;
|
|
property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
|
|
property OldENTIDAD : String read GetOldENTIDADValue;
|
|
property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
|
|
property OldSUCURSAL : String read GetOldSUCURSALValue;
|
|
property DC : String read GetDCValue write SetDCValue;
|
|
property OldDC : String read GetOldDCValue;
|
|
property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
|
|
property OldCUENTA : String read GetOldCUENTAValue;
|
|
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uROBinaryHelpers;
|
|
|
|
{ TRecibosProveedorBusinessProcessorRules }
|
|
constructor TRecibosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRecibosProveedorBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSITUACION];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_EMISION];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDESCRIPCION];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOBSERVACIONES];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOTROS_GASTOS];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_TOTAL];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_EMPRESA];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_ALTA];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_MODIFICACION];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO];
|
|
end;
|
|
|
|
function TRecibosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorUSUARIO];
|
|
end;
|
|
|
|
procedure TRecibosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO] := aValue;
|
|
end;
|
|
|
|
|
|
{ TRecibosProveedor_RefreshBusinessProcessorRules }
|
|
constructor TRecibosProveedor_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRecibosProveedor_RefreshBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshSITUACION];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldSITUACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshSITUACION];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshSITUACION] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_EMISION];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFECHA_EMISION];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_EMISION] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFECHA_VENCIMIENTO];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_VENCIMIENTO] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshDESCRIPCION];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshDESCRIPCION];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshOBSERVACIONES];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshOBSERVACIONES];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshOBSERVACIONES] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldIMPORTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshIMPORTE];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshOTROS_GASTOS];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshOTROS_GASTOS];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshOTROS_GASTOS] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE_TOTAL];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshIMPORTE_TOTAL];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFECHA_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFORMA_PAGO_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFORMA_PAGO_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE_FACTURA];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshIMPORTE_FACTURA];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshIMPORTE_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshNOMBRE_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshNOMBRE_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshNOMBRE_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshENTIDAD_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshENTIDAD_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshENTIDAD_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetDC_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshDC_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldDC_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshDC_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshDC_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshCUENTA_PROVEEDOR];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshCUENTA_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshCUENTA_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_EMPRESA];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_EMPRESA];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_ALTA];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFECHA_ALTA];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshFECHA_MODIFICACION];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshUSUARIO];
|
|
end;
|
|
|
|
function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshUSUARIO];
|
|
end;
|
|
|
|
procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshUSUARIO] := aValue;
|
|
end;
|
|
|
|
|
|
{ TPagosProveedorBusinessProcessorRules }
|
|
constructor TPagosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TPagosProveedorBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetID_RECIBOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldID_RECIBOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_RECIBO];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetTIPOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldTIPOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTIPO];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetTIPOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetFECHA_PAGOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_PAGO];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetTITULARValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldTITULARValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTITULAR];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetTITULARValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetENTIDADValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldENTIDADValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorENTIDAD];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetENTIDADValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetSUCURSALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldSUCURSALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorSUCURSAL];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetDCValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldDCValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorDC];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetDCValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorCUENTA];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetCUENTAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_ALTA];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_MODIFICACION];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO];
|
|
end;
|
|
|
|
function TPagosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorUSUARIO];
|
|
end;
|
|
|
|
procedure TPagosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO] := aValue;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_RecibosProveedorDelta, TRecibosProveedorBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_RecibosProveedor_RefreshDelta, TRecibosProveedor_RefreshBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_PagosProveedorDelta, TPagosProveedorBusinessProcessorRules);
|
|
|
|
end.
|