unit schStockClient_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table 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_StockPrendasCentros = '{A8012514-80BD-45B0-9270-F3C4AE5877F8}'; RID_StockEDI = '{4E97650E-1103-4506-97A1-FDD43A81590A}'; RID_StockVARELA = '{756C613D-6C51-4E60-B82C-5363636B0DAB}'; RID_StockEDIInventario = '{E6A81993-C6F8-456A-B88E-08481D29019E}'; { Data table names } nme_StockPrendasCentros = 'StockPrendasCentros'; nme_StockEDI = 'StockEDI'; nme_StockVARELA = 'StockVARELA'; nme_StockEDIInventario = 'StockEDIInventario'; { StockPrendasCentros fields } fld_StockPrendasCentrosCODIGO = 'CODIGO'; fld_StockPrendasCentrosPRODUCTO = 'PRODUCTO'; fld_StockPrendasCentrosTIPO_PRODUCTO = 'TIPO_PRODUCTO'; fld_StockPrendasCentrosGRUPO_PRODUCTO = 'GRUPO_PRODUCTO'; fld_StockPrendasCentrosCOLECCION = 'COLECCION'; fld_StockPrendasCentrosCOLOR = 'COLOR'; fld_StockPrendasCentrosT38 = 'T38'; fld_StockPrendasCentrosT40 = 'T40'; fld_StockPrendasCentrosT42 = 'T42'; fld_StockPrendasCentrosT44 = 'T44'; fld_StockPrendasCentrosT46 = 'T46'; fld_StockPrendasCentrosT48 = 'T48'; fld_StockPrendasCentrosTOTAL = 'TOTAL'; { StockPrendasCentros field indexes } idx_StockPrendasCentrosCODIGO = 0; idx_StockPrendasCentrosPRODUCTO = 1; idx_StockPrendasCentrosTIPO_PRODUCTO = 2; idx_StockPrendasCentrosGRUPO_PRODUCTO = 3; idx_StockPrendasCentrosCOLECCION = 4; idx_StockPrendasCentrosCOLOR = 5; idx_StockPrendasCentrosT38 = 6; idx_StockPrendasCentrosT40 = 7; idx_StockPrendasCentrosT42 = 8; idx_StockPrendasCentrosT44 = 9; idx_StockPrendasCentrosT46 = 10; idx_StockPrendasCentrosT48 = 11; idx_StockPrendasCentrosTOTAL = 12; { StockEDI fields } fld_StockEDICENTRO = 'CENTRO'; fld_StockEDIFILIAL = 'FILIAL'; fld_StockEDICODIGO = 'CODIGO'; fld_StockEDIPRODUCTO = 'PRODUCTO'; fld_StockEDITIPO_PRODUCTO = 'TIPO_PRODUCTO'; fld_StockEDIGRUPO_PRODUCTO = 'GRUPO_PRODUCTO'; fld_StockEDICOLECCION = 'COLECCION'; fld_StockEDICOLOR = 'COLOR'; fld_StockEDIE38 = 'E38'; fld_StockEDIE40 = 'E40'; fld_StockEDIE42 = 'E42'; fld_StockEDIE44 = 'E44'; fld_StockEDIE46 = 'E46'; fld_StockEDIE48 = 'E48'; fld_StockEDITE = 'TE'; fld_StockEDIS38 = 'S38'; fld_StockEDIS40 = 'S40'; fld_StockEDIS42 = 'S42'; fld_StockEDIS44 = 'S44'; fld_StockEDIS46 = 'S46'; fld_StockEDIS48 = 'S48'; fld_StockEDITS = 'TS'; fld_StockEDIK38 = 'K38'; fld_StockEDIK40 = 'K40'; fld_StockEDIK42 = 'K42'; fld_StockEDIK44 = 'K44'; fld_StockEDIK46 = 'K46'; fld_StockEDIK48 = 'K48'; fld_StockEDIKT = 'KT'; { StockEDI field indexes } idx_StockEDICENTRO = 0; idx_StockEDIFILIAL = 1; idx_StockEDICODIGO = 2; idx_StockEDIPRODUCTO = 3; idx_StockEDITIPO_PRODUCTO = 4; idx_StockEDIGRUPO_PRODUCTO = 5; idx_StockEDICOLECCION = 6; idx_StockEDICOLOR = 7; idx_StockEDIE38 = 8; idx_StockEDIE40 = 9; idx_StockEDIE42 = 10; idx_StockEDIE44 = 11; idx_StockEDIE46 = 12; idx_StockEDIE48 = 13; idx_StockEDITE = 14; idx_StockEDIS38 = 15; idx_StockEDIS40 = 16; idx_StockEDIS42 = 17; idx_StockEDIS44 = 18; idx_StockEDIS46 = 19; idx_StockEDIS48 = 20; idx_StockEDITS = 21; idx_StockEDIK38 = 22; idx_StockEDIK40 = 23; idx_StockEDIK42 = 24; idx_StockEDIK44 = 25; idx_StockEDIK46 = 26; idx_StockEDIK48 = 27; idx_StockEDIKT = 28; { StockVARELA fields } fld_StockVARELAFILIAL = 'FILIAL'; fld_StockVARELACODIGO = 'CODIGO'; fld_StockVARELACOLOR = 'COLOR'; fld_StockVARELAPRODUCTO = 'PRODUCTO'; fld_StockVARELATIPO_PRODUTO = 'TIPO_PRODUTO'; fld_StockVARELAGRUPO_PRODUTO = 'GRUPO_PRODUTO'; fld_StockVARELACOLECCION = 'COLECCION'; fld_StockVARELAK38 = 'K38'; fld_StockVARELAK40 = 'K40'; fld_StockVARELAK42 = 'K42'; fld_StockVARELAK44 = 'K44'; fld_StockVARELAK46 = 'K46'; fld_StockVARELAK48 = 'K48'; fld_StockVARELAKT = 'KT'; { StockVARELA field indexes } idx_StockVARELAFILIAL = 0; idx_StockVARELACODIGO = 1; idx_StockVARELACOLOR = 2; idx_StockVARELAPRODUCTO = 3; idx_StockVARELATIPO_PRODUTO = 4; idx_StockVARELAGRUPO_PRODUTO = 5; idx_StockVARELACOLECCION = 6; idx_StockVARELAK38 = 7; idx_StockVARELAK40 = 8; idx_StockVARELAK42 = 9; idx_StockVARELAK44 = 10; idx_StockVARELAK46 = 11; idx_StockVARELAK48 = 12; idx_StockVARELAKT = 13; { StockEDIInventario fields } fld_StockEDIInventarioCENTRO = 'CENTRO'; fld_StockEDIInventarioFILIAL = 'FILIAL'; fld_StockEDIInventarioCODIGO = 'CODIGO'; fld_StockEDIInventarioPRODUCTO = 'PRODUCTO'; fld_StockEDIInventarioCOLOR = 'COLOR'; fld_StockEDIInventarioTIPO_PRODUCTO = 'TIPO_PRODUCTO'; fld_StockEDIInventarioGRUPO_PRODUCTO = 'GRUPO_PRODUCTO'; fld_StockEDIInventarioCOLECCION = 'COLECCION'; fld_StockEDIInventarioI38 = 'I38'; fld_StockEDIInventarioI40 = 'I40'; fld_StockEDIInventarioI42 = 'I42'; fld_StockEDIInventarioI44 = 'I44'; fld_StockEDIInventarioI46 = 'I46'; fld_StockEDIInventarioI48 = 'I48'; fld_StockEDIInventarioTI = 'TI'; fld_StockEDIInventarioK38 = 'K38'; fld_StockEDIInventarioK40 = 'K40'; fld_StockEDIInventarioK42 = 'K42'; fld_StockEDIInventarioK44 = 'K44'; fld_StockEDIInventarioK46 = 'K46'; fld_StockEDIInventarioK48 = 'K48'; fld_StockEDIInventarioTK = 'TK'; fld_StockEDIInventarioD38 = 'D38'; fld_StockEDIInventarioD40 = 'D40'; fld_StockEDIInventarioD42 = 'D42'; fld_StockEDIInventarioD44 = 'D44'; fld_StockEDIInventarioD46 = 'D46'; fld_StockEDIInventarioD48 = 'D48'; fld_StockEDIInventarioDT = 'DT'; { StockEDIInventario field indexes } idx_StockEDIInventarioCENTRO = 0; idx_StockEDIInventarioFILIAL = 1; idx_StockEDIInventarioCODIGO = 2; idx_StockEDIInventarioPRODUCTO = 3; idx_StockEDIInventarioCOLOR = 4; idx_StockEDIInventarioTIPO_PRODUCTO = 5; idx_StockEDIInventarioGRUPO_PRODUCTO = 6; idx_StockEDIInventarioCOLECCION = 7; idx_StockEDIInventarioI38 = 8; idx_StockEDIInventarioI40 = 9; idx_StockEDIInventarioI42 = 10; idx_StockEDIInventarioI44 = 11; idx_StockEDIInventarioI46 = 12; idx_StockEDIInventarioI48 = 13; idx_StockEDIInventarioTI = 14; idx_StockEDIInventarioK38 = 15; idx_StockEDIInventarioK40 = 16; idx_StockEDIInventarioK42 = 17; idx_StockEDIInventarioK44 = 18; idx_StockEDIInventarioK46 = 19; idx_StockEDIInventarioK48 = 20; idx_StockEDIInventarioTK = 21; idx_StockEDIInventarioD38 = 22; idx_StockEDIInventarioD40 = 23; idx_StockEDIInventarioD42 = 24; idx_StockEDIInventarioD44 = 25; idx_StockEDIInventarioD46 = 26; idx_StockEDIInventarioD48 = 27; idx_StockEDIInventarioDT = 28; type { IStockPrendasCentros } IStockPrendasCentros = interface(IDAStronglyTypedDataTable) ['{A49DB067-BF73-4963-B765-92DA5C47C377}'] { Property getters and setters } function GetCODIGOValue: String; procedure SetCODIGOValue(const aValue: String); function GetCODIGOIsNull: Boolean; procedure SetCODIGOIsNull(const aValue: Boolean); function GetPRODUCTOValue: String; procedure SetPRODUCTOValue(const aValue: String); function GetPRODUCTOIsNull: Boolean; procedure SetPRODUCTOIsNull(const aValue: Boolean); function GetTIPO_PRODUCTOValue: String; procedure SetTIPO_PRODUCTOValue(const aValue: String); function GetTIPO_PRODUCTOIsNull: Boolean; procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); function GetGRUPO_PRODUCTOValue: String; procedure SetGRUPO_PRODUCTOValue(const aValue: String); function GetGRUPO_PRODUCTOIsNull: Boolean; procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); function GetCOLECCIONValue: String; procedure SetCOLECCIONValue(const aValue: String); function GetCOLECCIONIsNull: Boolean; procedure SetCOLECCIONIsNull(const aValue: Boolean); function GetCOLORValue: String; procedure SetCOLORValue(const aValue: String); function GetCOLORIsNull: Boolean; procedure SetCOLORIsNull(const aValue: Boolean); function GetT38Value: Float; procedure SetT38Value(const aValue: Float); function GetT38IsNull: Boolean; procedure SetT38IsNull(const aValue: Boolean); function GetT40Value: Float; procedure SetT40Value(const aValue: Float); function GetT40IsNull: Boolean; procedure SetT40IsNull(const aValue: Boolean); function GetT42Value: Float; procedure SetT42Value(const aValue: Float); function GetT42IsNull: Boolean; procedure SetT42IsNull(const aValue: Boolean); function GetT44Value: Float; procedure SetT44Value(const aValue: Float); function GetT44IsNull: Boolean; procedure SetT44IsNull(const aValue: Boolean); function GetT46Value: Float; procedure SetT46Value(const aValue: Float); function GetT46IsNull: Boolean; procedure SetT46IsNull(const aValue: Boolean); function GetT48Value: Float; procedure SetT48Value(const aValue: Float); function GetT48IsNull: Boolean; procedure SetT48IsNull(const aValue: Boolean); function GetTOTALValue: Float; procedure SetTOTALValue(const aValue: Float); function GetTOTALIsNull: Boolean; procedure SetTOTALIsNull(const aValue: Boolean); { Properties } property CODIGO: String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property T38: Float read GetT38Value write SetT38Value; property T38IsNull: Boolean read GetT38IsNull write SetT38IsNull; property T40: Float read GetT40Value write SetT40Value; property T40IsNull: Boolean read GetT40IsNull write SetT40IsNull; property T42: Float read GetT42Value write SetT42Value; property T42IsNull: Boolean read GetT42IsNull write SetT42IsNull; property T44: Float read GetT44Value write SetT44Value; property T44IsNull: Boolean read GetT44IsNull write SetT44IsNull; property T46: Float read GetT46Value write SetT46Value; property T46IsNull: Boolean read GetT46IsNull write SetT46IsNull; property T48: Float read GetT48Value write SetT48Value; property T48IsNull: Boolean read GetT48IsNull write SetT48IsNull; property TOTAL: Float read GetTOTALValue write SetTOTALValue; property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull; end; { TStockPrendasCentrosDataTableRules } TStockPrendasCentrosDataTableRules = class(TDADataTableRules, IStockPrendasCentros) private protected { Property getters and setters } function GetCODIGOValue: String; virtual; procedure SetCODIGOValue(const aValue: String); virtual; function GetCODIGOIsNull: Boolean; virtual; procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; function GetPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; function GetTIPO_PRODUCTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; function GetCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; procedure SetCOLORValue(const aValue: String); virtual; function GetCOLORIsNull: Boolean; virtual; procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetT38Value: Float; virtual; procedure SetT38Value(const aValue: Float); virtual; function GetT38IsNull: Boolean; virtual; procedure SetT38IsNull(const aValue: Boolean); virtual; function GetT40Value: Float; virtual; procedure SetT40Value(const aValue: Float); virtual; function GetT40IsNull: Boolean; virtual; procedure SetT40IsNull(const aValue: Boolean); virtual; function GetT42Value: Float; virtual; procedure SetT42Value(const aValue: Float); virtual; function GetT42IsNull: Boolean; virtual; procedure SetT42IsNull(const aValue: Boolean); virtual; function GetT44Value: Float; virtual; procedure SetT44Value(const aValue: Float); virtual; function GetT44IsNull: Boolean; virtual; procedure SetT44IsNull(const aValue: Boolean); virtual; function GetT46Value: Float; virtual; procedure SetT46Value(const aValue: Float); virtual; function GetT46IsNull: Boolean; virtual; procedure SetT46IsNull(const aValue: Boolean); virtual; function GetT48Value: Float; virtual; procedure SetT48Value(const aValue: Float); virtual; function GetT48IsNull: Boolean; virtual; procedure SetT48IsNull(const aValue: Boolean); virtual; function GetTOTALValue: Float; virtual; procedure SetTOTALValue(const aValue: Float); virtual; function GetTOTALIsNull: Boolean; virtual; procedure SetTOTALIsNull(const aValue: Boolean); virtual; { Properties } property CODIGO: String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property T38: Float read GetT38Value write SetT38Value; property T38IsNull: Boolean read GetT38IsNull write SetT38IsNull; property T40: Float read GetT40Value write SetT40Value; property T40IsNull: Boolean read GetT40IsNull write SetT40IsNull; property T42: Float read GetT42Value write SetT42Value; property T42IsNull: Boolean read GetT42IsNull write SetT42IsNull; property T44: Float read GetT44Value write SetT44Value; property T44IsNull: Boolean read GetT44IsNull write SetT44IsNull; property T46: Float read GetT46Value write SetT46Value; property T46IsNull: Boolean read GetT46IsNull write SetT46IsNull; property T48: Float read GetT48Value write SetT48Value; property T48IsNull: Boolean read GetT48IsNull write SetT48IsNull; property TOTAL: Float read GetTOTALValue write SetTOTALValue; property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IStockEDI } IStockEDI = interface(IDAStronglyTypedDataTable) ['{BDE048F6-D199-4C45-BEA4-E85EBA47C934}'] { Property getters and setters } function GetCENTROValue: String; procedure SetCENTROValue(const aValue: String); function GetCENTROIsNull: Boolean; procedure SetCENTROIsNull(const aValue: Boolean); function GetFILIALValue: String; procedure SetFILIALValue(const aValue: String); function GetFILIALIsNull: Boolean; procedure SetFILIALIsNull(const aValue: Boolean); function GetCODIGOValue: String; procedure SetCODIGOValue(const aValue: String); function GetCODIGOIsNull: Boolean; procedure SetCODIGOIsNull(const aValue: Boolean); function GetPRODUCTOValue: String; procedure SetPRODUCTOValue(const aValue: String); function GetPRODUCTOIsNull: Boolean; procedure SetPRODUCTOIsNull(const aValue: Boolean); function GetTIPO_PRODUCTOValue: String; procedure SetTIPO_PRODUCTOValue(const aValue: String); function GetTIPO_PRODUCTOIsNull: Boolean; procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); function GetGRUPO_PRODUCTOValue: String; procedure SetGRUPO_PRODUCTOValue(const aValue: String); function GetGRUPO_PRODUCTOIsNull: Boolean; procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); function GetCOLECCIONValue: String; procedure SetCOLECCIONValue(const aValue: String); function GetCOLECCIONIsNull: Boolean; procedure SetCOLECCIONIsNull(const aValue: Boolean); function GetCOLORValue: String; procedure SetCOLORValue(const aValue: String); function GetCOLORIsNull: Boolean; procedure SetCOLORIsNull(const aValue: Boolean); function GetE38Value: Float; procedure SetE38Value(const aValue: Float); function GetE38IsNull: Boolean; procedure SetE38IsNull(const aValue: Boolean); function GetE40Value: Float; procedure SetE40Value(const aValue: Float); function GetE40IsNull: Boolean; procedure SetE40IsNull(const aValue: Boolean); function GetE42Value: Float; procedure SetE42Value(const aValue: Float); function GetE42IsNull: Boolean; procedure SetE42IsNull(const aValue: Boolean); function GetE44Value: Float; procedure SetE44Value(const aValue: Float); function GetE44IsNull: Boolean; procedure SetE44IsNull(const aValue: Boolean); function GetE46Value: Float; procedure SetE46Value(const aValue: Float); function GetE46IsNull: Boolean; procedure SetE46IsNull(const aValue: Boolean); function GetE48Value: Float; procedure SetE48Value(const aValue: Float); function GetE48IsNull: Boolean; procedure SetE48IsNull(const aValue: Boolean); function GetTEValue: Float; procedure SetTEValue(const aValue: Float); function GetTEIsNull: Boolean; procedure SetTEIsNull(const aValue: Boolean); function GetS38Value: Float; procedure SetS38Value(const aValue: Float); function GetS38IsNull: Boolean; procedure SetS38IsNull(const aValue: Boolean); function GetS40Value: Float; procedure SetS40Value(const aValue: Float); function GetS40IsNull: Boolean; procedure SetS40IsNull(const aValue: Boolean); function GetS42Value: Float; procedure SetS42Value(const aValue: Float); function GetS42IsNull: Boolean; procedure SetS42IsNull(const aValue: Boolean); function GetS44Value: Float; procedure SetS44Value(const aValue: Float); function GetS44IsNull: Boolean; procedure SetS44IsNull(const aValue: Boolean); function GetS46Value: Float; procedure SetS46Value(const aValue: Float); function GetS46IsNull: Boolean; procedure SetS46IsNull(const aValue: Boolean); function GetS48Value: Float; procedure SetS48Value(const aValue: Float); function GetS48IsNull: Boolean; procedure SetS48IsNull(const aValue: Boolean); function GetTSValue: Float; procedure SetTSValue(const aValue: Float); function GetTSIsNull: Boolean; procedure SetTSIsNull(const aValue: Boolean); function GetK38Value: Float; procedure SetK38Value(const aValue: Float); function GetK38IsNull: Boolean; procedure SetK38IsNull(const aValue: Boolean); function GetK40Value: Float; procedure SetK40Value(const aValue: Float); function GetK40IsNull: Boolean; procedure SetK40IsNull(const aValue: Boolean); function GetK42Value: Float; procedure SetK42Value(const aValue: Float); function GetK42IsNull: Boolean; procedure SetK42IsNull(const aValue: Boolean); function GetK44Value: Float; procedure SetK44Value(const aValue: Float); function GetK44IsNull: Boolean; procedure SetK44IsNull(const aValue: Boolean); function GetK46Value: Float; procedure SetK46Value(const aValue: Float); function GetK46IsNull: Boolean; procedure SetK46IsNull(const aValue: Boolean); function GetK48Value: Float; procedure SetK48Value(const aValue: Float); function GetK48IsNull: Boolean; procedure SetK48IsNull(const aValue: Boolean); function GetKTValue: Float; procedure SetKTValue(const aValue: Float); function GetKTIsNull: Boolean; procedure SetKTIsNull(const aValue: Boolean); { Properties } property CENTRO: String read GetCENTROValue write SetCENTROValue; property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; property FILIAL: String read GetFILIALValue write SetFILIALValue; property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property E38: Float read GetE38Value write SetE38Value; property E38IsNull: Boolean read GetE38IsNull write SetE38IsNull; property E40: Float read GetE40Value write SetE40Value; property E40IsNull: Boolean read GetE40IsNull write SetE40IsNull; property E42: Float read GetE42Value write SetE42Value; property E42IsNull: Boolean read GetE42IsNull write SetE42IsNull; property E44: Float read GetE44Value write SetE44Value; property E44IsNull: Boolean read GetE44IsNull write SetE44IsNull; property E46: Float read GetE46Value write SetE46Value; property E46IsNull: Boolean read GetE46IsNull write SetE46IsNull; property E48: Float read GetE48Value write SetE48Value; property E48IsNull: Boolean read GetE48IsNull write SetE48IsNull; property TE: Float read GetTEValue write SetTEValue; property TEIsNull: Boolean read GetTEIsNull write SetTEIsNull; property S38: Float read GetS38Value write SetS38Value; property S38IsNull: Boolean read GetS38IsNull write SetS38IsNull; property S40: Float read GetS40Value write SetS40Value; property S40IsNull: Boolean read GetS40IsNull write SetS40IsNull; property S42: Float read GetS42Value write SetS42Value; property S42IsNull: Boolean read GetS42IsNull write SetS42IsNull; property S44: Float read GetS44Value write SetS44Value; property S44IsNull: Boolean read GetS44IsNull write SetS44IsNull; property S46: Float read GetS46Value write SetS46Value; property S46IsNull: Boolean read GetS46IsNull write SetS46IsNull; property S48: Float read GetS48Value write SetS48Value; property S48IsNull: Boolean read GetS48IsNull write SetS48IsNull; property TS: Float read GetTSValue write SetTSValue; property TSIsNull: Boolean read GetTSIsNull write SetTSIsNull; property K38: Float read GetK38Value write SetK38Value; property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Float read GetK40Value write SetK40Value; property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Float read GetK42Value write SetK42Value; property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Float read GetK44Value write SetK44Value; property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Float read GetK46Value write SetK46Value; property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Float read GetK48Value write SetK48Value; property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property KT: Float read GetKTValue write SetKTValue; property KTIsNull: Boolean read GetKTIsNull write SetKTIsNull; end; { TStockEDIDataTableRules } TStockEDIDataTableRules = class(TDADataTableRules, IStockEDI) private protected { Property getters and setters } function GetCENTROValue: String; virtual; procedure SetCENTROValue(const aValue: String); virtual; function GetCENTROIsNull: Boolean; virtual; procedure SetCENTROIsNull(const aValue: Boolean); virtual; function GetFILIALValue: String; virtual; procedure SetFILIALValue(const aValue: String); virtual; function GetFILIALIsNull: Boolean; virtual; procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; procedure SetCODIGOValue(const aValue: String); virtual; function GetCODIGOIsNull: Boolean; virtual; procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; function GetPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; function GetTIPO_PRODUCTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; function GetCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; procedure SetCOLORValue(const aValue: String); virtual; function GetCOLORIsNull: Boolean; virtual; procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetE38Value: Float; virtual; procedure SetE38Value(const aValue: Float); virtual; function GetE38IsNull: Boolean; virtual; procedure SetE38IsNull(const aValue: Boolean); virtual; function GetE40Value: Float; virtual; procedure SetE40Value(const aValue: Float); virtual; function GetE40IsNull: Boolean; virtual; procedure SetE40IsNull(const aValue: Boolean); virtual; function GetE42Value: Float; virtual; procedure SetE42Value(const aValue: Float); virtual; function GetE42IsNull: Boolean; virtual; procedure SetE42IsNull(const aValue: Boolean); virtual; function GetE44Value: Float; virtual; procedure SetE44Value(const aValue: Float); virtual; function GetE44IsNull: Boolean; virtual; procedure SetE44IsNull(const aValue: Boolean); virtual; function GetE46Value: Float; virtual; procedure SetE46Value(const aValue: Float); virtual; function GetE46IsNull: Boolean; virtual; procedure SetE46IsNull(const aValue: Boolean); virtual; function GetE48Value: Float; virtual; procedure SetE48Value(const aValue: Float); virtual; function GetE48IsNull: Boolean; virtual; procedure SetE48IsNull(const aValue: Boolean); virtual; function GetTEValue: Float; virtual; procedure SetTEValue(const aValue: Float); virtual; function GetTEIsNull: Boolean; virtual; procedure SetTEIsNull(const aValue: Boolean); virtual; function GetS38Value: Float; virtual; procedure SetS38Value(const aValue: Float); virtual; function GetS38IsNull: Boolean; virtual; procedure SetS38IsNull(const aValue: Boolean); virtual; function GetS40Value: Float; virtual; procedure SetS40Value(const aValue: Float); virtual; function GetS40IsNull: Boolean; virtual; procedure SetS40IsNull(const aValue: Boolean); virtual; function GetS42Value: Float; virtual; procedure SetS42Value(const aValue: Float); virtual; function GetS42IsNull: Boolean; virtual; procedure SetS42IsNull(const aValue: Boolean); virtual; function GetS44Value: Float; virtual; procedure SetS44Value(const aValue: Float); virtual; function GetS44IsNull: Boolean; virtual; procedure SetS44IsNull(const aValue: Boolean); virtual; function GetS46Value: Float; virtual; procedure SetS46Value(const aValue: Float); virtual; function GetS46IsNull: Boolean; virtual; procedure SetS46IsNull(const aValue: Boolean); virtual; function GetS48Value: Float; virtual; procedure SetS48Value(const aValue: Float); virtual; function GetS48IsNull: Boolean; virtual; procedure SetS48IsNull(const aValue: Boolean); virtual; function GetTSValue: Float; virtual; procedure SetTSValue(const aValue: Float); virtual; function GetTSIsNull: Boolean; virtual; procedure SetTSIsNull(const aValue: Boolean); virtual; function GetK38Value: Float; virtual; procedure SetK38Value(const aValue: Float); virtual; function GetK38IsNull: Boolean; virtual; procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Float; virtual; procedure SetK40Value(const aValue: Float); virtual; function GetK40IsNull: Boolean; virtual; procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Float; virtual; procedure SetK42Value(const aValue: Float); virtual; function GetK42IsNull: Boolean; virtual; procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Float; virtual; procedure SetK44Value(const aValue: Float); virtual; function GetK44IsNull: Boolean; virtual; procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Float; virtual; procedure SetK46Value(const aValue: Float); virtual; function GetK46IsNull: Boolean; virtual; procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Float; virtual; procedure SetK48Value(const aValue: Float); virtual; function GetK48IsNull: Boolean; virtual; procedure SetK48IsNull(const aValue: Boolean); virtual; function GetKTValue: Float; virtual; procedure SetKTValue(const aValue: Float); virtual; function GetKTIsNull: Boolean; virtual; procedure SetKTIsNull(const aValue: Boolean); virtual; { Properties } property CENTRO: String read GetCENTROValue write SetCENTROValue; property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; property FILIAL: String read GetFILIALValue write SetFILIALValue; property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property E38: Float read GetE38Value write SetE38Value; property E38IsNull: Boolean read GetE38IsNull write SetE38IsNull; property E40: Float read GetE40Value write SetE40Value; property E40IsNull: Boolean read GetE40IsNull write SetE40IsNull; property E42: Float read GetE42Value write SetE42Value; property E42IsNull: Boolean read GetE42IsNull write SetE42IsNull; property E44: Float read GetE44Value write SetE44Value; property E44IsNull: Boolean read GetE44IsNull write SetE44IsNull; property E46: Float read GetE46Value write SetE46Value; property E46IsNull: Boolean read GetE46IsNull write SetE46IsNull; property E48: Float read GetE48Value write SetE48Value; property E48IsNull: Boolean read GetE48IsNull write SetE48IsNull; property TE: Float read GetTEValue write SetTEValue; property TEIsNull: Boolean read GetTEIsNull write SetTEIsNull; property S38: Float read GetS38Value write SetS38Value; property S38IsNull: Boolean read GetS38IsNull write SetS38IsNull; property S40: Float read GetS40Value write SetS40Value; property S40IsNull: Boolean read GetS40IsNull write SetS40IsNull; property S42: Float read GetS42Value write SetS42Value; property S42IsNull: Boolean read GetS42IsNull write SetS42IsNull; property S44: Float read GetS44Value write SetS44Value; property S44IsNull: Boolean read GetS44IsNull write SetS44IsNull; property S46: Float read GetS46Value write SetS46Value; property S46IsNull: Boolean read GetS46IsNull write SetS46IsNull; property S48: Float read GetS48Value write SetS48Value; property S48IsNull: Boolean read GetS48IsNull write SetS48IsNull; property TS: Float read GetTSValue write SetTSValue; property TSIsNull: Boolean read GetTSIsNull write SetTSIsNull; property K38: Float read GetK38Value write SetK38Value; property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Float read GetK40Value write SetK40Value; property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Float read GetK42Value write SetK42Value; property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Float read GetK44Value write SetK44Value; property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Float read GetK46Value write SetK46Value; property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Float read GetK48Value write SetK48Value; property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property KT: Float read GetKTValue write SetKTValue; property KTIsNull: Boolean read GetKTIsNull write SetKTIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IStockVARELA } IStockVARELA = interface(IDAStronglyTypedDataTable) ['{FA5D0F0E-C711-4EB6-BB53-A0CF15BC31D5}'] { Property getters and setters } function GetFILIALValue: String; procedure SetFILIALValue(const aValue: String); function GetFILIALIsNull: Boolean; procedure SetFILIALIsNull(const aValue: Boolean); function GetCODIGOValue: String; procedure SetCODIGOValue(const aValue: String); function GetCODIGOIsNull: Boolean; procedure SetCODIGOIsNull(const aValue: Boolean); function GetCOLORValue: String; procedure SetCOLORValue(const aValue: String); function GetCOLORIsNull: Boolean; procedure SetCOLORIsNull(const aValue: Boolean); function GetPRODUCTOValue: String; procedure SetPRODUCTOValue(const aValue: String); function GetPRODUCTOIsNull: Boolean; procedure SetPRODUCTOIsNull(const aValue: Boolean); function GetTIPO_PRODUTOValue: String; procedure SetTIPO_PRODUTOValue(const aValue: String); function GetTIPO_PRODUTOIsNull: Boolean; procedure SetTIPO_PRODUTOIsNull(const aValue: Boolean); function GetGRUPO_PRODUTOValue: String; procedure SetGRUPO_PRODUTOValue(const aValue: String); function GetGRUPO_PRODUTOIsNull: Boolean; procedure SetGRUPO_PRODUTOIsNull(const aValue: Boolean); function GetCOLECCIONValue: String; procedure SetCOLECCIONValue(const aValue: String); function GetCOLECCIONIsNull: Boolean; procedure SetCOLECCIONIsNull(const aValue: Boolean); function GetK38Value: Integer; procedure SetK38Value(const aValue: Integer); function GetK38IsNull: Boolean; procedure SetK38IsNull(const aValue: Boolean); function GetK40Value: Integer; procedure SetK40Value(const aValue: Integer); function GetK40IsNull: Boolean; procedure SetK40IsNull(const aValue: Boolean); function GetK42Value: Integer; procedure SetK42Value(const aValue: Integer); function GetK42IsNull: Boolean; procedure SetK42IsNull(const aValue: Boolean); function GetK44Value: Integer; procedure SetK44Value(const aValue: Integer); function GetK44IsNull: Boolean; procedure SetK44IsNull(const aValue: Boolean); function GetK46Value: Integer; procedure SetK46Value(const aValue: Integer); function GetK46IsNull: Boolean; procedure SetK46IsNull(const aValue: Boolean); function GetK48Value: Integer; procedure SetK48Value(const aValue: Integer); function GetK48IsNull: Boolean; procedure SetK48IsNull(const aValue: Boolean); function GetKTValue: Integer; procedure SetKTValue(const aValue: Integer); function GetKTIsNull: Boolean; procedure SetKTIsNull(const aValue: Boolean); { Properties } property FILIAL: String read GetFILIALValue write SetFILIALValue; property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUTO: String read GetTIPO_PRODUTOValue write SetTIPO_PRODUTOValue; property TIPO_PRODUTOIsNull: Boolean read GetTIPO_PRODUTOIsNull write SetTIPO_PRODUTOIsNull; property GRUPO_PRODUTO: String read GetGRUPO_PRODUTOValue write SetGRUPO_PRODUTOValue; property GRUPO_PRODUTOIsNull: Boolean read GetGRUPO_PRODUTOIsNull write SetGRUPO_PRODUTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property K38: Integer read GetK38Value write SetK38Value; property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Integer read GetK40Value write SetK40Value; property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Integer read GetK42Value write SetK42Value; property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Integer read GetK44Value write SetK44Value; property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Integer read GetK46Value write SetK46Value; property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Integer read GetK48Value write SetK48Value; property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property KT: Integer read GetKTValue write SetKTValue; property KTIsNull: Boolean read GetKTIsNull write SetKTIsNull; end; { TStockVARELADataTableRules } TStockVARELADataTableRules = class(TDADataTableRules, IStockVARELA) private protected { Property getters and setters } function GetFILIALValue: String; virtual; procedure SetFILIALValue(const aValue: String); virtual; function GetFILIALIsNull: Boolean; virtual; procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; procedure SetCODIGOValue(const aValue: String); virtual; function GetCODIGOIsNull: Boolean; virtual; procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; procedure SetCOLORValue(const aValue: String); virtual; function GetCOLORIsNull: Boolean; virtual; procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; function GetPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUTOValue: String; virtual; procedure SetTIPO_PRODUTOValue(const aValue: String); virtual; function GetTIPO_PRODUTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUTOValue: String; virtual; procedure SetGRUPO_PRODUTOValue(const aValue: String); virtual; function GetGRUPO_PRODUTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; function GetCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetK38Value: Integer; virtual; procedure SetK38Value(const aValue: Integer); virtual; function GetK38IsNull: Boolean; virtual; procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Integer; virtual; procedure SetK40Value(const aValue: Integer); virtual; function GetK40IsNull: Boolean; virtual; procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Integer; virtual; procedure SetK42Value(const aValue: Integer); virtual; function GetK42IsNull: Boolean; virtual; procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Integer; virtual; procedure SetK44Value(const aValue: Integer); virtual; function GetK44IsNull: Boolean; virtual; procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Integer; virtual; procedure SetK46Value(const aValue: Integer); virtual; function GetK46IsNull: Boolean; virtual; procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Integer; virtual; procedure SetK48Value(const aValue: Integer); virtual; function GetK48IsNull: Boolean; virtual; procedure SetK48IsNull(const aValue: Boolean); virtual; function GetKTValue: Integer; virtual; procedure SetKTValue(const aValue: Integer); virtual; function GetKTIsNull: Boolean; virtual; procedure SetKTIsNull(const aValue: Boolean); virtual; { Properties } property FILIAL: String read GetFILIALValue write SetFILIALValue; property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUTO: String read GetTIPO_PRODUTOValue write SetTIPO_PRODUTOValue; property TIPO_PRODUTOIsNull: Boolean read GetTIPO_PRODUTOIsNull write SetTIPO_PRODUTOIsNull; property GRUPO_PRODUTO: String read GetGRUPO_PRODUTOValue write SetGRUPO_PRODUTOValue; property GRUPO_PRODUTOIsNull: Boolean read GetGRUPO_PRODUTOIsNull write SetGRUPO_PRODUTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property K38: Integer read GetK38Value write SetK38Value; property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Integer read GetK40Value write SetK40Value; property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Integer read GetK42Value write SetK42Value; property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Integer read GetK44Value write SetK44Value; property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Integer read GetK46Value write SetK46Value; property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Integer read GetK48Value write SetK48Value; property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property KT: Integer read GetKTValue write SetKTValue; property KTIsNull: Boolean read GetKTIsNull write SetKTIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IStockEDIInventario } IStockEDIInventario = interface(IDAStronglyTypedDataTable) ['{82E00C37-44A9-4184-9514-510BDA32EAC6}'] { Property getters and setters } function GetCENTROValue: String; procedure SetCENTROValue(const aValue: String); function GetCENTROIsNull: Boolean; procedure SetCENTROIsNull(const aValue: Boolean); function GetFILIALValue: String; procedure SetFILIALValue(const aValue: String); function GetFILIALIsNull: Boolean; procedure SetFILIALIsNull(const aValue: Boolean); function GetCODIGOValue: String; procedure SetCODIGOValue(const aValue: String); function GetCODIGOIsNull: Boolean; procedure SetCODIGOIsNull(const aValue: Boolean); function GetPRODUCTOValue: String; procedure SetPRODUCTOValue(const aValue: String); function GetPRODUCTOIsNull: Boolean; procedure SetPRODUCTOIsNull(const aValue: Boolean); function GetCOLORValue: String; procedure SetCOLORValue(const aValue: String); function GetCOLORIsNull: Boolean; procedure SetCOLORIsNull(const aValue: Boolean); function GetTIPO_PRODUCTOValue: String; procedure SetTIPO_PRODUCTOValue(const aValue: String); function GetTIPO_PRODUCTOIsNull: Boolean; procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); function GetGRUPO_PRODUCTOValue: String; procedure SetGRUPO_PRODUCTOValue(const aValue: String); function GetGRUPO_PRODUCTOIsNull: Boolean; procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); function GetCOLECCIONValue: String; procedure SetCOLECCIONValue(const aValue: String); function GetCOLECCIONIsNull: Boolean; procedure SetCOLECCIONIsNull(const aValue: Boolean); function GetI38Value: Float; procedure SetI38Value(const aValue: Float); function GetI38IsNull: Boolean; procedure SetI38IsNull(const aValue: Boolean); function GetI40Value: Float; procedure SetI40Value(const aValue: Float); function GetI40IsNull: Boolean; procedure SetI40IsNull(const aValue: Boolean); function GetI42Value: Float; procedure SetI42Value(const aValue: Float); function GetI42IsNull: Boolean; procedure SetI42IsNull(const aValue: Boolean); function GetI44Value: Float; procedure SetI44Value(const aValue: Float); function GetI44IsNull: Boolean; procedure SetI44IsNull(const aValue: Boolean); function GetI46Value: Float; procedure SetI46Value(const aValue: Float); function GetI46IsNull: Boolean; procedure SetI46IsNull(const aValue: Boolean); function GetI48Value: Float; procedure SetI48Value(const aValue: Float); function GetI48IsNull: Boolean; procedure SetI48IsNull(const aValue: Boolean); function GetTIValue: Float; procedure SetTIValue(const aValue: Float); function GetTIIsNull: Boolean; procedure SetTIIsNull(const aValue: Boolean); function GetK38Value: Float; procedure SetK38Value(const aValue: Float); function GetK38IsNull: Boolean; procedure SetK38IsNull(const aValue: Boolean); function GetK40Value: Float; procedure SetK40Value(const aValue: Float); function GetK40IsNull: Boolean; procedure SetK40IsNull(const aValue: Boolean); function GetK42Value: Float; procedure SetK42Value(const aValue: Float); function GetK42IsNull: Boolean; procedure SetK42IsNull(const aValue: Boolean); function GetK44Value: Float; procedure SetK44Value(const aValue: Float); function GetK44IsNull: Boolean; procedure SetK44IsNull(const aValue: Boolean); function GetK46Value: Float; procedure SetK46Value(const aValue: Float); function GetK46IsNull: Boolean; procedure SetK46IsNull(const aValue: Boolean); function GetK48Value: Float; procedure SetK48Value(const aValue: Float); function GetK48IsNull: Boolean; procedure SetK48IsNull(const aValue: Boolean); function GetTKValue: Float; procedure SetTKValue(const aValue: Float); function GetTKIsNull: Boolean; procedure SetTKIsNull(const aValue: Boolean); function GetD38Value: Float; procedure SetD38Value(const aValue: Float); function GetD38IsNull: Boolean; procedure SetD38IsNull(const aValue: Boolean); function GetD40Value: Float; procedure SetD40Value(const aValue: Float); function GetD40IsNull: Boolean; procedure SetD40IsNull(const aValue: Boolean); function GetD42Value: Float; procedure SetD42Value(const aValue: Float); function GetD42IsNull: Boolean; procedure SetD42IsNull(const aValue: Boolean); function GetD44Value: Float; procedure SetD44Value(const aValue: Float); function GetD44IsNull: Boolean; procedure SetD44IsNull(const aValue: Boolean); function GetD46Value: Float; procedure SetD46Value(const aValue: Float); function GetD46IsNull: Boolean; procedure SetD46IsNull(const aValue: Boolean); function GetD48Value: Float; procedure SetD48Value(const aValue: Float); function GetD48IsNull: Boolean; procedure SetD48IsNull(const aValue: Boolean); function GetDTValue: Float; procedure SetDTValue(const aValue: Float); function GetDTIsNull: Boolean; procedure SetDTIsNull(const aValue: Boolean); { Properties } property CENTRO: String read GetCENTROValue write SetCENTROValue; property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; property FILIAL: String read GetFILIALValue write SetFILIALValue; property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property I38: Float read GetI38Value write SetI38Value; property I38IsNull: Boolean read GetI38IsNull write SetI38IsNull; property I40: Float read GetI40Value write SetI40Value; property I40IsNull: Boolean read GetI40IsNull write SetI40IsNull; property I42: Float read GetI42Value write SetI42Value; property I42IsNull: Boolean read GetI42IsNull write SetI42IsNull; property I44: Float read GetI44Value write SetI44Value; property I44IsNull: Boolean read GetI44IsNull write SetI44IsNull; property I46: Float read GetI46Value write SetI46Value; property I46IsNull: Boolean read GetI46IsNull write SetI46IsNull; property I48: Float read GetI48Value write SetI48Value; property I48IsNull: Boolean read GetI48IsNull write SetI48IsNull; property TI: Float read GetTIValue write SetTIValue; property TIIsNull: Boolean read GetTIIsNull write SetTIIsNull; property K38: Float read GetK38Value write SetK38Value; property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Float read GetK40Value write SetK40Value; property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Float read GetK42Value write SetK42Value; property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Float read GetK44Value write SetK44Value; property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Float read GetK46Value write SetK46Value; property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Float read GetK48Value write SetK48Value; property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property TK: Float read GetTKValue write SetTKValue; property TKIsNull: Boolean read GetTKIsNull write SetTKIsNull; property D38: Float read GetD38Value write SetD38Value; property D38IsNull: Boolean read GetD38IsNull write SetD38IsNull; property D40: Float read GetD40Value write SetD40Value; property D40IsNull: Boolean read GetD40IsNull write SetD40IsNull; property D42: Float read GetD42Value write SetD42Value; property D42IsNull: Boolean read GetD42IsNull write SetD42IsNull; property D44: Float read GetD44Value write SetD44Value; property D44IsNull: Boolean read GetD44IsNull write SetD44IsNull; property D46: Float read GetD46Value write SetD46Value; property D46IsNull: Boolean read GetD46IsNull write SetD46IsNull; property D48: Float read GetD48Value write SetD48Value; property D48IsNull: Boolean read GetD48IsNull write SetD48IsNull; property DT: Float read GetDTValue write SetDTValue; property DTIsNull: Boolean read GetDTIsNull write SetDTIsNull; end; { TStockEDIInventarioDataTableRules } TStockEDIInventarioDataTableRules = class(TDADataTableRules, IStockEDIInventario) private protected { Property getters and setters } function GetCENTROValue: String; virtual; procedure SetCENTROValue(const aValue: String); virtual; function GetCENTROIsNull: Boolean; virtual; procedure SetCENTROIsNull(const aValue: Boolean); virtual; function GetFILIALValue: String; virtual; procedure SetFILIALValue(const aValue: String); virtual; function GetFILIALIsNull: Boolean; virtual; procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; procedure SetCODIGOValue(const aValue: String); virtual; function GetCODIGOIsNull: Boolean; virtual; procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; function GetPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; procedure SetCOLORValue(const aValue: String); virtual; function GetCOLORIsNull: Boolean; virtual; procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; function GetTIPO_PRODUCTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; function GetCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetI38Value: Float; virtual; procedure SetI38Value(const aValue: Float); virtual; function GetI38IsNull: Boolean; virtual; procedure SetI38IsNull(const aValue: Boolean); virtual; function GetI40Value: Float; virtual; procedure SetI40Value(const aValue: Float); virtual; function GetI40IsNull: Boolean; virtual; procedure SetI40IsNull(const aValue: Boolean); virtual; function GetI42Value: Float; virtual; procedure SetI42Value(const aValue: Float); virtual; function GetI42IsNull: Boolean; virtual; procedure SetI42IsNull(const aValue: Boolean); virtual; function GetI44Value: Float; virtual; procedure SetI44Value(const aValue: Float); virtual; function GetI44IsNull: Boolean; virtual; procedure SetI44IsNull(const aValue: Boolean); virtual; function GetI46Value: Float; virtual; procedure SetI46Value(const aValue: Float); virtual; function GetI46IsNull: Boolean; virtual; procedure SetI46IsNull(const aValue: Boolean); virtual; function GetI48Value: Float; virtual; procedure SetI48Value(const aValue: Float); virtual; function GetI48IsNull: Boolean; virtual; procedure SetI48IsNull(const aValue: Boolean); virtual; function GetTIValue: Float; virtual; procedure SetTIValue(const aValue: Float); virtual; function GetTIIsNull: Boolean; virtual; procedure SetTIIsNull(const aValue: Boolean); virtual; function GetK38Value: Float; virtual; procedure SetK38Value(const aValue: Float); virtual; function GetK38IsNull: Boolean; virtual; procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Float; virtual; procedure SetK40Value(const aValue: Float); virtual; function GetK40IsNull: Boolean; virtual; procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Float; virtual; procedure SetK42Value(const aValue: Float); virtual; function GetK42IsNull: Boolean; virtual; procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Float; virtual; procedure SetK44Value(const aValue: Float); virtual; function GetK44IsNull: Boolean; virtual; procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Float; virtual; procedure SetK46Value(const aValue: Float); virtual; function GetK46IsNull: Boolean; virtual; procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Float; virtual; procedure SetK48Value(const aValue: Float); virtual; function GetK48IsNull: Boolean; virtual; procedure SetK48IsNull(const aValue: Boolean); virtual; function GetTKValue: Float; virtual; procedure SetTKValue(const aValue: Float); virtual; function GetTKIsNull: Boolean; virtual; procedure SetTKIsNull(const aValue: Boolean); virtual; function GetD38Value: Float; virtual; procedure SetD38Value(const aValue: Float); virtual; function GetD38IsNull: Boolean; virtual; procedure SetD38IsNull(const aValue: Boolean); virtual; function GetD40Value: Float; virtual; procedure SetD40Value(const aValue: Float); virtual; function GetD40IsNull: Boolean; virtual; procedure SetD40IsNull(const aValue: Boolean); virtual; function GetD42Value: Float; virtual; procedure SetD42Value(const aValue: Float); virtual; function GetD42IsNull: Boolean; virtual; procedure SetD42IsNull(const aValue: Boolean); virtual; function GetD44Value: Float; virtual; procedure SetD44Value(const aValue: Float); virtual; function GetD44IsNull: Boolean; virtual; procedure SetD44IsNull(const aValue: Boolean); virtual; function GetD46Value: Float; virtual; procedure SetD46Value(const aValue: Float); virtual; function GetD46IsNull: Boolean; virtual; procedure SetD46IsNull(const aValue: Boolean); virtual; function GetD48Value: Float; virtual; procedure SetD48Value(const aValue: Float); virtual; function GetD48IsNull: Boolean; virtual; procedure SetD48IsNull(const aValue: Boolean); virtual; function GetDTValue: Float; virtual; procedure SetDTValue(const aValue: Float); virtual; function GetDTIsNull: Boolean; virtual; procedure SetDTIsNull(const aValue: Boolean); virtual; { Properties } property CENTRO: String read GetCENTROValue write SetCENTROValue; property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; property FILIAL: String read GetFILIALValue write SetFILIALValue; property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property I38: Float read GetI38Value write SetI38Value; property I38IsNull: Boolean read GetI38IsNull write SetI38IsNull; property I40: Float read GetI40Value write SetI40Value; property I40IsNull: Boolean read GetI40IsNull write SetI40IsNull; property I42: Float read GetI42Value write SetI42Value; property I42IsNull: Boolean read GetI42IsNull write SetI42IsNull; property I44: Float read GetI44Value write SetI44Value; property I44IsNull: Boolean read GetI44IsNull write SetI44IsNull; property I46: Float read GetI46Value write SetI46Value; property I46IsNull: Boolean read GetI46IsNull write SetI46IsNull; property I48: Float read GetI48Value write SetI48Value; property I48IsNull: Boolean read GetI48IsNull write SetI48IsNull; property TI: Float read GetTIValue write SetTIValue; property TIIsNull: Boolean read GetTIIsNull write SetTIIsNull; property K38: Float read GetK38Value write SetK38Value; property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Float read GetK40Value write SetK40Value; property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Float read GetK42Value write SetK42Value; property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Float read GetK44Value write SetK44Value; property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Float read GetK46Value write SetK46Value; property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Float read GetK48Value write SetK48Value; property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property TK: Float read GetTKValue write SetTKValue; property TKIsNull: Boolean read GetTKIsNull write SetTKIsNull; property D38: Float read GetD38Value write SetD38Value; property D38IsNull: Boolean read GetD38IsNull write SetD38IsNull; property D40: Float read GetD40Value write SetD40Value; property D40IsNull: Boolean read GetD40IsNull write SetD40IsNull; property D42: Float read GetD42Value write SetD42Value; property D42IsNull: Boolean read GetD42IsNull write SetD42IsNull; property D44: Float read GetD44Value write SetD44Value; property D44IsNull: Boolean read GetD44IsNull write SetD44IsNull; property D46: Float read GetD46Value write SetD46Value; property D46IsNull: Boolean read GetD46IsNull write SetD46IsNull; property D48: Float read GetD48Value write SetD48Value; property D48IsNull: Boolean read GetD48IsNull write SetD48IsNull; property DT: Float read GetDTValue write SetDTValue; property DTIsNull: Boolean read GetDTIsNull write SetDTIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers; { TStockPrendasCentrosDataTableRules } constructor TStockPrendasCentrosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TStockPrendasCentrosDataTableRules.Destroy; begin inherited; end; function TStockPrendasCentrosDataTableRules.GetCODIGOValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosCODIGO].AsString; end; procedure TStockPrendasCentrosDataTableRules.SetCODIGOValue(const aValue: String); begin DataTable.Fields[idx_StockPrendasCentrosCODIGO].AsString := aValue; end; function TStockPrendasCentrosDataTableRules.GetCODIGOIsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosCODIGO].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetCODIGOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosCODIGO].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetPRODUCTOValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosPRODUCTO].AsString; end; procedure TStockPrendasCentrosDataTableRules.SetPRODUCTOValue(const aValue: String); begin DataTable.Fields[idx_StockPrendasCentrosPRODUCTO].AsString := aValue; end; function TStockPrendasCentrosDataTableRules.GetPRODUCTOIsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosPRODUCTO].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetPRODUCTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosPRODUCTO].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetTIPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosTIPO_PRODUCTO].AsString; end; procedure TStockPrendasCentrosDataTableRules.SetTIPO_PRODUCTOValue(const aValue: String); begin DataTable.Fields[idx_StockPrendasCentrosTIPO_PRODUCTO].AsString := aValue; end; function TStockPrendasCentrosDataTableRules.GetTIPO_PRODUCTOIsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosTIPO_PRODUCTO].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosTIPO_PRODUCTO].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetGRUPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosGRUPO_PRODUCTO].AsString; end; procedure TStockPrendasCentrosDataTableRules.SetGRUPO_PRODUCTOValue(const aValue: String); begin DataTable.Fields[idx_StockPrendasCentrosGRUPO_PRODUCTO].AsString := aValue; end; function TStockPrendasCentrosDataTableRules.GetGRUPO_PRODUCTOIsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosGRUPO_PRODUCTO].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosGRUPO_PRODUCTO].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetCOLECCIONValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosCOLECCION].AsString; end; procedure TStockPrendasCentrosDataTableRules.SetCOLECCIONValue(const aValue: String); begin DataTable.Fields[idx_StockPrendasCentrosCOLECCION].AsString := aValue; end; function TStockPrendasCentrosDataTableRules.GetCOLECCIONIsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosCOLECCION].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetCOLECCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosCOLECCION].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetCOLORValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosCOLOR].AsString; end; procedure TStockPrendasCentrosDataTableRules.SetCOLORValue(const aValue: String); begin DataTable.Fields[idx_StockPrendasCentrosCOLOR].AsString := aValue; end; function TStockPrendasCentrosDataTableRules.GetCOLORIsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosCOLOR].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetCOLORIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosCOLOR].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetT38Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT38].AsFloat; end; procedure TStockPrendasCentrosDataTableRules.SetT38Value(const aValue: Float); begin DataTable.Fields[idx_StockPrendasCentrosT38].AsFloat := aValue; end; function TStockPrendasCentrosDataTableRules.GetT38IsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosT38].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetT38IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosT38].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetT40Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT40].AsFloat; end; procedure TStockPrendasCentrosDataTableRules.SetT40Value(const aValue: Float); begin DataTable.Fields[idx_StockPrendasCentrosT40].AsFloat := aValue; end; function TStockPrendasCentrosDataTableRules.GetT40IsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosT40].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetT40IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosT40].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetT42Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT42].AsFloat; end; procedure TStockPrendasCentrosDataTableRules.SetT42Value(const aValue: Float); begin DataTable.Fields[idx_StockPrendasCentrosT42].AsFloat := aValue; end; function TStockPrendasCentrosDataTableRules.GetT42IsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosT42].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetT42IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosT42].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetT44Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT44].AsFloat; end; procedure TStockPrendasCentrosDataTableRules.SetT44Value(const aValue: Float); begin DataTable.Fields[idx_StockPrendasCentrosT44].AsFloat := aValue; end; function TStockPrendasCentrosDataTableRules.GetT44IsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosT44].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetT44IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosT44].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetT46Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT46].AsFloat; end; procedure TStockPrendasCentrosDataTableRules.SetT46Value(const aValue: Float); begin DataTable.Fields[idx_StockPrendasCentrosT46].AsFloat := aValue; end; function TStockPrendasCentrosDataTableRules.GetT46IsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosT46].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetT46IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosT46].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetT48Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT48].AsFloat; end; procedure TStockPrendasCentrosDataTableRules.SetT48Value(const aValue: Float); begin DataTable.Fields[idx_StockPrendasCentrosT48].AsFloat := aValue; end; function TStockPrendasCentrosDataTableRules.GetT48IsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosT48].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetT48IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosT48].AsVariant := Null; end; function TStockPrendasCentrosDataTableRules.GetTOTALValue: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosTOTAL].AsFloat; end; procedure TStockPrendasCentrosDataTableRules.SetTOTALValue(const aValue: Float); begin DataTable.Fields[idx_StockPrendasCentrosTOTAL].AsFloat := aValue; end; function TStockPrendasCentrosDataTableRules.GetTOTALIsNull: boolean; begin result := DataTable.Fields[idx_StockPrendasCentrosTOTAL].IsNull; end; procedure TStockPrendasCentrosDataTableRules.SetTOTALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockPrendasCentrosTOTAL].AsVariant := Null; end; { TStockEDIDataTableRules } constructor TStockEDIDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TStockEDIDataTableRules.Destroy; begin inherited; end; function TStockEDIDataTableRules.GetCENTROValue: String; begin result := DataTable.Fields[idx_StockEDICENTRO].AsString; end; procedure TStockEDIDataTableRules.SetCENTROValue(const aValue: String); begin DataTable.Fields[idx_StockEDICENTRO].AsString := aValue; end; function TStockEDIDataTableRules.GetCENTROIsNull: boolean; begin result := DataTable.Fields[idx_StockEDICENTRO].IsNull; end; procedure TStockEDIDataTableRules.SetCENTROIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDICENTRO].AsVariant := Null; end; function TStockEDIDataTableRules.GetFILIALValue: String; begin result := DataTable.Fields[idx_StockEDIFILIAL].AsString; end; procedure TStockEDIDataTableRules.SetFILIALValue(const aValue: String); begin DataTable.Fields[idx_StockEDIFILIAL].AsString := aValue; end; function TStockEDIDataTableRules.GetFILIALIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIFILIAL].IsNull; end; procedure TStockEDIDataTableRules.SetFILIALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIFILIAL].AsVariant := Null; end; function TStockEDIDataTableRules.GetCODIGOValue: String; begin result := DataTable.Fields[idx_StockEDICODIGO].AsString; end; procedure TStockEDIDataTableRules.SetCODIGOValue(const aValue: String); begin DataTable.Fields[idx_StockEDICODIGO].AsString := aValue; end; function TStockEDIDataTableRules.GetCODIGOIsNull: boolean; begin result := DataTable.Fields[idx_StockEDICODIGO].IsNull; end; procedure TStockEDIDataTableRules.SetCODIGOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDICODIGO].AsVariant := Null; end; function TStockEDIDataTableRules.GetPRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDIPRODUCTO].AsString; end; procedure TStockEDIDataTableRules.SetPRODUCTOValue(const aValue: String); begin DataTable.Fields[idx_StockEDIPRODUCTO].AsString := aValue; end; function TStockEDIDataTableRules.GetPRODUCTOIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIPRODUCTO].IsNull; end; procedure TStockEDIDataTableRules.SetPRODUCTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIPRODUCTO].AsVariant := Null; end; function TStockEDIDataTableRules.GetTIPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDITIPO_PRODUCTO].AsString; end; procedure TStockEDIDataTableRules.SetTIPO_PRODUCTOValue(const aValue: String); begin DataTable.Fields[idx_StockEDITIPO_PRODUCTO].AsString := aValue; end; function TStockEDIDataTableRules.GetTIPO_PRODUCTOIsNull: boolean; begin result := DataTable.Fields[idx_StockEDITIPO_PRODUCTO].IsNull; end; procedure TStockEDIDataTableRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDITIPO_PRODUCTO].AsVariant := Null; end; function TStockEDIDataTableRules.GetGRUPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDIGRUPO_PRODUCTO].AsString; end; procedure TStockEDIDataTableRules.SetGRUPO_PRODUCTOValue(const aValue: String); begin DataTable.Fields[idx_StockEDIGRUPO_PRODUCTO].AsString := aValue; end; function TStockEDIDataTableRules.GetGRUPO_PRODUCTOIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIGRUPO_PRODUCTO].IsNull; end; procedure TStockEDIDataTableRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIGRUPO_PRODUCTO].AsVariant := Null; end; function TStockEDIDataTableRules.GetCOLECCIONValue: String; begin result := DataTable.Fields[idx_StockEDICOLECCION].AsString; end; procedure TStockEDIDataTableRules.SetCOLECCIONValue(const aValue: String); begin DataTable.Fields[idx_StockEDICOLECCION].AsString := aValue; end; function TStockEDIDataTableRules.GetCOLECCIONIsNull: boolean; begin result := DataTable.Fields[idx_StockEDICOLECCION].IsNull; end; procedure TStockEDIDataTableRules.SetCOLECCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDICOLECCION].AsVariant := Null; end; function TStockEDIDataTableRules.GetCOLORValue: String; begin result := DataTable.Fields[idx_StockEDICOLOR].AsString; end; procedure TStockEDIDataTableRules.SetCOLORValue(const aValue: String); begin DataTable.Fields[idx_StockEDICOLOR].AsString := aValue; end; function TStockEDIDataTableRules.GetCOLORIsNull: boolean; begin result := DataTable.Fields[idx_StockEDICOLOR].IsNull; end; procedure TStockEDIDataTableRules.SetCOLORIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDICOLOR].AsVariant := Null; end; function TStockEDIDataTableRules.GetE38Value: Float; begin result := DataTable.Fields[idx_StockEDIE38].AsFloat; end; procedure TStockEDIDataTableRules.SetE38Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIE38].AsFloat := aValue; end; function TStockEDIDataTableRules.GetE38IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIE38].IsNull; end; procedure TStockEDIDataTableRules.SetE38IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIE38].AsVariant := Null; end; function TStockEDIDataTableRules.GetE40Value: Float; begin result := DataTable.Fields[idx_StockEDIE40].AsFloat; end; procedure TStockEDIDataTableRules.SetE40Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIE40].AsFloat := aValue; end; function TStockEDIDataTableRules.GetE40IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIE40].IsNull; end; procedure TStockEDIDataTableRules.SetE40IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIE40].AsVariant := Null; end; function TStockEDIDataTableRules.GetE42Value: Float; begin result := DataTable.Fields[idx_StockEDIE42].AsFloat; end; procedure TStockEDIDataTableRules.SetE42Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIE42].AsFloat := aValue; end; function TStockEDIDataTableRules.GetE42IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIE42].IsNull; end; procedure TStockEDIDataTableRules.SetE42IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIE42].AsVariant := Null; end; function TStockEDIDataTableRules.GetE44Value: Float; begin result := DataTable.Fields[idx_StockEDIE44].AsFloat; end; procedure TStockEDIDataTableRules.SetE44Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIE44].AsFloat := aValue; end; function TStockEDIDataTableRules.GetE44IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIE44].IsNull; end; procedure TStockEDIDataTableRules.SetE44IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIE44].AsVariant := Null; end; function TStockEDIDataTableRules.GetE46Value: Float; begin result := DataTable.Fields[idx_StockEDIE46].AsFloat; end; procedure TStockEDIDataTableRules.SetE46Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIE46].AsFloat := aValue; end; function TStockEDIDataTableRules.GetE46IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIE46].IsNull; end; procedure TStockEDIDataTableRules.SetE46IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIE46].AsVariant := Null; end; function TStockEDIDataTableRules.GetE48Value: Float; begin result := DataTable.Fields[idx_StockEDIE48].AsFloat; end; procedure TStockEDIDataTableRules.SetE48Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIE48].AsFloat := aValue; end; function TStockEDIDataTableRules.GetE48IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIE48].IsNull; end; procedure TStockEDIDataTableRules.SetE48IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIE48].AsVariant := Null; end; function TStockEDIDataTableRules.GetTEValue: Float; begin result := DataTable.Fields[idx_StockEDITE].AsFloat; end; procedure TStockEDIDataTableRules.SetTEValue(const aValue: Float); begin DataTable.Fields[idx_StockEDITE].AsFloat := aValue; end; function TStockEDIDataTableRules.GetTEIsNull: boolean; begin result := DataTable.Fields[idx_StockEDITE].IsNull; end; procedure TStockEDIDataTableRules.SetTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDITE].AsVariant := Null; end; function TStockEDIDataTableRules.GetS38Value: Float; begin result := DataTable.Fields[idx_StockEDIS38].AsFloat; end; procedure TStockEDIDataTableRules.SetS38Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIS38].AsFloat := aValue; end; function TStockEDIDataTableRules.GetS38IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIS38].IsNull; end; procedure TStockEDIDataTableRules.SetS38IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIS38].AsVariant := Null; end; function TStockEDIDataTableRules.GetS40Value: Float; begin result := DataTable.Fields[idx_StockEDIS40].AsFloat; end; procedure TStockEDIDataTableRules.SetS40Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIS40].AsFloat := aValue; end; function TStockEDIDataTableRules.GetS40IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIS40].IsNull; end; procedure TStockEDIDataTableRules.SetS40IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIS40].AsVariant := Null; end; function TStockEDIDataTableRules.GetS42Value: Float; begin result := DataTable.Fields[idx_StockEDIS42].AsFloat; end; procedure TStockEDIDataTableRules.SetS42Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIS42].AsFloat := aValue; end; function TStockEDIDataTableRules.GetS42IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIS42].IsNull; end; procedure TStockEDIDataTableRules.SetS42IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIS42].AsVariant := Null; end; function TStockEDIDataTableRules.GetS44Value: Float; begin result := DataTable.Fields[idx_StockEDIS44].AsFloat; end; procedure TStockEDIDataTableRules.SetS44Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIS44].AsFloat := aValue; end; function TStockEDIDataTableRules.GetS44IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIS44].IsNull; end; procedure TStockEDIDataTableRules.SetS44IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIS44].AsVariant := Null; end; function TStockEDIDataTableRules.GetS46Value: Float; begin result := DataTable.Fields[idx_StockEDIS46].AsFloat; end; procedure TStockEDIDataTableRules.SetS46Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIS46].AsFloat := aValue; end; function TStockEDIDataTableRules.GetS46IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIS46].IsNull; end; procedure TStockEDIDataTableRules.SetS46IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIS46].AsVariant := Null; end; function TStockEDIDataTableRules.GetS48Value: Float; begin result := DataTable.Fields[idx_StockEDIS48].AsFloat; end; procedure TStockEDIDataTableRules.SetS48Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIS48].AsFloat := aValue; end; function TStockEDIDataTableRules.GetS48IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIS48].IsNull; end; procedure TStockEDIDataTableRules.SetS48IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIS48].AsVariant := Null; end; function TStockEDIDataTableRules.GetTSValue: Float; begin result := DataTable.Fields[idx_StockEDITS].AsFloat; end; procedure TStockEDIDataTableRules.SetTSValue(const aValue: Float); begin DataTable.Fields[idx_StockEDITS].AsFloat := aValue; end; function TStockEDIDataTableRules.GetTSIsNull: boolean; begin result := DataTable.Fields[idx_StockEDITS].IsNull; end; procedure TStockEDIDataTableRules.SetTSIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDITS].AsVariant := Null; end; function TStockEDIDataTableRules.GetK38Value: Float; begin result := DataTable.Fields[idx_StockEDIK38].AsFloat; end; procedure TStockEDIDataTableRules.SetK38Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIK38].AsFloat := aValue; end; function TStockEDIDataTableRules.GetK38IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIK38].IsNull; end; procedure TStockEDIDataTableRules.SetK38IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIK38].AsVariant := Null; end; function TStockEDIDataTableRules.GetK40Value: Float; begin result := DataTable.Fields[idx_StockEDIK40].AsFloat; end; procedure TStockEDIDataTableRules.SetK40Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIK40].AsFloat := aValue; end; function TStockEDIDataTableRules.GetK40IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIK40].IsNull; end; procedure TStockEDIDataTableRules.SetK40IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIK40].AsVariant := Null; end; function TStockEDIDataTableRules.GetK42Value: Float; begin result := DataTable.Fields[idx_StockEDIK42].AsFloat; end; procedure TStockEDIDataTableRules.SetK42Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIK42].AsFloat := aValue; end; function TStockEDIDataTableRules.GetK42IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIK42].IsNull; end; procedure TStockEDIDataTableRules.SetK42IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIK42].AsVariant := Null; end; function TStockEDIDataTableRules.GetK44Value: Float; begin result := DataTable.Fields[idx_StockEDIK44].AsFloat; end; procedure TStockEDIDataTableRules.SetK44Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIK44].AsFloat := aValue; end; function TStockEDIDataTableRules.GetK44IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIK44].IsNull; end; procedure TStockEDIDataTableRules.SetK44IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIK44].AsVariant := Null; end; function TStockEDIDataTableRules.GetK46Value: Float; begin result := DataTable.Fields[idx_StockEDIK46].AsFloat; end; procedure TStockEDIDataTableRules.SetK46Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIK46].AsFloat := aValue; end; function TStockEDIDataTableRules.GetK46IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIK46].IsNull; end; procedure TStockEDIDataTableRules.SetK46IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIK46].AsVariant := Null; end; function TStockEDIDataTableRules.GetK48Value: Float; begin result := DataTable.Fields[idx_StockEDIK48].AsFloat; end; procedure TStockEDIDataTableRules.SetK48Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIK48].AsFloat := aValue; end; function TStockEDIDataTableRules.GetK48IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIK48].IsNull; end; procedure TStockEDIDataTableRules.SetK48IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIK48].AsVariant := Null; end; function TStockEDIDataTableRules.GetKTValue: Float; begin result := DataTable.Fields[idx_StockEDIKT].AsFloat; end; procedure TStockEDIDataTableRules.SetKTValue(const aValue: Float); begin DataTable.Fields[idx_StockEDIKT].AsFloat := aValue; end; function TStockEDIDataTableRules.GetKTIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIKT].IsNull; end; procedure TStockEDIDataTableRules.SetKTIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIKT].AsVariant := Null; end; { TStockVARELADataTableRules } constructor TStockVARELADataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TStockVARELADataTableRules.Destroy; begin inherited; end; function TStockVARELADataTableRules.GetFILIALValue: String; begin result := DataTable.Fields[idx_StockVARELAFILIAL].AsString; end; procedure TStockVARELADataTableRules.SetFILIALValue(const aValue: String); begin DataTable.Fields[idx_StockVARELAFILIAL].AsString := aValue; end; function TStockVARELADataTableRules.GetFILIALIsNull: boolean; begin result := DataTable.Fields[idx_StockVARELAFILIAL].IsNull; end; procedure TStockVARELADataTableRules.SetFILIALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELAFILIAL].AsVariant := Null; end; function TStockVARELADataTableRules.GetCODIGOValue: String; begin result := DataTable.Fields[idx_StockVARELACODIGO].AsString; end; procedure TStockVARELADataTableRules.SetCODIGOValue(const aValue: String); begin DataTable.Fields[idx_StockVARELACODIGO].AsString := aValue; end; function TStockVARELADataTableRules.GetCODIGOIsNull: boolean; begin result := DataTable.Fields[idx_StockVARELACODIGO].IsNull; end; procedure TStockVARELADataTableRules.SetCODIGOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELACODIGO].AsVariant := Null; end; function TStockVARELADataTableRules.GetCOLORValue: String; begin result := DataTable.Fields[idx_StockVARELACOLOR].AsString; end; procedure TStockVARELADataTableRules.SetCOLORValue(const aValue: String); begin DataTable.Fields[idx_StockVARELACOLOR].AsString := aValue; end; function TStockVARELADataTableRules.GetCOLORIsNull: boolean; begin result := DataTable.Fields[idx_StockVARELACOLOR].IsNull; end; procedure TStockVARELADataTableRules.SetCOLORIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELACOLOR].AsVariant := Null; end; function TStockVARELADataTableRules.GetPRODUCTOValue: String; begin result := DataTable.Fields[idx_StockVARELAPRODUCTO].AsString; end; procedure TStockVARELADataTableRules.SetPRODUCTOValue(const aValue: String); begin DataTable.Fields[idx_StockVARELAPRODUCTO].AsString := aValue; end; function TStockVARELADataTableRules.GetPRODUCTOIsNull: boolean; begin result := DataTable.Fields[idx_StockVARELAPRODUCTO].IsNull; end; procedure TStockVARELADataTableRules.SetPRODUCTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELAPRODUCTO].AsVariant := Null; end; function TStockVARELADataTableRules.GetTIPO_PRODUTOValue: String; begin result := DataTable.Fields[idx_StockVARELATIPO_PRODUTO].AsString; end; procedure TStockVARELADataTableRules.SetTIPO_PRODUTOValue(const aValue: String); begin DataTable.Fields[idx_StockVARELATIPO_PRODUTO].AsString := aValue; end; function TStockVARELADataTableRules.GetTIPO_PRODUTOIsNull: boolean; begin result := DataTable.Fields[idx_StockVARELATIPO_PRODUTO].IsNull; end; procedure TStockVARELADataTableRules.SetTIPO_PRODUTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELATIPO_PRODUTO].AsVariant := Null; end; function TStockVARELADataTableRules.GetGRUPO_PRODUTOValue: String; begin result := DataTable.Fields[idx_StockVARELAGRUPO_PRODUTO].AsString; end; procedure TStockVARELADataTableRules.SetGRUPO_PRODUTOValue(const aValue: String); begin DataTable.Fields[idx_StockVARELAGRUPO_PRODUTO].AsString := aValue; end; function TStockVARELADataTableRules.GetGRUPO_PRODUTOIsNull: boolean; begin result := DataTable.Fields[idx_StockVARELAGRUPO_PRODUTO].IsNull; end; procedure TStockVARELADataTableRules.SetGRUPO_PRODUTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELAGRUPO_PRODUTO].AsVariant := Null; end; function TStockVARELADataTableRules.GetCOLECCIONValue: String; begin result := DataTable.Fields[idx_StockVARELACOLECCION].AsString; end; procedure TStockVARELADataTableRules.SetCOLECCIONValue(const aValue: String); begin DataTable.Fields[idx_StockVARELACOLECCION].AsString := aValue; end; function TStockVARELADataTableRules.GetCOLECCIONIsNull: boolean; begin result := DataTable.Fields[idx_StockVARELACOLECCION].IsNull; end; procedure TStockVARELADataTableRules.SetCOLECCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELACOLECCION].AsVariant := Null; end; function TStockVARELADataTableRules.GetK38Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK38].AsInteger; end; procedure TStockVARELADataTableRules.SetK38Value(const aValue: Integer); begin DataTable.Fields[idx_StockVARELAK38].AsInteger := aValue; end; function TStockVARELADataTableRules.GetK38IsNull: boolean; begin result := DataTable.Fields[idx_StockVARELAK38].IsNull; end; procedure TStockVARELADataTableRules.SetK38IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELAK38].AsVariant := Null; end; function TStockVARELADataTableRules.GetK40Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK40].AsInteger; end; procedure TStockVARELADataTableRules.SetK40Value(const aValue: Integer); begin DataTable.Fields[idx_StockVARELAK40].AsInteger := aValue; end; function TStockVARELADataTableRules.GetK40IsNull: boolean; begin result := DataTable.Fields[idx_StockVARELAK40].IsNull; end; procedure TStockVARELADataTableRules.SetK40IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELAK40].AsVariant := Null; end; function TStockVARELADataTableRules.GetK42Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK42].AsInteger; end; procedure TStockVARELADataTableRules.SetK42Value(const aValue: Integer); begin DataTable.Fields[idx_StockVARELAK42].AsInteger := aValue; end; function TStockVARELADataTableRules.GetK42IsNull: boolean; begin result := DataTable.Fields[idx_StockVARELAK42].IsNull; end; procedure TStockVARELADataTableRules.SetK42IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELAK42].AsVariant := Null; end; function TStockVARELADataTableRules.GetK44Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK44].AsInteger; end; procedure TStockVARELADataTableRules.SetK44Value(const aValue: Integer); begin DataTable.Fields[idx_StockVARELAK44].AsInteger := aValue; end; function TStockVARELADataTableRules.GetK44IsNull: boolean; begin result := DataTable.Fields[idx_StockVARELAK44].IsNull; end; procedure TStockVARELADataTableRules.SetK44IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELAK44].AsVariant := Null; end; function TStockVARELADataTableRules.GetK46Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK46].AsInteger; end; procedure TStockVARELADataTableRules.SetK46Value(const aValue: Integer); begin DataTable.Fields[idx_StockVARELAK46].AsInteger := aValue; end; function TStockVARELADataTableRules.GetK46IsNull: boolean; begin result := DataTable.Fields[idx_StockVARELAK46].IsNull; end; procedure TStockVARELADataTableRules.SetK46IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELAK46].AsVariant := Null; end; function TStockVARELADataTableRules.GetK48Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK48].AsInteger; end; procedure TStockVARELADataTableRules.SetK48Value(const aValue: Integer); begin DataTable.Fields[idx_StockVARELAK48].AsInteger := aValue; end; function TStockVARELADataTableRules.GetK48IsNull: boolean; begin result := DataTable.Fields[idx_StockVARELAK48].IsNull; end; procedure TStockVARELADataTableRules.SetK48IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELAK48].AsVariant := Null; end; function TStockVARELADataTableRules.GetKTValue: Integer; begin result := DataTable.Fields[idx_StockVARELAKT].AsInteger; end; procedure TStockVARELADataTableRules.SetKTValue(const aValue: Integer); begin DataTable.Fields[idx_StockVARELAKT].AsInteger := aValue; end; function TStockVARELADataTableRules.GetKTIsNull: boolean; begin result := DataTable.Fields[idx_StockVARELAKT].IsNull; end; procedure TStockVARELADataTableRules.SetKTIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockVARELAKT].AsVariant := Null; end; { TStockEDIInventarioDataTableRules } constructor TStockEDIInventarioDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TStockEDIInventarioDataTableRules.Destroy; begin inherited; end; function TStockEDIInventarioDataTableRules.GetCENTROValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioCENTRO].AsString; end; procedure TStockEDIInventarioDataTableRules.SetCENTROValue(const aValue: String); begin DataTable.Fields[idx_StockEDIInventarioCENTRO].AsString := aValue; end; function TStockEDIInventarioDataTableRules.GetCENTROIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioCENTRO].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetCENTROIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioCENTRO].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetFILIALValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioFILIAL].AsString; end; procedure TStockEDIInventarioDataTableRules.SetFILIALValue(const aValue: String); begin DataTable.Fields[idx_StockEDIInventarioFILIAL].AsString := aValue; end; function TStockEDIInventarioDataTableRules.GetFILIALIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioFILIAL].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetFILIALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioFILIAL].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetCODIGOValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioCODIGO].AsString; end; procedure TStockEDIInventarioDataTableRules.SetCODIGOValue(const aValue: String); begin DataTable.Fields[idx_StockEDIInventarioCODIGO].AsString := aValue; end; function TStockEDIInventarioDataTableRules.GetCODIGOIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioCODIGO].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetCODIGOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioCODIGO].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetPRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioPRODUCTO].AsString; end; procedure TStockEDIInventarioDataTableRules.SetPRODUCTOValue(const aValue: String); begin DataTable.Fields[idx_StockEDIInventarioPRODUCTO].AsString := aValue; end; function TStockEDIInventarioDataTableRules.GetPRODUCTOIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioPRODUCTO].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetPRODUCTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioPRODUCTO].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetCOLORValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioCOLOR].AsString; end; procedure TStockEDIInventarioDataTableRules.SetCOLORValue(const aValue: String); begin DataTable.Fields[idx_StockEDIInventarioCOLOR].AsString := aValue; end; function TStockEDIInventarioDataTableRules.GetCOLORIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioCOLOR].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetCOLORIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioCOLOR].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetTIPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioTIPO_PRODUCTO].AsString; end; procedure TStockEDIInventarioDataTableRules.SetTIPO_PRODUCTOValue(const aValue: String); begin DataTable.Fields[idx_StockEDIInventarioTIPO_PRODUCTO].AsString := aValue; end; function TStockEDIInventarioDataTableRules.GetTIPO_PRODUCTOIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioTIPO_PRODUCTO].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioTIPO_PRODUCTO].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetGRUPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioGRUPO_PRODUCTO].AsString; end; procedure TStockEDIInventarioDataTableRules.SetGRUPO_PRODUCTOValue(const aValue: String); begin DataTable.Fields[idx_StockEDIInventarioGRUPO_PRODUCTO].AsString := aValue; end; function TStockEDIInventarioDataTableRules.GetGRUPO_PRODUCTOIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioGRUPO_PRODUCTO].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioGRUPO_PRODUCTO].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetCOLECCIONValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioCOLECCION].AsString; end; procedure TStockEDIInventarioDataTableRules.SetCOLECCIONValue(const aValue: String); begin DataTable.Fields[idx_StockEDIInventarioCOLECCION].AsString := aValue; end; function TStockEDIInventarioDataTableRules.GetCOLECCIONIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioCOLECCION].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetCOLECCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioCOLECCION].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetI38Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI38].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetI38Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioI38].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetI38IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioI38].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetI38IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioI38].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetI40Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI40].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetI40Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioI40].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetI40IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioI40].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetI40IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioI40].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetI42Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI42].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetI42Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioI42].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetI42IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioI42].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetI42IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioI42].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetI44Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI44].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetI44Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioI44].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetI44IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioI44].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetI44IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioI44].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetI46Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI46].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetI46Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioI46].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetI46IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioI46].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetI46IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioI46].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetI48Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI48].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetI48Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioI48].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetI48IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioI48].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetI48IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioI48].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetTIValue: Float; begin result := DataTable.Fields[idx_StockEDIInventarioTI].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetTIValue(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioTI].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetTIIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioTI].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetTIIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioTI].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetK38Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK38].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetK38Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioK38].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetK38IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioK38].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetK38IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioK38].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetK40Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK40].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetK40Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioK40].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetK40IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioK40].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetK40IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioK40].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetK42Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK42].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetK42Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioK42].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetK42IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioK42].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetK42IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioK42].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetK44Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK44].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetK44Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioK44].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetK44IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioK44].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetK44IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioK44].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetK46Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK46].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetK46Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioK46].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetK46IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioK46].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetK46IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioK46].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetK48Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK48].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetK48Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioK48].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetK48IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioK48].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetK48IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioK48].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetTKValue: Float; begin result := DataTable.Fields[idx_StockEDIInventarioTK].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetTKValue(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioTK].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetTKIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioTK].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetTKIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioTK].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetD38Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD38].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetD38Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioD38].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetD38IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioD38].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetD38IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioD38].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetD40Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD40].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetD40Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioD40].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetD40IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioD40].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetD40IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioD40].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetD42Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD42].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetD42Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioD42].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetD42IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioD42].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetD42IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioD42].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetD44Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD44].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetD44Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioD44].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetD44IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioD44].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetD44IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioD44].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetD46Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD46].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetD46Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioD46].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetD46IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioD46].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetD46IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioD46].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetD48Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD48].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetD48Value(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioD48].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetD48IsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioD48].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetD48IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioD48].AsVariant := Null; end; function TStockEDIInventarioDataTableRules.GetDTValue: Float; begin result := DataTable.Fields[idx_StockEDIInventarioDT].AsFloat; end; procedure TStockEDIInventarioDataTableRules.SetDTValue(const aValue: Float); begin DataTable.Fields[idx_StockEDIInventarioDT].AsFloat := aValue; end; function TStockEDIInventarioDataTableRules.GetDTIsNull: boolean; begin result := DataTable.Fields[idx_StockEDIInventarioDT].IsNull; end; procedure TStockEDIInventarioDataTableRules.SetDTIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_StockEDIInventarioDT].AsVariant := Null; end; initialization RegisterDataTableRules(RID_StockPrendasCentros, TStockPrendasCentrosDataTableRules); RegisterDataTableRules(RID_StockEDI, TStockEDIDataTableRules); RegisterDataTableRules(RID_StockVARELA, TStockVARELADataTableRules); RegisterDataTableRules(RID_StockEDIInventario, TStockEDIInventarioDataTableRules); end.