This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
LuisLeon_FactuGES/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas

1046 lines
44 KiB
ObjectPascal

unit schRemesasProveedorServer_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schRemesasProveedorClient_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_ListaAnosRemesasDelta = '{332B5E0D-C5DD-41C5-A1FD-CD4D650B98C3}';
RID_darReferenciaDelta = '{13C48250-38D1-4E4D-B718-17A1F1067E24}';
RID_RemesasProveedorDelta = '{04481F3E-D933-4486-A71F-E0CDEADFB4B1}';
RID_RemesasProveedor_RefreshDelta = '{BC664756-CB71-4EE1-8F61-56371F5B8D7F}';
type
{ IListaAnosRemesasDelta }
IListaAnosRemesasDelta = interface(IListaAnosRemesas)
['{332B5E0D-C5DD-41C5-A1FD-CD4D650B98C3}']
{ Property getters and setters }
function GetOldANOValue : String;
{ Properties }
property OldANO : String read GetOldANOValue;
end;
{ TListaAnosRemesasBusinessProcessorRules }
TListaAnosRemesasBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosRemesas, IListaAnosRemesasDelta)
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;
{ IdarReferenciaDelta }
IdarReferenciaDelta = interface(IdarReferencia)
['{13C48250-38D1-4E4D-B718-17A1F1067E24}']
{ Property getters and setters }
function GetOldVALORValue : String;
{ Properties }
property OldVALOR : String read GetOldVALORValue;
end;
{ TdarReferenciaBusinessProcessorRules }
TdarReferenciaBusinessProcessorRules = class(TDABusinessProcessorRules, IdarReferencia, IdarReferenciaDelta)
private
protected
{ Property getters and setters }
function GetVALORValue: String; virtual;
function GetOldVALORValue: String; virtual;
procedure SetVALORValue(const aValue: String); virtual;
{ Properties }
property VALOR : String read GetVALORValue write SetVALORValue;
property OldVALOR : String read GetOldVALORValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IRemesasProveedorDelta }
IRemesasProveedorDelta = interface(IRemesasProveedor)
['{04481F3E-D933-4486-A71F-E0CDEADFB4B1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldTIPOValue : String;
function GetOldFECHA_REMESAValue : DateTime;
function GetOldDESCRIPCIONValue : String;
function GetOldUSUARIOValue : String;
function GetOldID_DATOS_BANCOValue : Integer;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldIMPORTE_TOTALValue : Float;
function GetOldNOMBREValue : String;
function GetOldENTIDADValue : String;
function GetOldSUCURSALValue : String;
function GetOldDCValue : String;
function GetOldCUENTAValue : String;
function GetOldSUFIJO_N19Value : String;
function GetOldNUM_COPIASValue : Integer;
function GetOldSUFIJO_N58Value : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldTIPO : String read GetOldTIPOValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldENTIDAD : String read GetOldENTIDADValue;
property OldSUCURSAL : String read GetOldSUCURSALValue;
property OldDC : String read GetOldDCValue;
property OldCUENTA : String read GetOldCUENTAValue;
property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
end;
{ TRemesasProveedorBusinessProcessorRules }
TRemesasProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IRemesasProveedor, IRemesasProveedorDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual;
function GetOldTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetFECHA_REMESAValue: DateTime; virtual;
function GetOldFECHA_REMESAValue: DateTime; virtual;
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetID_DATOS_BANCOValue: Integer; virtual;
function GetOldID_DATOS_BANCOValue: Integer; virtual;
procedure SetID_DATOS_BANCOValue(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 GetIMPORTE_TOTALValue: Float; virtual;
function GetOldIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetNOMBREValue: String; virtual;
function GetOldNOMBREValue: String; virtual;
procedure SetNOMBREValue(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 GetSUFIJO_N19Value: String; virtual;
function GetOldSUFIJO_N19Value: String; virtual;
procedure SetSUFIJO_N19Value(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetSUFIJO_N58Value: String; virtual;
function GetOldSUFIJO_N58Value: String; virtual;
procedure SetSUFIJO_N58Value(const aValue: String); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property TIPO : String read GetTIPOValue write SetTIPOValue;
property OldTIPO : String read GetOldTIPOValue;
property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property ID_DATOS_BANCO : Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
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 IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property OldNOMBRE : String read GetOldNOMBREValue;
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 SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IRemesasProveedor_RefreshDelta }
IRemesasProveedor_RefreshDelta = interface(IRemesasProveedor_Refresh)
['{BC664756-CB71-4EE1-8F61-56371F5B8D7F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldTIPOValue : String;
function GetOldFECHA_REMESAValue : DateTime;
function GetOldDESCRIPCIONValue : String;
function GetOldUSUARIOValue : String;
function GetOldID_DATOS_BANCOValue : Integer;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldIMPORTE_TOTALValue : Float;
function GetOldNOMBREValue : String;
function GetOldENTIDADValue : String;
function GetOldSUCURSALValue : String;
function GetOldDCValue : String;
function GetOldCUENTAValue : String;
function GetOldSUFIJO_N19Value : String;
function GetOldNUM_COPIASValue : Integer;
function GetOldSUFIJO_N58Value : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldTIPO : String read GetOldTIPOValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldENTIDAD : String read GetOldENTIDADValue;
property OldSUCURSAL : String read GetOldSUCURSALValue;
property OldDC : String read GetOldDCValue;
property OldCUENTA : String read GetOldCUENTAValue;
property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
end;
{ TRemesasProveedor_RefreshBusinessProcessorRules }
TRemesasProveedor_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IRemesasProveedor_Refresh, IRemesasProveedor_RefreshDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual;
function GetOldTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetFECHA_REMESAValue: DateTime; virtual;
function GetOldFECHA_REMESAValue: DateTime; virtual;
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetID_DATOS_BANCOValue: Integer; virtual;
function GetOldID_DATOS_BANCOValue: Integer; virtual;
procedure SetID_DATOS_BANCOValue(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 GetIMPORTE_TOTALValue: Float; virtual;
function GetOldIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetNOMBREValue: String; virtual;
function GetOldNOMBREValue: String; virtual;
procedure SetNOMBREValue(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 GetSUFIJO_N19Value: String; virtual;
function GetOldSUFIJO_N19Value: String; virtual;
procedure SetSUFIJO_N19Value(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetSUFIJO_N58Value: String; virtual;
function GetOldSUFIJO_N58Value: String; virtual;
procedure SetSUFIJO_N58Value(const aValue: String); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property TIPO : String read GetTIPOValue write SetTIPOValue;
property OldTIPO : String read GetOldTIPOValue;
property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property ID_DATOS_BANCO : Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
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 IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property OldNOMBRE : String read GetOldNOMBREValue;
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 SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation
uses
Variants, uROBinaryHelpers;
{ TListaAnosRemesasBusinessProcessorRules }
constructor TListaAnosRemesasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TListaAnosRemesasBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TListaAnosRemesasBusinessProcessorRules.GetANOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRemesasANO];
end;
function TListaAnosRemesasBusinessProcessorRules.GetOldANOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosRemesasANO];
end;
procedure TListaAnosRemesasBusinessProcessorRules.SetANOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosRemesasANO] := aValue;
end;
{ TdarReferenciaBusinessProcessorRules }
constructor TdarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TdarReferenciaBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TdarReferenciaBusinessProcessorRules.GetVALORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR];
end;
function TdarReferenciaBusinessProcessorRules.GetOldVALORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_darReferenciaVALOR];
end;
procedure TdarReferenciaBusinessProcessorRules.SetVALORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR] := aValue;
end;
{ TRemesasProveedorBusinessProcessorRules }
constructor TRemesasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TRemesasProveedorBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TRemesasProveedorBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_EMPRESA];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID_EMPRESA];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_EMPRESA] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorREFERENCIA];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorTIPO];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorTIPO];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorTIPO] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_REMESAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_REMESA];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_REMESAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDESCRIPCION];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorDESCRIPCION];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDESCRIPCION] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorUSUARIO];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorUSUARIO];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorUSUARIO] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetID_DATOS_BANCOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_DATOS_BANCO];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldID_DATOS_BANCOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID_DATOS_BANCO];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetID_DATOS_BANCOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_DATOS_BANCO] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_ALTA];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_ALTA];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_ALTA] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_MODIFICACION];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_MODIFICACION];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_MODIFICACION] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorIMPORTE_TOTAL];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorIMPORTE_TOTAL];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorIMPORTE_TOTAL] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNOMBRE];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorNOMBRE];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNOMBRE] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetENTIDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorENTIDAD];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldENTIDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorENTIDAD];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetENTIDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorENTIDAD] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetSUCURSALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUCURSAL];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldSUCURSALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUCURSAL];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUCURSAL] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetDCValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDC];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldDCValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorDC];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetDCValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDC] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorCUENTA];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorCUENTA];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorCUENTA] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetSUFIJO_N19Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N19];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldSUFIJO_N19Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUFIJO_N19];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N19] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNUM_COPIAS];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorNUM_COPIAS];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNUM_COPIAS] := aValue;
end;
function TRemesasProveedorBusinessProcessorRules.GetSUFIJO_N58Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N58];
end;
function TRemesasProveedorBusinessProcessorRules.GetOldSUFIJO_N58Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUFIJO_N58];
end;
procedure TRemesasProveedorBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N58] := aValue;
end;
{ TRemesasProveedor_RefreshBusinessProcessorRules }
constructor TRemesasProveedor_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TRemesasProveedor_RefreshBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshID];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_EMPRESA];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshID_EMPRESA];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_EMPRESA] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshREFERENCIA];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshREFERENCIA];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshREFERENCIA] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshTIPO];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshTIPO];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshTIPO] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldFECHA_REMESAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetFECHA_REMESAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDESCRIPCION];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshDESCRIPCION];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDESCRIPCION] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshUSUARIO];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshUSUARIO];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshUSUARIO] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetID_DATOS_BANCOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_DATOS_BANCO];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldID_DATOS_BANCOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshID_DATOS_BANCO];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetID_DATOS_BANCOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_DATOS_BANCO] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_ALTA];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshFECHA_ALTA];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_ALTA] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_MODIFICACION];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshFECHA_MODIFICACION];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_MODIFICACION] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshIMPORTE_TOTAL];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshIMPORTE_TOTAL];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshIMPORTE_TOTAL] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshNOMBRE];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshNOMBRE];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshNOMBRE] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetENTIDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshENTIDAD];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldENTIDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshENTIDAD];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetENTIDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshENTIDAD] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetSUCURSALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUCURSAL];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldSUCURSALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshSUCURSAL];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUCURSAL] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetDCValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDC];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldDCValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshDC];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetDCValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDC] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshCUENTA];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshCUENTA];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshCUENTA] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetSUFIJO_N19Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N19];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldSUFIJO_N19Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshSUFIJO_N19];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N19] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshNUM_COPIAS];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshNUM_COPIAS];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshNUM_COPIAS] := aValue;
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetSUFIJO_N58Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N58];
end;
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldSUFIJO_N58Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshSUFIJO_N58];
end;
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N58] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosRemesasDelta, TListaAnosRemesasBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_darReferenciaDelta, TdarReferenciaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_RemesasProveedorDelta, TRemesasProveedorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_RemesasProveedor_RefreshDelta, TRemesasProveedor_RefreshBusinessProcessorRules);
end.