Topspeed_JPI/TS-V3/MODBASE/DBFORDER.DEF

DEFINITION MODULE DBFOrder;
FROM ModBase3 IMPORT DBFile;
FROM DBIndxes IMPORT DBIndex;
FROM NumTypes IMPORT Real8;
FROM DateFunctions IMPORT Date;
TYPE
OrderRec = RECORD
    INVNBR : ARRAY[0.. 10] OF CHAR;;   (* Invoice number *)
    ITEMNBR    : ARRAY[0..  5] OF CHAR;;   (* Item number *)
    DESC       : ARRAY[0.. 45] OF CHAR;;   (* Description of item *)
    NOTES1     : ARRAY[0.. 30] OF CHAR;;   (* Notes of items line 1 *)
    NOTES2     : ARRAY[0.. 30] OF CHAR;;   (* Notes for item line 2 *)
    NOTES3     : ARRAY[0.. 30] OF CHAR;;   (* Notes for item line 3 *)
    UNITS      : ARRAY[0..  5] OF CHAR;;   (* Units *)
    QNTSOLD    : Real8;   (* Quantity sold *)
    QNTORDER   : Real8;   (* Quant ordered (for pricing ) *)
    DSCLEVEL   : CARDINAL;   (* Discount level applied *)
    UNITPRC    : Real8;   (* Item price *)
    TOTAL      : Real8;   (* Total price for line item *)
    MANPRICE   : CHAR;   (* over rider computed price *)
END;


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

  InvnbrIdx : DBIndex;



  PROCEDURE MoveOrderToDBF( REC : OrderRec);
  PROCEDURE MoveOrderFromDBF(VAR REC : OrderRec);


 PROCEDURE OpenOrderDBF(WithIdx : BOOLEAN);


 PROCEDURE CloseOrderDBF();


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

  PROCEDURE NextOrder () : BOOLEAN;
  PROCEDURE PrevOrder () : BOOLEAN;
  PROCEDURE FirstOrder ();
  PROCEDURE LastOrder ();
PROCEDURE PackOrder();
END  DBFOrder.