DEFINITION MODULE DBFSalesrec;
(*
 *  ModBase
 *  Release 3.0
 *  (c) Copyright 1986 - 1991 PMI
 *  P.O. Box 8402
 *  Green Bay Wi 53308
 *  All Rights Reserved
 *  by Ed Ross  
 *)

FROM ModBase3 IMPORT DBFile;
FROM DBIndxes IMPORT DBIndex;
FROM NumTypes IMPORT Real8;
FROM DateFunctions IMPORT Date;
TYPE
SalesRec = RECORD
    ITEMNBR : ARRAY[0.. 10] OF CHAR;;   (* Item number *)
    Sold    : ARRAY[1..12] OF Real8;
END;


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

  SalesRecIdx : DBIndex;



  PROCEDURE MoveSalesrecToDBF( REC : SalesRec);
  PROCEDURE MoveSalesrecFromDBF(VAR REC : SalesRec);


 PROCEDURE OpenSalesrecDBF(WithIdx : BOOLEAN);


 PROCEDURE CloseSalesrecDBF();


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

  PROCEDURE NextSalesrec () : BOOLEAN;
  PROCEDURE PrevSalesrec () : BOOLEAN;
  PROCEDURE FirstSalesrec ();
  PROCEDURE LastSalesrec ();
END  DBFSalesrec.