3166 lines
118 KiB
ObjectPascal
3166 lines
118 KiB
ObjectPascal
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.
|