unit schEDISalesServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schEDISalesClient_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_RDX_ARTVENDelta = '{DBADAFB4-396F-45CF-969C-0E310CE772EF}';
  RID_RDX_CABVENDelta = '{EDFAD481-7C5C-49FE-9B6C-9F498CEC065D}';
  RID_RDX_LUGVENDelta = '{51ECAB19-FE1D-4141-82A8-F4078ADA6B11}';

type
  { IRDX_ARTVENDelta }
  IRDX_ARTVENDelta = interface(IRDX_ARTVEN)
  ['{DBADAFB4-396F-45CF-969C-0E310CE772EF}']
    { Property getters and setters }
    function GetOldCLAVE1Value : Float;
    function GetOldCLAVE2Value : Float;
    function GetOldCLAVE3Value : Float;
    function GetOldEANARTValue : String;
    function GetOldCODCOMValue : String;
    function GetOldNUMVARValue : String;
    function GetOldCODPROValue : String;
    function GetOldDESARTCOValue : String;
    function GetOldDESARTValue : String;
    function GetOldNUMCONValue : String;
    function GetOldNUMLISValue : String;
    function GetOldCONESP1Value : String;
    function GetOldCONESP2Value : String;
    function GetOldCONESP3Value : String;
    function GetOldVALVENValue : Float;
    function GetOldPRENETCTValue : Float;
    function GetOldPREBRUCTValue : Float;
    function GetOldPREINFETValue : Float;
    function GetOldPREINFFTValue : Float;
    function GetOldPRECALCTValue : Float;
    function GetOldPRENETCAValue : Float;
    function GetOldPREBRUCAValue : Float;
    function GetOldPREINFEAValue : Float;
    function GetOldPREINFFAValue : Float;
    function GetOldPRECALCAValue : Float;
    function GetOldBAPRUN1Value : Float;
    function GetOldUNIMED1Value : String;
    function GetOldBAPRUN2Value : Float;
    function GetOldUNIMED2Value : String;
    function GetOldBAPRUN3Value : Float;
    function GetOldUNIMED3Value : String;
    function GetOldBAPRUN4Value : Float;
    function GetOldUNIMED4Value : String;
    function GetOldBAPRUN5Value : Float;
    function GetOldUNIMED5Value : String;
    function GetOldCANVENValue : Float;
    function GetOldEXIPROValue : Float;
    function GetOldDESEXIValue : Float;
    function GetOldESPMEDCVValue : String;
    function GetOldESPMEDEPValue : String;
    function GetOldESPMEDDEValue : String;
    function GetOldCANDEVValue : Float;
    function GetOldEANVENValue : String;
    function GetOldNOMVENValue : String;
    function GetOldNUMTALONValue : String;
    function GetOldCANVENNETValue : Float;
    function GetOldUMEDVENNETValue : String;
    function GetOldCANESPValue : Float;
    function GetOldUMEDESPValue : String;

    { Properties }
    property OldCLAVE1 : Float read GetOldCLAVE1Value;
    property OldCLAVE2 : Float read GetOldCLAVE2Value;
    property OldCLAVE3 : Float read GetOldCLAVE3Value;
    property OldEANART : String read GetOldEANARTValue;
    property OldCODCOM : String read GetOldCODCOMValue;
    property OldNUMVAR : String read GetOldNUMVARValue;
    property OldCODPRO : String read GetOldCODPROValue;
    property OldDESARTCO : String read GetOldDESARTCOValue;
    property OldDESART : String read GetOldDESARTValue;
    property OldNUMCON : String read GetOldNUMCONValue;
    property OldNUMLIS : String read GetOldNUMLISValue;
    property OldCONESP1 : String read GetOldCONESP1Value;
    property OldCONESP2 : String read GetOldCONESP2Value;
    property OldCONESP3 : String read GetOldCONESP3Value;
    property OldVALVEN : Float read GetOldVALVENValue;
    property OldPRENETCT : Float read GetOldPRENETCTValue;
    property OldPREBRUCT : Float read GetOldPREBRUCTValue;
    property OldPREINFET : Float read GetOldPREINFETValue;
    property OldPREINFFT : Float read GetOldPREINFFTValue;
    property OldPRECALCT : Float read GetOldPRECALCTValue;
    property OldPRENETCA : Float read GetOldPRENETCAValue;
    property OldPREBRUCA : Float read GetOldPREBRUCAValue;
    property OldPREINFEA : Float read GetOldPREINFEAValue;
    property OldPREINFFA : Float read GetOldPREINFFAValue;
    property OldPRECALCA : Float read GetOldPRECALCAValue;
    property OldBAPRUN1 : Float read GetOldBAPRUN1Value;
    property OldUNIMED1 : String read GetOldUNIMED1Value;
    property OldBAPRUN2 : Float read GetOldBAPRUN2Value;
    property OldUNIMED2 : String read GetOldUNIMED2Value;
    property OldBAPRUN3 : Float read GetOldBAPRUN3Value;
    property OldUNIMED3 : String read GetOldUNIMED3Value;
    property OldBAPRUN4 : Float read GetOldBAPRUN4Value;
    property OldUNIMED4 : String read GetOldUNIMED4Value;
    property OldBAPRUN5 : Float read GetOldBAPRUN5Value;
    property OldUNIMED5 : String read GetOldUNIMED5Value;
    property OldCANVEN : Float read GetOldCANVENValue;
    property OldEXIPRO : Float read GetOldEXIPROValue;
    property OldDESEXI : Float read GetOldDESEXIValue;
    property OldESPMEDCV : String read GetOldESPMEDCVValue;
    property OldESPMEDEP : String read GetOldESPMEDEPValue;
    property OldESPMEDDE : String read GetOldESPMEDDEValue;
    property OldCANDEV : Float read GetOldCANDEVValue;
    property OldEANVEN : String read GetOldEANVENValue;
    property OldNOMVEN : String read GetOldNOMVENValue;
    property OldNUMTALON : String read GetOldNUMTALONValue;
    property OldCANVENNET : Float read GetOldCANVENNETValue;
    property OldUMEDVENNET : String read GetOldUMEDVENNETValue;
    property OldCANESP : Float read GetOldCANESPValue;
    property OldUMEDESP : String read GetOldUMEDESPValue;
  end;

  { TRDX_ARTVENBusinessProcessorRules }
  TRDX_ARTVENBusinessProcessorRules = class(TDABusinessProcessorRules, IRDX_ARTVEN, IRDX_ARTVENDelta)
  private
  protected
    { Property getters and setters }
    function GetCLAVE1Value: Float; virtual;
    function GetOldCLAVE1Value: Float; virtual;
    procedure SetCLAVE1Value(const aValue: Float); virtual;
    function GetCLAVE2Value: Float; virtual;
    function GetOldCLAVE2Value: Float; virtual;
    procedure SetCLAVE2Value(const aValue: Float); virtual;
    function GetCLAVE3Value: Float; virtual;
    function GetOldCLAVE3Value: Float; virtual;
    procedure SetCLAVE3Value(const aValue: Float); virtual;
    function GetEANARTValue: String; virtual;
    function GetOldEANARTValue: String; virtual;
    procedure SetEANARTValue(const aValue: String); virtual;
    function GetCODCOMValue: String; virtual;
    function GetOldCODCOMValue: String; virtual;
    procedure SetCODCOMValue(const aValue: String); virtual;
    function GetNUMVARValue: String; virtual;
    function GetOldNUMVARValue: String; virtual;
    procedure SetNUMVARValue(const aValue: String); virtual;
    function GetCODPROValue: String; virtual;
    function GetOldCODPROValue: String; virtual;
    procedure SetCODPROValue(const aValue: String); virtual;
    function GetDESARTCOValue: String; virtual;
    function GetOldDESARTCOValue: String; virtual;
    procedure SetDESARTCOValue(const aValue: String); virtual;
    function GetDESARTValue: String; virtual;
    function GetOldDESARTValue: String; virtual;
    procedure SetDESARTValue(const aValue: String); virtual;
    function GetNUMCONValue: String; virtual;
    function GetOldNUMCONValue: String; virtual;
    procedure SetNUMCONValue(const aValue: String); virtual;
    function GetNUMLISValue: String; virtual;
    function GetOldNUMLISValue: String; virtual;
    procedure SetNUMLISValue(const aValue: String); virtual;
    function GetCONESP1Value: String; virtual;
    function GetOldCONESP1Value: String; virtual;
    procedure SetCONESP1Value(const aValue: String); virtual;
    function GetCONESP2Value: String; virtual;
    function GetOldCONESP2Value: String; virtual;
    procedure SetCONESP2Value(const aValue: String); virtual;
    function GetCONESP3Value: String; virtual;
    function GetOldCONESP3Value: String; virtual;
    procedure SetCONESP3Value(const aValue: String); virtual;
    function GetVALVENValue: Float; virtual;
    function GetOldVALVENValue: Float; virtual;
    procedure SetVALVENValue(const aValue: Float); virtual;
    function GetPRENETCTValue: Float; virtual;
    function GetOldPRENETCTValue: Float; virtual;
    procedure SetPRENETCTValue(const aValue: Float); virtual;
    function GetPREBRUCTValue: Float; virtual;
    function GetOldPREBRUCTValue: Float; virtual;
    procedure SetPREBRUCTValue(const aValue: Float); virtual;
    function GetPREINFETValue: Float; virtual;
    function GetOldPREINFETValue: Float; virtual;
    procedure SetPREINFETValue(const aValue: Float); virtual;
    function GetPREINFFTValue: Float; virtual;
    function GetOldPREINFFTValue: Float; virtual;
    procedure SetPREINFFTValue(const aValue: Float); virtual;
    function GetPRECALCTValue: Float; virtual;
    function GetOldPRECALCTValue: Float; virtual;
    procedure SetPRECALCTValue(const aValue: Float); virtual;
    function GetPRENETCAValue: Float; virtual;
    function GetOldPRENETCAValue: Float; virtual;
    procedure SetPRENETCAValue(const aValue: Float); virtual;
    function GetPREBRUCAValue: Float; virtual;
    function GetOldPREBRUCAValue: Float; virtual;
    procedure SetPREBRUCAValue(const aValue: Float); virtual;
    function GetPREINFEAValue: Float; virtual;
    function GetOldPREINFEAValue: Float; virtual;
    procedure SetPREINFEAValue(const aValue: Float); virtual;
    function GetPREINFFAValue: Float; virtual;
    function GetOldPREINFFAValue: Float; virtual;
    procedure SetPREINFFAValue(const aValue: Float); virtual;
    function GetPRECALCAValue: Float; virtual;
    function GetOldPRECALCAValue: Float; virtual;
    procedure SetPRECALCAValue(const aValue: Float); virtual;
    function GetBAPRUN1Value: Float; virtual;
    function GetOldBAPRUN1Value: Float; virtual;
    procedure SetBAPRUN1Value(const aValue: Float); virtual;
    function GetUNIMED1Value: String; virtual;
    function GetOldUNIMED1Value: String; virtual;
    procedure SetUNIMED1Value(const aValue: String); virtual;
    function GetBAPRUN2Value: Float; virtual;
    function GetOldBAPRUN2Value: Float; virtual;
    procedure SetBAPRUN2Value(const aValue: Float); virtual;
    function GetUNIMED2Value: String; virtual;
    function GetOldUNIMED2Value: String; virtual;
    procedure SetUNIMED2Value(const aValue: String); virtual;
    function GetBAPRUN3Value: Float; virtual;
    function GetOldBAPRUN3Value: Float; virtual;
    procedure SetBAPRUN3Value(const aValue: Float); virtual;
    function GetUNIMED3Value: String; virtual;
    function GetOldUNIMED3Value: String; virtual;
    procedure SetUNIMED3Value(const aValue: String); virtual;
    function GetBAPRUN4Value: Float; virtual;
    function GetOldBAPRUN4Value: Float; virtual;
    procedure SetBAPRUN4Value(const aValue: Float); virtual;
    function GetUNIMED4Value: String; virtual;
    function GetOldUNIMED4Value: String; virtual;
    procedure SetUNIMED4Value(const aValue: String); virtual;
    function GetBAPRUN5Value: Float; virtual;
    function GetOldBAPRUN5Value: Float; virtual;
    procedure SetBAPRUN5Value(const aValue: Float); virtual;
    function GetUNIMED5Value: String; virtual;
    function GetOldUNIMED5Value: String; virtual;
    procedure SetUNIMED5Value(const aValue: String); virtual;
    function GetCANVENValue: Float; virtual;
    function GetOldCANVENValue: Float; virtual;
    procedure SetCANVENValue(const aValue: Float); virtual;
    function GetEXIPROValue: Float; virtual;
    function GetOldEXIPROValue: Float; virtual;
    procedure SetEXIPROValue(const aValue: Float); virtual;
    function GetDESEXIValue: Float; virtual;
    function GetOldDESEXIValue: Float; virtual;
    procedure SetDESEXIValue(const aValue: Float); virtual;
    function GetESPMEDCVValue: String; virtual;
    function GetOldESPMEDCVValue: String; virtual;
    procedure SetESPMEDCVValue(const aValue: String); virtual;
    function GetESPMEDEPValue: String; virtual;
    function GetOldESPMEDEPValue: String; virtual;
    procedure SetESPMEDEPValue(const aValue: String); virtual;
    function GetESPMEDDEValue: String; virtual;
    function GetOldESPMEDDEValue: String; virtual;
    procedure SetESPMEDDEValue(const aValue: String); virtual;
    function GetCANDEVValue: Float; virtual;
    function GetOldCANDEVValue: Float; virtual;
    procedure SetCANDEVValue(const aValue: Float); virtual;
    function GetEANVENValue: String; virtual;
    function GetOldEANVENValue: String; virtual;
    procedure SetEANVENValue(const aValue: String); virtual;
    function GetNOMVENValue: String; virtual;
    function GetOldNOMVENValue: String; virtual;
    procedure SetNOMVENValue(const aValue: String); virtual;
    function GetNUMTALONValue: String; virtual;
    function GetOldNUMTALONValue: String; virtual;
    procedure SetNUMTALONValue(const aValue: String); virtual;
    function GetCANVENNETValue: Float; virtual;
    function GetOldCANVENNETValue: Float; virtual;
    procedure SetCANVENNETValue(const aValue: Float); virtual;
    function GetUMEDVENNETValue: String; virtual;
    function GetOldUMEDVENNETValue: String; virtual;
    procedure SetUMEDVENNETValue(const aValue: String); virtual;
    function GetCANESPValue: Float; virtual;
    function GetOldCANESPValue: Float; virtual;
    procedure SetCANESPValue(const aValue: Float); virtual;
    function GetUMEDESPValue: String; virtual;
    function GetOldUMEDESPValue: String; virtual;
    procedure SetUMEDESPValue(const aValue: String); virtual;

    { Properties }
    property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value;
    property OldCLAVE1 : Float read GetOldCLAVE1Value;
    property CLAVE2 : Float read GetCLAVE2Value write SetCLAVE2Value;
    property OldCLAVE2 : Float read GetOldCLAVE2Value;
    property CLAVE3 : Float read GetCLAVE3Value write SetCLAVE3Value;
    property OldCLAVE3 : Float read GetOldCLAVE3Value;
    property EANART : String read GetEANARTValue write SetEANARTValue;
    property OldEANART : String read GetOldEANARTValue;
    property CODCOM : String read GetCODCOMValue write SetCODCOMValue;
    property OldCODCOM : String read GetOldCODCOMValue;
    property NUMVAR : String read GetNUMVARValue write SetNUMVARValue;
    property OldNUMVAR : String read GetOldNUMVARValue;
    property CODPRO : String read GetCODPROValue write SetCODPROValue;
    property OldCODPRO : String read GetOldCODPROValue;
    property DESARTCO : String read GetDESARTCOValue write SetDESARTCOValue;
    property OldDESARTCO : String read GetOldDESARTCOValue;
    property DESART : String read GetDESARTValue write SetDESARTValue;
    property OldDESART : String read GetOldDESARTValue;
    property NUMCON : String read GetNUMCONValue write SetNUMCONValue;
    property OldNUMCON : String read GetOldNUMCONValue;
    property NUMLIS : String read GetNUMLISValue write SetNUMLISValue;
    property OldNUMLIS : String read GetOldNUMLISValue;
    property CONESP1 : String read GetCONESP1Value write SetCONESP1Value;
    property OldCONESP1 : String read GetOldCONESP1Value;
    property CONESP2 : String read GetCONESP2Value write SetCONESP2Value;
    property OldCONESP2 : String read GetOldCONESP2Value;
    property CONESP3 : String read GetCONESP3Value write SetCONESP3Value;
    property OldCONESP3 : String read GetOldCONESP3Value;
    property VALVEN : Float read GetVALVENValue write SetVALVENValue;
    property OldVALVEN : Float read GetOldVALVENValue;
    property PRENETCT : Float read GetPRENETCTValue write SetPRENETCTValue;
    property OldPRENETCT : Float read GetOldPRENETCTValue;
    property PREBRUCT : Float read GetPREBRUCTValue write SetPREBRUCTValue;
    property OldPREBRUCT : Float read GetOldPREBRUCTValue;
    property PREINFET : Float read GetPREINFETValue write SetPREINFETValue;
    property OldPREINFET : Float read GetOldPREINFETValue;
    property PREINFFT : Float read GetPREINFFTValue write SetPREINFFTValue;
    property OldPREINFFT : Float read GetOldPREINFFTValue;
    property PRECALCT : Float read GetPRECALCTValue write SetPRECALCTValue;
    property OldPRECALCT : Float read GetOldPRECALCTValue;
    property PRENETCA : Float read GetPRENETCAValue write SetPRENETCAValue;
    property OldPRENETCA : Float read GetOldPRENETCAValue;
    property PREBRUCA : Float read GetPREBRUCAValue write SetPREBRUCAValue;
    property OldPREBRUCA : Float read GetOldPREBRUCAValue;
    property PREINFEA : Float read GetPREINFEAValue write SetPREINFEAValue;
    property OldPREINFEA : Float read GetOldPREINFEAValue;
    property PREINFFA : Float read GetPREINFFAValue write SetPREINFFAValue;
    property OldPREINFFA : Float read GetOldPREINFFAValue;
    property PRECALCA : Float read GetPRECALCAValue write SetPRECALCAValue;
    property OldPRECALCA : Float read GetOldPRECALCAValue;
    property BAPRUN1 : Float read GetBAPRUN1Value write SetBAPRUN1Value;
    property OldBAPRUN1 : Float read GetOldBAPRUN1Value;
    property UNIMED1 : String read GetUNIMED1Value write SetUNIMED1Value;
    property OldUNIMED1 : String read GetOldUNIMED1Value;
    property BAPRUN2 : Float read GetBAPRUN2Value write SetBAPRUN2Value;
    property OldBAPRUN2 : Float read GetOldBAPRUN2Value;
    property UNIMED2 : String read GetUNIMED2Value write SetUNIMED2Value;
    property OldUNIMED2 : String read GetOldUNIMED2Value;
    property BAPRUN3 : Float read GetBAPRUN3Value write SetBAPRUN3Value;
    property OldBAPRUN3 : Float read GetOldBAPRUN3Value;
    property UNIMED3 : String read GetUNIMED3Value write SetUNIMED3Value;
    property OldUNIMED3 : String read GetOldUNIMED3Value;
    property BAPRUN4 : Float read GetBAPRUN4Value write SetBAPRUN4Value;
    property OldBAPRUN4 : Float read GetOldBAPRUN4Value;
    property UNIMED4 : String read GetUNIMED4Value write SetUNIMED4Value;
    property OldUNIMED4 : String read GetOldUNIMED4Value;
    property BAPRUN5 : Float read GetBAPRUN5Value write SetBAPRUN5Value;
    property OldBAPRUN5 : Float read GetOldBAPRUN5Value;
    property UNIMED5 : String read GetUNIMED5Value write SetUNIMED5Value;
    property OldUNIMED5 : String read GetOldUNIMED5Value;
    property CANVEN : Float read GetCANVENValue write SetCANVENValue;
    property OldCANVEN : Float read GetOldCANVENValue;
    property EXIPRO : Float read GetEXIPROValue write SetEXIPROValue;
    property OldEXIPRO : Float read GetOldEXIPROValue;
    property DESEXI : Float read GetDESEXIValue write SetDESEXIValue;
    property OldDESEXI : Float read GetOldDESEXIValue;
    property ESPMEDCV : String read GetESPMEDCVValue write SetESPMEDCVValue;
    property OldESPMEDCV : String read GetOldESPMEDCVValue;
    property ESPMEDEP : String read GetESPMEDEPValue write SetESPMEDEPValue;
    property OldESPMEDEP : String read GetOldESPMEDEPValue;
    property ESPMEDDE : String read GetESPMEDDEValue write SetESPMEDDEValue;
    property OldESPMEDDE : String read GetOldESPMEDDEValue;
    property CANDEV : Float read GetCANDEVValue write SetCANDEVValue;
    property OldCANDEV : Float read GetOldCANDEVValue;
    property EANVEN : String read GetEANVENValue write SetEANVENValue;
    property OldEANVEN : String read GetOldEANVENValue;
    property NOMVEN : String read GetNOMVENValue write SetNOMVENValue;
    property OldNOMVEN : String read GetOldNOMVENValue;
    property NUMTALON : String read GetNUMTALONValue write SetNUMTALONValue;
    property OldNUMTALON : String read GetOldNUMTALONValue;
    property CANVENNET : Float read GetCANVENNETValue write SetCANVENNETValue;
    property OldCANVENNET : Float read GetOldCANVENNETValue;
    property UMEDVENNET : String read GetUMEDVENNETValue write SetUMEDVENNETValue;
    property OldUMEDVENNET : String read GetOldUMEDVENNETValue;
    property CANESP : Float read GetCANESPValue write SetCANESPValue;
    property OldCANESP : Float read GetOldCANESPValue;
    property UMEDESP : String read GetUMEDESPValue write SetUMEDESPValue;
    property OldUMEDESP : String read GetOldUMEDESPValue;

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

  end;

  { IRDX_CABVENDelta }
  IRDX_CABVENDelta = interface(IRDX_CABVEN)
  ['{EDFAD481-7C5C-49FE-9B6C-9F498CEC065D}']
    { Property getters and setters }
    function GetOldCLAVE1Value : Float;
    function GetOldNUMINFValue : String;
    function GetOldFUNCIONValue : String;
    function GetOldFECINIValue : DateTime;
    function GetOldFECFINValue : DateTime;
    function GetOldFECINFValue : DateTime;
    function GetOldPERVENINIValue : DateTime;
    function GetOldPERVENFINValue : DateTime;
    function GetOldEANOFIValue : String;
    function GetOldEANEMIValue : String;
    function GetOldEANRECValue : String;
    function GetOldEANVENValue : String;
    function GetOldEANALMValue : String;
    function GetOldEANREPValue : String;
    function GetOldEANPROValue : String;
    function GetOldEANADMSAValue : String;
    function GetOldEANREPSRValue : String;
    function GetOldADMVENSAValue : String;
    function GetOldREPDEPSRValue : String;
    function GetOldEMAILSAValue : String;
    function GetOldNUMFAXSAValue : String;
    function GetOldNUMTELSAValue : String;
    function GetOldNUMTLXSAValue : String;
    function GetOldX400SAValue : String;
    function GetOldEMAILSRValue : String;
    function GetOldNUMFAXSRValue : String;
    function GetOldNUMTELSRValue : String;
    function GetOldNUMTLXSRValue : String;
    function GetOldX400SRValue : String;
    function GetOldNUMPREValue : String;
    function GetOldNUMINFSCValue : String;
    function GetOldNUMCONValue : String;
    function GetOldFECPREValue : DateTime;
    function GetOldFECINFSCValue : DateTime;
    function GetOldFECCONValue : DateTime;
    function GetOldDIVPEDValue : String;
    function GetOldDIVPREValue : String;
    function GetOldDIVPAGValue : String;
    function GetOldDIVPEDFValue : String;
    function GetOldDIVPREFValue : String;
    function GetOldDIVPAGFValue : String;
    function GetOldTASCAMValue : Float;
    function GetOldFECTASValue : DateTime;

    { Properties }
    property OldCLAVE1 : Float read GetOldCLAVE1Value;
    property OldNUMINF : String read GetOldNUMINFValue;
    property OldFUNCION : String read GetOldFUNCIONValue;
    property OldFECINI : DateTime read GetOldFECINIValue;
    property OldFECFIN : DateTime read GetOldFECFINValue;
    property OldFECINF : DateTime read GetOldFECINFValue;
    property OldPERVENINI : DateTime read GetOldPERVENINIValue;
    property OldPERVENFIN : DateTime read GetOldPERVENFINValue;
    property OldEANOFI : String read GetOldEANOFIValue;
    property OldEANEMI : String read GetOldEANEMIValue;
    property OldEANREC : String read GetOldEANRECValue;
    property OldEANVEN : String read GetOldEANVENValue;
    property OldEANALM : String read GetOldEANALMValue;
    property OldEANREP : String read GetOldEANREPValue;
    property OldEANPRO : String read GetOldEANPROValue;
    property OldEANADMSA : String read GetOldEANADMSAValue;
    property OldEANREPSR : String read GetOldEANREPSRValue;
    property OldADMVENSA : String read GetOldADMVENSAValue;
    property OldREPDEPSR : String read GetOldREPDEPSRValue;
    property OldEMAILSA : String read GetOldEMAILSAValue;
    property OldNUMFAXSA : String read GetOldNUMFAXSAValue;
    property OldNUMTELSA : String read GetOldNUMTELSAValue;
    property OldNUMTLXSA : String read GetOldNUMTLXSAValue;
    property OldX400SA : String read GetOldX400SAValue;
    property OldEMAILSR : String read GetOldEMAILSRValue;
    property OldNUMFAXSR : String read GetOldNUMFAXSRValue;
    property OldNUMTELSR : String read GetOldNUMTELSRValue;
    property OldNUMTLXSR : String read GetOldNUMTLXSRValue;
    property OldX400SR : String read GetOldX400SRValue;
    property OldNUMPRE : String read GetOldNUMPREValue;
    property OldNUMINFSC : String read GetOldNUMINFSCValue;
    property OldNUMCON : String read GetOldNUMCONValue;
    property OldFECPRE : DateTime read GetOldFECPREValue;
    property OldFECINFSC : DateTime read GetOldFECINFSCValue;
    property OldFECCON : DateTime read GetOldFECCONValue;
    property OldDIVPED : String read GetOldDIVPEDValue;
    property OldDIVPRE : String read GetOldDIVPREValue;
    property OldDIVPAG : String read GetOldDIVPAGValue;
    property OldDIVPEDF : String read GetOldDIVPEDFValue;
    property OldDIVPREF : String read GetOldDIVPREFValue;
    property OldDIVPAGF : String read GetOldDIVPAGFValue;
    property OldTASCAM : Float read GetOldTASCAMValue;
    property OldFECTAS : DateTime read GetOldFECTASValue;
  end;

  { TRDX_CABVENBusinessProcessorRules }
  TRDX_CABVENBusinessProcessorRules = class(TDABusinessProcessorRules, IRDX_CABVEN, IRDX_CABVENDelta)
  private
  protected
    { Property getters and setters }
    function GetCLAVE1Value: Float; virtual;
    function GetOldCLAVE1Value: Float; virtual;
    procedure SetCLAVE1Value(const aValue: Float); virtual;
    function GetNUMINFValue: String; virtual;
    function GetOldNUMINFValue: String; virtual;
    procedure SetNUMINFValue(const aValue: String); virtual;
    function GetFUNCIONValue: String; virtual;
    function GetOldFUNCIONValue: String; virtual;
    procedure SetFUNCIONValue(const aValue: String); virtual;
    function GetFECINIValue: DateTime; virtual;
    function GetOldFECINIValue: DateTime; virtual;
    procedure SetFECINIValue(const aValue: DateTime); virtual;
    function GetFECFINValue: DateTime; virtual;
    function GetOldFECFINValue: DateTime; virtual;
    procedure SetFECFINValue(const aValue: DateTime); virtual;
    function GetFECINFValue: DateTime; virtual;
    function GetOldFECINFValue: DateTime; virtual;
    procedure SetFECINFValue(const aValue: DateTime); virtual;
    function GetPERVENINIValue: DateTime; virtual;
    function GetOldPERVENINIValue: DateTime; virtual;
    procedure SetPERVENINIValue(const aValue: DateTime); virtual;
    function GetPERVENFINValue: DateTime; virtual;
    function GetOldPERVENFINValue: DateTime; virtual;
    procedure SetPERVENFINValue(const aValue: DateTime); virtual;
    function GetEANOFIValue: String; virtual;
    function GetOldEANOFIValue: String; virtual;
    procedure SetEANOFIValue(const aValue: String); virtual;
    function GetEANEMIValue: String; virtual;
    function GetOldEANEMIValue: String; virtual;
    procedure SetEANEMIValue(const aValue: String); virtual;
    function GetEANRECValue: String; virtual;
    function GetOldEANRECValue: String; virtual;
    procedure SetEANRECValue(const aValue: String); virtual;
    function GetEANVENValue: String; virtual;
    function GetOldEANVENValue: String; virtual;
    procedure SetEANVENValue(const aValue: String); virtual;
    function GetEANALMValue: String; virtual;
    function GetOldEANALMValue: String; virtual;
    procedure SetEANALMValue(const aValue: String); virtual;
    function GetEANREPValue: String; virtual;
    function GetOldEANREPValue: String; virtual;
    procedure SetEANREPValue(const aValue: String); virtual;
    function GetEANPROValue: String; virtual;
    function GetOldEANPROValue: String; virtual;
    procedure SetEANPROValue(const aValue: String); virtual;
    function GetEANADMSAValue: String; virtual;
    function GetOldEANADMSAValue: String; virtual;
    procedure SetEANADMSAValue(const aValue: String); virtual;
    function GetEANREPSRValue: String; virtual;
    function GetOldEANREPSRValue: String; virtual;
    procedure SetEANREPSRValue(const aValue: String); virtual;
    function GetADMVENSAValue: String; virtual;
    function GetOldADMVENSAValue: String; virtual;
    procedure SetADMVENSAValue(const aValue: String); virtual;
    function GetREPDEPSRValue: String; virtual;
    function GetOldREPDEPSRValue: String; virtual;
    procedure SetREPDEPSRValue(const aValue: String); virtual;
    function GetEMAILSAValue: String; virtual;
    function GetOldEMAILSAValue: String; virtual;
    procedure SetEMAILSAValue(const aValue: String); virtual;
    function GetNUMFAXSAValue: String; virtual;
    function GetOldNUMFAXSAValue: String; virtual;
    procedure SetNUMFAXSAValue(const aValue: String); virtual;
    function GetNUMTELSAValue: String; virtual;
    function GetOldNUMTELSAValue: String; virtual;
    procedure SetNUMTELSAValue(const aValue: String); virtual;
    function GetNUMTLXSAValue: String; virtual;
    function GetOldNUMTLXSAValue: String; virtual;
    procedure SetNUMTLXSAValue(const aValue: String); virtual;
    function GetX400SAValue: String; virtual;
    function GetOldX400SAValue: String; virtual;
    procedure SetX400SAValue(const aValue: String); virtual;
    function GetEMAILSRValue: String; virtual;
    function GetOldEMAILSRValue: String; virtual;
    procedure SetEMAILSRValue(const aValue: String); virtual;
    function GetNUMFAXSRValue: String; virtual;
    function GetOldNUMFAXSRValue: String; virtual;
    procedure SetNUMFAXSRValue(const aValue: String); virtual;
    function GetNUMTELSRValue: String; virtual;
    function GetOldNUMTELSRValue: String; virtual;
    procedure SetNUMTELSRValue(const aValue: String); virtual;
    function GetNUMTLXSRValue: String; virtual;
    function GetOldNUMTLXSRValue: String; virtual;
    procedure SetNUMTLXSRValue(const aValue: String); virtual;
    function GetX400SRValue: String; virtual;
    function GetOldX400SRValue: String; virtual;
    procedure SetX400SRValue(const aValue: String); virtual;
    function GetNUMPREValue: String; virtual;
    function GetOldNUMPREValue: String; virtual;
    procedure SetNUMPREValue(const aValue: String); virtual;
    function GetNUMINFSCValue: String; virtual;
    function GetOldNUMINFSCValue: String; virtual;
    procedure SetNUMINFSCValue(const aValue: String); virtual;
    function GetNUMCONValue: String; virtual;
    function GetOldNUMCONValue: String; virtual;
    procedure SetNUMCONValue(const aValue: String); virtual;
    function GetFECPREValue: DateTime; virtual;
    function GetOldFECPREValue: DateTime; virtual;
    procedure SetFECPREValue(const aValue: DateTime); virtual;
    function GetFECINFSCValue: DateTime; virtual;
    function GetOldFECINFSCValue: DateTime; virtual;
    procedure SetFECINFSCValue(const aValue: DateTime); virtual;
    function GetFECCONValue: DateTime; virtual;
    function GetOldFECCONValue: DateTime; virtual;
    procedure SetFECCONValue(const aValue: DateTime); virtual;
    function GetDIVPEDValue: String; virtual;
    function GetOldDIVPEDValue: String; virtual;
    procedure SetDIVPEDValue(const aValue: String); virtual;
    function GetDIVPREValue: String; virtual;
    function GetOldDIVPREValue: String; virtual;
    procedure SetDIVPREValue(const aValue: String); virtual;
    function GetDIVPAGValue: String; virtual;
    function GetOldDIVPAGValue: String; virtual;
    procedure SetDIVPAGValue(const aValue: String); virtual;
    function GetDIVPEDFValue: String; virtual;
    function GetOldDIVPEDFValue: String; virtual;
    procedure SetDIVPEDFValue(const aValue: String); virtual;
    function GetDIVPREFValue: String; virtual;
    function GetOldDIVPREFValue: String; virtual;
    procedure SetDIVPREFValue(const aValue: String); virtual;
    function GetDIVPAGFValue: String; virtual;
    function GetOldDIVPAGFValue: String; virtual;
    procedure SetDIVPAGFValue(const aValue: String); virtual;
    function GetTASCAMValue: Float; virtual;
    function GetOldTASCAMValue: Float; virtual;
    procedure SetTASCAMValue(const aValue: Float); virtual;
    function GetFECTASValue: DateTime; virtual;
    function GetOldFECTASValue: DateTime; virtual;
    procedure SetFECTASValue(const aValue: DateTime); virtual;

    { Properties }
    property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value;
    property OldCLAVE1 : Float read GetOldCLAVE1Value;
    property NUMINF : String read GetNUMINFValue write SetNUMINFValue;
    property OldNUMINF : String read GetOldNUMINFValue;
    property FUNCION : String read GetFUNCIONValue write SetFUNCIONValue;
    property OldFUNCION : String read GetOldFUNCIONValue;
    property FECINI : DateTime read GetFECINIValue write SetFECINIValue;
    property OldFECINI : DateTime read GetOldFECINIValue;
    property FECFIN : DateTime read GetFECFINValue write SetFECFINValue;
    property OldFECFIN : DateTime read GetOldFECFINValue;
    property FECINF : DateTime read GetFECINFValue write SetFECINFValue;
    property OldFECINF : DateTime read GetOldFECINFValue;
    property PERVENINI : DateTime read GetPERVENINIValue write SetPERVENINIValue;
    property OldPERVENINI : DateTime read GetOldPERVENINIValue;
    property PERVENFIN : DateTime read GetPERVENFINValue write SetPERVENFINValue;
    property OldPERVENFIN : DateTime read GetOldPERVENFINValue;
    property EANOFI : String read GetEANOFIValue write SetEANOFIValue;
    property OldEANOFI : String read GetOldEANOFIValue;
    property EANEMI : String read GetEANEMIValue write SetEANEMIValue;
    property OldEANEMI : String read GetOldEANEMIValue;
    property EANREC : String read GetEANRECValue write SetEANRECValue;
    property OldEANREC : String read GetOldEANRECValue;
    property EANVEN : String read GetEANVENValue write SetEANVENValue;
    property OldEANVEN : String read GetOldEANVENValue;
    property EANALM : String read GetEANALMValue write SetEANALMValue;
    property OldEANALM : String read GetOldEANALMValue;
    property EANREP : String read GetEANREPValue write SetEANREPValue;
    property OldEANREP : String read GetOldEANREPValue;
    property EANPRO : String read GetEANPROValue write SetEANPROValue;
    property OldEANPRO : String read GetOldEANPROValue;
    property EANADMSA : String read GetEANADMSAValue write SetEANADMSAValue;
    property OldEANADMSA : String read GetOldEANADMSAValue;
    property EANREPSR : String read GetEANREPSRValue write SetEANREPSRValue;
    property OldEANREPSR : String read GetOldEANREPSRValue;
    property ADMVENSA : String read GetADMVENSAValue write SetADMVENSAValue;
    property OldADMVENSA : String read GetOldADMVENSAValue;
    property REPDEPSR : String read GetREPDEPSRValue write SetREPDEPSRValue;
    property OldREPDEPSR : String read GetOldREPDEPSRValue;
    property EMAILSA : String read GetEMAILSAValue write SetEMAILSAValue;
    property OldEMAILSA : String read GetOldEMAILSAValue;
    property NUMFAXSA : String read GetNUMFAXSAValue write SetNUMFAXSAValue;
    property OldNUMFAXSA : String read GetOldNUMFAXSAValue;
    property NUMTELSA : String read GetNUMTELSAValue write SetNUMTELSAValue;
    property OldNUMTELSA : String read GetOldNUMTELSAValue;
    property NUMTLXSA : String read GetNUMTLXSAValue write SetNUMTLXSAValue;
    property OldNUMTLXSA : String read GetOldNUMTLXSAValue;
    property X400SA : String read GetX400SAValue write SetX400SAValue;
    property OldX400SA : String read GetOldX400SAValue;
    property EMAILSR : String read GetEMAILSRValue write SetEMAILSRValue;
    property OldEMAILSR : String read GetOldEMAILSRValue;
    property NUMFAXSR : String read GetNUMFAXSRValue write SetNUMFAXSRValue;
    property OldNUMFAXSR : String read GetOldNUMFAXSRValue;
    property NUMTELSR : String read GetNUMTELSRValue write SetNUMTELSRValue;
    property OldNUMTELSR : String read GetOldNUMTELSRValue;
    property NUMTLXSR : String read GetNUMTLXSRValue write SetNUMTLXSRValue;
    property OldNUMTLXSR : String read GetOldNUMTLXSRValue;
    property X400SR : String read GetX400SRValue write SetX400SRValue;
    property OldX400SR : String read GetOldX400SRValue;
    property NUMPRE : String read GetNUMPREValue write SetNUMPREValue;
    property OldNUMPRE : String read GetOldNUMPREValue;
    property NUMINFSC : String read GetNUMINFSCValue write SetNUMINFSCValue;
    property OldNUMINFSC : String read GetOldNUMINFSCValue;
    property NUMCON : String read GetNUMCONValue write SetNUMCONValue;
    property OldNUMCON : String read GetOldNUMCONValue;
    property FECPRE : DateTime read GetFECPREValue write SetFECPREValue;
    property OldFECPRE : DateTime read GetOldFECPREValue;
    property FECINFSC : DateTime read GetFECINFSCValue write SetFECINFSCValue;
    property OldFECINFSC : DateTime read GetOldFECINFSCValue;
    property FECCON : DateTime read GetFECCONValue write SetFECCONValue;
    property OldFECCON : DateTime read GetOldFECCONValue;
    property DIVPED : String read GetDIVPEDValue write SetDIVPEDValue;
    property OldDIVPED : String read GetOldDIVPEDValue;
    property DIVPRE : String read GetDIVPREValue write SetDIVPREValue;
    property OldDIVPRE : String read GetOldDIVPREValue;
    property DIVPAG : String read GetDIVPAGValue write SetDIVPAGValue;
    property OldDIVPAG : String read GetOldDIVPAGValue;
    property DIVPEDF : String read GetDIVPEDFValue write SetDIVPEDFValue;
    property OldDIVPEDF : String read GetOldDIVPEDFValue;
    property DIVPREF : String read GetDIVPREFValue write SetDIVPREFValue;
    property OldDIVPREF : String read GetOldDIVPREFValue;
    property DIVPAGF : String read GetDIVPAGFValue write SetDIVPAGFValue;
    property OldDIVPAGF : String read GetOldDIVPAGFValue;
    property TASCAM : Float read GetTASCAMValue write SetTASCAMValue;
    property OldTASCAM : Float read GetOldTASCAMValue;
    property FECTAS : DateTime read GetFECTASValue write SetFECTASValue;
    property OldFECTAS : DateTime read GetOldFECTASValue;

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

  end;

  { IRDX_LUGVENDelta }
  IRDX_LUGVENDelta = interface(IRDX_LUGVEN)
  ['{51ECAB19-FE1D-4141-82A8-F4078ADA6B11}']
    { Property getters and setters }
    function GetOldCLAVE1Value : Float;
    function GetOldCLAVE2Value : Integer;
    function GetOldEANLUGValue : String;
    function GetOldLUGVENValue : String;
    function GetOldFECINIValue : DateTime;
    function GetOldFECFINValue : DateTime;
    function GetOldPERVENINIValue : DateTime;
    function GetOldPERVENFINValue : DateTime;

    { Properties }
    property OldCLAVE1 : Float read GetOldCLAVE1Value;
    property OldCLAVE2 : Integer read GetOldCLAVE2Value;
    property OldEANLUG : String read GetOldEANLUGValue;
    property OldLUGVEN : String read GetOldLUGVENValue;
    property OldFECINI : DateTime read GetOldFECINIValue;
    property OldFECFIN : DateTime read GetOldFECFINValue;
    property OldPERVENINI : DateTime read GetOldPERVENINIValue;
    property OldPERVENFIN : DateTime read GetOldPERVENFINValue;
  end;

  { TRDX_LUGVENBusinessProcessorRules }
  TRDX_LUGVENBusinessProcessorRules = class(TDABusinessProcessorRules, IRDX_LUGVEN, IRDX_LUGVENDelta)
  private
  protected
    { Property getters and setters }
    function GetCLAVE1Value: Float; virtual;
    function GetOldCLAVE1Value: Float; virtual;
    procedure SetCLAVE1Value(const aValue: Float); virtual;
    function GetCLAVE2Value: Integer; virtual;
    function GetOldCLAVE2Value: Integer; virtual;
    procedure SetCLAVE2Value(const aValue: Integer); virtual;
    function GetEANLUGValue: String; virtual;
    function GetOldEANLUGValue: String; virtual;
    procedure SetEANLUGValue(const aValue: String); virtual;
    function GetLUGVENValue: String; virtual;
    function GetOldLUGVENValue: String; virtual;
    procedure SetLUGVENValue(const aValue: String); virtual;
    function GetFECINIValue: DateTime; virtual;
    function GetOldFECINIValue: DateTime; virtual;
    procedure SetFECINIValue(const aValue: DateTime); virtual;
    function GetFECFINValue: DateTime; virtual;
    function GetOldFECFINValue: DateTime; virtual;
    procedure SetFECFINValue(const aValue: DateTime); virtual;
    function GetPERVENINIValue: DateTime; virtual;
    function GetOldPERVENINIValue: DateTime; virtual;
    procedure SetPERVENINIValue(const aValue: DateTime); virtual;
    function GetPERVENFINValue: DateTime; virtual;
    function GetOldPERVENFINValue: DateTime; virtual;
    procedure SetPERVENFINValue(const aValue: DateTime); virtual;

    { Properties }
    property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value;
    property OldCLAVE1 : Float read GetOldCLAVE1Value;
    property CLAVE2 : Integer read GetCLAVE2Value write SetCLAVE2Value;
    property OldCLAVE2 : Integer read GetOldCLAVE2Value;
    property EANLUG : String read GetEANLUGValue write SetEANLUGValue;
    property OldEANLUG : String read GetOldEANLUGValue;
    property LUGVEN : String read GetLUGVENValue write SetLUGVENValue;
    property OldLUGVEN : String read GetOldLUGVENValue;
    property FECINI : DateTime read GetFECINIValue write SetFECINIValue;
    property OldFECINI : DateTime read GetOldFECINIValue;
    property FECFIN : DateTime read GetFECFINValue write SetFECFINValue;
    property OldFECFIN : DateTime read GetOldFECFINValue;
    property PERVENINI : DateTime read GetPERVENINIValue write SetPERVENINIValue;
    property OldPERVENINI : DateTime read GetOldPERVENINIValue;
    property PERVENFIN : DateTime read GetPERVENFINValue write SetPERVENFINValue;
    property OldPERVENFIN : DateTime read GetOldPERVENFINValue;

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

  end;

