Topspeed_JPI/TS-V3/MODBASE/DBFDEF.TPL

>>FILE NAME = DBF@TABLENAME@.DEF
DEFINITION MODULE DBF@TABLENAME@;
FROM ModBase3 IMPORT DBFile;
FROM DBIndxes IMPORT DBIndex;
FROM NumTypes IMPORT Real8;
FROM DateFunctions IMPORT Date;
TYPE
>>MAKE RECORD<<


VAR
  @TABLENAME@DBF: DBFile;
  Act@TABLENAME@Idx : DBIndex;   
                     (* active index for next/prev/first/last cmds*)
>>FOR EACH IDX<<
  @IDX@Idx : DBIndex;  
>>END IDX<<



  PROCEDURE Move@TABLENAME@ToDBF( REC : @TABLENAME@Rec);
  PROCEDURE Move@TABLENAME@FromDBF(VAR REC : @TABLENAME@Rec);


 PROCEDURE Open@TABLENAME@DBF(WithIdx : BOOLEAN);


 PROCEDURE Close@TABLENAME@DBF();

>>FOR EACH IDX<<
PROCEDURE Find@TABLENAME@By@IDX@( Key : ARRAY OF CHAR) : BOOLEAN;
>>END IDX<<

  PROCEDURE Next@TABLENAME@ () : BOOLEAN;
  PROCEDURE Prev@TABLENAME@ () : BOOLEAN;
  PROCEDURE First@TABLENAME@ ();
  PROCEDURE Last@TABLENAME@ ();
END  DBF@TABLENAME@.