TMcrPay = class(TCheckItem)
published
Code Block | ||
---|---|---|
| ||
property InputType : TInputType TInputType read FInputType FInputType write FInputType; property PayLineType : TPayLineType read FPayLineType FPayLineType write FPayLineType; property CardNum : string string read FCardNum FCardNum write FCardNum; property ExpDate : integer integer read FExpDate FExpDate write FExpDatefExpDate; property AuthCode : string string read FAuthCode FAuthCode write FAuthCode; property Track2 : string string read FTrack2 FTrack2 write FTrack2; property AccountIdent : Int8 Int8 read FAccountIdent FAccountIdent write FAccountIdent; property Owner : string string readread FOwner FOwner write FOwner; property MaxAmount : TMoney TMoney read FMaxAmount FMaxAmount write SetMaxAmount; property FullyPaid : boolean boolean read FFullyPaid FFullyPaid write FFullyPaid; property Amount : TMoney TMoney read FAmount FAmount write FAmount stored False; property AddByInterface:tIdent tIdent read fAddByInterface write fAddByInterface; property Defaulter : TIdent TIdent read FDefaulter FDefaulter write FDefaulter; property ExtTransactionInfo: string255 read FExtTransactionInfo write FExtTransactionInfo; end; |