Archivado/Varela_PuntosVenta
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
e8e2ae53c7
Varela_PuntosVenta/Source/Modulos/Stock/Reglas/schStockServer_Intf.pas

3821 lines
152 KiB
ObjectPascal
Raw Blame History

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.
Reference in New Issue View Git Blame Copy Permalink