Topspeed_JPI/TS/EXAMPLES/ITEMS.DEF

DEFINITION MODULE Items;
(*
        Copyright (C) 1988,1989 Jensen & Partners International
*)

IMPORT Globals;

TYPE
   ItemRec = RECORD
           INum        : ARRAY[0..9] OF CHAR;
           Description : ARRAY[0..24] OF CHAR;
           PartNum     : ARRAY[0..9] OF CHAR;
           Mfgr        : ARRAY[0..19] OF CHAR;
           QOHand,
           QOOrder     : CARDINAL;
           Cost,
           Retail      : LONGREAL;
           Supplier    : ARRAY[0..9] OF CHAR;
   END;  (* ItemRec *)

PROCEDURE MakeKey( keyA, myItemA : ADDRESS );
(**
        This procedure makes a key for indexing
**)

PROCEDURE Display( anItem : ItemRec );
(**
        This procedure displays the item record on the screen.
**)

PROCEDURE Clear( );
(**
        This procedure clears the previous item information.
**)

PROCEDURE Template( );
(**
        This procedure un-hides the item display window and displays
        the field names.
**)

PROCEDURE Input( VAR anItem : ItemRec;  Clear : BOOLEAN );
(**
        This procedure inputs the item information from the user.
        If Clear is TRUE, then the information is cleared before the
        user enters new information.  If Clear is FALSE, Display() is
        called first to show the current information, and it is then
        edited.
**)

PROCEDURE Search( VAR anItem : ItemRec ) : BOOLEAN ;
(**
        The key fields from anItem are checked for data.  If they
        are filled, that information is used to search.  Otherwise,
        this procedure asks the user for search information, and then
        searches for the given record.  If it is found, it is copied to
        anItem, and TRUE is returned.  If it is not found, FALSE is
        returned.
**)

PROCEDURE Close( );
(**
        This procedure removes the item display window from the screen.
**)

END Items.