DEFINITION MODULE DBFGas;
FROM ModBase3 IMPORT DBFile;
FROM DBIndxes IMPORT DBIndex;
FROM NumTypes IMPORT Real8;
FROM DateFunctions IMPORT Date;
TYPE
GasRec = RECORD
    CIN : ARRAY[0.. 12] OF CHAR;;   (* customer id number *)
    INVNBR     : ARRAY[0.. 10] OF CHAR;;   (* Out - Invoice number *)
    ITEMNBR    : ARRAY[0..  5] OF CHAR;;   (* Helium type *)
    DATEOUT    : Date;   (* Helium out date *)
    DUEDATE    : Date;   (* Helium due date *)
    DATEIN     : Date;   (* Helium date in *)
    STATUS     : CHAR;   (* Sequence number *)
    OVCHGAMT   : Real8;   (* over time charge amount *)
    DAYSLATE   : CARDINAL;   (* Sequence number *)
    ININVNBR   : ARRAY[0.. 10] OF CHAR;;   (* Check in invoice nubmer *)
END;


VAR
  GasDBF: DBFile;
  GasIdx : DBIndex;
  GasInIdx : DBIndex;
  GasOutIdx : DBIndex;
                     (* active index for next/prev/first/last cmds*)




  PROCEDURE MoveGasToDBF( REC : GasRec);
  PROCEDURE MoveGasFromDBF(VAR REC : GasRec);


 PROCEDURE OpenGasDBF(WithIdx : BOOLEAN);


 PROCEDURE CloseGasDBF();


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

  PROCEDURE NextGas () : BOOLEAN;
  PROCEDURE PrevGas () : BOOLEAN;
  PROCEDURE FirstGas ();
  PROCEDURE LastGas ();
PROCEDURE PackGas();
END  DBFGas.