unit schInfMargenArticuloServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schInfMargenArticuloClient_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_InfMargenPorClienteDelta = '{2BF169D0-BE09-4DD7-ADD9-6867C0C3D18E}';
  RID_InfMargenPorArticuloDelta = '{D6219F0B-3705-4E9F-854A-EE678CDA3354}';
  RID_InfMargenPorFacturaDelta = '{5C45D321-F740-48B8-BCD7-4B00331BB267}';

type
  { IInfMargenPorClienteDelta }
  IInfMargenPorClienteDelta = interface(IInfMargenPorCliente)
  ['{2BF169D0-BE09-4DD7-ADD9-6867C0C3D18E}']
    { Property getters and setters }
    function GetOldID_EMPRESAValue : Integer;
    function GetOldID_CLIENTEValue : Integer;
    function GetOldID_ARTICULOValue : Integer;
    function GetOldFAMILIAValue : String;
    function GetOldREFERENCIAValue : String;
    function GetOldREFERENCIA_PROVValue : String;
    function GetOldDESCRIPCIONValue : String;
    function GetOldCOMISIONABLEValue : Integer;
    function GetOldINVENTARIABLEValue : Integer;
    function GetOldNIF_CIF_CLIENTEValue : String;
    function GetOldNOMBRE_CLIENTEValue : String;
    function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
    function GetOldNIF_CIF_AGENTEValue : String;
    function GetOldNOMBRE_AGENTEValue : String;
    function GetOldIMP_UNIDAD_ULT_VENTValue : Float;
    function GetOldIMP_NETO_ULT_VENTValue : Float;
    function GetOldIMP_PORTE_ULT_VENTValue : Float;
    function GetOldIMP_UNIDAD_PRO_VENTValue : Float;
    function GetOldIMP_NETO_PRO_VENTValue : Float;
    function GetOldIMP_PORTE_PRO_VENTValue : Float;
    function GetOldIMP_UNIDAD_COMPRAValue : Float;
    function GetOldIMP_NETO_COMPRAValue : Float;
    function GetOldIMP_PORTE_COMPRAValue : Float;
    function GetOldIMP_UNIDAD_ULT_COMPValue : Float;
    function GetOldIMP_NETO_ULT_COMPValue : Float;
    function GetOldIMP_PORTE_ULT_COMPValue : Float;
    function GetOldIMP_UNIDAD_PRO_COMPValue : Float;
    function GetOldIMP_NETO_PRO_COMPValue : Float;
    function GetOldIMP_PORTE_PRO_COMPValue : Float;
    function GetOldIMP_MARGEN_ULT_VENT_COMPRAValue : Float;
    function GetOldPOR_MARGEN_ULT_VENT_COMPRAValue : Float;
    function GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue : Float;
    function GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue : Float;
    function GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue : Float;
    function GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue : Float;
    function GetOldIMP_MARGEN_PRO_VENT_COMPRAValue : Float;
    function GetOldPOR_MARGEN_PRO_VENT_COMPRAValue : Float;
    function GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue : Float;
    function GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue : Float;
    function GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue : Float;
    function GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue : Float;

    { Properties }
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
    property OldFAMILIA : String read GetOldFAMILIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
    property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
    property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
    property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
    property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
    property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
    property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
    property OldIMP_UNIDAD_ULT_VENT : Float read GetOldIMP_UNIDAD_ULT_VENTValue;
    property OldIMP_NETO_ULT_VENT : Float read GetOldIMP_NETO_ULT_VENTValue;
    property OldIMP_PORTE_ULT_VENT : Float read GetOldIMP_PORTE_ULT_VENTValue;
    property OldIMP_UNIDAD_PRO_VENT : Float read GetOldIMP_UNIDAD_PRO_VENTValue;
    property OldIMP_NETO_PRO_VENT : Float read GetOldIMP_NETO_PRO_VENTValue;
    property OldIMP_PORTE_PRO_VENT : Float read GetOldIMP_PORTE_PRO_VENTValue;
    property OldIMP_UNIDAD_COMPRA : Float read GetOldIMP_UNIDAD_COMPRAValue;
    property OldIMP_NETO_COMPRA : Float read GetOldIMP_NETO_COMPRAValue;
    property OldIMP_PORTE_COMPRA : Float read GetOldIMP_PORTE_COMPRAValue;
    property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
    property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
    property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
    property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
    property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
    property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
    property OldIMP_MARGEN_ULT_VENT_COMPRA : Float read GetOldIMP_MARGEN_ULT_VENT_COMPRAValue;
    property OldPOR_MARGEN_ULT_VENT_COMPRA : Float read GetOldPOR_MARGEN_ULT_VENT_COMPRAValue;
    property OldIMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue;
    property OldPOR_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue;
    property OldIMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue;
    property OldPOR_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue;
    property OldIMP_MARGEN_PRO_VENT_COMPRA : Float read GetOldIMP_MARGEN_PRO_VENT_COMPRAValue;
    property OldPOR_MARGEN_PRO_VENT_COMPRA : Float read GetOldPOR_MARGEN_PRO_VENT_COMPRAValue;
    property OldIMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue;
    property OldPOR_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue;
    property OldIMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue;
    property OldPOR_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue;
  end;

  { TInfMargenPorClienteBusinessProcessorRules }
  TInfMargenPorClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IInfMargenPorCliente, IInfMargenPorClienteDelta)
  private
  protected
    { Property getters and setters }
    function GetID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetID_CLIENTEValue: Integer; virtual;
    function GetOldID_CLIENTEValue: Integer; virtual;
    procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    function GetOldID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetFAMILIAValue: String; virtual;
    function GetOldFAMILIAValue: String; virtual;
    procedure SetFAMILIAValue(const aValue: String); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetREFERENCIA_PROVValue: String; virtual;
    function GetOldREFERENCIA_PROVValue: String; virtual;
    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetCOMISIONABLEValue: Integer; virtual;
    function GetOldCOMISIONABLEValue: Integer; virtual;
    procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
    function GetINVENTARIABLEValue: Integer; virtual;
    function GetOldINVENTARIABLEValue: Integer; virtual;
    procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
    function GetNIF_CIF_CLIENTEValue: String; virtual;
    function GetOldNIF_CIF_CLIENTEValue: String; virtual;
    procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
    function GetNOMBRE_CLIENTEValue: String; virtual;
    function GetOldNOMBRE_CLIENTEValue: String; virtual;
    procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
    function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
    function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
    procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
    function GetNIF_CIF_AGENTEValue: String; virtual;
    function GetOldNIF_CIF_AGENTEValue: String; virtual;
    procedure SetNIF_CIF_AGENTEValue(const aValue: String); virtual;
    function GetNOMBRE_AGENTEValue: String; virtual;
    function GetOldNOMBRE_AGENTEValue: String; virtual;
    procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
    function GetIMP_UNIDAD_ULT_VENTValue: Float; virtual;
    function GetOldIMP_UNIDAD_ULT_VENTValue: Float; virtual;
    procedure SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float); virtual;
    function GetIMP_NETO_ULT_VENTValue: Float; virtual;
    function GetOldIMP_NETO_ULT_VENTValue: Float; virtual;
    procedure SetIMP_NETO_ULT_VENTValue(const aValue: Float); virtual;
    function GetIMP_PORTE_ULT_VENTValue: Float; virtual;
    function GetOldIMP_PORTE_ULT_VENTValue: Float; virtual;
    procedure SetIMP_PORTE_ULT_VENTValue(const aValue: Float); virtual;
    function GetIMP_UNIDAD_PRO_VENTValue: Float; virtual;
    function GetOldIMP_UNIDAD_PRO_VENTValue: Float; virtual;
    procedure SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float); virtual;
    function GetIMP_NETO_PRO_VENTValue: Float; virtual;
    function GetOldIMP_NETO_PRO_VENTValue: Float; virtual;
    procedure SetIMP_NETO_PRO_VENTValue(const aValue: Float); virtual;
    function GetIMP_PORTE_PRO_VENTValue: Float; virtual;
    function GetOldIMP_PORTE_PRO_VENTValue: Float; virtual;
    procedure SetIMP_PORTE_PRO_VENTValue(const aValue: Float); virtual;
    function GetIMP_UNIDAD_COMPRAValue: Float; virtual;
    function GetOldIMP_UNIDAD_COMPRAValue: Float; virtual;
    procedure SetIMP_UNIDAD_COMPRAValue(const aValue: Float); virtual;
    function GetIMP_NETO_COMPRAValue: Float; virtual;
    function GetOldIMP_NETO_COMPRAValue: Float; virtual;
    procedure SetIMP_NETO_COMPRAValue(const aValue: Float); virtual;
    function GetIMP_PORTE_COMPRAValue: Float; virtual;
    function GetOldIMP_PORTE_COMPRAValue: Float; virtual;
    procedure SetIMP_PORTE_COMPRAValue(const aValue: Float); virtual;
    function GetIMP_UNIDAD_ULT_COMPValue: Float; virtual;
    function GetOldIMP_UNIDAD_ULT_COMPValue: Float; virtual;
    procedure SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_NETO_ULT_COMPValue: Float; virtual;
    function GetOldIMP_NETO_ULT_COMPValue: Float; virtual;
    procedure SetIMP_NETO_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_PORTE_ULT_COMPValue: Float; virtual;
    function GetOldIMP_PORTE_ULT_COMPValue: Float; virtual;
    procedure SetIMP_PORTE_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_UNIDAD_PRO_COMPValue: Float; virtual;
    function GetOldIMP_UNIDAD_PRO_COMPValue: Float; virtual;
    procedure SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_NETO_PRO_COMPValue: Float; virtual;
    function GetOldIMP_NETO_PRO_COMPValue: Float; virtual;
    procedure SetIMP_NETO_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_PORTE_PRO_COMPValue: Float; virtual;
    function GetOldIMP_PORTE_PRO_COMPValue: Float; virtual;
    procedure SetIMP_PORTE_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
    function GetOldIMP_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
    procedure SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
    function GetOldPOR_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
    procedure SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
    function GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
    procedure SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
    function GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
    procedure SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
    function GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
    procedure SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
    function GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
    procedure SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
    function GetOldIMP_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
    procedure SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
    function GetOldPOR_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
    procedure SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
    function GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
    procedure SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
    function GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
    procedure SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
    function GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
    procedure SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
    function GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
    procedure SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float); virtual;

    { Properties }
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
    property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
    property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
    property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
    property OldFAMILIA : String read GetOldFAMILIAValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
    property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
    property INVENTARIABLE : Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
    property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
    property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
    property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
    property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
    property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
    property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
    property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
    property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
    property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
    property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
    property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
    property IMP_UNIDAD_ULT_VENT : Float read GetIMP_UNIDAD_ULT_VENTValue write SetIMP_UNIDAD_ULT_VENTValue;
    property OldIMP_UNIDAD_ULT_VENT : Float read GetOldIMP_UNIDAD_ULT_VENTValue;
    property IMP_NETO_ULT_VENT : Float read GetIMP_NETO_ULT_VENTValue write SetIMP_NETO_ULT_VENTValue;
    property OldIMP_NETO_ULT_VENT : Float read GetOldIMP_NETO_ULT_VENTValue;
    property IMP_PORTE_ULT_VENT : Float read GetIMP_PORTE_ULT_VENTValue write SetIMP_PORTE_ULT_VENTValue;
    property OldIMP_PORTE_ULT_VENT : Float read GetOldIMP_PORTE_ULT_VENTValue;
    property IMP_UNIDAD_PRO_VENT : Float read GetIMP_UNIDAD_PRO_VENTValue write SetIMP_UNIDAD_PRO_VENTValue;
    property OldIMP_UNIDAD_PRO_VENT : Float read GetOldIMP_UNIDAD_PRO_VENTValue;
    property IMP_NETO_PRO_VENT : Float read GetIMP_NETO_PRO_VENTValue write SetIMP_NETO_PRO_VENTValue;
    property OldIMP_NETO_PRO_VENT : Float read GetOldIMP_NETO_PRO_VENTValue;
    property IMP_PORTE_PRO_VENT : Float read GetIMP_PORTE_PRO_VENTValue write SetIMP_PORTE_PRO_VENTValue;
    property OldIMP_PORTE_PRO_VENT : Float read GetOldIMP_PORTE_PRO_VENTValue;
    property IMP_UNIDAD_COMPRA : Float read GetIMP_UNIDAD_COMPRAValue write SetIMP_UNIDAD_COMPRAValue;
    property OldIMP_UNIDAD_COMPRA : Float read GetOldIMP_UNIDAD_COMPRAValue;
    property IMP_NETO_COMPRA : Float read GetIMP_NETO_COMPRAValue write SetIMP_NETO_COMPRAValue;
    property OldIMP_NETO_COMPRA : Float read GetOldIMP_NETO_COMPRAValue;
    property IMP_PORTE_COMPRA : Float read GetIMP_PORTE_COMPRAValue write SetIMP_PORTE_COMPRAValue;
    property OldIMP_PORTE_COMPRA : Float read GetOldIMP_PORTE_COMPRAValue;
    property IMP_UNIDAD_ULT_COMP : Float read GetIMP_UNIDAD_ULT_COMPValue write SetIMP_UNIDAD_ULT_COMPValue;
    property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
    property IMP_NETO_ULT_COMP : Float read GetIMP_NETO_ULT_COMPValue write SetIMP_NETO_ULT_COMPValue;
    property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
    property IMP_PORTE_ULT_COMP : Float read GetIMP_PORTE_ULT_COMPValue write SetIMP_PORTE_ULT_COMPValue;
    property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
    property IMP_UNIDAD_PRO_COMP : Float read GetIMP_UNIDAD_PRO_COMPValue write SetIMP_UNIDAD_PRO_COMPValue;
    property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
    property IMP_NETO_PRO_COMP : Float read GetIMP_NETO_PRO_COMPValue write SetIMP_NETO_PRO_COMPValue;
    property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
    property IMP_PORTE_PRO_COMP : Float read GetIMP_PORTE_PRO_COMPValue write SetIMP_PORTE_PRO_COMPValue;
    property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
    property IMP_MARGEN_ULT_VENT_COMPRA : Float read GetIMP_MARGEN_ULT_VENT_COMPRAValue write SetIMP_MARGEN_ULT_VENT_COMPRAValue;
    property OldIMP_MARGEN_ULT_VENT_COMPRA : Float read GetOldIMP_MARGEN_ULT_VENT_COMPRAValue;
    property POR_MARGEN_ULT_VENT_COMPRA : Float read GetPOR_MARGEN_ULT_VENT_COMPRAValue write SetPOR_MARGEN_ULT_VENT_COMPRAValue;
    property OldPOR_MARGEN_ULT_VENT_COMPRA : Float read GetOldPOR_MARGEN_ULT_VENT_COMPRAValue;
    property IMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetIMP_MARGEN_ULT_VENT_ULT_COMPValue write SetIMP_MARGEN_ULT_VENT_ULT_COMPValue;
    property OldIMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue;
    property POR_MARGEN_ULT_VENT_ULT_COMP : Float read GetPOR_MARGEN_ULT_VENT_ULT_COMPValue write SetPOR_MARGEN_ULT_VENT_ULT_COMPValue;
    property OldPOR_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue;
    property IMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetIMP_MARGEN_ULT_VENT_PRO_COMPValue write SetIMP_MARGEN_ULT_VENT_PRO_COMPValue;
    property OldIMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue;
    property POR_MARGEN_ULT_VENT_PRO_COMP : Float read GetPOR_MARGEN_ULT_VENT_PRO_COMPValue write SetPOR_MARGEN_ULT_VENT_PRO_COMPValue;
    property OldPOR_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue;
    property IMP_MARGEN_PRO_VENT_COMPRA : Float read GetIMP_MARGEN_PRO_VENT_COMPRAValue write SetIMP_MARGEN_PRO_VENT_COMPRAValue;
    property OldIMP_MARGEN_PRO_VENT_COMPRA : Float read GetOldIMP_MARGEN_PRO_VENT_COMPRAValue;
    property POR_MARGEN_PRO_VENT_COMPRA : Float read GetPOR_MARGEN_PRO_VENT_COMPRAValue write SetPOR_MARGEN_PRO_VENT_COMPRAValue;
    property OldPOR_MARGEN_PRO_VENT_COMPRA : Float read GetOldPOR_MARGEN_PRO_VENT_COMPRAValue;
    property IMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetIMP_MARGEN_PRO_VENT_ULT_COMPValue write SetIMP_MARGEN_PRO_VENT_ULT_COMPValue;
    property OldIMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue;
    property POR_MARGEN_PRO_VENT_ULT_COMP : Float read GetPOR_MARGEN_PRO_VENT_ULT_COMPValue write SetPOR_MARGEN_PRO_VENT_ULT_COMPValue;
    property OldPOR_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue;
    property IMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetIMP_MARGEN_PRO_VENT_PRO_COMPValue write SetIMP_MARGEN_PRO_VENT_PRO_COMPValue;
    property OldIMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue;
    property POR_MARGEN_PRO_VENT_PRO_COMP : Float read GetPOR_MARGEN_PRO_VENT_PRO_COMPValue write SetPOR_MARGEN_PRO_VENT_PRO_COMPValue;
    property OldPOR_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue;

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

  end;

  { IInfMargenPorArticuloDelta }
  IInfMargenPorArticuloDelta = interface(IInfMargenPorArticulo)
  ['{D6219F0B-3705-4E9F-854A-EE678CDA3354}']
    { Property getters and setters }
    function GetOldID_EMPRESAValue : Integer;
    function GetOldID_ARTICULOValue : Integer;
    function GetOldFAMILIAValue : String;
    function GetOldREFERENCIAValue : String;
    function GetOldREFERENCIA_PROVValue : String;
    function GetOldDESCRIPCIONValue : String;
    function GetOldCOMISIONABLEValue : Integer;
    function GetOldINVENTARIABLEValue : Integer;
    function GetOldIMP_UNIDAD_ULT_VENTValue : Float;
    function GetOldIMP_NETO_ULT_VENTValue : Float;
    function GetOldIMP_PORTE_ULT_VENTValue : Float;
    function GetOldIMP_UNIDAD_PRO_VENTValue : Float;
    function GetOldIMP_NETO_PRO_VENTValue : Float;
    function GetOldIMP_PORTE_PRO_VENTValue : Float;
    function GetOldIMP_UNIDAD_COMPRAValue : Float;
    function GetOldIMP_NETO_COMPRAValue : Float;
    function GetOldIMP_PORTE_COMPRAValue : Float;
    function GetOldIMP_UNIDAD_ULT_COMPValue : Float;
    function GetOldIMP_NETO_ULT_COMPValue : Float;
    function GetOldIMP_PORTE_ULT_COMPValue : Float;
    function GetOldIMP_UNIDAD_PRO_COMPValue : Float;
    function GetOldIMP_NETO_PRO_COMPValue : Float;
    function GetOldIMP_PORTE_PRO_COMPValue : Float;
    function GetOldIMP_MARGEN_ULT_VENT_COMPRAValue : Float;
    function GetOldPOR_MARGEN_ULT_VENT_COMPRAValue : Float;
    function GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue : Float;
    function GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue : Float;
    function GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue : Float;
    function GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue : Float;
    function GetOldIMP_MARGEN_PRO_VENT_COMPRAValue : Float;
    function GetOldPOR_MARGEN_PRO_VENT_COMPRAValue : Float;
    function GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue : Float;
    function GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue : Float;
    function GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue : Float;
    function GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue : Float;

    { Properties }
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
    property OldFAMILIA : String read GetOldFAMILIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
    property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
    property OldIMP_UNIDAD_ULT_VENT : Float read GetOldIMP_UNIDAD_ULT_VENTValue;
    property OldIMP_NETO_ULT_VENT : Float read GetOldIMP_NETO_ULT_VENTValue;
    property OldIMP_PORTE_ULT_VENT : Float read GetOldIMP_PORTE_ULT_VENTValue;
    property OldIMP_UNIDAD_PRO_VENT : Float read GetOldIMP_UNIDAD_PRO_VENTValue;
    property OldIMP_NETO_PRO_VENT : Float read GetOldIMP_NETO_PRO_VENTValue;
    property OldIMP_PORTE_PRO_VENT : Float read GetOldIMP_PORTE_PRO_VENTValue;
    property OldIMP_UNIDAD_COMPRA : Float read GetOldIMP_UNIDAD_COMPRAValue;
    property OldIMP_NETO_COMPRA : Float read GetOldIMP_NETO_COMPRAValue;
    property OldIMP_PORTE_COMPRA : Float read GetOldIMP_PORTE_COMPRAValue;
    property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
    property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
    property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
    property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
    property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
    property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
    property OldIMP_MARGEN_ULT_VENT_COMPRA : Float read GetOldIMP_MARGEN_ULT_VENT_COMPRAValue;
    property OldPOR_MARGEN_ULT_VENT_COMPRA : Float read GetOldPOR_MARGEN_ULT_VENT_COMPRAValue;
    property OldIMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue;
    property OldPOR_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue;
    property OldIMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue;
    property OldPOR_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue;
    property OldIMP_MARGEN_PRO_VENT_COMPRA : Float read GetOldIMP_MARGEN_PRO_VENT_COMPRAValue;
    property OldPOR_MARGEN_PRO_VENT_COMPRA : Float read GetOldPOR_MARGEN_PRO_VENT_COMPRAValue;
    property OldIMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue;
    property OldPOR_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue;
    property OldIMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue;
    property OldPOR_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue;
  end;

  { TInfMargenPorArticuloBusinessProcessorRules }
  TInfMargenPorArticuloBusinessProcessorRules = class(TDABusinessProcessorRules, IInfMargenPorArticulo, IInfMargenPorArticuloDelta)
  private
  protected
    { Property getters and setters }
    function GetID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    function GetOldID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetFAMILIAValue: String; virtual;
    function GetOldFAMILIAValue: String; virtual;
    procedure SetFAMILIAValue(const aValue: String); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetREFERENCIA_PROVValue: String; virtual;
    function GetOldREFERENCIA_PROVValue: String; virtual;
    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetCOMISIONABLEValue: Integer; virtual;
    function GetOldCOMISIONABLEValue: Integer; virtual;
    procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
    function GetINVENTARIABLEValue: Integer; virtual;
    function GetOldINVENTARIABLEValue: Integer; virtual;
    procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
    function GetIMP_UNIDAD_ULT_VENTValue: Float; virtual;
    function GetOldIMP_UNIDAD_ULT_VENTValue: Float; virtual;
    procedure SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float); virtual;
    function GetIMP_NETO_ULT_VENTValue: Float; virtual;
    function GetOldIMP_NETO_ULT_VENTValue: Float; virtual;
    procedure SetIMP_NETO_ULT_VENTValue(const aValue: Float); virtual;
    function GetIMP_PORTE_ULT_VENTValue: Float; virtual;
    function GetOldIMP_PORTE_ULT_VENTValue: Float; virtual;
    procedure SetIMP_PORTE_ULT_VENTValue(const aValue: Float); virtual;
    function GetIMP_UNIDAD_PRO_VENTValue: Float; virtual;
    function GetOldIMP_UNIDAD_PRO_VENTValue: Float; virtual;
    procedure SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float); virtual;
    function GetIMP_NETO_PRO_VENTValue: Float; virtual;
    function GetOldIMP_NETO_PRO_VENTValue: Float; virtual;
    procedure SetIMP_NETO_PRO_VENTValue(const aValue: Float); virtual;
    function GetIMP_PORTE_PRO_VENTValue: Float; virtual;
    function GetOldIMP_PORTE_PRO_VENTValue: Float; virtual;
    procedure SetIMP_PORTE_PRO_VENTValue(const aValue: Float); virtual;
    function GetIMP_UNIDAD_COMPRAValue: Float; virtual;
    function GetOldIMP_UNIDAD_COMPRAValue: Float; virtual;
    procedure SetIMP_UNIDAD_COMPRAValue(const aValue: Float); virtual;
    function GetIMP_NETO_COMPRAValue: Float; virtual;
    function GetOldIMP_NETO_COMPRAValue: Float; virtual;
    procedure SetIMP_NETO_COMPRAValue(const aValue: Float); virtual;
    function GetIMP_PORTE_COMPRAValue: Float; virtual;
    function GetOldIMP_PORTE_COMPRAValue: Float; virtual;
    procedure SetIMP_PORTE_COMPRAValue(const aValue: Float); virtual;
    function GetIMP_UNIDAD_ULT_COMPValue: Float; virtual;
    function GetOldIMP_UNIDAD_ULT_COMPValue: Float; virtual;
    procedure SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_NETO_ULT_COMPValue: Float; virtual;
    function GetOldIMP_NETO_ULT_COMPValue: Float; virtual;
    procedure SetIMP_NETO_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_PORTE_ULT_COMPValue: Float; virtual;
    function GetOldIMP_PORTE_ULT_COMPValue: Float; virtual;
    procedure SetIMP_PORTE_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_UNIDAD_PRO_COMPValue: Float; virtual;
    function GetOldIMP_UNIDAD_PRO_COMPValue: Float; virtual;
    procedure SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_NETO_PRO_COMPValue: Float; virtual;
    function GetOldIMP_NETO_PRO_COMPValue: Float; virtual;
    procedure SetIMP_NETO_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_PORTE_PRO_COMPValue: Float; virtual;
    function GetOldIMP_PORTE_PRO_COMPValue: Float; virtual;
    procedure SetIMP_PORTE_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
    function GetOldIMP_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
    procedure SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
    function GetOldPOR_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
    procedure SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
    function GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
    procedure SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
    function GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
    procedure SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
    function GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
    procedure SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
    function GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
    procedure SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
    function GetOldIMP_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
    procedure SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
    function GetOldPOR_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
    procedure SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
    function GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
    procedure SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
    function GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
    procedure SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
    function GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
    procedure SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
    function GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
    procedure SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float); virtual;

    { Properties }
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
    property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
    property OldFAMILIA : String read GetOldFAMILIAValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
    property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
    property INVENTARIABLE : Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
    property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
    property IMP_UNIDAD_ULT_VENT : Float read GetIMP_UNIDAD_ULT_VENTValue write SetIMP_UNIDAD_ULT_VENTValue;
    property OldIMP_UNIDAD_ULT_VENT : Float read GetOldIMP_UNIDAD_ULT_VENTValue;
    property IMP_NETO_ULT_VENT : Float read GetIMP_NETO_ULT_VENTValue write SetIMP_NETO_ULT_VENTValue;
    property OldIMP_NETO_ULT_VENT : Float read GetOldIMP_NETO_ULT_VENTValue;
    property IMP_PORTE_ULT_VENT : Float read GetIMP_PORTE_ULT_VENTValue write SetIMP_PORTE_ULT_VENTValue;
    property OldIMP_PORTE_ULT_VENT : Float read GetOldIMP_PORTE_ULT_VENTValue;
    property IMP_UNIDAD_PRO_VENT : Float read GetIMP_UNIDAD_PRO_VENTValue write SetIMP_UNIDAD_PRO_VENTValue;
    property OldIMP_UNIDAD_PRO_VENT : Float read GetOldIMP_UNIDAD_PRO_VENTValue;
    property IMP_NETO_PRO_VENT : Float read GetIMP_NETO_PRO_VENTValue write SetIMP_NETO_PRO_VENTValue;
    property OldIMP_NETO_PRO_VENT : Float read GetOldIMP_NETO_PRO_VENTValue;
    property IMP_PORTE_PRO_VENT : Float read GetIMP_PORTE_PRO_VENTValue write SetIMP_PORTE_PRO_VENTValue;
    property OldIMP_PORTE_PRO_VENT : Float read GetOldIMP_PORTE_PRO_VENTValue;
    property IMP_UNIDAD_COMPRA : Float read GetIMP_UNIDAD_COMPRAValue write SetIMP_UNIDAD_COMPRAValue;
    property OldIMP_UNIDAD_COMPRA : Float read GetOldIMP_UNIDAD_COMPRAValue;
    property IMP_NETO_COMPRA : Float read GetIMP_NETO_COMPRAValue write SetIMP_NETO_COMPRAValue;
    property OldIMP_NETO_COMPRA : Float read GetOldIMP_NETO_COMPRAValue;
    property IMP_PORTE_COMPRA : Float read GetIMP_PORTE_COMPRAValue write SetIMP_PORTE_COMPRAValue;
    property OldIMP_PORTE_COMPRA : Float read GetOldIMP_PORTE_COMPRAValue;
    property IMP_UNIDAD_ULT_COMP : Float read GetIMP_UNIDAD_ULT_COMPValue write SetIMP_UNIDAD_ULT_COMPValue;
    property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
    property IMP_NETO_ULT_COMP : Float read GetIMP_NETO_ULT_COMPValue write SetIMP_NETO_ULT_COMPValue;
    property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
    property IMP_PORTE_ULT_COMP : Float read GetIMP_PORTE_ULT_COMPValue write SetIMP_PORTE_ULT_COMPValue;
    property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
    property IMP_UNIDAD_PRO_COMP : Float read GetIMP_UNIDAD_PRO_COMPValue write SetIMP_UNIDAD_PRO_COMPValue;
    property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
    property IMP_NETO_PRO_COMP : Float read GetIMP_NETO_PRO_COMPValue write SetIMP_NETO_PRO_COMPValue;
    property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
    property IMP_PORTE_PRO_COMP : Float read GetIMP_PORTE_PRO_COMPValue write SetIMP_PORTE_PRO_COMPValue;
    property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
    property IMP_MARGEN_ULT_VENT_COMPRA : Float read GetIMP_MARGEN_ULT_VENT_COMPRAValue write SetIMP_MARGEN_ULT_VENT_COMPRAValue;
    property OldIMP_MARGEN_ULT_VENT_COMPRA : Float read GetOldIMP_MARGEN_ULT_VENT_COMPRAValue;
    property POR_MARGEN_ULT_VENT_COMPRA : Float read GetPOR_MARGEN_ULT_VENT_COMPRAValue write SetPOR_MARGEN_ULT_VENT_COMPRAValue;
    property OldPOR_MARGEN_ULT_VENT_COMPRA : Float read GetOldPOR_MARGEN_ULT_VENT_COMPRAValue;
    property IMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetIMP_MARGEN_ULT_VENT_ULT_COMPValue write SetIMP_MARGEN_ULT_VENT_ULT_COMPValue;
    property OldIMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue;
    property POR_MARGEN_ULT_VENT_ULT_COMP : Float read GetPOR_MARGEN_ULT_VENT_ULT_COMPValue write SetPOR_MARGEN_ULT_VENT_ULT_COMPValue;
    property OldPOR_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue;
    property IMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetIMP_MARGEN_ULT_VENT_PRO_COMPValue write SetIMP_MARGEN_ULT_VENT_PRO_COMPValue;
    property OldIMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue;
    property POR_MARGEN_ULT_VENT_PRO_COMP : Float read GetPOR_MARGEN_ULT_VENT_PRO_COMPValue write SetPOR_MARGEN_ULT_VENT_PRO_COMPValue;
    property OldPOR_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue;
    property IMP_MARGEN_PRO_VENT_COMPRA : Float read GetIMP_MARGEN_PRO_VENT_COMPRAValue write SetIMP_MARGEN_PRO_VENT_COMPRAValue;
    property OldIMP_MARGEN_PRO_VENT_COMPRA : Float read GetOldIMP_MARGEN_PRO_VENT_COMPRAValue;
    property POR_MARGEN_PRO_VENT_COMPRA : Float read GetPOR_MARGEN_PRO_VENT_COMPRAValue write SetPOR_MARGEN_PRO_VENT_COMPRAValue;
    property OldPOR_MARGEN_PRO_VENT_COMPRA : Float read GetOldPOR_MARGEN_PRO_VENT_COMPRAValue;
    property IMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetIMP_MARGEN_PRO_VENT_ULT_COMPValue write SetIMP_MARGEN_PRO_VENT_ULT_COMPValue;
    property OldIMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue;
    property POR_MARGEN_PRO_VENT_ULT_COMP : Float read GetPOR_MARGEN_PRO_VENT_ULT_COMPValue write SetPOR_MARGEN_PRO_VENT_ULT_COMPValue;
    property OldPOR_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue;
    property IMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetIMP_MARGEN_PRO_VENT_PRO_COMPValue write SetIMP_MARGEN_PRO_VENT_PRO_COMPValue;
    property OldIMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue;
    property POR_MARGEN_PRO_VENT_PRO_COMP : Float read GetPOR_MARGEN_PRO_VENT_PRO_COMPValue write SetPOR_MARGEN_PRO_VENT_PRO_COMPValue;
    property OldPOR_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue;

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

  end;

  { IInfMargenPorFacturaDelta }
  IInfMargenPorFacturaDelta = interface(IInfMargenPorFactura)
  ['{5C45D321-F740-48B8-BCD7-4B00331BB267}']
    { Property getters and setters }
    function GetOldID_EMPRESAValue : Integer;
    function GetOldID_CLIENTEValue : Integer;
    function GetOldID_FACTURAValue : Integer;
    function GetOldID_DETALLEValue : Integer;
    function GetOldID_ARTICULOValue : Integer;
    function GetOldFAMILIAValue : String;
    function GetOldREFERENCIAValue : String;
    function GetOldREFERENCIA_PROVValue : String;
    function GetOldREFERENCIA_FACTURAValue : String;
    function GetOldFECHA_FACTURAValue : DateTime;
    function GetOldDESCRIPCIONValue : String;
    function GetOldCOMISIONABLEValue : Integer;
    function GetOldINVENTARIABLEValue : Integer;
    function GetOldNIF_CIF_CLIENTEValue : String;
    function GetOldNOMBRE_CLIENTEValue : String;
    function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
    function GetOldNIF_CIF_AGENTEValue : String;
    function GetOldNOMBRE_AGENTEValue : String;
    function GetOldCANTIDADValue : Integer;
    function GetOldIMP_UNIDADValue : Float;
    function GetOldIMP_NETOValue : Float;
    function GetOldIMP_PORTEValue : Float;
    function GetOldIMP_TOTALValue : Float;
    function GetOldIMP_UNIDAD_ULT_COMPValue : Float;
    function GetOldIMP_NETO_ULT_COMPValue : Float;
    function GetOldIMP_PORTE_ULT_COMPValue : Float;
    function GetOldIMP_NETO_ULT_COM_TOTALValue : Float;
    function GetOldIMP_UNIDAD_PRO_COMPValue : Float;
    function GetOldIMP_NETO_PRO_COMPValue : Float;
    function GetOldIMP_PORTE_PRO_COMPValue : Float;
    function GetOldIMP_NETO_PRO_COM_TOTALValue : Float;
    function GetOldIMP_MARGEN_ULT_COMPValue : Float;
    function GetOldIMP_MARGEN_ULT_COMP_TOTALValue : Float;
    function GetOldPOR_MARGEN_ULT_COMPValue : Float;
    function GetOldIMP_MARGEN_PRO_COMPValue : Float;
    function GetOldIMP_MARGEN_PRO_COMP_TOTALValue : Float;
    function GetOldPOR_MARGEN_PRO_COMPValue : Float;

    { Properties }
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
    property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
    property OldID_DETALLE : Integer read GetOldID_DETALLEValue;
    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
    property OldFAMILIA : String read GetOldFAMILIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
    property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
    property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
    property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
    property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
    property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
    property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
    property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
    property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property OldIMP_UNIDAD : Float read GetOldIMP_UNIDADValue;
    property OldIMP_NETO : Float read GetOldIMP_NETOValue;
    property OldIMP_PORTE : Float read GetOldIMP_PORTEValue;
    property OldIMP_TOTAL : Float read GetOldIMP_TOTALValue;
    property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
    property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
    property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
    property OldIMP_NETO_ULT_COM_TOTAL : Float read GetOldIMP_NETO_ULT_COM_TOTALValue;
    property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
    property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
    property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
    property OldIMP_NETO_PRO_COM_TOTAL : Float read GetOldIMP_NETO_PRO_COM_TOTALValue;
    property OldIMP_MARGEN_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_COMPValue;
    property OldIMP_MARGEN_ULT_COMP_TOTAL : Float read GetOldIMP_MARGEN_ULT_COMP_TOTALValue;
    property OldPOR_MARGEN_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_COMPValue;
    property OldIMP_MARGEN_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_COMPValue;
    property OldIMP_MARGEN_PRO_COMP_TOTAL : Float read GetOldIMP_MARGEN_PRO_COMP_TOTALValue;
    property OldPOR_MARGEN_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_COMPValue;
  end;

  { TInfMargenPorFacturaBusinessProcessorRules }
  TInfMargenPorFacturaBusinessProcessorRules = class(TDABusinessProcessorRules, IInfMargenPorFactura, IInfMargenPorFacturaDelta)
  private
  protected
    { Property getters and setters }
    function GetID_EMPRESAValue: Integer; virtual;
    function GetOldID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetID_CLIENTEValue: Integer; virtual;
    function GetOldID_CLIENTEValue: Integer; virtual;
    procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
    function GetID_FACTURAValue: Integer; virtual;
    function GetOldID_FACTURAValue: Integer; virtual;
    procedure SetID_FACTURAValue(const aValue: Integer); virtual;
    function GetID_DETALLEValue: Integer; virtual;
    function GetOldID_DETALLEValue: Integer; virtual;
    procedure SetID_DETALLEValue(const aValue: Integer); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    function GetOldID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetFAMILIAValue: String; virtual;
    function GetOldFAMILIAValue: String; virtual;
    procedure SetFAMILIAValue(const aValue: String); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetREFERENCIA_PROVValue: String; virtual;
    function GetOldREFERENCIA_PROVValue: String; virtual;
    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
    function GetREFERENCIA_FACTURAValue: String; virtual;
    function GetOldREFERENCIA_FACTURAValue: String; virtual;
    procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
    function GetFECHA_FACTURAValue: DateTime; virtual;
    function GetOldFECHA_FACTURAValue: DateTime; virtual;
    procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetCOMISIONABLEValue: Integer; virtual;
    function GetOldCOMISIONABLEValue: Integer; virtual;
    procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
    function GetINVENTARIABLEValue: Integer; virtual;
    function GetOldINVENTARIABLEValue: Integer; virtual;
    procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
    function GetNIF_CIF_CLIENTEValue: String; virtual;
    function GetOldNIF_CIF_CLIENTEValue: String; virtual;
    procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
    function GetNOMBRE_CLIENTEValue: String; virtual;
    function GetOldNOMBRE_CLIENTEValue: String; virtual;
    procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
    function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
    function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
    procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
    function GetNIF_CIF_AGENTEValue: String; virtual;
    function GetOldNIF_CIF_AGENTEValue: String; virtual;
    procedure SetNIF_CIF_AGENTEValue(const aValue: String); virtual;
    function GetNOMBRE_AGENTEValue: String; virtual;
    function GetOldNOMBRE_AGENTEValue: String; virtual;
    procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
    function GetCANTIDADValue: Integer; virtual;
    function GetOldCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetIMP_UNIDADValue: Float; virtual;
    function GetOldIMP_UNIDADValue: Float; virtual;
    procedure SetIMP_UNIDADValue(const aValue: Float); virtual;
    function GetIMP_NETOValue: Float; virtual;
    function GetOldIMP_NETOValue: Float; virtual;
    procedure SetIMP_NETOValue(const aValue: Float); virtual;
    function GetIMP_PORTEValue: Float; virtual;
    function GetOldIMP_PORTEValue: Float; virtual;
    procedure SetIMP_PORTEValue(const aValue: Float); virtual;
    function GetIMP_TOTALValue: Float; virtual;
    function GetOldIMP_TOTALValue: Float; virtual;
    procedure SetIMP_TOTALValue(const aValue: Float); virtual;
    function GetIMP_UNIDAD_ULT_COMPValue: Float; virtual;
    function GetOldIMP_UNIDAD_ULT_COMPValue: Float; virtual;
    procedure SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_NETO_ULT_COMPValue: Float; virtual;
    function GetOldIMP_NETO_ULT_COMPValue: Float; virtual;
    procedure SetIMP_NETO_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_PORTE_ULT_COMPValue: Float; virtual;
    function GetOldIMP_PORTE_ULT_COMPValue: Float; virtual;
    procedure SetIMP_PORTE_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_NETO_ULT_COM_TOTALValue: Float; virtual;
    function GetOldIMP_NETO_ULT_COM_TOTALValue: Float; virtual;
    procedure SetIMP_NETO_ULT_COM_TOTALValue(const aValue: Float); virtual;
    function GetIMP_UNIDAD_PRO_COMPValue: Float; virtual;
    function GetOldIMP_UNIDAD_PRO_COMPValue: Float; virtual;
    procedure SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_NETO_PRO_COMPValue: Float; virtual;
    function GetOldIMP_NETO_PRO_COMPValue: Float; virtual;
    procedure SetIMP_NETO_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_PORTE_PRO_COMPValue: Float; virtual;
    function GetOldIMP_PORTE_PRO_COMPValue: Float; virtual;
    procedure SetIMP_PORTE_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_NETO_PRO_COM_TOTALValue: Float; virtual;
    function GetOldIMP_NETO_PRO_COM_TOTALValue: Float; virtual;
    procedure SetIMP_NETO_PRO_COM_TOTALValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_ULT_COMPValue: Float; virtual;
    function GetOldIMP_MARGEN_ULT_COMPValue: Float; virtual;
    procedure SetIMP_MARGEN_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_ULT_COMP_TOTALValue: Float; virtual;
    function GetOldIMP_MARGEN_ULT_COMP_TOTALValue: Float; virtual;
    procedure SetIMP_MARGEN_ULT_COMP_TOTALValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_ULT_COMPValue: Float; virtual;
    function GetOldPOR_MARGEN_ULT_COMPValue: Float; virtual;
    procedure SetPOR_MARGEN_ULT_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_PRO_COMPValue: Float; virtual;
    function GetOldIMP_MARGEN_PRO_COMPValue: Float; virtual;
    procedure SetIMP_MARGEN_PRO_COMPValue(const aValue: Float); virtual;
    function GetIMP_MARGEN_PRO_COMP_TOTALValue: Float; virtual;
    function GetOldIMP_MARGEN_PRO_COMP_TOTALValue: Float; virtual;
    procedure SetIMP_MARGEN_PRO_COMP_TOTALValue(const aValue: Float); virtual;
    function GetPOR_MARGEN_PRO_COMPValue: Float; virtual;
    function GetOldPOR_MARGEN_PRO_COMPValue: Float; virtual;
    procedure SetPOR_MARGEN_PRO_COMPValue(const aValue: Float); virtual;

    { Properties }
    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
    property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
    property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
    property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
    property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
    property ID_DETALLE : Integer read GetID_DETALLEValue write SetID_DETALLEValue;
    property OldID_DETALLE : Integer read GetOldID_DETALLEValue;
    property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
    property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
    property OldFAMILIA : String read GetOldFAMILIAValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
    property REFERENCIA_FACTURA : String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
    property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
    property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
    property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
    property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
    property INVENTARIABLE : Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
    property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
    property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
    property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
    property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
    property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
    property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
    property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
    property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
    property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
    property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
    property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property IMP_UNIDAD : Float read GetIMP_UNIDADValue write SetIMP_UNIDADValue;
    property OldIMP_UNIDAD : Float read GetOldIMP_UNIDADValue;
    property IMP_NETO : Float read GetIMP_NETOValue write SetIMP_NETOValue;
    property OldIMP_NETO : Float read GetOldIMP_NETOValue;
    property IMP_PORTE : Float read GetIMP_PORTEValue write SetIMP_PORTEValue;
    property OldIMP_PORTE : Float read GetOldIMP_PORTEValue;
    property IMP_TOTAL : Float read GetIMP_TOTALValue write SetIMP_TOTALValue;
    property OldIMP_TOTAL : Float read GetOldIMP_TOTALValue;
    property IMP_UNIDAD_ULT_COMP : Float read GetIMP_UNIDAD_ULT_COMPValue write SetIMP_UNIDAD_ULT_COMPValue;
    property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
    property IMP_NETO_ULT_COMP : Float read GetIMP_NETO_ULT_COMPValue write SetIMP_NETO_ULT_COMPValue;
    property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
    property IMP_PORTE_ULT_COMP : Float read GetIMP_PORTE_ULT_COMPValue write SetIMP_PORTE_ULT_COMPValue;
    property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
    property IMP_NETO_ULT_COM_TOTAL : Float read GetIMP_NETO_ULT_COM_TOTALValue write SetIMP_NETO_ULT_COM_TOTALValue;
    property OldIMP_NETO_ULT_COM_TOTAL : Float read GetOldIMP_NETO_ULT_COM_TOTALValue;
    property IMP_UNIDAD_PRO_COMP : Float read GetIMP_UNIDAD_PRO_COMPValue write SetIMP_UNIDAD_PRO_COMPValue;
    property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
    property IMP_NETO_PRO_COMP : Float read GetIMP_NETO_PRO_COMPValue write SetIMP_NETO_PRO_COMPValue;
    property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
    property IMP_PORTE_PRO_COMP : Float read GetIMP_PORTE_PRO_COMPValue write SetIMP_PORTE_PRO_COMPValue;
    property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
    property IMP_NETO_PRO_COM_TOTAL : Float read GetIMP_NETO_PRO_COM_TOTALValue write SetIMP_NETO_PRO_COM_TOTALValue;
    property OldIMP_NETO_PRO_COM_TOTAL : Float read GetOldIMP_NETO_PRO_COM_TOTALValue;
    property IMP_MARGEN_ULT_COMP : Float read GetIMP_MARGEN_ULT_COMPValue write SetIMP_MARGEN_ULT_COMPValue;
    property OldIMP_MARGEN_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_COMPValue;
    property IMP_MARGEN_ULT_COMP_TOTAL : Float read GetIMP_MARGEN_ULT_COMP_TOTALValue write SetIMP_MARGEN_ULT_COMP_TOTALValue;
    property OldIMP_MARGEN_ULT_COMP_TOTAL : Float read GetOldIMP_MARGEN_ULT_COMP_TOTALValue;
    property POR_MARGEN_ULT_COMP : Float read GetPOR_MARGEN_ULT_COMPValue write SetPOR_MARGEN_ULT_COMPValue;
    property OldPOR_MARGEN_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_COMPValue;
    property IMP_MARGEN_PRO_COMP : Float read GetIMP_MARGEN_PRO_COMPValue write SetIMP_MARGEN_PRO_COMPValue;
    property OldIMP_MARGEN_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_COMPValue;
    property IMP_MARGEN_PRO_COMP_TOTAL : Float read GetIMP_MARGEN_PRO_COMP_TOTALValue write SetIMP_MARGEN_PRO_COMP_TOTALValue;
    property OldIMP_MARGEN_PRO_COMP_TOTAL : Float read GetOldIMP_MARGEN_PRO_COMP_TOTALValue;
    property POR_MARGEN_PRO_COMP : Float read GetPOR_MARGEN_PRO_COMPValue write SetPOR_MARGEN_PRO_COMPValue;
    property OldPOR_MARGEN_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_COMPValue;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers;

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

