home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
disk_20.zip
/
NUDBMSX.ZIP
/
INVNMENU.PRG
< prev
next >
Wrap
Text File
|
1987-01-28
|
1KB
|
48 lines
***** Program: INVNMENU.PRG *****
* DISPLAY INVENTORY CONTROL SUBMENU
set talk off
set echo off
store ' ' to choice
do while .t.
clear
?" ================================="
?" === INVENTORY CONTROL ==="
?" ================================="
?
?
?" Task Code Task"
?
?" [A] ADD a new stock item "
?
?" [D] DELETE an existing item"
?
?" [E] EXAMINE/EDIT an stock item"
?
?" [J] ADJUSTING inventory level"
?
?" [V] Evaluation of inventory"
?
?" [Q] QUIT, return to main menu"
?
?
Wait " Enter your choice (type in task code)" to choice
do case
case upper(choice) = "A"
do additem
case upper(choice) = "D"
do delTitem
case upper(choice) = "E"
do edititem
case upper(choice) = "Q"
clear all
return
case upper(choice) = "J"
do adjstock
case upper(choice) = "V"
do values
otherwise
loop
endcase
enddo
return