unit schStockServer_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schStockClient_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_StockPrendasCentrosDelta = '{94925BB7-FFD2-475A-A052-E01FC8FC1395}'; RID_StockEDIDelta = '{DDCD4C21-842E-4BDF-8C1A-02A88AFC71A0}'; RID_StockVARELADelta = '{4450D642-A9B5-48E4-8D11-D7950511CBA8}'; RID_StockEDIInventarioDelta = '{4800774F-6C4A-4699-94ED-9BCAA7E34704}'; type { IStockPrendasCentrosDelta } IStockPrendasCentrosDelta = interface(IStockPrendasCentros) ['{94925BB7-FFD2-475A-A052-E01FC8FC1395}'] { Property getters and setters } function GetOldCODIGOValue : String; function GetOldPRODUCTOValue : String; function GetOldTIPO_PRODUCTOValue : String; function GetOldGRUPO_PRODUCTOValue : String; function GetOldCOLECCIONValue : String; function GetOldCOLORValue : String; function GetOldT38Value : Float; function GetOldT40Value : Float; function GetOldT42Value : Float; function GetOldT44Value : Float; function GetOldT46Value : Float; function GetOldT48Value : Float; function GetOldTOTALValue : Float; { Properties } property OldCODIGO : String read GetOldCODIGOValue; property OldPRODUCTO : String read GetOldPRODUCTOValue; property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; property OldCOLECCION : String read GetOldCOLECCIONValue; property OldCOLOR : String read GetOldCOLORValue; property OldT38 : Float read GetOldT38Value; property OldT40 : Float read GetOldT40Value; property OldT42 : Float read GetOldT42Value; property OldT44 : Float read GetOldT44Value; property OldT46 : Float read GetOldT46Value; property OldT48 : Float read GetOldT48Value; property OldTOTAL : Float read GetOldTOTALValue; end; { TStockPrendasCentrosBusinessProcessorRules } TStockPrendasCentrosBusinessProcessorRules = class(TDABusinessProcessorRules, IStockPrendasCentros, IStockPrendasCentrosDelta) private protected { Property getters and setters } function GetCODIGOValue: String; virtual; function GetCODIGOIsNull: Boolean; virtual; function GetOldCODIGOValue: String; virtual; function GetOldCODIGOIsNull: Boolean; virtual; procedure SetCODIGOValue(const aValue: String); virtual; procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; function GetPRODUCTOIsNull: Boolean; virtual; function GetOldPRODUCTOValue: String; virtual; function GetOldPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; function GetTIPO_PRODUCTOIsNull: Boolean; virtual; function GetOldTIPO_PRODUCTOValue: String; virtual; function GetOldTIPO_PRODUCTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; function GetOldGRUPO_PRODUCTOValue: String; virtual; function GetOldGRUPO_PRODUCTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; function GetCOLECCIONIsNull: Boolean; virtual; function GetOldCOLECCIONValue: String; virtual; function GetOldCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; function GetCOLORIsNull: Boolean; virtual; function GetOldCOLORValue: String; virtual; function GetOldCOLORIsNull: Boolean; virtual; procedure SetCOLORValue(const aValue: String); virtual; procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetT38Value: Float; virtual; function GetT38IsNull: Boolean; virtual; function GetOldT38Value: Float; virtual; function GetOldT38IsNull: Boolean; virtual; procedure SetT38Value(const aValue: Float); virtual; procedure SetT38IsNull(const aValue: Boolean); virtual; function GetT40Value: Float; virtual; function GetT40IsNull: Boolean; virtual; function GetOldT40Value: Float; virtual; function GetOldT40IsNull: Boolean; virtual; procedure SetT40Value(const aValue: Float); virtual; procedure SetT40IsNull(const aValue: Boolean); virtual; function GetT42Value: Float; virtual; function GetT42IsNull: Boolean; virtual; function GetOldT42Value: Float; virtual; function GetOldT42IsNull: Boolean; virtual; procedure SetT42Value(const aValue: Float); virtual; procedure SetT42IsNull(const aValue: Boolean); virtual; function GetT44Value: Float; virtual; function GetT44IsNull: Boolean; virtual; function GetOldT44Value: Float; virtual; function GetOldT44IsNull: Boolean; virtual; procedure SetT44Value(const aValue: Float); virtual; procedure SetT44IsNull(const aValue: Boolean); virtual; function GetT46Value: Float; virtual; function GetT46IsNull: Boolean; virtual; function GetOldT46Value: Float; virtual; function GetOldT46IsNull: Boolean; virtual; procedure SetT46Value(const aValue: Float); virtual; procedure SetT46IsNull(const aValue: Boolean); virtual; function GetT48Value: Float; virtual; function GetT48IsNull: Boolean; virtual; function GetOldT48Value: Float; virtual; function GetOldT48IsNull: Boolean; virtual; procedure SetT48Value(const aValue: Float); virtual; procedure SetT48IsNull(const aValue: Boolean); virtual; function GetTOTALValue: Float; virtual; function GetTOTALIsNull: Boolean; virtual; function GetOldTOTALValue: Float; virtual; function GetOldTOTALIsNull: Boolean; virtual; procedure SetTOTALValue(const aValue: Float); virtual; procedure SetTOTALIsNull(const aValue: Boolean); virtual; { Properties } property CODIGO : String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property OldCODIGO : String read GetOldCODIGOValue; property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull; property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull : Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property OldPRODUCTO : String read GetOldPRODUCTOValue; property OldPRODUCTOIsNull : Boolean read GetOldPRODUCTOIsNull; property TIPO_PRODUCTO : String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; property TIPO_PRODUCTOIsNull : Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; property OldTIPO_PRODUCTOIsNull : Boolean read GetOldTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO : String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; property GRUPO_PRODUCTOIsNull : Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; property OldGRUPO_PRODUCTOIsNull : Boolean read GetOldGRUPO_PRODUCTOIsNull; property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull : Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property OldCOLECCION : String read GetOldCOLECCIONValue; property OldCOLECCIONIsNull : Boolean read GetOldCOLECCIONIsNull; property COLOR : String read GetCOLORValue write SetCOLORValue; property COLORIsNull : Boolean read GetCOLORIsNull write SetCOLORIsNull; property OldCOLOR : String read GetOldCOLORValue; property OldCOLORIsNull : Boolean read GetOldCOLORIsNull; property T38 : Float read GetT38Value write SetT38Value; property T38IsNull : Boolean read GetT38IsNull write SetT38IsNull; property OldT38 : Float read GetOldT38Value; property OldT38IsNull : Boolean read GetOldT38IsNull; property T40 : Float read GetT40Value write SetT40Value; property T40IsNull : Boolean read GetT40IsNull write SetT40IsNull; property OldT40 : Float read GetOldT40Value; property OldT40IsNull : Boolean read GetOldT40IsNull; property T42 : Float read GetT42Value write SetT42Value; property T42IsNull : Boolean read GetT42IsNull write SetT42IsNull; property OldT42 : Float read GetOldT42Value; property OldT42IsNull : Boolean read GetOldT42IsNull; property T44 : Float read GetT44Value write SetT44Value; property T44IsNull : Boolean read GetT44IsNull write SetT44IsNull; property OldT44 : Float read GetOldT44Value; property OldT44IsNull : Boolean read GetOldT44IsNull; property T46 : Float read GetT46Value write SetT46Value; property T46IsNull : Boolean read GetT46IsNull write SetT46IsNull; property OldT46 : Float read GetOldT46Value; property OldT46IsNull : Boolean read GetOldT46IsNull; property T48 : Float read GetT48Value write SetT48Value; property T48IsNull : Boolean read GetT48IsNull write SetT48IsNull; property OldT48 : Float read GetOldT48Value; property OldT48IsNull : Boolean read GetOldT48IsNull; property TOTAL : Float read GetTOTALValue write SetTOTALValue; property TOTALIsNull : Boolean read GetTOTALIsNull write SetTOTALIsNull; property OldTOTAL : Float read GetOldTOTALValue; property OldTOTALIsNull : Boolean read GetOldTOTALIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IStockEDIDelta } IStockEDIDelta = interface(IStockEDI) ['{DDCD4C21-842E-4BDF-8C1A-02A88AFC71A0}'] { Property getters and setters } function GetOldCENTROValue : String; function GetOldFILIALValue : String; function GetOldCODIGOValue : String; function GetOldPRODUCTOValue : String; function GetOldTIPO_PRODUCTOValue : String; function GetOldGRUPO_PRODUCTOValue : String; function GetOldCOLECCIONValue : String; function GetOldCOLORValue : String; function GetOldE38Value : Float; function GetOldE40Value : Float; function GetOldE42Value : Float; function GetOldE44Value : Float; function GetOldE46Value : Float; function GetOldE48Value : Float; function GetOldTEValue : Float; function GetOldS38Value : Float; function GetOldS40Value : Float; function GetOldS42Value : Float; function GetOldS44Value : Float; function GetOldS46Value : Float; function GetOldS48Value : Float; function GetOldTSValue : Float; function GetOldK38Value : Float; function GetOldK40Value : Float; function GetOldK42Value : Float; function GetOldK44Value : Float; function GetOldK46Value : Float; function GetOldK48Value : Float; function GetOldKTValue : Float; { Properties } property OldCENTRO : String read GetOldCENTROValue; property OldFILIAL : String read GetOldFILIALValue; property OldCODIGO : String read GetOldCODIGOValue; property OldPRODUCTO : String read GetOldPRODUCTOValue; property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; property OldCOLECCION : String read GetOldCOLECCIONValue; property OldCOLOR : String read GetOldCOLORValue; property OldE38 : Float read GetOldE38Value; property OldE40 : Float read GetOldE40Value; property OldE42 : Float read GetOldE42Value; property OldE44 : Float read GetOldE44Value; property OldE46 : Float read GetOldE46Value; property OldE48 : Float read GetOldE48Value; property OldTE : Float read GetOldTEValue; property OldS38 : Float read GetOldS38Value; property OldS40 : Float read GetOldS40Value; property OldS42 : Float read GetOldS42Value; property OldS44 : Float read GetOldS44Value; property OldS46 : Float read GetOldS46Value; property OldS48 : Float read GetOldS48Value; property OldTS : Float read GetOldTSValue; property OldK38 : Float read GetOldK38Value; property OldK40 : Float read GetOldK40Value; property OldK42 : Float read GetOldK42Value; property OldK44 : Float read GetOldK44Value; property OldK46 : Float read GetOldK46Value; property OldK48 : Float read GetOldK48Value; property OldKT : Float read GetOldKTValue; end; { TStockEDIBusinessProcessorRules } TStockEDIBusinessProcessorRules = class(TDABusinessProcessorRules, IStockEDI, IStockEDIDelta) private protected { Property getters and setters } function GetCENTROValue: String; virtual; function GetCENTROIsNull: Boolean; virtual; function GetOldCENTROValue: String; virtual; function GetOldCENTROIsNull: Boolean; virtual; procedure SetCENTROValue(const aValue: String); virtual; procedure SetCENTROIsNull(const aValue: Boolean); virtual; function GetFILIALValue: String; virtual; function GetFILIALIsNull: Boolean; virtual; function GetOldFILIALValue: String; virtual; function GetOldFILIALIsNull: Boolean; virtual; procedure SetFILIALValue(const aValue: String); virtual; procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; function GetCODIGOIsNull: Boolean; virtual; function GetOldCODIGOValue: String; virtual; function GetOldCODIGOIsNull: Boolean; virtual; procedure SetCODIGOValue(const aValue: String); virtual; procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; function GetPRODUCTOIsNull: Boolean; virtual; function GetOldPRODUCTOValue: String; virtual; function GetOldPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; function GetTIPO_PRODUCTOIsNull: Boolean; virtual; function GetOldTIPO_PRODUCTOValue: String; virtual; function GetOldTIPO_PRODUCTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; function GetOldGRUPO_PRODUCTOValue: String; virtual; function GetOldGRUPO_PRODUCTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; function GetCOLECCIONIsNull: Boolean; virtual; function GetOldCOLECCIONValue: String; virtual; function GetOldCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; function GetCOLORIsNull: Boolean; virtual; function GetOldCOLORValue: String; virtual; function GetOldCOLORIsNull: Boolean; virtual; procedure SetCOLORValue(const aValue: String); virtual; procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetE38Value: Float; virtual; function GetE38IsNull: Boolean; virtual; function GetOldE38Value: Float; virtual; function GetOldE38IsNull: Boolean; virtual; procedure SetE38Value(const aValue: Float); virtual; procedure SetE38IsNull(const aValue: Boolean); virtual; function GetE40Value: Float; virtual; function GetE40IsNull: Boolean; virtual; function GetOldE40Value: Float; virtual; function GetOldE40IsNull: Boolean; virtual; procedure SetE40Value(const aValue: Float); virtual; procedure SetE40IsNull(const aValue: Boolean); virtual; function GetE42Value: Float; virtual; function GetE42IsNull: Boolean; virtual; function GetOldE42Value: Float; virtual; function GetOldE42IsNull: Boolean; virtual; procedure SetE42Value(const aValue: Float); virtual; procedure SetE42IsNull(const aValue: Boolean); virtual; function GetE44Value: Float; virtual; function GetE44IsNull: Boolean; virtual; function GetOldE44Value: Float; virtual; function GetOldE44IsNull: Boolean; virtual; procedure SetE44Value(const aValue: Float); virtual; procedure SetE44IsNull(const aValue: Boolean); virtual; function GetE46Value: Float; virtual; function GetE46IsNull: Boolean; virtual; function GetOldE46Value: Float; virtual; function GetOldE46IsNull: Boolean; virtual; procedure SetE46Value(const aValue: Float); virtual; procedure SetE46IsNull(const aValue: Boolean); virtual; function GetE48Value: Float; virtual; function GetE48IsNull: Boolean; virtual; function GetOldE48Value: Float; virtual; function GetOldE48IsNull: Boolean; virtual; procedure SetE48Value(const aValue: Float); virtual; procedure SetE48IsNull(const aValue: Boolean); virtual; function GetTEValue: Float; virtual; function GetTEIsNull: Boolean; virtual; function GetOldTEValue: Float; virtual; function GetOldTEIsNull: Boolean; virtual; procedure SetTEValue(const aValue: Float); virtual; procedure SetTEIsNull(const aValue: Boolean); virtual; function GetS38Value: Float; virtual; function GetS38IsNull: Boolean; virtual; function GetOldS38Value: Float; virtual; function GetOldS38IsNull: Boolean; virtual; procedure SetS38Value(const aValue: Float); virtual; procedure SetS38IsNull(const aValue: Boolean); virtual; function GetS40Value: Float; virtual; function GetS40IsNull: Boolean; virtual; function GetOldS40Value: Float; virtual; function GetOldS40IsNull: Boolean; virtual; procedure SetS40Value(const aValue: Float); virtual; procedure SetS40IsNull(const aValue: Boolean); virtual; function GetS42Value: Float; virtual; function GetS42IsNull: Boolean; virtual; function GetOldS42Value: Float; virtual; function GetOldS42IsNull: Boolean; virtual; procedure SetS42Value(const aValue: Float); virtual; procedure SetS42IsNull(const aValue: Boolean); virtual; function GetS44Value: Float; virtual; function GetS44IsNull: Boolean; virtual; function GetOldS44Value: Float; virtual; function GetOldS44IsNull: Boolean; virtual; procedure SetS44Value(const aValue: Float); virtual; procedure SetS44IsNull(const aValue: Boolean); virtual; function GetS46Value: Float; virtual; function GetS46IsNull: Boolean; virtual; function GetOldS46Value: Float; virtual; function GetOldS46IsNull: Boolean; virtual; procedure SetS46Value(const aValue: Float); virtual; procedure SetS46IsNull(const aValue: Boolean); virtual; function GetS48Value: Float; virtual; function GetS48IsNull: Boolean; virtual; function GetOldS48Value: Float; virtual; function GetOldS48IsNull: Boolean; virtual; procedure SetS48Value(const aValue: Float); virtual; procedure SetS48IsNull(const aValue: Boolean); virtual; function GetTSValue: Float; virtual; function GetTSIsNull: Boolean; virtual; function GetOldTSValue: Float; virtual; function GetOldTSIsNull: Boolean; virtual; procedure SetTSValue(const aValue: Float); virtual; procedure SetTSIsNull(const aValue: Boolean); virtual; function GetK38Value: Float; virtual; function GetK38IsNull: Boolean; virtual; function GetOldK38Value: Float; virtual; function GetOldK38IsNull: Boolean; virtual; procedure SetK38Value(const aValue: Float); virtual; procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Float; virtual; function GetK40IsNull: Boolean; virtual; function GetOldK40Value: Float; virtual; function GetOldK40IsNull: Boolean; virtual; procedure SetK40Value(const aValue: Float); virtual; procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Float; virtual; function GetK42IsNull: Boolean; virtual; function GetOldK42Value: Float; virtual; function GetOldK42IsNull: Boolean; virtual; procedure SetK42Value(const aValue: Float); virtual; procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Float; virtual; function GetK44IsNull: Boolean; virtual; function GetOldK44Value: Float; virtual; function GetOldK44IsNull: Boolean; virtual; procedure SetK44Value(const aValue: Float); virtual; procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Float; virtual; function GetK46IsNull: Boolean; virtual; function GetOldK46Value: Float; virtual; function GetOldK46IsNull: Boolean; virtual; procedure SetK46Value(const aValue: Float); virtual; procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Float; virtual; function GetK48IsNull: Boolean; virtual; function GetOldK48Value: Float; virtual; function GetOldK48IsNull: Boolean; virtual; procedure SetK48Value(const aValue: Float); virtual; procedure SetK48IsNull(const aValue: Boolean); virtual; function GetKTValue: Float; virtual; function GetKTIsNull: Boolean; virtual; function GetOldKTValue: Float; virtual; function GetOldKTIsNull: Boolean; virtual; procedure SetKTValue(const aValue: Float); virtual; procedure SetKTIsNull(const aValue: Boolean); virtual; { Properties } property CENTRO : String read GetCENTROValue write SetCENTROValue; property CENTROIsNull : Boolean read GetCENTROIsNull write SetCENTROIsNull; property OldCENTRO : String read GetOldCENTROValue; property OldCENTROIsNull : Boolean read GetOldCENTROIsNull; property FILIAL : String read GetFILIALValue write SetFILIALValue; property FILIALIsNull : Boolean read GetFILIALIsNull write SetFILIALIsNull; property OldFILIAL : String read GetOldFILIALValue; property OldFILIALIsNull : Boolean read GetOldFILIALIsNull; property CODIGO : String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property OldCODIGO : String read GetOldCODIGOValue; property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull; property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull : Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property OldPRODUCTO : String read GetOldPRODUCTOValue; property OldPRODUCTOIsNull : Boolean read GetOldPRODUCTOIsNull; property TIPO_PRODUCTO : String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; property TIPO_PRODUCTOIsNull : Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; property OldTIPO_PRODUCTOIsNull : Boolean read GetOldTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO : String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; property GRUPO_PRODUCTOIsNull : Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; property OldGRUPO_PRODUCTOIsNull : Boolean read GetOldGRUPO_PRODUCTOIsNull; property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull : Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property OldCOLECCION : String read GetOldCOLECCIONValue; property OldCOLECCIONIsNull : Boolean read GetOldCOLECCIONIsNull; property COLOR : String read GetCOLORValue write SetCOLORValue; property COLORIsNull : Boolean read GetCOLORIsNull write SetCOLORIsNull; property OldCOLOR : String read GetOldCOLORValue; property OldCOLORIsNull : Boolean read GetOldCOLORIsNull; property E38 : Float read GetE38Value write SetE38Value; property E38IsNull : Boolean read GetE38IsNull write SetE38IsNull; property OldE38 : Float read GetOldE38Value; property OldE38IsNull : Boolean read GetOldE38IsNull; property E40 : Float read GetE40Value write SetE40Value; property E40IsNull : Boolean read GetE40IsNull write SetE40IsNull; property OldE40 : Float read GetOldE40Value; property OldE40IsNull : Boolean read GetOldE40IsNull; property E42 : Float read GetE42Value write SetE42Value; property E42IsNull : Boolean read GetE42IsNull write SetE42IsNull; property OldE42 : Float read GetOldE42Value; property OldE42IsNull : Boolean read GetOldE42IsNull; property E44 : Float read GetE44Value write SetE44Value; property E44IsNull : Boolean read GetE44IsNull write SetE44IsNull; property OldE44 : Float read GetOldE44Value; property OldE44IsNull : Boolean read GetOldE44IsNull; property E46 : Float read GetE46Value write SetE46Value; property E46IsNull : Boolean read GetE46IsNull write SetE46IsNull; property OldE46 : Float read GetOldE46Value; property OldE46IsNull : Boolean read GetOldE46IsNull; property E48 : Float read GetE48Value write SetE48Value; property E48IsNull : Boolean read GetE48IsNull write SetE48IsNull; property OldE48 : Float read GetOldE48Value; property OldE48IsNull : Boolean read GetOldE48IsNull; property TE : Float read GetTEValue write SetTEValue; property TEIsNull : Boolean read GetTEIsNull write SetTEIsNull; property OldTE : Float read GetOldTEValue; property OldTEIsNull : Boolean read GetOldTEIsNull; property S38 : Float read GetS38Value write SetS38Value; property S38IsNull : Boolean read GetS38IsNull write SetS38IsNull; property OldS38 : Float read GetOldS38Value; property OldS38IsNull : Boolean read GetOldS38IsNull; property S40 : Float read GetS40Value write SetS40Value; property S40IsNull : Boolean read GetS40IsNull write SetS40IsNull; property OldS40 : Float read GetOldS40Value; property OldS40IsNull : Boolean read GetOldS40IsNull; property S42 : Float read GetS42Value write SetS42Value; property S42IsNull : Boolean read GetS42IsNull write SetS42IsNull; property OldS42 : Float read GetOldS42Value; property OldS42IsNull : Boolean read GetOldS42IsNull; property S44 : Float read GetS44Value write SetS44Value; property S44IsNull : Boolean read GetS44IsNull write SetS44IsNull; property OldS44 : Float read GetOldS44Value; property OldS44IsNull : Boolean read GetOldS44IsNull; property S46 : Float read GetS46Value write SetS46Value; property S46IsNull : Boolean read GetS46IsNull write SetS46IsNull; property OldS46 : Float read GetOldS46Value; property OldS46IsNull : Boolean read GetOldS46IsNull; property S48 : Float read GetS48Value write SetS48Value; property S48IsNull : Boolean read GetS48IsNull write SetS48IsNull; property OldS48 : Float read GetOldS48Value; property OldS48IsNull : Boolean read GetOldS48IsNull; property TS : Float read GetTSValue write SetTSValue; property TSIsNull : Boolean read GetTSIsNull write SetTSIsNull; property OldTS : Float read GetOldTSValue; property OldTSIsNull : Boolean read GetOldTSIsNull; property K38 : Float read GetK38Value write SetK38Value; property K38IsNull : Boolean read GetK38IsNull write SetK38IsNull; property OldK38 : Float read GetOldK38Value; property OldK38IsNull : Boolean read GetOldK38IsNull; property K40 : Float read GetK40Value write SetK40Value; property K40IsNull : Boolean read GetK40IsNull write SetK40IsNull; property OldK40 : Float read GetOldK40Value; property OldK40IsNull : Boolean read GetOldK40IsNull; property K42 : Float read GetK42Value write SetK42Value; property K42IsNull : Boolean read GetK42IsNull write SetK42IsNull; property OldK42 : Float read GetOldK42Value; property OldK42IsNull : Boolean read GetOldK42IsNull; property K44 : Float read GetK44Value write SetK44Value; property K44IsNull : Boolean read GetK44IsNull write SetK44IsNull; property OldK44 : Float read GetOldK44Value; property OldK44IsNull : Boolean read GetOldK44IsNull; property K46 : Float read GetK46Value write SetK46Value; property K46IsNull : Boolean read GetK46IsNull write SetK46IsNull; property OldK46 : Float read GetOldK46Value; property OldK46IsNull : Boolean read GetOldK46IsNull; property K48 : Float read GetK48Value write SetK48Value; property K48IsNull : Boolean read GetK48IsNull write SetK48IsNull; property OldK48 : Float read GetOldK48Value; property OldK48IsNull : Boolean read GetOldK48IsNull; property KT : Float read GetKTValue write SetKTValue; property KTIsNull : Boolean read GetKTIsNull write SetKTIsNull; property OldKT : Float read GetOldKTValue; property OldKTIsNull : Boolean read GetOldKTIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IStockVARELADelta } IStockVARELADelta = interface(IStockVARELA) ['{4450D642-A9B5-48E4-8D11-D7950511CBA8}'] { Property getters and setters } function GetOldFILIALValue : String; function GetOldCODIGOValue : String; function GetOldCOLORValue : String; function GetOldPRODUCTOValue : String; function GetOldTIPO_PRODUTOValue : String; function GetOldGRUPO_PRODUTOValue : String; function GetOldCOLECCIONValue : String; function GetOldK38Value : Integer; function GetOldK40Value : Integer; function GetOldK42Value : Integer; function GetOldK44Value : Integer; function GetOldK46Value : Integer; function GetOldK48Value : Integer; function GetOldKTValue : Integer; { Properties } property OldFILIAL : String read GetOldFILIALValue; property OldCODIGO : String read GetOldCODIGOValue; property OldCOLOR : String read GetOldCOLORValue; property OldPRODUCTO : String read GetOldPRODUCTOValue; property OldTIPO_PRODUTO : String read GetOldTIPO_PRODUTOValue; property OldGRUPO_PRODUTO : String read GetOldGRUPO_PRODUTOValue; property OldCOLECCION : String read GetOldCOLECCIONValue; property OldK38 : Integer read GetOldK38Value; property OldK40 : Integer read GetOldK40Value; property OldK42 : Integer read GetOldK42Value; property OldK44 : Integer read GetOldK44Value; property OldK46 : Integer read GetOldK46Value; property OldK48 : Integer read GetOldK48Value; property OldKT : Integer read GetOldKTValue; end; { TStockVARELABusinessProcessorRules } TStockVARELABusinessProcessorRules = class(TDABusinessProcessorRules, IStockVARELA, IStockVARELADelta) private protected { Property getters and setters } function GetFILIALValue: String; virtual; function GetFILIALIsNull: Boolean; virtual; function GetOldFILIALValue: String; virtual; function GetOldFILIALIsNull: Boolean; virtual; procedure SetFILIALValue(const aValue: String); virtual; procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; function GetCODIGOIsNull: Boolean; virtual; function GetOldCODIGOValue: String; virtual; function GetOldCODIGOIsNull: Boolean; virtual; procedure SetCODIGOValue(const aValue: String); virtual; procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; function GetCOLORIsNull: Boolean; virtual; function GetOldCOLORValue: String; virtual; function GetOldCOLORIsNull: Boolean; virtual; procedure SetCOLORValue(const aValue: String); virtual; procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; function GetPRODUCTOIsNull: Boolean; virtual; function GetOldPRODUCTOValue: String; virtual; function GetOldPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUTOValue: String; virtual; function GetTIPO_PRODUTOIsNull: Boolean; virtual; function GetOldTIPO_PRODUTOValue: String; virtual; function GetOldTIPO_PRODUTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUTOValue(const aValue: String); virtual; procedure SetTIPO_PRODUTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUTOValue: String; virtual; function GetGRUPO_PRODUTOIsNull: Boolean; virtual; function GetOldGRUPO_PRODUTOValue: String; virtual; function GetOldGRUPO_PRODUTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUTOValue(const aValue: String); virtual; procedure SetGRUPO_PRODUTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; function GetCOLECCIONIsNull: Boolean; virtual; function GetOldCOLECCIONValue: String; virtual; function GetOldCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetK38Value: Integer; virtual; function GetK38IsNull: Boolean; virtual; function GetOldK38Value: Integer; virtual; function GetOldK38IsNull: Boolean; virtual; procedure SetK38Value(const aValue: Integer); virtual; procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Integer; virtual; function GetK40IsNull: Boolean; virtual; function GetOldK40Value: Integer; virtual; function GetOldK40IsNull: Boolean; virtual; procedure SetK40Value(const aValue: Integer); virtual; procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Integer; virtual; function GetK42IsNull: Boolean; virtual; function GetOldK42Value: Integer; virtual; function GetOldK42IsNull: Boolean; virtual; procedure SetK42Value(const aValue: Integer); virtual; procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Integer; virtual; function GetK44IsNull: Boolean; virtual; function GetOldK44Value: Integer; virtual; function GetOldK44IsNull: Boolean; virtual; procedure SetK44Value(const aValue: Integer); virtual; procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Integer; virtual; function GetK46IsNull: Boolean; virtual; function GetOldK46Value: Integer; virtual; function GetOldK46IsNull: Boolean; virtual; procedure SetK46Value(const aValue: Integer); virtual; procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Integer; virtual; function GetK48IsNull: Boolean; virtual; function GetOldK48Value: Integer; virtual; function GetOldK48IsNull: Boolean; virtual; procedure SetK48Value(const aValue: Integer); virtual; procedure SetK48IsNull(const aValue: Boolean); virtual; function GetKTValue: Integer; virtual; function GetKTIsNull: Boolean; virtual; function GetOldKTValue: Integer; virtual; function GetOldKTIsNull: Boolean; virtual; procedure SetKTValue(const aValue: Integer); virtual; procedure SetKTIsNull(const aValue: Boolean); virtual; { Properties } property FILIAL : String read GetFILIALValue write SetFILIALValue; property FILIALIsNull : Boolean read GetFILIALIsNull write SetFILIALIsNull; property OldFILIAL : String read GetOldFILIALValue; property OldFILIALIsNull : Boolean read GetOldFILIALIsNull; property CODIGO : String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property OldCODIGO : String read GetOldCODIGOValue; property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull; property COLOR : String read GetCOLORValue write SetCOLORValue; property COLORIsNull : Boolean read GetCOLORIsNull write SetCOLORIsNull; property OldCOLOR : String read GetOldCOLORValue; property OldCOLORIsNull : Boolean read GetOldCOLORIsNull; property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull : Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property OldPRODUCTO : String read GetOldPRODUCTOValue; property OldPRODUCTOIsNull : Boolean read GetOldPRODUCTOIsNull; property TIPO_PRODUTO : String read GetTIPO_PRODUTOValue write SetTIPO_PRODUTOValue; property TIPO_PRODUTOIsNull : Boolean read GetTIPO_PRODUTOIsNull write SetTIPO_PRODUTOIsNull; property OldTIPO_PRODUTO : String read GetOldTIPO_PRODUTOValue; property OldTIPO_PRODUTOIsNull : Boolean read GetOldTIPO_PRODUTOIsNull; property GRUPO_PRODUTO : String read GetGRUPO_PRODUTOValue write SetGRUPO_PRODUTOValue; property GRUPO_PRODUTOIsNull : Boolean read GetGRUPO_PRODUTOIsNull write SetGRUPO_PRODUTOIsNull; property OldGRUPO_PRODUTO : String read GetOldGRUPO_PRODUTOValue; property OldGRUPO_PRODUTOIsNull : Boolean read GetOldGRUPO_PRODUTOIsNull; property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull : Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property OldCOLECCION : String read GetOldCOLECCIONValue; property OldCOLECCIONIsNull : Boolean read GetOldCOLECCIONIsNull; property K38 : Integer read GetK38Value write SetK38Value; property K38IsNull : Boolean read GetK38IsNull write SetK38IsNull; property OldK38 : Integer read GetOldK38Value; property OldK38IsNull : Boolean read GetOldK38IsNull; property K40 : Integer read GetK40Value write SetK40Value; property K40IsNull : Boolean read GetK40IsNull write SetK40IsNull; property OldK40 : Integer read GetOldK40Value; property OldK40IsNull : Boolean read GetOldK40IsNull; property K42 : Integer read GetK42Value write SetK42Value; property K42IsNull : Boolean read GetK42IsNull write SetK42IsNull; property OldK42 : Integer read GetOldK42Value; property OldK42IsNull : Boolean read GetOldK42IsNull; property K44 : Integer read GetK44Value write SetK44Value; property K44IsNull : Boolean read GetK44IsNull write SetK44IsNull; property OldK44 : Integer read GetOldK44Value; property OldK44IsNull : Boolean read GetOldK44IsNull; property K46 : Integer read GetK46Value write SetK46Value; property K46IsNull : Boolean read GetK46IsNull write SetK46IsNull; property OldK46 : Integer read GetOldK46Value; property OldK46IsNull : Boolean read GetOldK46IsNull; property K48 : Integer read GetK48Value write SetK48Value; property K48IsNull : Boolean read GetK48IsNull write SetK48IsNull; property OldK48 : Integer read GetOldK48Value; property OldK48IsNull : Boolean read GetOldK48IsNull; property KT : Integer read GetKTValue write SetKTValue; property KTIsNull : Boolean read GetKTIsNull write SetKTIsNull; property OldKT : Integer read GetOldKTValue; property OldKTIsNull : Boolean read GetOldKTIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IStockEDIInventarioDelta } IStockEDIInventarioDelta = interface(IStockEDIInventario) ['{4800774F-6C4A-4699-94ED-9BCAA7E34704}'] { Property getters and setters } function GetOldCENTROValue : String; function GetOldFILIALValue : String; function GetOldCODIGOValue : String; function GetOldPRODUCTOValue : String; function GetOldCOLORValue : String; function GetOldTIPO_PRODUCTOValue : String; function GetOldGRUPO_PRODUCTOValue : String; function GetOldCOLECCIONValue : String; function GetOldI38Value : Float; function GetOldI40Value : Float; function GetOldI42Value : Float; function GetOldI44Value : Float; function GetOldI46Value : Float; function GetOldI48Value : Float; function GetOldTIValue : Float; function GetOldK38Value : Float; function GetOldK40Value : Float; function GetOldK42Value : Float; function GetOldK44Value : Float; function GetOldK46Value : Float; function GetOldK48Value : Float; function GetOldTKValue : Float; function GetOldD38Value : Float; function GetOldD40Value : Float; function GetOldD42Value : Float; function GetOldD44Value : Float; function GetOldD46Value : Float; function GetOldD48Value : Float; function GetOldDTValue : Float; { Properties } property OldCENTRO : String read GetOldCENTROValue; property OldFILIAL : String read GetOldFILIALValue; property OldCODIGO : String read GetOldCODIGOValue; property OldPRODUCTO : String read GetOldPRODUCTOValue; property OldCOLOR : String read GetOldCOLORValue; property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; property OldCOLECCION : String read GetOldCOLECCIONValue; property OldI38 : Float read GetOldI38Value; property OldI40 : Float read GetOldI40Value; property OldI42 : Float read GetOldI42Value; property OldI44 : Float read GetOldI44Value; property OldI46 : Float read GetOldI46Value; property OldI48 : Float read GetOldI48Value; property OldTI : Float read GetOldTIValue; property OldK38 : Float read GetOldK38Value; property OldK40 : Float read GetOldK40Value; property OldK42 : Float read GetOldK42Value; property OldK44 : Float read GetOldK44Value; property OldK46 : Float read GetOldK46Value; property OldK48 : Float read GetOldK48Value; property OldTK : Float read GetOldTKValue; property OldD38 : Float read GetOldD38Value; property OldD40 : Float read GetOldD40Value; property OldD42 : Float read GetOldD42Value; property OldD44 : Float read GetOldD44Value; property OldD46 : Float read GetOldD46Value; property OldD48 : Float read GetOldD48Value; property OldDT : Float read GetOldDTValue; end; { TStockEDIInventarioBusinessProcessorRules } TStockEDIInventarioBusinessProcessorRules = class(TDABusinessProcessorRules, IStockEDIInventario, IStockEDIInventarioDelta) private protected { Property getters and setters } function GetCENTROValue: String; virtual; function GetCENTROIsNull: Boolean; virtual; function GetOldCENTROValue: String; virtual; function GetOldCENTROIsNull: Boolean; virtual; procedure SetCENTROValue(const aValue: String); virtual; procedure SetCENTROIsNull(const aValue: Boolean); virtual; function GetFILIALValue: String; virtual; function GetFILIALIsNull: Boolean; virtual; function GetOldFILIALValue: String; virtual; function GetOldFILIALIsNull: Boolean; virtual; procedure SetFILIALValue(const aValue: String); virtual; procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; function GetCODIGOIsNull: Boolean; virtual; function GetOldCODIGOValue: String; virtual; function GetOldCODIGOIsNull: Boolean; virtual; procedure SetCODIGOValue(const aValue: String); virtual; procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; function GetPRODUCTOIsNull: Boolean; virtual; function GetOldPRODUCTOValue: String; virtual; function GetOldPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; function GetCOLORIsNull: Boolean; virtual; function GetOldCOLORValue: String; virtual; function GetOldCOLORIsNull: Boolean; virtual; procedure SetCOLORValue(const aValue: String); virtual; procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; function GetTIPO_PRODUCTOIsNull: Boolean; virtual; function GetOldTIPO_PRODUCTOValue: String; virtual; function GetOldTIPO_PRODUCTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; function GetOldGRUPO_PRODUCTOValue: String; virtual; function GetOldGRUPO_PRODUCTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; function GetCOLECCIONIsNull: Boolean; virtual; function GetOldCOLECCIONValue: String; virtual; function GetOldCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetI38Value: Float; virtual; function GetI38IsNull: Boolean; virtual; function GetOldI38Value: Float; virtual; function GetOldI38IsNull: Boolean; virtual; procedure SetI38Value(const aValue: Float); virtual; procedure SetI38IsNull(const aValue: Boolean); virtual; function GetI40Value: Float; virtual; function GetI40IsNull: Boolean; virtual; function GetOldI40Value: Float; virtual; function GetOldI40IsNull: Boolean; virtual; procedure SetI40Value(const aValue: Float); virtual; procedure SetI40IsNull(const aValue: Boolean); virtual; function GetI42Value: Float; virtual; function GetI42IsNull: Boolean; virtual; function GetOldI42Value: Float; virtual; function GetOldI42IsNull: Boolean; virtual; procedure SetI42Value(const aValue: Float); virtual; procedure SetI42IsNull(const aValue: Boolean); virtual; function GetI44Value: Float; virtual; function GetI44IsNull: Boolean; virtual; function GetOldI44Value: Float; virtual; function GetOldI44IsNull: Boolean; virtual; procedure SetI44Value(const aValue: Float); virtual; procedure SetI44IsNull(const aValue: Boolean); virtual; function GetI46Value: Float; virtual; function GetI46IsNull: Boolean; virtual; function GetOldI46Value: Float; virtual; function GetOldI46IsNull: Boolean; virtual; procedure SetI46Value(const aValue: Float); virtual; procedure SetI46IsNull(const aValue: Boolean); virtual; function GetI48Value: Float; virtual; function GetI48IsNull: Boolean; virtual; function GetOldI48Value: Float; virtual; function GetOldI48IsNull: Boolean; virtual; procedure SetI48Value(const aValue: Float); virtual; procedure SetI48IsNull(const aValue: Boolean); virtual; function GetTIValue: Float; virtual; function GetTIIsNull: Boolean; virtual; function GetOldTIValue: Float; virtual; function GetOldTIIsNull: Boolean; virtual; procedure SetTIValue(const aValue: Float); virtual; procedure SetTIIsNull(const aValue: Boolean); virtual; function GetK38Value: Float; virtual; function GetK38IsNull: Boolean; virtual; function GetOldK38Value: Float; virtual; function GetOldK38IsNull: Boolean; virtual; procedure SetK38Value(const aValue: Float); virtual; procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Float; virtual; function GetK40IsNull: Boolean; virtual; function GetOldK40Value: Float; virtual; function GetOldK40IsNull: Boolean; virtual; procedure SetK40Value(const aValue: Float); virtual; procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Float; virtual; function GetK42IsNull: Boolean; virtual; function GetOldK42Value: Float; virtual; function GetOldK42IsNull: Boolean; virtual; procedure SetK42Value(const aValue: Float); virtual; procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Float; virtual; function GetK44IsNull: Boolean; virtual; function GetOldK44Value: Float; virtual; function GetOldK44IsNull: Boolean; virtual; procedure SetK44Value(const aValue: Float); virtual; procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Float; virtual; function GetK46IsNull: Boolean; virtual; function GetOldK46Value: Float; virtual; function GetOldK46IsNull: Boolean; virtual; procedure SetK46Value(const aValue: Float); virtual; procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Float; virtual; function GetK48IsNull: Boolean; virtual; function GetOldK48Value: Float; virtual; function GetOldK48IsNull: Boolean; virtual; procedure SetK48Value(const aValue: Float); virtual; procedure SetK48IsNull(const aValue: Boolean); virtual; function GetTKValue: Float; virtual; function GetTKIsNull: Boolean; virtual; function GetOldTKValue: Float; virtual; function GetOldTKIsNull: Boolean; virtual; procedure SetTKValue(const aValue: Float); virtual; procedure SetTKIsNull(const aValue: Boolean); virtual; function GetD38Value: Float; virtual; function GetD38IsNull: Boolean; virtual; function GetOldD38Value: Float; virtual; function GetOldD38IsNull: Boolean; virtual; procedure SetD38Value(const aValue: Float); virtual; procedure SetD38IsNull(const aValue: Boolean); virtual; function GetD40Value: Float; virtual; function GetD40IsNull: Boolean; virtual; function GetOldD40Value: Float; virtual; function GetOldD40IsNull: Boolean; virtual; procedure SetD40Value(const aValue: Float); virtual; procedure SetD40IsNull(const aValue: Boolean); virtual; function GetD42Value: Float; virtual; function GetD42IsNull: Boolean; virtual; function GetOldD42Value: Float; virtual; function GetOldD42IsNull: Boolean; virtual; procedure SetD42Value(const aValue: Float); virtual; procedure SetD42IsNull(const aValue: Boolean); virtual; function GetD44Value: Float; virtual; function GetD44IsNull: Boolean; virtual; function GetOldD44Value: Float; virtual; function GetOldD44IsNull: Boolean; virtual; procedure SetD44Value(const aValue: Float); virtual; procedure SetD44IsNull(const aValue: Boolean); virtual; function GetD46Value: Float; virtual; function GetD46IsNull: Boolean; virtual; function GetOldD46Value: Float; virtual; function GetOldD46IsNull: Boolean; virtual; procedure SetD46Value(const aValue: Float); virtual; procedure SetD46IsNull(const aValue: Boolean); virtual; function GetD48Value: Float; virtual; function GetD48IsNull: Boolean; virtual; function GetOldD48Value: Float; virtual; function GetOldD48IsNull: Boolean; virtual; procedure SetD48Value(const aValue: Float); virtual; procedure SetD48IsNull(const aValue: Boolean); virtual; function GetDTValue: Float; virtual; function GetDTIsNull: Boolean; virtual; function GetOldDTValue: Float; virtual; function GetOldDTIsNull: Boolean; virtual; procedure SetDTValue(const aValue: Float); virtual; procedure SetDTIsNull(const aValue: Boolean); virtual; { Properties } property CENTRO : String read GetCENTROValue write SetCENTROValue; property CENTROIsNull : Boolean read GetCENTROIsNull write SetCENTROIsNull; property OldCENTRO : String read GetOldCENTROValue; property OldCENTROIsNull : Boolean read GetOldCENTROIsNull; property FILIAL : String read GetFILIALValue write SetFILIALValue; property FILIALIsNull : Boolean read GetFILIALIsNull write SetFILIALIsNull; property OldFILIAL : String read GetOldFILIALValue; property OldFILIALIsNull : Boolean read GetOldFILIALIsNull; property CODIGO : String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property OldCODIGO : String read GetOldCODIGOValue; property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull; property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull : Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property OldPRODUCTO : String read GetOldPRODUCTOValue; property OldPRODUCTOIsNull : Boolean read GetOldPRODUCTOIsNull; property COLOR : String read GetCOLORValue write SetCOLORValue; property COLORIsNull : Boolean read GetCOLORIsNull write SetCOLORIsNull; property OldCOLOR : String read GetOldCOLORValue; property OldCOLORIsNull : Boolean read GetOldCOLORIsNull; property TIPO_PRODUCTO : String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; property TIPO_PRODUCTOIsNull : Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; property OldTIPO_PRODUCTOIsNull : Boolean read GetOldTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO : String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; property GRUPO_PRODUCTOIsNull : Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; property OldGRUPO_PRODUCTOIsNull : Boolean read GetOldGRUPO_PRODUCTOIsNull; property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull : Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property OldCOLECCION : String read GetOldCOLECCIONValue; property OldCOLECCIONIsNull : Boolean read GetOldCOLECCIONIsNull; property I38 : Float read GetI38Value write SetI38Value; property I38IsNull : Boolean read GetI38IsNull write SetI38IsNull; property OldI38 : Float read GetOldI38Value; property OldI38IsNull : Boolean read GetOldI38IsNull; property I40 : Float read GetI40Value write SetI40Value; property I40IsNull : Boolean read GetI40IsNull write SetI40IsNull; property OldI40 : Float read GetOldI40Value; property OldI40IsNull : Boolean read GetOldI40IsNull; property I42 : Float read GetI42Value write SetI42Value; property I42IsNull : Boolean read GetI42IsNull write SetI42IsNull; property OldI42 : Float read GetOldI42Value; property OldI42IsNull : Boolean read GetOldI42IsNull; property I44 : Float read GetI44Value write SetI44Value; property I44IsNull : Boolean read GetI44IsNull write SetI44IsNull; property OldI44 : Float read GetOldI44Value; property OldI44IsNull : Boolean read GetOldI44IsNull; property I46 : Float read GetI46Value write SetI46Value; property I46IsNull : Boolean read GetI46IsNull write SetI46IsNull; property OldI46 : Float read GetOldI46Value; property OldI46IsNull : Boolean read GetOldI46IsNull; property I48 : Float read GetI48Value write SetI48Value; property I48IsNull : Boolean read GetI48IsNull write SetI48IsNull; property OldI48 : Float read GetOldI48Value; property OldI48IsNull : Boolean read GetOldI48IsNull; property TI : Float read GetTIValue write SetTIValue; property TIIsNull : Boolean read GetTIIsNull write SetTIIsNull; property OldTI : Float read GetOldTIValue; property OldTIIsNull : Boolean read GetOldTIIsNull; property K38 : Float read GetK38Value write SetK38Value; property K38IsNull : Boolean read GetK38IsNull write SetK38IsNull; property OldK38 : Float read GetOldK38Value; property OldK38IsNull : Boolean read GetOldK38IsNull; property K40 : Float read GetK40Value write SetK40Value; property K40IsNull : Boolean read GetK40IsNull write SetK40IsNull; property OldK40 : Float read GetOldK40Value; property OldK40IsNull : Boolean read GetOldK40IsNull; property K42 : Float read GetK42Value write SetK42Value; property K42IsNull : Boolean read GetK42IsNull write SetK42IsNull; property OldK42 : Float read GetOldK42Value; property OldK42IsNull : Boolean read GetOldK42IsNull; property K44 : Float read GetK44Value write SetK44Value; property K44IsNull : Boolean read GetK44IsNull write SetK44IsNull; property OldK44 : Float read GetOldK44Value; property OldK44IsNull : Boolean read GetOldK44IsNull; property K46 : Float read GetK46Value write SetK46Value; property K46IsNull : Boolean read GetK46IsNull write SetK46IsNull; property OldK46 : Float read GetOldK46Value; property OldK46IsNull : Boolean read GetOldK46IsNull; property K48 : Float read GetK48Value write SetK48Value; property K48IsNull : Boolean read GetK48IsNull write SetK48IsNull; property OldK48 : Float read GetOldK48Value; property OldK48IsNull : Boolean read GetOldK48IsNull; property TK : Float read GetTKValue write SetTKValue; property TKIsNull : Boolean read GetTKIsNull write SetTKIsNull; property OldTK : Float read GetOldTKValue; property OldTKIsNull : Boolean read GetOldTKIsNull; property D38 : Float read GetD38Value write SetD38Value; property D38IsNull : Boolean read GetD38IsNull write SetD38IsNull; property OldD38 : Float read GetOldD38Value; property OldD38IsNull : Boolean read GetOldD38IsNull; property D40 : Float read GetD40Value write SetD40Value; property D40IsNull : Boolean read GetD40IsNull write SetD40IsNull; property OldD40 : Float read GetOldD40Value; property OldD40IsNull : Boolean read GetOldD40IsNull; property D42 : Float read GetD42Value write SetD42Value; property D42IsNull : Boolean read GetD42IsNull write SetD42IsNull; property OldD42 : Float read GetOldD42Value; property OldD42IsNull : Boolean read GetOldD42IsNull; property D44 : Float read GetD44Value write SetD44Value; property D44IsNull : Boolean read GetD44IsNull write SetD44IsNull; property OldD44 : Float read GetOldD44Value; property OldD44IsNull : Boolean read GetOldD44IsNull; property D46 : Float read GetD46Value write SetD46Value; property D46IsNull : Boolean read GetD46IsNull write SetD46IsNull; property OldD46 : Float read GetOldD46Value; property OldD46IsNull : Boolean read GetOldD46IsNull; property D48 : Float read GetD48Value write SetD48Value; property D48IsNull : Boolean read GetD48IsNull write SetD48IsNull; property OldD48 : Float read GetOldD48Value; property OldD48IsNull : Boolean read GetOldD48IsNull; property DT : Float read GetDTValue write SetDTValue; property DTIsNull : Boolean read GetDTIsNull write SetDTIsNull; property OldDT : Float read GetOldDTValue; property OldDTIsNull : Boolean read GetOldDTIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers, uDAInterfaces; { TStockPrendasCentrosBusinessProcessorRules } constructor TStockPrendasCentrosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TStockPrendasCentrosBusinessProcessorRules.Destroy; begin inherited; end; function TStockPrendasCentrosBusinessProcessorRules.GetCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCODIGO]; end; function TStockPrendasCentrosBusinessProcessorRules.GetCODIGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCODIGO]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCODIGO]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldCODIGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCODIGO]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetCODIGOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCODIGO] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCODIGO] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosPRODUCTO]; end; function TStockPrendasCentrosBusinessProcessorRules.GetPRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosPRODUCTO]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosPRODUCTO]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldPRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosPRODUCTO]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosPRODUCTO] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetPRODUCTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosPRODUCTO] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO]; end; function TStockPrendasCentrosBusinessProcessorRules.GetTIPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldTIPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetTIPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO]; end; function TStockPrendasCentrosBusinessProcessorRules.GetGRUPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldGRUPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetGRUPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLECCION]; end; function TStockPrendasCentrosBusinessProcessorRules.GetCOLECCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLECCION]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCOLECCION]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldCOLECCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCOLECCION]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLECCION] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetCOLECCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLECCION] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetCOLORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLOR]; end; function TStockPrendasCentrosBusinessProcessorRules.GetCOLORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLOR]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldCOLORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCOLOR]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldCOLORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCOLOR]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetCOLORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLOR] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetCOLORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLOR] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetT38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT38]; end; function TStockPrendasCentrosBusinessProcessorRules.GetT38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT38]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT38]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT38]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT38] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT38IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT38] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetT40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT40]; end; function TStockPrendasCentrosBusinessProcessorRules.GetT40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT40]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT40]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT40]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT40] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT40IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT40] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetT42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT42]; end; function TStockPrendasCentrosBusinessProcessorRules.GetT42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT42]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT42]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT42]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT42] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT42IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT42] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetT44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT44]; end; function TStockPrendasCentrosBusinessProcessorRules.GetT44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT44]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT44]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT44]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT44] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT44IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT44] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetT46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT46]; end; function TStockPrendasCentrosBusinessProcessorRules.GetT46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT46]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT46]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT46]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT46] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT46IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT46] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetT48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT48]; end; function TStockPrendasCentrosBusinessProcessorRules.GetT48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT48]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT48]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldT48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT48]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT48] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetT48IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT48] := Null; end; function TStockPrendasCentrosBusinessProcessorRules.GetTOTALValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTOTAL]; end; function TStockPrendasCentrosBusinessProcessorRules.GetTOTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTOTAL]); end; function TStockPrendasCentrosBusinessProcessorRules.GetOldTOTALValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosTOTAL]; end; function TStockPrendasCentrosBusinessProcessorRules.GetOldTOTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosTOTAL]); end; procedure TStockPrendasCentrosBusinessProcessorRules.SetTOTALValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTOTAL] := aValue; end; procedure TStockPrendasCentrosBusinessProcessorRules.SetTOTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTOTAL] := Null; end; { TStockEDIBusinessProcessorRules } constructor TStockEDIBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TStockEDIBusinessProcessorRules.Destroy; begin inherited; end; function TStockEDIBusinessProcessorRules.GetCENTROValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICENTRO]; end; function TStockEDIBusinessProcessorRules.GetCENTROIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICENTRO]); end; function TStockEDIBusinessProcessorRules.GetOldCENTROValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICENTRO]; end; function TStockEDIBusinessProcessorRules.GetOldCENTROIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICENTRO]); end; procedure TStockEDIBusinessProcessorRules.SetCENTROValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICENTRO] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetCENTROIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICENTRO] := Null; end; function TStockEDIBusinessProcessorRules.GetFILIALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIFILIAL]; end; function TStockEDIBusinessProcessorRules.GetFILIALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIFILIAL]); end; function TStockEDIBusinessProcessorRules.GetOldFILIALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIFILIAL]; end; function TStockEDIBusinessProcessorRules.GetOldFILIALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIFILIAL]); end; procedure TStockEDIBusinessProcessorRules.SetFILIALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIFILIAL] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetFILIALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIFILIAL] := Null; end; function TStockEDIBusinessProcessorRules.GetCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICODIGO]; end; function TStockEDIBusinessProcessorRules.GetCODIGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICODIGO]); end; function TStockEDIBusinessProcessorRules.GetOldCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICODIGO]; end; function TStockEDIBusinessProcessorRules.GetOldCODIGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICODIGO]); end; procedure TStockEDIBusinessProcessorRules.SetCODIGOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICODIGO] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICODIGO] := Null; end; function TStockEDIBusinessProcessorRules.GetPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIPRODUCTO]; end; function TStockEDIBusinessProcessorRules.GetPRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIPRODUCTO]); end; function TStockEDIBusinessProcessorRules.GetOldPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIPRODUCTO]; end; function TStockEDIBusinessProcessorRules.GetOldPRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIPRODUCTO]); end; procedure TStockEDIBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIPRODUCTO] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetPRODUCTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIPRODUCTO] := Null; end; function TStockEDIBusinessProcessorRules.GetTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITIPO_PRODUCTO]; end; function TStockEDIBusinessProcessorRules.GetTIPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITIPO_PRODUCTO]); end; function TStockEDIBusinessProcessorRules.GetOldTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITIPO_PRODUCTO]; end; function TStockEDIBusinessProcessorRules.GetOldTIPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITIPO_PRODUCTO]); end; procedure TStockEDIBusinessProcessorRules.SetTIPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITIPO_PRODUCTO] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITIPO_PRODUCTO] := Null; end; function TStockEDIBusinessProcessorRules.GetGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIGRUPO_PRODUCTO]; end; function TStockEDIBusinessProcessorRules.GetGRUPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIGRUPO_PRODUCTO]); end; function TStockEDIBusinessProcessorRules.GetOldGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIGRUPO_PRODUCTO]; end; function TStockEDIBusinessProcessorRules.GetOldGRUPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIGRUPO_PRODUCTO]); end; procedure TStockEDIBusinessProcessorRules.SetGRUPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIGRUPO_PRODUCTO] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIGRUPO_PRODUCTO] := Null; end; function TStockEDIBusinessProcessorRules.GetCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLECCION]; end; function TStockEDIBusinessProcessorRules.GetCOLECCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLECCION]); end; function TStockEDIBusinessProcessorRules.GetOldCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICOLECCION]; end; function TStockEDIBusinessProcessorRules.GetOldCOLECCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICOLECCION]); end; procedure TStockEDIBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLECCION] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetCOLECCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLECCION] := Null; end; function TStockEDIBusinessProcessorRules.GetCOLORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLOR]; end; function TStockEDIBusinessProcessorRules.GetCOLORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLOR]); end; function TStockEDIBusinessProcessorRules.GetOldCOLORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICOLOR]; end; function TStockEDIBusinessProcessorRules.GetOldCOLORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICOLOR]); end; procedure TStockEDIBusinessProcessorRules.SetCOLORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLOR] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetCOLORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLOR] := Null; end; function TStockEDIBusinessProcessorRules.GetE38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE38]; end; function TStockEDIBusinessProcessorRules.GetE38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE38]); end; function TStockEDIBusinessProcessorRules.GetOldE38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE38]; end; function TStockEDIBusinessProcessorRules.GetOldE38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE38]); end; procedure TStockEDIBusinessProcessorRules.SetE38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE38] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetE38IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE38] := Null; end; function TStockEDIBusinessProcessorRules.GetE40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE40]; end; function TStockEDIBusinessProcessorRules.GetE40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE40]); end; function TStockEDIBusinessProcessorRules.GetOldE40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE40]; end; function TStockEDIBusinessProcessorRules.GetOldE40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE40]); end; procedure TStockEDIBusinessProcessorRules.SetE40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE40] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetE40IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE40] := Null; end; function TStockEDIBusinessProcessorRules.GetE42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE42]; end; function TStockEDIBusinessProcessorRules.GetE42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE42]); end; function TStockEDIBusinessProcessorRules.GetOldE42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE42]; end; function TStockEDIBusinessProcessorRules.GetOldE42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE42]); end; procedure TStockEDIBusinessProcessorRules.SetE42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE42] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetE42IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE42] := Null; end; function TStockEDIBusinessProcessorRules.GetE44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE44]; end; function TStockEDIBusinessProcessorRules.GetE44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE44]); end; function TStockEDIBusinessProcessorRules.GetOldE44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE44]; end; function TStockEDIBusinessProcessorRules.GetOldE44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE44]); end; procedure TStockEDIBusinessProcessorRules.SetE44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE44] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetE44IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE44] := Null; end; function TStockEDIBusinessProcessorRules.GetE46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE46]; end; function TStockEDIBusinessProcessorRules.GetE46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE46]); end; function TStockEDIBusinessProcessorRules.GetOldE46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE46]; end; function TStockEDIBusinessProcessorRules.GetOldE46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE46]); end; procedure TStockEDIBusinessProcessorRules.SetE46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE46] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetE46IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE46] := Null; end; function TStockEDIBusinessProcessorRules.GetE48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE48]; end; function TStockEDIBusinessProcessorRules.GetE48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE48]); end; function TStockEDIBusinessProcessorRules.GetOldE48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE48]; end; function TStockEDIBusinessProcessorRules.GetOldE48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE48]); end; procedure TStockEDIBusinessProcessorRules.SetE48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE48] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetE48IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE48] := Null; end; function TStockEDIBusinessProcessorRules.GetTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITE]; end; function TStockEDIBusinessProcessorRules.GetTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITE]); end; function TStockEDIBusinessProcessorRules.GetOldTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITE]; end; function TStockEDIBusinessProcessorRules.GetOldTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITE]); end; procedure TStockEDIBusinessProcessorRules.SetTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITE] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITE] := Null; end; function TStockEDIBusinessProcessorRules.GetS38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS38]; end; function TStockEDIBusinessProcessorRules.GetS38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS38]); end; function TStockEDIBusinessProcessorRules.GetOldS38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS38]; end; function TStockEDIBusinessProcessorRules.GetOldS38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS38]); end; procedure TStockEDIBusinessProcessorRules.SetS38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS38] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetS38IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS38] := Null; end; function TStockEDIBusinessProcessorRules.GetS40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS40]; end; function TStockEDIBusinessProcessorRules.GetS40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS40]); end; function TStockEDIBusinessProcessorRules.GetOldS40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS40]; end; function TStockEDIBusinessProcessorRules.GetOldS40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS40]); end; procedure TStockEDIBusinessProcessorRules.SetS40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS40] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetS40IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS40] := Null; end; function TStockEDIBusinessProcessorRules.GetS42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS42]; end; function TStockEDIBusinessProcessorRules.GetS42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS42]); end; function TStockEDIBusinessProcessorRules.GetOldS42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS42]; end; function TStockEDIBusinessProcessorRules.GetOldS42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS42]); end; procedure TStockEDIBusinessProcessorRules.SetS42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS42] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetS42IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS42] := Null; end; function TStockEDIBusinessProcessorRules.GetS44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS44]; end; function TStockEDIBusinessProcessorRules.GetS44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS44]); end; function TStockEDIBusinessProcessorRules.GetOldS44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS44]; end; function TStockEDIBusinessProcessorRules.GetOldS44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS44]); end; procedure TStockEDIBusinessProcessorRules.SetS44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS44] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetS44IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS44] := Null; end; function TStockEDIBusinessProcessorRules.GetS46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS46]; end; function TStockEDIBusinessProcessorRules.GetS46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS46]); end; function TStockEDIBusinessProcessorRules.GetOldS46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS46]; end; function TStockEDIBusinessProcessorRules.GetOldS46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS46]); end; procedure TStockEDIBusinessProcessorRules.SetS46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS46] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetS46IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS46] := Null; end; function TStockEDIBusinessProcessorRules.GetS48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS48]; end; function TStockEDIBusinessProcessorRules.GetS48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS48]); end; function TStockEDIBusinessProcessorRules.GetOldS48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS48]; end; function TStockEDIBusinessProcessorRules.GetOldS48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS48]); end; procedure TStockEDIBusinessProcessorRules.SetS48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS48] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetS48IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS48] := Null; end; function TStockEDIBusinessProcessorRules.GetTSValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITS]; end; function TStockEDIBusinessProcessorRules.GetTSIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITS]); end; function TStockEDIBusinessProcessorRules.GetOldTSValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITS]; end; function TStockEDIBusinessProcessorRules.GetOldTSIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITS]); end; procedure TStockEDIBusinessProcessorRules.SetTSValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITS] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetTSIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITS] := Null; end; function TStockEDIBusinessProcessorRules.GetK38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK38]; end; function TStockEDIBusinessProcessorRules.GetK38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK38]); end; function TStockEDIBusinessProcessorRules.GetOldK38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK38]; end; function TStockEDIBusinessProcessorRules.GetOldK38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK38]); end; procedure TStockEDIBusinessProcessorRules.SetK38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK38] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetK38IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK38] := Null; end; function TStockEDIBusinessProcessorRules.GetK40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK40]; end; function TStockEDIBusinessProcessorRules.GetK40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK40]); end; function TStockEDIBusinessProcessorRules.GetOldK40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK40]; end; function TStockEDIBusinessProcessorRules.GetOldK40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK40]); end; procedure TStockEDIBusinessProcessorRules.SetK40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK40] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetK40IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK40] := Null; end; function TStockEDIBusinessProcessorRules.GetK42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK42]; end; function TStockEDIBusinessProcessorRules.GetK42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK42]); end; function TStockEDIBusinessProcessorRules.GetOldK42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK42]; end; function TStockEDIBusinessProcessorRules.GetOldK42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK42]); end; procedure TStockEDIBusinessProcessorRules.SetK42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK42] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetK42IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK42] := Null; end; function TStockEDIBusinessProcessorRules.GetK44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK44]; end; function TStockEDIBusinessProcessorRules.GetK44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK44]); end; function TStockEDIBusinessProcessorRules.GetOldK44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK44]; end; function TStockEDIBusinessProcessorRules.GetOldK44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK44]); end; procedure TStockEDIBusinessProcessorRules.SetK44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK44] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetK44IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK44] := Null; end; function TStockEDIBusinessProcessorRules.GetK46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK46]; end; function TStockEDIBusinessProcessorRules.GetK46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK46]); end; function TStockEDIBusinessProcessorRules.GetOldK46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK46]; end; function TStockEDIBusinessProcessorRules.GetOldK46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK46]); end; procedure TStockEDIBusinessProcessorRules.SetK46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK46] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetK46IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK46] := Null; end; function TStockEDIBusinessProcessorRules.GetK48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK48]; end; function TStockEDIBusinessProcessorRules.GetK48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK48]); end; function TStockEDIBusinessProcessorRules.GetOldK48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK48]; end; function TStockEDIBusinessProcessorRules.GetOldK48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK48]); end; procedure TStockEDIBusinessProcessorRules.SetK48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK48] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetK48IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK48] := Null; end; function TStockEDIBusinessProcessorRules.GetKTValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIKT]; end; function TStockEDIBusinessProcessorRules.GetKTIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIKT]); end; function TStockEDIBusinessProcessorRules.GetOldKTValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIKT]; end; function TStockEDIBusinessProcessorRules.GetOldKTIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIKT]); end; procedure TStockEDIBusinessProcessorRules.SetKTValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIKT] := aValue; end; procedure TStockEDIBusinessProcessorRules.SetKTIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIKT] := Null; end; { TStockVARELABusinessProcessorRules } constructor TStockVARELABusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TStockVARELABusinessProcessorRules.Destroy; begin inherited; end; function TStockVARELABusinessProcessorRules.GetFILIALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAFILIAL]; end; function TStockVARELABusinessProcessorRules.GetFILIALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAFILIAL]); end; function TStockVARELABusinessProcessorRules.GetOldFILIALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAFILIAL]; end; function TStockVARELABusinessProcessorRules.GetOldFILIALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAFILIAL]); end; procedure TStockVARELABusinessProcessorRules.SetFILIALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAFILIAL] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetFILIALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAFILIAL] := Null; end; function TStockVARELABusinessProcessorRules.GetCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACODIGO]; end; function TStockVARELABusinessProcessorRules.GetCODIGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACODIGO]); end; function TStockVARELABusinessProcessorRules.GetOldCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACODIGO]; end; function TStockVARELABusinessProcessorRules.GetOldCODIGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACODIGO]); end; procedure TStockVARELABusinessProcessorRules.SetCODIGOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACODIGO] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACODIGO] := Null; end; function TStockVARELABusinessProcessorRules.GetCOLORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLOR]; end; function TStockVARELABusinessProcessorRules.GetCOLORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLOR]); end; function TStockVARELABusinessProcessorRules.GetOldCOLORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACOLOR]; end; function TStockVARELABusinessProcessorRules.GetOldCOLORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACOLOR]); end; procedure TStockVARELABusinessProcessorRules.SetCOLORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLOR] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetCOLORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLOR] := Null; end; function TStockVARELABusinessProcessorRules.GetPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAPRODUCTO]; end; function TStockVARELABusinessProcessorRules.GetPRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAPRODUCTO]); end; function TStockVARELABusinessProcessorRules.GetOldPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAPRODUCTO]; end; function TStockVARELABusinessProcessorRules.GetOldPRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAPRODUCTO]); end; procedure TStockVARELABusinessProcessorRules.SetPRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAPRODUCTO] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetPRODUCTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAPRODUCTO] := Null; end; function TStockVARELABusinessProcessorRules.GetTIPO_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELATIPO_PRODUTO]; end; function TStockVARELABusinessProcessorRules.GetTIPO_PRODUTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELATIPO_PRODUTO]); end; function TStockVARELABusinessProcessorRules.GetOldTIPO_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELATIPO_PRODUTO]; end; function TStockVARELABusinessProcessorRules.GetOldTIPO_PRODUTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELATIPO_PRODUTO]); end; procedure TStockVARELABusinessProcessorRules.SetTIPO_PRODUTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELATIPO_PRODUTO] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetTIPO_PRODUTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELATIPO_PRODUTO] := Null; end; function TStockVARELABusinessProcessorRules.GetGRUPO_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAGRUPO_PRODUTO]; end; function TStockVARELABusinessProcessorRules.GetGRUPO_PRODUTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAGRUPO_PRODUTO]); end; function TStockVARELABusinessProcessorRules.GetOldGRUPO_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAGRUPO_PRODUTO]; end; function TStockVARELABusinessProcessorRules.GetOldGRUPO_PRODUTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAGRUPO_PRODUTO]); end; procedure TStockVARELABusinessProcessorRules.SetGRUPO_PRODUTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAGRUPO_PRODUTO] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetGRUPO_PRODUTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAGRUPO_PRODUTO] := Null; end; function TStockVARELABusinessProcessorRules.GetCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLECCION]; end; function TStockVARELABusinessProcessorRules.GetCOLECCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLECCION]); end; function TStockVARELABusinessProcessorRules.GetOldCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACOLECCION]; end; function TStockVARELABusinessProcessorRules.GetOldCOLECCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACOLECCION]); end; procedure TStockVARELABusinessProcessorRules.SetCOLECCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLECCION] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetCOLECCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLECCION] := Null; end; function TStockVARELABusinessProcessorRules.GetK38Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK38]; end; function TStockVARELABusinessProcessorRules.GetK38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK38]); end; function TStockVARELABusinessProcessorRules.GetOldK38Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK38]; end; function TStockVARELABusinessProcessorRules.GetOldK38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK38]); end; procedure TStockVARELABusinessProcessorRules.SetK38Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK38] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetK38IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK38] := Null; end; function TStockVARELABusinessProcessorRules.GetK40Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK40]; end; function TStockVARELABusinessProcessorRules.GetK40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK40]); end; function TStockVARELABusinessProcessorRules.GetOldK40Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK40]; end; function TStockVARELABusinessProcessorRules.GetOldK40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK40]); end; procedure TStockVARELABusinessProcessorRules.SetK40Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK40] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetK40IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK40] := Null; end; function TStockVARELABusinessProcessorRules.GetK42Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK42]; end; function TStockVARELABusinessProcessorRules.GetK42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK42]); end; function TStockVARELABusinessProcessorRules.GetOldK42Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK42]; end; function TStockVARELABusinessProcessorRules.GetOldK42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK42]); end; procedure TStockVARELABusinessProcessorRules.SetK42Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK42] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetK42IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK42] := Null; end; function TStockVARELABusinessProcessorRules.GetK44Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK44]; end; function TStockVARELABusinessProcessorRules.GetK44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK44]); end; function TStockVARELABusinessProcessorRules.GetOldK44Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK44]; end; function TStockVARELABusinessProcessorRules.GetOldK44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK44]); end; procedure TStockVARELABusinessProcessorRules.SetK44Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK44] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetK44IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK44] := Null; end; function TStockVARELABusinessProcessorRules.GetK46Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK46]; end; function TStockVARELABusinessProcessorRules.GetK46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK46]); end; function TStockVARELABusinessProcessorRules.GetOldK46Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK46]; end; function TStockVARELABusinessProcessorRules.GetOldK46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK46]); end; procedure TStockVARELABusinessProcessorRules.SetK46Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK46] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetK46IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK46] := Null; end; function TStockVARELABusinessProcessorRules.GetK48Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK48]; end; function TStockVARELABusinessProcessorRules.GetK48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK48]); end; function TStockVARELABusinessProcessorRules.GetOldK48Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK48]; end; function TStockVARELABusinessProcessorRules.GetOldK48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK48]); end; procedure TStockVARELABusinessProcessorRules.SetK48Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK48] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetK48IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK48] := Null; end; function TStockVARELABusinessProcessorRules.GetKTValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAKT]; end; function TStockVARELABusinessProcessorRules.GetKTIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAKT]); end; function TStockVARELABusinessProcessorRules.GetOldKTValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAKT]; end; function TStockVARELABusinessProcessorRules.GetOldKTIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAKT]); end; procedure TStockVARELABusinessProcessorRules.SetKTValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAKT] := aValue; end; procedure TStockVARELABusinessProcessorRules.SetKTIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAKT] := Null; end; { TStockEDIInventarioBusinessProcessorRules } constructor TStockEDIInventarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TStockEDIInventarioBusinessProcessorRules.Destroy; begin inherited; end; function TStockEDIInventarioBusinessProcessorRules.GetCENTROValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCENTRO]; end; function TStockEDIInventarioBusinessProcessorRules.GetCENTROIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCENTRO]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldCENTROValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCENTRO]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldCENTROIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCENTRO]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetCENTROValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCENTRO] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetCENTROIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCENTRO] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetFILIALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioFILIAL]; end; function TStockEDIInventarioBusinessProcessorRules.GetFILIALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioFILIAL]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldFILIALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioFILIAL]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldFILIALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioFILIAL]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetFILIALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioFILIAL] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetFILIALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioFILIAL] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCODIGO]; end; function TStockEDIInventarioBusinessProcessorRules.GetCODIGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCODIGO]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCODIGO]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldCODIGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCODIGO]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetCODIGOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCODIGO] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCODIGO] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioPRODUCTO]; end; function TStockEDIInventarioBusinessProcessorRules.GetPRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioPRODUCTO]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioPRODUCTO]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldPRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioPRODUCTO]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioPRODUCTO] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetPRODUCTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioPRODUCTO] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetCOLORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLOR]; end; function TStockEDIInventarioBusinessProcessorRules.GetCOLORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLOR]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldCOLORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCOLOR]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldCOLORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCOLOR]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetCOLORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLOR] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetCOLORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLOR] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTIPO_PRODUCTO]; end; function TStockEDIInventarioBusinessProcessorRules.GetTIPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTIPO_PRODUCTO]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTIPO_PRODUCTO]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldTIPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTIPO_PRODUCTO]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetTIPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTIPO_PRODUCTO] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTIPO_PRODUCTO] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO]; end; function TStockEDIInventarioBusinessProcessorRules.GetGRUPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldGRUPO_PRODUCTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetGRUPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLECCION]; end; function TStockEDIInventarioBusinessProcessorRules.GetCOLECCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLECCION]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCOLECCION]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldCOLECCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCOLECCION]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLECCION] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetCOLECCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLECCION] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetI38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI38]; end; function TStockEDIInventarioBusinessProcessorRules.GetI38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI38]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldI38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI38]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldI38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI38]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetI38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI38] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetI38IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI38] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetI40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI40]; end; function TStockEDIInventarioBusinessProcessorRules.GetI40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI40]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldI40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI40]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldI40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI40]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetI40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI40] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetI40IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI40] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetI42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI42]; end; function TStockEDIInventarioBusinessProcessorRules.GetI42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI42]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldI42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI42]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldI42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI42]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetI42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI42] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetI42IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI42] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetI44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI44]; end; function TStockEDIInventarioBusinessProcessorRules.GetI44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI44]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldI44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI44]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldI44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI44]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetI44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI44] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetI44IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI44] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetI46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI46]; end; function TStockEDIInventarioBusinessProcessorRules.GetI46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI46]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldI46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI46]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldI46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI46]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetI46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI46] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetI46IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI46] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetI48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI48]; end; function TStockEDIInventarioBusinessProcessorRules.GetI48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI48]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldI48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI48]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldI48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI48]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetI48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI48] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetI48IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI48] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetTIValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTI]; end; function TStockEDIInventarioBusinessProcessorRules.GetTIIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTI]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldTIValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTI]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldTIIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTI]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetTIValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTI] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetTIIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTI] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetK38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK38]; end; function TStockEDIInventarioBusinessProcessorRules.GetK38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK38]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldK38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK38]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldK38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK38]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetK38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK38] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetK38IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK38] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetK40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK40]; end; function TStockEDIInventarioBusinessProcessorRules.GetK40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK40]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldK40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK40]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldK40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK40]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetK40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK40] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetK40IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK40] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetK42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK42]; end; function TStockEDIInventarioBusinessProcessorRules.GetK42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK42]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldK42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK42]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldK42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK42]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetK42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK42] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetK42IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK42] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetK44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK44]; end; function TStockEDIInventarioBusinessProcessorRules.GetK44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK44]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldK44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK44]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldK44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK44]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetK44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK44] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetK44IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK44] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetK46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK46]; end; function TStockEDIInventarioBusinessProcessorRules.GetK46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK46]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldK46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK46]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldK46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK46]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetK46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK46] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetK46IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK46] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetK48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK48]; end; function TStockEDIInventarioBusinessProcessorRules.GetK48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK48]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldK48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK48]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldK48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK48]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetK48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK48] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetK48IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK48] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetTKValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTK]; end; function TStockEDIInventarioBusinessProcessorRules.GetTKIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTK]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldTKValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTK]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldTKIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTK]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetTKValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTK] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetTKIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTK] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetD38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD38]; end; function TStockEDIInventarioBusinessProcessorRules.GetD38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD38]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldD38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD38]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldD38IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD38]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetD38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD38] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetD38IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD38] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetD40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD40]; end; function TStockEDIInventarioBusinessProcessorRules.GetD40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD40]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldD40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD40]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldD40IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD40]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetD40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD40] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetD40IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD40] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetD42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD42]; end; function TStockEDIInventarioBusinessProcessorRules.GetD42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD42]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldD42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD42]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldD42IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD42]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetD42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD42] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetD42IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD42] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetD44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD44]; end; function TStockEDIInventarioBusinessProcessorRules.GetD44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD44]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldD44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD44]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldD44IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD44]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetD44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD44] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetD44IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD44] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetD46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD46]; end; function TStockEDIInventarioBusinessProcessorRules.GetD46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD46]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldD46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD46]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldD46IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD46]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetD46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD46] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetD46IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD46] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetD48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD48]; end; function TStockEDIInventarioBusinessProcessorRules.GetD48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD48]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldD48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD48]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldD48IsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD48]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetD48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD48] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetD48IsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD48] := Null; end; function TStockEDIInventarioBusinessProcessorRules.GetDTValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioDT]; end; function TStockEDIInventarioBusinessProcessorRules.GetDTIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioDT]); end; function TStockEDIInventarioBusinessProcessorRules.GetOldDTValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioDT]; end; function TStockEDIInventarioBusinessProcessorRules.GetOldDTIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioDT]); end; procedure TStockEDIInventarioBusinessProcessorRules.SetDTValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioDT] := aValue; end; procedure TStockEDIInventarioBusinessProcessorRules.SetDTIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioDT] := Null; end; initialization RegisterBusinessProcessorRules(RID_StockPrendasCentrosDelta, TStockPrendasCentrosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_StockEDIDelta, TStockEDIBusinessProcessorRules); RegisterBusinessProcessorRules(RID_StockVARELADelta, TStockVARELABusinessProcessorRules); RegisterBusinessProcessorRules(RID_StockEDIInventarioDelta, TStockEDIInventarioBusinessProcessorRules); end.