Page History

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;

  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;