destructor TInfMargenPorClienteBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteID_EMPRESA];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteID_EMPRESA];
end;

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

function TInfMargenPorClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteID_CLIENTE];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteID_CLIENTE];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteID_CLIENTE] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteID_ARTICULO];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteID_ARTICULO];
end;

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

function TInfMargenPorClienteBusinessProcessorRules.GetFAMILIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteFAMILIA];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteFAMILIA];
end;

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

function TInfMargenPorClienteBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteREFERENCIA];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteREFERENCIA];
end;

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

function TInfMargenPorClienteBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteREFERENCIA_PROV];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteREFERENCIA_PROV];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteREFERENCIA_PROV] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteDESCRIPCION];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteDESCRIPCION];
end;

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

function TInfMargenPorClienteBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteCOMISIONABLE];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteCOMISIONABLE];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteCOMISIONABLE] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetINVENTARIABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteINVENTARIABLE];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteINVENTARIABLE];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteINVENTARIABLE] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNIF_CIF_CLIENTE];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteNIF_CIF_CLIENTE];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNIF_CIF_CLIENTE] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_CLIENTE];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteNOMBRE_CLIENTE];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_CLIENTE] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetNIF_CIF_AGENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNIF_CIF_AGENTE];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldNIF_CIF_AGENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteNIF_CIF_AGENTE];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetNIF_CIF_AGENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNIF_CIF_AGENTE] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_AGENTE];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteNOMBRE_AGENTE];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_AGENTE] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_UNIDAD_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_VENT];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_UNIDAD_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_VENT];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_VENT] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_NETO_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_VENT];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_NETO_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_VENT];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_NETO_ULT_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_VENT] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_PORTE_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_VENT];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_PORTE_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_VENT];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_PORTE_ULT_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_VENT] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_UNIDAD_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_VENT];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_UNIDAD_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_VENT];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_VENT] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_NETO_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_VENT];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_NETO_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_VENT];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_NETO_PRO_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_VENT] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_PORTE_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_VENT];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_PORTE_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_VENT];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_PORTE_PRO_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_VENT] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_UNIDAD_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_COMPRA];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_UNIDAD_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_UNIDAD_COMPRA];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_UNIDAD_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_COMPRA] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_NETO_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_COMPRA];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_NETO_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_NETO_COMPRA];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_NETO_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_COMPRA] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_PORTE_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_COMPRA];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_PORTE_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_PORTE_COMPRA];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_PORTE_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_COMPRA] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_UNIDAD_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_UNIDAD_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_NETO_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_NETO_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_NETO_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_PORTE_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_PORTE_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_PORTE_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_UNIDAD_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_UNIDAD_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_NETO_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_NETO_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_NETO_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_PORTE_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_PORTE_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_PORTE_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_COMPRA];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_COMPRA];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_COMPRA] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_COMPRA];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_COMPRA];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_COMPRA] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_PRO_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_PRO_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_PRO_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_PRO_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_PRO_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_PRO_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_COMPRA];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_COMPRA];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_COMPRA] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_COMPRA];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_COMPRA];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_COMPRA] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_ULT_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_ULT_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_ULT_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_ULT_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_ULT_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_ULT_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP] := aValue;
end;

