AlonsoYSal_FactuGES/Modulos/Articulos/Reglas/schArticulosServer_Intf.pas

unit schArticulosServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schArticulosClient_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_ARTICULOSDelta = '{C8AB35D3-820C-4756-B58D-5F78434DFB33}';
  RID_Refresh_ARTICULOSDelta = '{01037450-9D82-4996-8DC2-9A3BECB84B04}';

type
  { IARTICULOSDelta }
  IARTICULOSDelta = interface(IARTICULOS)
  ['{C8AB35D3-820C-4756-B58D-5F78434DFB33}']
    { Property getters and setters }
    function GetOldCODIGOValue : Integer;
    function GetOldCODIGOALMACENValue : Integer;
    function GetOldCODIGOPEDIDOValue : Integer;
    function GetOldCANTIDADValue : Integer;
    function GetOldCODIGOMONTAJEValue : Integer;
    function GetOldDESCRIPCIONValue : String;
    function GetOldREFERENCIAPEDIDOValue : String;
    function GetOldREFERENCIAMONTAJEValue : String;
    function GetOldCLIENTEValue : String;
    function GetOldALMACENValue : String;
    function GetOldSITUACIONValue : String;

    { Properties }
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldCODIGOALMACEN : Integer read GetOldCODIGOALMACENValue;
    property OldCODIGOPEDIDO : Integer read GetOldCODIGOPEDIDOValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldREFERENCIAPEDIDO : String read GetOldREFERENCIAPEDIDOValue;
    property OldREFERENCIAMONTAJE : String read GetOldREFERENCIAMONTAJEValue;
    property OldCLIENTE : String read GetOldCLIENTEValue;
    property OldALMACEN : String read GetOldALMACENValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
  end;

  { TARTICULOSBusinessProcessorRules }
  TARTICULOSBusinessProcessorRules = class(TDABusinessProcessorRules, IARTICULOS, IARTICULOSDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetCODIGOALMACENValue: Integer; virtual;
    function GetOldCODIGOALMACENValue: Integer; virtual;
    procedure SetCODIGOALMACENValue(const aValue: Integer); virtual;
    function GetCODIGOPEDIDOValue: Integer; virtual;
    function GetOldCODIGOPEDIDOValue: Integer; virtual;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer); virtual;
    function GetCANTIDADValue: Integer; virtual;
    function GetOldCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetCODIGOMONTAJEValue: Integer; virtual;
    function GetOldCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetREFERENCIAPEDIDOValue: String; virtual;
    function GetOldREFERENCIAPEDIDOValue: String; virtual;
    procedure SetREFERENCIAPEDIDOValue(const aValue: String); virtual;
    function GetREFERENCIAMONTAJEValue: String; virtual;
    function GetOldREFERENCIAMONTAJEValue: String; virtual;
    procedure SetREFERENCIAMONTAJEValue(const aValue: String); virtual;
    function GetCLIENTEValue: String; virtual;
    function GetOldCLIENTEValue: String; virtual;
    procedure SetCLIENTEValue(const aValue: String); virtual;
    function GetALMACENValue: String; virtual;
    function GetOldALMACENValue: String; virtual;
    procedure SetALMACENValue(const aValue: String); virtual;
    function GetSITUACIONValue: String; virtual;
    function GetOldSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;

    { Properties }
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property CODIGOALMACEN : Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property OldCODIGOALMACEN : Integer read GetOldCODIGOALMACENValue;
    property CODIGOPEDIDO : Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property OldCODIGOPEDIDO : Integer read GetOldCODIGOPEDIDOValue;
    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property CODIGOMONTAJE : Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property REFERENCIAPEDIDO : String read GetREFERENCIAPEDIDOValue write SetREFERENCIAPEDIDOValue;
    property OldREFERENCIAPEDIDO : String read GetOldREFERENCIAPEDIDOValue;
    property REFERENCIAMONTAJE : String read GetREFERENCIAMONTAJEValue write SetREFERENCIAMONTAJEValue;
    property OldREFERENCIAMONTAJE : String read GetOldREFERENCIAMONTAJEValue;
    property CLIENTE : String read GetCLIENTEValue write SetCLIENTEValue;
    property OldCLIENTE : String read GetOldCLIENTEValue;
    property ALMACEN : String read GetALMACENValue write SetALMACENValue;
    property OldALMACEN : String read GetOldALMACENValue;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;

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

  end;

  { IRefresh_ARTICULOSDelta }
  IRefresh_ARTICULOSDelta = interface(IRefresh_ARTICULOS)
  ['{01037450-9D82-4996-8DC2-9A3BECB84B04}']
    { Property getters and setters }
    function GetOldCODIGOValue : Integer;
    function GetOldCODIGOALMACENValue : Integer;
    function GetOldCODIGOPEDIDOValue : Integer;
    function GetOldCODIGOMONTAJEValue : Integer;
    function GetOldDESCRIPCIONValue : String;
    function GetOldREFERENCIAPEDIDOValue : String;
    function GetOldREFERENCIAMONTAJEValue : String;
    function GetOldCLIENTEValue : String;
    function GetOldALMACENValue : String;
    function GetOldSITUACIONValue : String;

    { Properties }
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldCODIGOALMACEN : Integer read GetOldCODIGOALMACENValue;
    property OldCODIGOPEDIDO : Integer read GetOldCODIGOPEDIDOValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldREFERENCIAPEDIDO : String read GetOldREFERENCIAPEDIDOValue;
    property OldREFERENCIAMONTAJE : String read GetOldREFERENCIAMONTAJEValue;
    property OldCLIENTE : String read GetOldCLIENTEValue;
    property OldALMACEN : String read GetOldALMACENValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
  end;

  { TRefresh_ARTICULOSBusinessProcessorRules }
  TRefresh_ARTICULOSBusinessProcessorRules = class(TDABusinessProcessorRules, IRefresh_ARTICULOS, IRefresh_ARTICULOSDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetCODIGOALMACENValue: Integer; virtual;
    function GetOldCODIGOALMACENValue: Integer; virtual;
    procedure SetCODIGOALMACENValue(const aValue: Integer); virtual;
    function GetCODIGOPEDIDOValue: Integer; virtual;
    function GetOldCODIGOPEDIDOValue: Integer; virtual;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer); virtual;
    function GetCODIGOMONTAJEValue: Integer; virtual;
    function GetOldCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetREFERENCIAPEDIDOValue: String; virtual;
    function GetOldREFERENCIAPEDIDOValue: String; virtual;
    procedure SetREFERENCIAPEDIDOValue(const aValue: String); virtual;
    function GetREFERENCIAMONTAJEValue: String; virtual;
    function GetOldREFERENCIAMONTAJEValue: String; virtual;
    procedure SetREFERENCIAMONTAJEValue(const aValue: String); virtual;
    function GetCLIENTEValue: String; virtual;
    function GetOldCLIENTEValue: String; virtual;
    procedure SetCLIENTEValue(const aValue: String); virtual;
    function GetALMACENValue: String; virtual;
    function GetOldALMACENValue: String; virtual;
    procedure SetALMACENValue(const aValue: String); virtual;
    function GetSITUACIONValue: String; virtual;
    function GetOldSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;

    { Properties }
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property CODIGOALMACEN : Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property OldCODIGOALMACEN : Integer read GetOldCODIGOALMACENValue;
    property CODIGOPEDIDO : Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property OldCODIGOPEDIDO : Integer read GetOldCODIGOPEDIDOValue;
    property CODIGOMONTAJE : Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property REFERENCIAPEDIDO : String read GetREFERENCIAPEDIDOValue write SetREFERENCIAPEDIDOValue;
    property OldREFERENCIAPEDIDO : String read GetOldREFERENCIAPEDIDOValue;
    property REFERENCIAMONTAJE : String read GetREFERENCIAMONTAJEValue write SetREFERENCIAMONTAJEValue;
    property OldREFERENCIAMONTAJE : String read GetOldREFERENCIAMONTAJEValue;
    property CLIENTE : String read GetCLIENTEValue write SetCLIENTEValue;
    property OldCLIENTE : String read GetOldCLIENTEValue;
    property ALMACEN : String read GetALMACENValue write SetALMACENValue;
    property OldALMACEN : String read GetOldALMACENValue;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers;

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

