AlonsoYSal_FactuGES/Modulos/Facturas de proveedor/Reglas/schFacturasProveedorServer_Intf.pas

unit schFacturasProveedorServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schFacturasProveedorClient_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_ListaAnosFacturasDelta = '{8208DBF7-1A9B-4F24-B4E8-18CF5DC51A1E}';
  RID_FacturasProveedorDelta = '{48F74298-152B-4B34-88EB-AF07A72D390A}';

type
  { IListaAnosFacturasDelta }
  IListaAnosFacturasDelta = interface(IListaAnosFacturas)
  ['{8208DBF7-1A9B-4F24-B4E8-18CF5DC51A1E}']
    { Property getters and setters }
    function GetOldANOValue : String;

    { Properties }
    property OldANO : String read GetOldANOValue;
  end;

  { TListaAnosFacturasBusinessProcessorRules }
  TListaAnosFacturasBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosFacturas, IListaAnosFacturasDelta)
  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;

  { IFacturasProveedorDelta }
  IFacturasProveedorDelta = interface(IFacturasProveedor)
  ['{48F74298-152B-4B34-88EB-AF07A72D390A}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldFECHAFACTURAValue : DateTime;
    function GetOldREFERENCIAValue : String;
    function GetOldVENCIMIENTOValue : DateTime;
    function GetOldCONCEPTOValue : IROStrings;
    function GetOldBASEIMPONIBLEValue : Currency;
    function GetOldDESCUENTOValue : Float;
    function GetOldIMPORTEDESCUENTOValue : Currency;
    function GetOldIVAValue : Float;
    function GetOldIMPORTEIVAValue : Currency;
    function GetOldIMPORTETOTALValue : Currency;
    function GetOldFORMAPAGOValue : IROStrings;
    function GetOldCODIGOPROVEEDORValue : Integer;
    function GetOldNIFCIFValue : String;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldCODIGOPOSTALValue : String;
    function GetOldPOBLACIONValue : String;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldFECHAFACTURA : DateTime read GetOldFECHAFACTURAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldVENCIMIENTO : DateTime read GetOldVENCIMIENTOValue;
    property OldCONCEPTO : IROStrings read GetOldCONCEPTOValue;
    property OldBASEIMPONIBLE : Currency read GetOldBASEIMPONIBLEValue;
    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
    property OldIMPORTEDESCUENTO : Currency read GetOldIMPORTEDESCUENTOValue;
    property OldIVA : Float read GetOldIVAValue;
    property OldIMPORTEIVA : Currency read GetOldIMPORTEIVAValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
    property OldCODIGOPROVEEDOR : Integer read GetOldCODIGOPROVEEDORValue;
    property OldNIFCIF : String read GetOldNIFCIFValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
  end;

  { TFacturasProveedorBusinessProcessorRules }
  TFacturasProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IFacturasProveedor, IFacturasProveedorDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    function GetOldCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    function GetOldFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetOldUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetFECHAFACTURAValue: DateTime; virtual;
    function GetOldFECHAFACTURAValue: DateTime; virtual;
    procedure SetFECHAFACTURAValue(const aValue: DateTime); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetVENCIMIENTOValue: DateTime; virtual;
    function GetOldVENCIMIENTOValue: DateTime; virtual;
    procedure SetVENCIMIENTOValue(const aValue: DateTime); virtual;
    function GetCONCEPTOValue: IROStrings; virtual;
    function GetOldCONCEPTOValue: IROStrings; virtual;
    procedure SetCONCEPTOValue(const aValue: IROStrings); virtual;
    function GetBASEIMPONIBLEValue: Currency; virtual;
    function GetOldBASEIMPONIBLEValue: Currency; virtual;
    procedure SetBASEIMPONIBLEValue(const aValue: Currency); virtual;
    function GetDESCUENTOValue: Float; virtual;
    function GetOldDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetIMPORTEDESCUENTOValue: Currency; virtual;
    function GetOldIMPORTEDESCUENTOValue: Currency; virtual;
    procedure SetIMPORTEDESCUENTOValue(const aValue: Currency); virtual;
    function GetIVAValue: Float; virtual;
    function GetOldIVAValue: Float; virtual;
    procedure SetIVAValue(const aValue: Float); virtual;
    function GetIMPORTEIVAValue: Currency; virtual;
    function GetOldIMPORTEIVAValue: Currency; virtual;
    procedure SetIMPORTEIVAValue(const aValue: Currency); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    function GetOldIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetFORMAPAGOValue: IROStrings; virtual;
    function GetOldFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetCODIGOPROVEEDORValue: Integer; virtual;
    function GetOldCODIGOPROVEEDORValue: Integer; virtual;
    procedure SetCODIGOPROVEEDORValue(const aValue: Integer); virtual;
    function GetNIFCIFValue: String; virtual;
    function GetOldNIFCIFValue: String; virtual;
    procedure SetNIFCIFValue(const aValue: String); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    function GetOldCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetCODIGOPOSTALValue: String; virtual;
    function GetOldCODIGOPOSTALValue: String; virtual;
    procedure SetCODIGOPOSTALValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property FECHAALTA : DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property FECHAFACTURA : DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
    property OldFECHAFACTURA : DateTime read GetOldFECHAFACTURAValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property VENCIMIENTO : DateTime read GetVENCIMIENTOValue write SetVENCIMIENTOValue;
    property OldVENCIMIENTO : DateTime read GetOldVENCIMIENTOValue;
    property CONCEPTO : IROStrings read GetCONCEPTOValue write SetCONCEPTOValue;
    property OldCONCEPTO : IROStrings read GetOldCONCEPTOValue;
    property BASEIMPONIBLE : Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
    property OldBASEIMPONIBLE : Currency read GetOldBASEIMPONIBLEValue;
    property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
    property IMPORTEDESCUENTO : Currency read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue;
    property OldIMPORTEDESCUENTO : Currency read GetOldIMPORTEDESCUENTOValue;
    property IVA : Float read GetIVAValue write SetIVAValue;
    property OldIVA : Float read GetOldIVAValue;
    property IMPORTEIVA : Currency read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
    property OldIMPORTEIVA : Currency read GetOldIMPORTEIVAValue;
    property IMPORTETOTAL : Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property FORMAPAGO : IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
    property CODIGOPROVEEDOR : Integer read GetCODIGOPROVEEDORValue write SetCODIGOPROVEEDORValue;
    property OldCODIGOPROVEEDOR : Integer read GetOldCODIGOPROVEEDORValue;
    property NIFCIF : String read GetNIFCIFValue write SetNIFCIFValue;
    property OldNIFCIF : String read GetOldNIFCIFValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property OldCALLE : String read GetOldCALLEValue;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property CODIGOPOSTAL : String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

implementation

uses
  Variants, uROBinaryHelpers;

{ TListaAnosFacturasBusinessProcessorRules }
constructor TListaAnosFacturasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TListaAnosFacturasBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TListaAnosFacturasBusinessProcessorRules.GetANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosFacturasANO];
end;