implementation

uses
  Variants, uROBinaryHelpers;

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

destructor TRDX_ARTVENBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCLAVE1Value: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE1];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCLAVE1Value: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCLAVE1];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCLAVE1Value(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE1] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCLAVE2Value: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE2];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCLAVE2Value: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCLAVE2];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCLAVE2Value(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE2] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCLAVE3Value: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE3];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCLAVE3Value: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCLAVE3];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCLAVE3Value(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE3] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetEANARTValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEANART];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldEANARTValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENEANART];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetEANARTValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEANART] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCODCOMValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCODCOM];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCODCOMValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCODCOM];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCODCOMValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCODCOM] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetNUMVARValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMVAR];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldNUMVARValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENNUMVAR];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetNUMVARValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMVAR] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCODPROValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCODPRO];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCODPROValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCODPRO];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCODPROValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCODPRO] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetDESARTCOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESARTCO];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldDESARTCOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENDESARTCO];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetDESARTCOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESARTCO] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetDESARTValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESART];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldDESARTValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENDESART];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetDESARTValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESART] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetNUMCONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMCON];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldNUMCONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENNUMCON];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetNUMCONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMCON] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetNUMLISValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMLIS];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldNUMLISValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENNUMLIS];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetNUMLISValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMLIS] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCONESP1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP1];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCONESP1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCONESP1];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCONESP1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP1] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCONESP2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP2];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCONESP2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCONESP2];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCONESP2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP2] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCONESP3Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP3];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCONESP3Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCONESP3];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCONESP3Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP3] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetVALVENValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENVALVEN];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldVALVENValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENVALVEN];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetVALVENValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENVALVEN] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetPRENETCTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRENETCT];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldPRENETCTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPRENETCT];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetPRENETCTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRENETCT] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetPREBRUCTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREBRUCT];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldPREBRUCTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREBRUCT];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetPREBRUCTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREBRUCT] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetPREINFETValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFET];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldPREINFETValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREINFET];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetPREINFETValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFET] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetPREINFFTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFFT];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldPREINFFTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREINFFT];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetPREINFFTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFFT] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetPRECALCTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRECALCT];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldPRECALCTValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPRECALCT];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetPRECALCTValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRECALCT] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetPRENETCAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRENETCA];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldPRENETCAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPRENETCA];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetPRENETCAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRENETCA] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetPREBRUCAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREBRUCA];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldPREBRUCAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREBRUCA];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetPREBRUCAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREBRUCA] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetPREINFEAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFEA];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldPREINFEAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREINFEA];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetPREINFEAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFEA] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetPREINFFAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFFA];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldPREINFFAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREINFFA];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetPREINFFAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFFA] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetPRECALCAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRECALCA];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldPRECALCAValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPRECALCA];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetPRECALCAValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRECALCA] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetBAPRUN1Value: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN1];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldBAPRUN1Value: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENBAPRUN1];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetBAPRUN1Value(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN1] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetUNIMED1Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED1];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldUNIMED1Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUNIMED1];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetUNIMED1Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED1] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetBAPRUN2Value: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN2];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldBAPRUN2Value: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENBAPRUN2];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetBAPRUN2Value(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN2] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetUNIMED2Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED2];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldUNIMED2Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUNIMED2];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetUNIMED2Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED2] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetBAPRUN3Value: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN3];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldBAPRUN3Value: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENBAPRUN3];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetBAPRUN3Value(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN3] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetUNIMED3Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED3];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldUNIMED3Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUNIMED3];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetUNIMED3Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED3] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetBAPRUN4Value: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN4];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldBAPRUN4Value: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENBAPRUN4];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetBAPRUN4Value(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN4] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetUNIMED4Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED4];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldUNIMED4Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUNIMED4];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetUNIMED4Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED4] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetBAPRUN5Value: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN5];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldBAPRUN5Value: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENBAPRUN5];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetBAPRUN5Value(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN5] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetUNIMED5Value: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED5];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldUNIMED5Value: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUNIMED5];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetUNIMED5Value(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED5] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCANVENValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANVEN];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCANVENValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCANVEN];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCANVENValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANVEN] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetEXIPROValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEXIPRO];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldEXIPROValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENEXIPRO];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetEXIPROValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEXIPRO] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetDESEXIValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESEXI];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldDESEXIValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENDESEXI];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetDESEXIValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESEXI] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetESPMEDCVValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDCV];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldESPMEDCVValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENESPMEDCV];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetESPMEDCVValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDCV] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetESPMEDEPValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDEP];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldESPMEDEPValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENESPMEDEP];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetESPMEDEPValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDEP] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetESPMEDDEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDDE];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldESPMEDDEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENESPMEDDE];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetESPMEDDEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDDE] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCANDEVValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANDEV];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCANDEVValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCANDEV];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCANDEVValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANDEV] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetEANVENValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEANVEN];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldEANVENValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENEANVEN];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetEANVENValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEANVEN] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetNOMVENValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNOMVEN];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldNOMVENValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENNOMVEN];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetNOMVENValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNOMVEN] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetNUMTALONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMTALON];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldNUMTALONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENNUMTALON];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetNUMTALONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMTALON] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCANVENNETValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANVENNET];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCANVENNETValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCANVENNET];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCANVENNETValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANVENNET] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetUMEDVENNETValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUMEDVENNET];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldUMEDVENNETValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUMEDVENNET];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetUMEDVENNETValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUMEDVENNET] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetCANESPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANESP];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldCANESPValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCANESP];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetCANESPValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANESP] := aValue;
end;