function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP];
end;

function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP];
end;

procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP] := aValue;
end;


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

destructor TInfMargenPorArticuloBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloID_EMPRESA];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloID_EMPRESA];
end;

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

function TInfMargenPorArticuloBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloID_ARTICULO];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloID_ARTICULO];
end;

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

function TInfMargenPorArticuloBusinessProcessorRules.GetFAMILIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloFAMILIA];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloFAMILIA];
end;

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

function TInfMargenPorArticuloBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloREFERENCIA];
end;

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

function TInfMargenPorArticuloBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA_PROV];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloREFERENCIA_PROV];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA_PROV] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloDESCRIPCION];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloDESCRIPCION];
end;

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

function TInfMargenPorArticuloBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloCOMISIONABLE];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloCOMISIONABLE];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloCOMISIONABLE] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetINVENTARIABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloINVENTARIABLE];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloINVENTARIABLE];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloINVENTARIABLE] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_UNIDAD_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_VENT];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_UNIDAD_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_VENT];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_VENT] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_NETO_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_VENT];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_NETO_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_VENT];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_NETO_ULT_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_VENT] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_PORTE_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_VENT];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_PORTE_ULT_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_VENT];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_PORTE_ULT_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_VENT] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_UNIDAD_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_VENT];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_UNIDAD_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_VENT];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_VENT] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_NETO_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_VENT];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_NETO_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_VENT];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_NETO_PRO_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_VENT] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_PORTE_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_VENT];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_PORTE_PRO_VENTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_VENT];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_PORTE_PRO_VENTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_VENT] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_UNIDAD_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_COMPRA];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_UNIDAD_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_COMPRA];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_UNIDAD_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_COMPRA] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_NETO_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_COMPRA];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_NETO_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_NETO_COMPRA];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_NETO_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_COMPRA] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_PORTE_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_COMPRA];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_PORTE_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_PORTE_COMPRA];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_PORTE_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_COMPRA] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_UNIDAD_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_UNIDAD_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_NETO_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_NETO_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_NETO_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_PORTE_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_PORTE_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_PORTE_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_UNIDAD_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_UNIDAD_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_NETO_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_NETO_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_NETO_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_PORTE_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_PORTE_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_PORTE_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_COMPRA];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_COMPRA];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_COMPRA] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_COMPRA];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_COMPRA];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_COMPRA] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_ULT_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_ULT_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_ULT_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_ULT_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_ULT_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_ULT_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_PRO_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_PRO_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_PRO_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_PRO_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_PRO_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_PRO_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_COMPRA];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_COMPRA];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_COMPRA] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_COMPRA];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_COMPRAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_COMPRA];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_COMPRA] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_ULT_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_ULT_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_ULT_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_ULT_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_ULT_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_ULT_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_PRO_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_PRO_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_PRO_COMP] := aValue;
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_PRO_COMP];
end;

