TMcrPay = class(TCheckItem)

property InputType : TInputType read FInputType write FInputType;

property PayLineType : TPayLineType read FPayLineType write FPayLineType;

property CardNum : string read FCardNum write FCardNum;

property ExpDate : integer read FExpDate write fExpDate;

property AuthCode : string read FAuthCode write FAuthCode;

property Track2 : string read FTrack2 write FTrack2;

property AccountIdent : Int8 read FAccountIdent write FAccountIdent;

property Owner : string read FOwner write FOwner;

property MaxAmount : TMoney read FMaxAmount write SetMaxAmount;

property FullyPaid : boolean read FFullyPaid write FFullyPaid;

property Amount : TMoney read FAmount write FAmount stored False;

property AddByInterface:tIdent read fAddByInterface write fAddByInterface;

property Defaulter : TIdent read FDefaulter write FDefaulter;

property ExtTransactionInfo: string255 read FExtTransactionInfo write FExtTransactionInfo;

end;