Topspeed_JPI/TS/MODBASE/DBFINVTR.DEF

DEFINITION MODULE DBFInvtry;
FROM ModBase3 IMPORT DBFile;
FROM DBIndxes IMPORT DBIndex;
FROM DateFunctions IMPORT Date;
FROM NumTypes IMPORT Real8;
TYPE
InvtryRec = RECORD
    INVCODE : ARRAY[0..  5] OF CHAR;;
    PRICETBL : CARDINAL;
    GROUP : ARRAY[0..  2] OF CHAR;;
    DESC : ARRAY[0.. 45] OF CHAR;;
    REORDER : CARDINAL;
    ONHAND : Real8;
    MINORDER : CARDINAL;
    PURPRICE : Real8;
    STOCKED : BOOLEAN;
    UNITS : ARRAY[0..  5] OF CHAR;;
    LASTPUR : Date;
    LSTPUAMT : Real8;
    ORDERFRM : ARRAY[0.. 10] OF CHAR;
    UNITPRICE : Real8;
    ONORDER  : CHAR;    (* item is on order *)
    REORDAMT  : Real8;  (* normal reorder quant *)
END;


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

  InvcodeIdx : DBIndex;

  OrderfrmIdx : DBIndex;



  PROCEDURE MoveInvtryToDBF( REC : InvtryRec);
  PROCEDURE MoveInvtryFromDBF(VAR REC : InvtryRec);


 PROCEDURE OpenInvtryDBF(WithIdx : BOOLEAN);


 PROCEDURE CloseInvtryDBF();

 PROCEDURE FixInvRec();


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

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

  PROCEDURE NextInvtry () : BOOLEAN;
  PROCEDURE PrevInvtry () : BOOLEAN;
  PROCEDURE FirstInvtry ();
  PROCEDURE LastInvtry ();
PROCEDURE PackInvtry();
END  DBFInvtry.