home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / CUSTMENU.PRG < prev    next >
Encoding:
Text File  |  1989-11-07  |  957 b   |  33 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: CUSTMENU.PRG Customer 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 'CUSTOMERS'
  9. STORE BAR() TO choice
  10. HIDE POPUP custpop
  11. DO CASE
  12.   CASE choice = 1
  13.     DO customer
  14.   CASE choice = 2
  15.     ACTIVATE WINDOW working
  16.     DO custlist
  17.     DEACTIVATE WINDOW working
  18.   CASE choice = 3
  19.     ACTIVATE WINDOW working
  20.     DO custlabe
  21.     DEACTIVATE WINDOW working
  22.   CASE choice = 4
  23.     ACTIVATE WINDOW working
  24.     DO cstledgr
  25.     DEACTIVATE WINDOW working
  26. ENDCASE
  27. SET TOPIC TO 'MASTER MENU'
  28. SHOW POPUP custpop
  29. HIDE WINDOW ALL
  30. RETURN
  31.  
  32. * eof
  33.