DEFINITION MODULE DBFErcomp;
FROM ModBase3 IMPORT DBFile;
FROM DBIndxes IMPORT DBIndex;
FROM NumTypes IMPORT Real8;
FROM DateFunctions IMPORT Date;
TYPE
ErcompRec = RECORD
    ERKEY : ARRAY[0..  8] OF CHAR;;   (*  *)
    ERNAME : ARRAY[0.. 30] OF CHAR;;   (*  *)
    ERTYPE     : ARRAY[0.. 12] OF CHAR;;   (*  *)
    RELATED_1  : ARRAY[0..  8] OF CHAR;;   (*  *)
    RELATED_2  : ARRAY[0..  8] OF CHAR;;   (*  *)
    ERDESC     : Memo;   (*  *)
END;


VAR
  ErcompDBF: DBFile;
  ActErcompIdx : DBIndex;   
                     (* active index for next/prev/first/last cmds*)

  ErkeyIdx : DBIndex;  

  ErnameIdx : DBIndex;  



  PROCEDURE MoveErcompToDBF( REC : ErcompRec);
  PROCEDURE MoveErcompFromDBF(VAR REC : ErcompRec);


 PROCEDURE OpenErcompDBF(WithIdx : BOOLEAN);


 PROCEDURE CloseErcompDBF();


PROCEDURE FindErcompByErkey( Key : ARRAY OF CHAR) : BOOLEAN;

PROCEDURE FindErcompByErname( Key : ARRAY OF CHAR) : BOOLEAN;

  PROCEDURE NextErcomp () : BOOLEAN;
  PROCEDURE PrevErcomp () : BOOLEAN;
  PROCEDURE FirstErcomp ();
  PROCEDURE LastErcomp ();
END  DBFErcomp.