function TRDX_ARTVENBusinessProcessorRules.GetUMEDESPValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUMEDESP];
end;

function TRDX_ARTVENBusinessProcessorRules.GetOldUMEDESPValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUMEDESP];
end;

procedure TRDX_ARTVENBusinessProcessorRules.SetUMEDESPValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUMEDESP] := aValue;
end;


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

destructor TRDX_CABVENBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TRDX_CABVENBusinessProcessorRules.GetCLAVE1Value: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENCLAVE1];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldCLAVE1Value: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENCLAVE1];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetCLAVE1Value(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENCLAVE1] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetNUMINFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMINF];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldNUMINFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMINF];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetNUMINFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMINF] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetFUNCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFUNCION];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldFUNCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFUNCION];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetFUNCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFUNCION] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetFECINIValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINI];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldFECINIValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECINI];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetFECINIValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINI] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetFECFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECFIN];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldFECFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECFIN];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetFECFINValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECFIN] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetFECINFValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINF];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldFECINFValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECINF];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetFECINFValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINF] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetPERVENINIValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENPERVENINI];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldPERVENINIValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENPERVENINI];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetPERVENINIValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENPERVENINI] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetPERVENFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENPERVENFIN];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldPERVENFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENPERVENFIN];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetPERVENFINValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENPERVENFIN] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEANOFIValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANOFI];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEANOFIValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANOFI];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEANOFIValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANOFI] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEANEMIValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANEMI];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEANEMIValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANEMI];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEANEMIValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANEMI] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEANRECValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREC];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEANRECValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANREC];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEANRECValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREC] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEANVENValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANVEN];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEANVENValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANVEN];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEANVENValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANVEN] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEANALMValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANALM];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEANALMValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANALM];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEANALMValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANALM] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEANREPValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREP];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEANREPValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANREP];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEANREPValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREP] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEANPROValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANPRO];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEANPROValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANPRO];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEANPROValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANPRO] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEANADMSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANADMSA];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEANADMSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANADMSA];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEANADMSAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANADMSA] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEANREPSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREPSR];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEANREPSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANREPSR];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEANREPSRValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREPSR] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetADMVENSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENADMVENSA];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldADMVENSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENADMVENSA];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetADMVENSAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENADMVENSA] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetREPDEPSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENREPDEPSR];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldREPDEPSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENREPDEPSR];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetREPDEPSRValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENREPDEPSR] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEMAILSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEMAILSA];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEMAILSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEMAILSA];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEMAILSAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEMAILSA] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetNUMFAXSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMFAXSA];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldNUMFAXSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMFAXSA];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetNUMFAXSAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMFAXSA] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetNUMTELSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTELSA];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldNUMTELSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMTELSA];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetNUMTELSAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTELSA] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetNUMTLXSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTLXSA];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldNUMTLXSAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMTLXSA];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetNUMTLXSAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTLXSA] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetX400SAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENX400SA];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldX400SAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENX400SA];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetX400SAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENX400SA] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetEMAILSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEMAILSR];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldEMAILSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEMAILSR];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetEMAILSRValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEMAILSR] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetNUMFAXSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMFAXSR];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldNUMFAXSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMFAXSR];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetNUMFAXSRValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMFAXSR] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetNUMTELSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTELSR];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldNUMTELSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMTELSR];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetNUMTELSRValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTELSR] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetNUMTLXSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTLXSR];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldNUMTLXSRValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMTLXSR];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetNUMTLXSRValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTLXSR] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetX400SRValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENX400SR];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldX400SRValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENX400SR];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetX400SRValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENX400SR] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetNUMPREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMPRE];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldNUMPREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMPRE];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetNUMPREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMPRE] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetNUMINFSCValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMINFSC];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldNUMINFSCValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMINFSC];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetNUMINFSCValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMINFSC] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetNUMCONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMCON];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldNUMCONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMCON];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetNUMCONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMCON] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetFECPREValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECPRE];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldFECPREValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECPRE];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetFECPREValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECPRE] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetFECINFSCValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINFSC];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldFECINFSCValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECINFSC];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetFECINFSCValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINFSC] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetFECCONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECCON];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldFECCONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECCON];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetFECCONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECCON] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetDIVPEDValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPED];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldDIVPEDValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPED];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetDIVPEDValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPED] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetDIVPREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPRE];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldDIVPREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPRE];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetDIVPREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPRE] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetDIVPAGValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPAG];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldDIVPAGValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPAG];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetDIVPAGValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPAG] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetDIVPEDFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPEDF];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldDIVPEDFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPEDF];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetDIVPEDFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPEDF] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetDIVPREFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPREF];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldDIVPREFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPREF];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetDIVPREFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPREF] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetDIVPAGFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPAGF];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldDIVPAGFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPAGF];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetDIVPAGFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPAGF] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetTASCAMValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENTASCAM];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldTASCAMValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENTASCAM];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetTASCAMValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENTASCAM] := aValue;
end;

