2330 lines
93 KiB
ObjectPascal
2330 lines
93 KiB
ObjectPascal
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.
|