unit DefectSaleItem; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, w_bases, wItem; type TDefectSaleItem = class(TwItem) private { Private declarations } FDefDate: AnsiString; FOrdCode: AnsiString; FQty: AnsiString; FGoodQty: AnsiString; FDefQty: AnsiString; FDescriptions: AnsiString; protected { Protected declarations } public { Public declarations } published { Published declarations } property DefDate: AnsiString read FDefDate write FDefDate; property OrdCode: AnsiString read FOrdCode write FOrdCode; property Qty: AnsiString read FQty write FQty; property GoodQty: AnsiString read FGoodQty write FGoodQty; property DefQty: AnsiString read FDefQty write FDefQty; property Descriptions: AnsiString read FDescriptions write FDescriptions; end; implementation end.