LuisLeon_FactuGES/Modulos/Inventario/Model/schInventarioServer_Intf.pas

unit schInventarioServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schInventarioClient_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_INVENTARIODelta = '{91787809-363E-46E8-9CFF-DF9569C704AC}';
  RID_INVENTARIO_RefreshDelta = '{7B665B3C-C348-4535-9890-63EDECD92043}';

type
  { IINVENTARIODelta }
  IINVENTARIODelta = interface(IINVENTARIO)
  ['{91787809-363E-46E8-9CFF-DF9569C704AC}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_ALMACENValue : Integer;
    function GetOldID_ARTICULOValue : Integer;
    function GetOldCANTIDADValue : Integer;
    function GetOldID_PEDIDO_PROVEEDORValue : Integer;
    function GetOldID_PEDIDO_CLIENTEValue : Integer;
    function GetOldREFERENCIA_PED_CLIValue : String;
    function GetOldDESCRIPCIONValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIA_CLIENTEValue : String;
    function GetOldFAMILIAValue : String;
    function GetOldALMACENValue : String;
    function GetOldREFERENCIA_PROVEEDORValue : String;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property OldID_PEDIDO_PROVEEDOR : Integer read GetOldID_PEDIDO_PROVEEDORValue;
    property OldID_PEDIDO_CLIENTE : Integer read GetOldID_PEDIDO_CLIENTEValue;
    property OldREFERENCIA_PED_CLI : String read GetOldREFERENCIA_PED_CLIValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
    property OldFAMILIA : String read GetOldFAMILIAValue;
    property OldALMACEN : String read GetOldALMACENValue;
    property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
  end;

  { TINVENTARIOBusinessProcessorRules }
  TINVENTARIOBusinessProcessorRules = class(TDABusinessProcessorRules, IINVENTARIO, IINVENTARIODelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetOldIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_ALMACENValue: Integer; virtual;
    function GetOldID_ALMACENValue: Integer; virtual;
    procedure SetID_ALMACENValue(const aValue: Integer); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    function GetOldID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetCANTIDADValue: Integer; virtual;
    function GetOldCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetID_PEDIDO_PROVEEDORValue: Integer; virtual;
    function GetOldID_PEDIDO_PROVEEDORValue: Integer; virtual;
    procedure SetID_PEDIDO_PROVEEDORValue(const aValue: Integer); virtual;
    function GetID_PEDIDO_CLIENTEValue: Integer; virtual;
    function GetOldID_PEDIDO_CLIENTEValue: Integer; virtual;
    procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); virtual;
    function GetREFERENCIA_PED_CLIValue: String; virtual;
    function GetOldREFERENCIA_PED_CLIValue: String; virtual;
    procedure SetREFERENCIA_PED_CLIValue(const aValue: String); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetREFERENCIA_CLIENTEValue: String; virtual;
    function GetOldREFERENCIA_CLIENTEValue: String; virtual;
    procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
    function GetFAMILIAValue: String; virtual;
    function GetOldFAMILIAValue: String; virtual;
    procedure SetFAMILIAValue(const aValue: String); virtual;
    function GetALMACENValue: String; virtual;
    function GetOldALMACENValue: String; virtual;
    procedure SetALMACENValue(const aValue: String); virtual;
    function GetREFERENCIA_PROVEEDORValue: String; virtual;
    function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property OldID : Integer read GetOldIDValue;
    property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
    property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
    property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property ID_PEDIDO_PROVEEDOR : Integer read GetID_PEDIDO_PROVEEDORValue write SetID_PEDIDO_PROVEEDORValue;
    property OldID_PEDIDO_PROVEEDOR : Integer read GetOldID_PEDIDO_PROVEEDORValue;
    property ID_PEDIDO_CLIENTE : Integer read GetID_PEDIDO_CLIENTEValue write SetID_PEDIDO_CLIENTEValue;
    property OldID_PEDIDO_CLIENTE : Integer read GetOldID_PEDIDO_CLIENTEValue;
    property REFERENCIA_PED_CLI : String read GetREFERENCIA_PED_CLIValue write SetREFERENCIA_PED_CLIValue;
    property OldREFERENCIA_PED_CLI : String read GetOldREFERENCIA_PED_CLIValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
    property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
    property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
    property OldFAMILIA : String read GetOldFAMILIAValue;
    property ALMACEN : String read GetALMACENValue write SetALMACENValue;
    property OldALMACEN : String read GetOldALMACENValue;
    property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
    property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;

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

  end;

  { IINVENTARIO_RefreshDelta }
  IINVENTARIO_RefreshDelta = interface(IINVENTARIO_Refresh)
  ['{7B665B3C-C348-4535-9890-63EDECD92043}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_ALMACENValue : Integer;
    function GetOldID_ARTICULOValue : Integer;
    function GetOldCANTIDADValue : Integer;
    function GetOldID_PEDIDO_PROVEEDORValue : Integer;
    function GetOldID_PEDIDO_CLIENTEValue : Integer;
    function GetOldREFERENCIA_PED_CLIValue : String;
    function GetOldDESCRIPCIONValue : String;
    function GetOldID_EMPRESAValue : Integer;
    function GetOldREFERENCIA_CLIENTEValue : String;
    function GetOldFAMILIAValue : String;
    function GetOldALMACENValue : String;
    function GetOldREFERENCIA_PROVEEDORValue : String;

    { Properties }
    property OldID : Integer read GetOldIDValue;
    property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property OldID_PEDIDO_PROVEEDOR : Integer read GetOldID_PEDIDO_PROVEEDORValue;
    property OldID_PEDIDO_CLIENTE : Integer read GetOldID_PEDIDO_CLIENTEValue;
    property OldREFERENCIA_PED_CLI : String read GetOldREFERENCIA_PED_CLIValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
    property OldFAMILIA : String read GetOldFAMILIAValue;
    property OldALMACEN : String read GetOldALMACENValue;
    property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
  end;

  { TINVENTARIO_RefreshBusinessProcessorRules }
  TINVENTARIO_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IINVENTARIO_Refresh, IINVENTARIO_RefreshDelta)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    function GetOldIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetID_ALMACENValue: Integer; virtual;
    function GetOldID_ALMACENValue: Integer; virtual;
    procedure SetID_ALMACENValue(const aValue: Integer); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    function GetOldID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetCANTIDADValue: Integer; virtual;
    function GetOldCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetID_PEDIDO_PROVEEDORValue: Integer; virtual;
    function GetOldID_PEDIDO_PROVEEDORValue: Integer; virtual;
    procedure SetID_PEDIDO_PROVEEDORValue(const aValue: Integer); virtual;
    function GetID_PEDIDO_CLIENTEValue: Integer; virtual;
    function GetOldID_PEDIDO_CLIENTEValue: Integer; virtual;
    procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); virtual;
    function GetREFERENCIA_PED_CLIValue: String; virtual;
    function GetOldREFERENCIA_PED_CLIValue: String; virtual;
    procedure SetREFERENCIA_PED_CLIValue(const aValue: String); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetREFERENCIA_CLIENTEValue: String; virtual;
    function GetOldREFERENCIA_CLIENTEValue: String; virtual;
    procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
    function GetFAMILIAValue: String; virtual;
    function GetOldFAMILIAValue: String; virtual;
    procedure SetFAMILIAValue(const aValue: String); virtual;
    function GetALMACENValue: String; virtual;
    function GetOldALMACENValue: String; virtual;
    procedure SetALMACENValue(const aValue: String); virtual;
    function GetREFERENCIA_PROVEEDORValue: String; virtual;
    function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;

    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
    property OldID : Integer read GetOldIDValue;
    property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
    property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
    property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property ID_PEDIDO_PROVEEDOR : Integer read GetID_PEDIDO_PROVEEDORValue write SetID_PEDIDO_PROVEEDORValue;
    property OldID_PEDIDO_PROVEEDOR : Integer read GetOldID_PEDIDO_PROVEEDORValue;
    property ID_PEDIDO_CLIENTE : Integer read GetID_PEDIDO_CLIENTEValue write SetID_PEDIDO_CLIENTEValue;
    property OldID_PEDIDO_CLIENTE : Integer read GetOldID_PEDIDO_CLIENTEValue;
    property REFERENCIA_PED_CLI : String read GetREFERENCIA_PED_CLIValue write SetREFERENCIA_PED_CLIValue;
    property OldREFERENCIA_PED_CLI : String read GetOldREFERENCIA_PED_CLIValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
    property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
    property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
    property OldFAMILIA : String read GetOldFAMILIAValue;
    property ALMACEN : String read GetALMACENValue write SetALMACENValue;
    property OldALMACEN : String read GetOldALMACENValue;
    property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
    property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers;

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