function TRDX_CABVENBusinessProcessorRules.GetFECTASValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECTAS];
end;

function TRDX_CABVENBusinessProcessorRules.GetOldFECTASValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECTAS];
end;

procedure TRDX_CABVENBusinessProcessorRules.SetFECTASValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECTAS] := aValue;
end;


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

destructor TRDX_LUGVENBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TRDX_LUGVENBusinessProcessorRules.GetCLAVE1Value: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENCLAVE1];
end;

function TRDX_LUGVENBusinessProcessorRules.GetOldCLAVE1Value: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENCLAVE1];
end;

procedure TRDX_LUGVENBusinessProcessorRules.SetCLAVE1Value(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENCLAVE1] := aValue;
end;

function TRDX_LUGVENBusinessProcessorRules.GetCLAVE2Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENCLAVE2];
end;

function TRDX_LUGVENBusinessProcessorRules.GetOldCLAVE2Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENCLAVE2];
end;

procedure TRDX_LUGVENBusinessProcessorRules.SetCLAVE2Value(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENCLAVE2] := aValue;
end;

function TRDX_LUGVENBusinessProcessorRules.GetEANLUGValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENEANLUG];
end;

function TRDX_LUGVENBusinessProcessorRules.GetOldEANLUGValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENEANLUG];
end;