function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_PRO_COMP];
end;

procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_PRO_COMP] := aValue;
end;


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

destructor TInfMargenPorFacturaBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_EMPRESA];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaID_EMPRESA];
end;

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

function TInfMargenPorFacturaBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_CLIENTE];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaID_CLIENTE];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_CLIENTE] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_FACTURA];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaID_FACTURA];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_FACTURA] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetID_DETALLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_DETALLE];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldID_DETALLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaID_DETALLE];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetID_DETALLEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_DETALLE] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_ARTICULO];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaID_ARTICULO];
end;

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

function TInfMargenPorFacturaBusinessProcessorRules.GetFAMILIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaFAMILIA];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaFAMILIA];
end;

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

function TInfMargenPorFacturaBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaREFERENCIA];
end;

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

function TInfMargenPorFacturaBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA_PROV];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaREFERENCIA_PROV];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA_PROV] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetREFERENCIA_FACTURAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA_FACTURA];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldREFERENCIA_FACTURAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaREFERENCIA_FACTURA];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetREFERENCIA_FACTURAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA_FACTURA] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaFECHA_FACTURA];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaFECHA_FACTURA];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaFECHA_FACTURA] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaDESCRIPCION];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaDESCRIPCION];
end;

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

function TInfMargenPorFacturaBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaCOMISIONABLE];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaCOMISIONABLE];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaCOMISIONABLE] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetINVENTARIABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaINVENTARIABLE];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaINVENTARIABLE];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaINVENTARIABLE] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNIF_CIF_CLIENTE];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaNIF_CIF_CLIENTE];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNIF_CIF_CLIENTE] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_CLIENTE];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaNOMBRE_CLIENTE];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_CLIENTE] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetNIF_CIF_AGENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNIF_CIF_AGENTE];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldNIF_CIF_AGENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaNIF_CIF_AGENTE];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetNIF_CIF_AGENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNIF_CIF_AGENTE] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_AGENTE];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaNOMBRE_AGENTE];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_AGENTE] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaCANTIDAD];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaCANTIDAD];
end;

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

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_UNIDADValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_UNIDADValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_UNIDAD];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_UNIDADValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_NETOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_NETOValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_NETO];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_NETOValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_PORTEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_PORTEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_PORTE];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_PORTEValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_TOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_TOTAL];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_TOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_TOTAL];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_TOTALValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_TOTAL] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_UNIDAD_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_ULT_COMP];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_UNIDAD_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_ULT_COMP];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_ULT_COMP] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_NETO_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COMP];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_NETO_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COMP];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_NETO_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COMP] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_PORTE_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE_ULT_COMP];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_PORTE_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_PORTE_ULT_COMP];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_PORTE_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE_ULT_COMP] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_NETO_ULT_COM_TOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COM_TOTAL];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_NETO_ULT_COM_TOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COM_TOTAL];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_NETO_ULT_COM_TOTALValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COM_TOTAL] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_UNIDAD_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_PRO_COMP];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_UNIDAD_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_PRO_COMP];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_PRO_COMP] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_NETO_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COMP];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_NETO_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COMP];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_NETO_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COMP] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_PORTE_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE_PRO_COMP];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_PORTE_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_PORTE_PRO_COMP];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_PORTE_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE_PRO_COMP] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_NETO_PRO_COM_TOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COM_TOTAL];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_NETO_PRO_COM_TOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COM_TOTAL];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_NETO_PRO_COM_TOTALValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COM_TOTAL] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_MARGEN_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_MARGEN_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_MARGEN_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_MARGEN_ULT_COMP_TOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP_TOTAL];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_MARGEN_ULT_COMP_TOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP_TOTAL];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_MARGEN_ULT_COMP_TOTALValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP_TOTAL] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetPOR_MARGEN_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPOR_MARGEN_ULT_COMP];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldPOR_MARGEN_ULT_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaPOR_MARGEN_ULT_COMP];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetPOR_MARGEN_ULT_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPOR_MARGEN_ULT_COMP] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_MARGEN_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_MARGEN_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_MARGEN_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_MARGEN_PRO_COMP_TOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_MARGEN_PRO_COMP_TOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_MARGEN_PRO_COMP_TOTALValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL] := aValue;
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetPOR_MARGEN_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPOR_MARGEN_PRO_COMP];
end;

function TInfMargenPorFacturaBusinessProcessorRules.GetOldPOR_MARGEN_PRO_COMPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaPOR_MARGEN_PRO_COMP];
end;

procedure TInfMargenPorFacturaBusinessProcessorRules.SetPOR_MARGEN_PRO_COMPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPOR_MARGEN_PRO_COMP] := aValue;
end;


initialization
  RegisterBusinessProcessorRules(RID_InfMargenPorClienteDelta, TInfMargenPorClienteBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InfMargenPorArticuloDelta, TInfMargenPorArticuloBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InfMargenPorFacturaDelta, TInfMargenPorFacturaBusinessProcessorRules);

end.