destructor TARTICULOSBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TARTICULOSBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCODIGO];
end;

function TARTICULOSBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSCODIGO];
end;

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

function TARTICULOSBusinessProcessorRules.GetCODIGOALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCODIGOALMACEN];
end;

function TARTICULOSBusinessProcessorRules.GetOldCODIGOALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSCODIGOALMACEN];
end;

procedure TARTICULOSBusinessProcessorRules.SetCODIGOALMACENValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCODIGOALMACEN] := aValue;
end;

function TARTICULOSBusinessProcessorRules.GetCODIGOPEDIDOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCODIGOPEDIDO];
end;

function TARTICULOSBusinessProcessorRules.GetOldCODIGOPEDIDOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSCODIGOPEDIDO];
end;

procedure TARTICULOSBusinessProcessorRules.SetCODIGOPEDIDOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCODIGOPEDIDO] := aValue;
end;

function TARTICULOSBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCANTIDAD];
end;

function TARTICULOSBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSCANTIDAD];
end;

procedure TARTICULOSBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCANTIDAD] := aValue;
end;

function TARTICULOSBusinessProcessorRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCODIGOMONTAJE];
end;

function TARTICULOSBusinessProcessorRules.GetOldCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSCODIGOMONTAJE];
end;

procedure TARTICULOSBusinessProcessorRules.SetCODIGOMONTAJEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCODIGOMONTAJE] := aValue;
end;

function TARTICULOSBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSDESCRIPCION];
end;

function TARTICULOSBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSDESCRIPCION];
end;

procedure TARTICULOSBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSDESCRIPCION] := aValue;
end;

function TARTICULOSBusinessProcessorRules.GetREFERENCIAPEDIDOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSREFERENCIAPEDIDO];
end;

function TARTICULOSBusinessProcessorRules.GetOldREFERENCIAPEDIDOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSREFERENCIAPEDIDO];
end;

procedure TARTICULOSBusinessProcessorRules.SetREFERENCIAPEDIDOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSREFERENCIAPEDIDO] := aValue;
end;

function TARTICULOSBusinessProcessorRules.GetREFERENCIAMONTAJEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSREFERENCIAMONTAJE];
end;

function TARTICULOSBusinessProcessorRules.GetOldREFERENCIAMONTAJEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSREFERENCIAMONTAJE];
end;

procedure TARTICULOSBusinessProcessorRules.SetREFERENCIAMONTAJEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSREFERENCIAMONTAJE] := aValue;
end;

function TARTICULOSBusinessProcessorRules.GetCLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCLIENTE];
end;

function TARTICULOSBusinessProcessorRules.GetOldCLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSCLIENTE];
end;

procedure TARTICULOSBusinessProcessorRules.SetCLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSCLIENTE] := aValue;
end;

function TARTICULOSBusinessProcessorRules.GetALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSALMACEN];
end;

function TARTICULOSBusinessProcessorRules.GetOldALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSALMACEN];
end;

procedure TARTICULOSBusinessProcessorRules.SetALMACENValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSALMACEN] := aValue;
end;

function TARTICULOSBusinessProcessorRules.GetSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSSITUACION];
end;

function TARTICULOSBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ARTICULOSSITUACION];
end;

procedure TARTICULOSBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ARTICULOSSITUACION] := aValue;
end;


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

destructor TRefresh_ARTICULOSBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSCODIGO];
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_ARTICULOSCODIGO];
end;

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

function TRefresh_ARTICULOSBusinessProcessorRules.GetCODIGOALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSCODIGOALMACEN];
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetOldCODIGOALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_ARTICULOSCODIGOALMACEN];
end;

procedure TRefresh_ARTICULOSBusinessProcessorRules.SetCODIGOALMACENValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSCODIGOALMACEN] := aValue;
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetCODIGOPEDIDOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSCODIGOPEDIDO];
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetOldCODIGOPEDIDOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_ARTICULOSCODIGOPEDIDO];
end;

procedure TRefresh_ARTICULOSBusinessProcessorRules.SetCODIGOPEDIDOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSCODIGOPEDIDO] := aValue;
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSCODIGOMONTAJE];
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetOldCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_ARTICULOSCODIGOMONTAJE];
end;

procedure TRefresh_ARTICULOSBusinessProcessorRules.SetCODIGOMONTAJEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSCODIGOMONTAJE] := aValue;
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSDESCRIPCION];
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_ARTICULOSDESCRIPCION];
end;

procedure TRefresh_ARTICULOSBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSDESCRIPCION] := aValue;
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetREFERENCIAPEDIDOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSREFERENCIAPEDIDO];
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetOldREFERENCIAPEDIDOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_ARTICULOSREFERENCIAPEDIDO];
end;

procedure TRefresh_ARTICULOSBusinessProcessorRules.SetREFERENCIAPEDIDOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSREFERENCIAPEDIDO] := aValue;
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetREFERENCIAMONTAJEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSREFERENCIAMONTAJE];
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetOldREFERENCIAMONTAJEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_ARTICULOSREFERENCIAMONTAJE];
end;

procedure TRefresh_ARTICULOSBusinessProcessorRules.SetREFERENCIAMONTAJEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSREFERENCIAMONTAJE] := aValue;
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetCLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSCLIENTE];
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetOldCLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_ARTICULOSCLIENTE];
end;

procedure TRefresh_ARTICULOSBusinessProcessorRules.SetCLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSCLIENTE] := aValue;
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSALMACEN];
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetOldALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_ARTICULOSALMACEN];
end;

procedure TRefresh_ARTICULOSBusinessProcessorRules.SetALMACENValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSALMACEN] := aValue;
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSSITUACION];
end;

function TRefresh_ARTICULOSBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_ARTICULOSSITUACION];
end;

procedure TRefresh_ARTICULOSBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_ARTICULOSSITUACION] := aValue;
end;


initialization
  RegisterBusinessProcessorRules(RID_ARTICULOSDelta, TARTICULOSBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_Refresh_ARTICULOSDelta, TRefresh_ARTICULOSBusinessProcessorRules);

end.