procedure TRDX_LUGVENBusinessProcessorRules.SetEANLUGValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENEANLUG] := aValue;
end;

function TRDX_LUGVENBusinessProcessorRules.GetLUGVENValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENLUGVEN];
end;

function TRDX_LUGVENBusinessProcessorRules.GetOldLUGVENValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENLUGVEN];
end;

procedure TRDX_LUGVENBusinessProcessorRules.SetLUGVENValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENLUGVEN] := aValue;
end;

function TRDX_LUGVENBusinessProcessorRules.GetFECINIValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENFECINI];
end;

function TRDX_LUGVENBusinessProcessorRules.GetOldFECINIValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENFECINI];
end;

procedure TRDX_LUGVENBusinessProcessorRules.SetFECINIValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENFECINI] := aValue;
end;

function TRDX_LUGVENBusinessProcessorRules.GetFECFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENFECFIN];
end;

function TRDX_LUGVENBusinessProcessorRules.GetOldFECFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENFECFIN];
end;

procedure TRDX_LUGVENBusinessProcessorRules.SetFECFINValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENFECFIN] := aValue;
end;

function TRDX_LUGVENBusinessProcessorRules.GetPERVENINIValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENPERVENINI];
end;

function TRDX_LUGVENBusinessProcessorRules.GetOldPERVENINIValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENPERVENINI];
end;

procedure TRDX_LUGVENBusinessProcessorRules.SetPERVENINIValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENPERVENINI] := aValue;
end;

function TRDX_LUGVENBusinessProcessorRules.GetPERVENFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENPERVENFIN];
end;

function TRDX_LUGVENBusinessProcessorRules.GetOldPERVENFINValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENPERVENFIN];
end;

procedure TRDX_LUGVENBusinessProcessorRules.SetPERVENFINValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENPERVENFIN] := aValue;
end;


initialization
  RegisterBusinessProcessorRules(RID_RDX_ARTVENDelta, TRDX_ARTVENBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_RDX_CABVENDelta, TRDX_CABVENBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_RDX_LUGVENDelta, TRDX_LUGVENBusinessProcessorRules);

end.