destructor TINVENTARIOBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TINVENTARIOBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID];
end;

function TINVENTARIOBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID];
end;

procedure TINVENTARIOBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID] := aValue;
end;

function TINVENTARIOBusinessProcessorRules.GetID_ALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ALMACEN];
end;

function TINVENTARIOBusinessProcessorRules.GetOldID_ALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_ALMACEN];
end;

procedure TINVENTARIOBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ALMACEN] := aValue;
end;

function TINVENTARIOBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ARTICULO];
end;

function TINVENTARIOBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_ARTICULO];
end;

procedure TINVENTARIOBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ARTICULO] := aValue;
end;

function TINVENTARIOBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCANTIDAD];
end;

function TINVENTARIOBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOCANTIDAD];
end;

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

function TINVENTARIOBusinessProcessorRules.GetID_PEDIDO_PROVEEDORValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_PEDIDO_PROVEEDOR];
end;

function TINVENTARIOBusinessProcessorRules.GetOldID_PEDIDO_PROVEEDORValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_PEDIDO_PROVEEDOR];
end;

procedure TINVENTARIOBusinessProcessorRules.SetID_PEDIDO_PROVEEDORValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_PEDIDO_PROVEEDOR] := aValue;
end;

function TINVENTARIOBusinessProcessorRules.GetID_PEDIDO_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_PEDIDO_CLIENTE];
end;