function TListaAnosFacturasBusinessProcessorRules.GetOldANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosFacturasANO];
end;

procedure TListaAnosFacturasBusinessProcessorRules.SetANOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosFacturasANO] := aValue;
end;


{ TFacturasProveedorBusinessProcessorRules }
constructor TFacturasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TFacturasProveedorBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TFacturasProveedorBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCODIGOEMPRESA];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorCODIGOEMPRESA];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCODIGOEMPRESA] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCODIGO];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorCODIGO];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetCODIGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCODIGO] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHAALTA];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFECHAALTA];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetFECHAALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHAALTA] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorUSUARIO];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorUSUARIO];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorUSUARIO] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetFECHAFACTURAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHAFACTURA];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldFECHAFACTURAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFECHAFACTURA];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetFECHAFACTURAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHAFACTURA] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorREFERENCIA];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetVENCIMIENTOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorVENCIMIENTO];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldVENCIMIENTOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorVENCIMIENTO];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetVENCIMIENTOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorVENCIMIENTO] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetCONCEPTOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCONCEPTO];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldCONCEPTOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorCONCEPTO];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetCONCEPTOValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCONCEPTO] := aValue.Text;
end;

function TFacturasProveedorBusinessProcessorRules.GetBASEIMPONIBLEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorBASEIMPONIBLE];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldBASEIMPONIBLEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorBASEIMPONIBLE];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetBASEIMPONIBLEValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorBASEIMPONIBLE] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDESCUENTO];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDESCUENTO];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDESCUENTO] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetIMPORTEDESCUENTOValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTEDESCUENTO];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTEDESCUENTOValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTEDESCUENTO];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTEDESCUENTOValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTEDESCUENTO] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIVA];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldIVAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIVA];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetIVAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIVA] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetIMPORTEIVAValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTEIVA];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTEIVAValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTEIVA];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTEIVAValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTEIVA] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTETOTAL];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTETOTAL];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTETOTAL] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFORMAPAGO];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFORMAPAGO];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetFORMAPAGOValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFORMAPAGO] := aValue.Text;
end;

function TFacturasProveedorBusinessProcessorRules.GetCODIGOPROVEEDORValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCODIGOPROVEEDOR];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldCODIGOPROVEEDORValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorCODIGOPROVEEDOR];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetCODIGOPROVEEDORValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCODIGOPROVEEDOR] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNIFCIF];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorNIFCIF];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetNIFCIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNIFCIF] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorNOMBRE];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCALLE];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorCALLE];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCALLE] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorPROVINCIA];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorPROVINCIA];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorPROVINCIA] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCODIGOPOSTAL];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorCODIGOPOSTAL];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetCODIGOPOSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorCODIGOPOSTAL] := aValue;
end;

function TFacturasProveedorBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorPOBLACION];
end;

function TFacturasProveedorBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorPOBLACION];
end;

procedure TFacturasProveedorBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorPOBLACION] := aValue;
end;


initialization
  RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_FacturasProveedorDelta, TFacturasProveedorBusinessProcessorRules);

end.