home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / INVNMENU.PRG < prev    next >
Text File  |  1987-01-28  |  1KB  |  48 lines
  1. *****  Program: INVNMENU.PRG   *****
  2. * DISPLAY INVENTORY CONTROL SUBMENU
  3. set talk off
  4. set echo off
  5. store ' ' to choice
  6. do while .t.
  7.    clear
  8.    ?"                     ================================="
  9.    ?"                     ===     INVENTORY CONTROL     ==="
  10.    ?"                     ================================="
  11.    ?
  12.    ?
  13.    ?"                      Task Code         Task"
  14.    ?
  15.    ?"                         [A]     ADD a new stock item  "
  16.    ?
  17.    ?"                         [D]     DELETE an existing item"
  18.    ?
  19.    ?"                         [E]     EXAMINE/EDIT an stock item"
  20.    ?
  21.    ?"                         [J]     ADJUSTING inventory level"
  22.    ?
  23.    ?"                         [V]     Evaluation of inventory"
  24.    ?
  25.    ?"                         [Q]     QUIT, return to main menu"
  26.    ?
  27.    ?
  28.    Wait "                   Enter your choice (type in task code)" to choice
  29.    do case
  30.       case upper(choice) = "A"
  31.           do additem
  32.       case upper(choice) = "D"
  33.           do delTitem
  34.       case upper(choice) = "E"
  35.           do edititem
  36.       case upper(choice) = "Q"
  37.           clear all  
  38.           return
  39.       case upper(choice) = "J"
  40.           do adjstock
  41.       case upper(choice) = "V"
  42.           do values
  43.       otherwise
  44.           loop
  45.    endcase
  46. enddo
  47. return
  48.