39 lines
900 B
Plaintext
39 lines
900 B
Plaintext
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.
|
|
|