home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / ITEMMENU.PRG < prev    next >
Encoding:
Text File  |  1989-11-07  |  743 b   |  26 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: ITEMMENU.PRG  Inventory submenu called by main menu     │ *
  3. * │  Copyright (c) 1989 Tech III, Inc. All rights reserved.             │ *
  4. * │  Tech III of San Pedro, California      (213) 547-2191.             │ *
  5. * │  "The bridge connecting people and technology."(tm)                 │ *
  6. * └─────────────────────────────────────────────────────────────────────┘ *
  7.  
  8. SET TOPIC TO 'INVENTORY'
  9. STORE BAR() TO choice
  10. HIDE POPUP itempop
  11. DO CASE
  12.   CASE choice = 1
  13.     DO inventry
  14.   CASE choice = 2
  15.     DO invstock
  16.   CASE choice = 3
  17.     DO invsales
  18. ENDCASE
  19. SET TOPIC TO 'MASTER MENU'
  20. SHOW POPUP itempop
  21. HIDE WINDOW ALL
  22. RETURN
  23.  
  24. * eof
  25.  
  26.