function TINVENTARIOBusinessProcessorRules.GetOldID_PEDIDO_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_PEDIDO_CLIENTE];
end;

procedure TINVENTARIOBusinessProcessorRules.SetID_PEDIDO_CLIENTEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_PEDIDO_CLIENTE] := aValue;
end;

function TINVENTARIOBusinessProcessorRules.GetREFERENCIA_PED_CLIValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA_PED_CLI];
end;

function TINVENTARIOBusinessProcessorRules.GetOldREFERENCIA_PED_CLIValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOREFERENCIA_PED_CLI];
end;

procedure TINVENTARIOBusinessProcessorRules.SetREFERENCIA_PED_CLIValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA_PED_CLI] := aValue;
end;

function TINVENTARIOBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIODESCRIPCION];
end;

function TINVENTARIOBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIODESCRIPCION];
end;

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

function TINVENTARIOBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_EMPRESA];
end;

function TINVENTARIOBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_EMPRESA];
end;

procedure TINVENTARIOBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_EMPRESA] := aValue;
end;

function TINVENTARIOBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA_CLIENTE];
end;

function TINVENTARIOBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOREFERENCIA_CLIENTE];
end;

procedure TINVENTARIOBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA_CLIENTE] := aValue;
end;

function TINVENTARIOBusinessProcessorRules.GetFAMILIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOFAMILIA];
end;

function TINVENTARIOBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOFAMILIA];
end;

procedure TINVENTARIOBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOFAMILIA] := aValue;
end;

function TINVENTARIOBusinessProcessorRules.GetALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOALMACEN];
end;

function TINVENTARIOBusinessProcessorRules.GetOldALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOALMACEN];
end;

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

function TINVENTARIOBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA_PROVEEDOR];
end;

function TINVENTARIOBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOREFERENCIA_PROVEEDOR];
end;

procedure TINVENTARIOBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA_PROVEEDOR] := aValue;
end;


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

destructor TINVENTARIO_RefreshBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshID];
end;

procedure TINVENTARIO_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID] := aValue;
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetID_ALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID_ALMACEN];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldID_ALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshID_ALMACEN];
end;

procedure TINVENTARIO_RefreshBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID_ALMACEN] := aValue;
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID_ARTICULO];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshID_ARTICULO];
end;

procedure TINVENTARIO_RefreshBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID_ARTICULO] := aValue;
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshCANTIDAD];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshCANTIDAD];
end;

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

function TINVENTARIO_RefreshBusinessProcessorRules.GetID_PEDIDO_PROVEEDORValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID_PEDIDO_PROVEEDOR];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldID_PEDIDO_PROVEEDORValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshID_PEDIDO_PROVEEDOR];
end;

procedure TINVENTARIO_RefreshBusinessProcessorRules.SetID_PEDIDO_PROVEEDORValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID_PEDIDO_PROVEEDOR] := aValue;
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetID_PEDIDO_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID_PEDIDO_CLIENTE];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldID_PEDIDO_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshID_PEDIDO_CLIENTE];
end;

procedure TINVENTARIO_RefreshBusinessProcessorRules.SetID_PEDIDO_CLIENTEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID_PEDIDO_CLIENTE] := aValue;
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetREFERENCIA_PED_CLIValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshREFERENCIA_PED_CLI];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldREFERENCIA_PED_CLIValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshREFERENCIA_PED_CLI];
end;

procedure TINVENTARIO_RefreshBusinessProcessorRules.SetREFERENCIA_PED_CLIValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshREFERENCIA_PED_CLI] := aValue;
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshDESCRIPCION];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshDESCRIPCION];
end;

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

function TINVENTARIO_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID_EMPRESA];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshID_EMPRESA];
end;

procedure TINVENTARIO_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshID_EMPRESA] := aValue;
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshREFERENCIA_CLIENTE];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshREFERENCIA_CLIENTE];
end;

procedure TINVENTARIO_RefreshBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshREFERENCIA_CLIENTE] := aValue;
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetFAMILIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshFAMILIA];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshFAMILIA];
end;

procedure TINVENTARIO_RefreshBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshFAMILIA] := aValue;
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshALMACEN];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshALMACEN];
end;

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

function TINVENTARIO_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshREFERENCIA_PROVEEDOR];
end;

function TINVENTARIO_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIO_RefreshREFERENCIA_PROVEEDOR];
end;

procedure TINVENTARIO_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIO_RefreshREFERENCIA_PROVEEDOR] := aValue;
end;


initialization
  RegisterBusinessProcessorRules(RID_INVENTARIODelta, TINVENTARIOBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_INVENTARIO_RefreshDelta, TINVENTARIO_RefreshBusinessProcessorRules);

end.