TMcrPay = class(TCheckItem)

published

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;