home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / INVCMENU.PRG < prev    next >
Encoding:
Text File  |  1989-11-07  |  878 b   |  28 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: INVCMENU.PRG Invoice 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. SET TOPIC TO 'INVOICES'
  8. STORE BAR() TO choice
  9. HIDE POPUP invpop
  10. DO CASE
  11.   CASE choice = 1
  12.     ACTIVATE SCREEN
  13.     DO invoice
  14.   CASE choice = 2
  15.     ACTIVATE WINDOW working
  16.     DO invoicep
  17.     DEACTIVATE WINDOW working
  18.   CASE choice = 3
  19.     ACTIVATE WINDOW screensim
  20.     DO salesreg
  21.     DEACTIVATE WINDOW screensim
  22. ENDCASE
  23. SET TOPIC TO 'MASTER MENU'
  24. SHOW POPUP invpop
  25. HIDE WINDOW ALL
  26. RETURN
  27. * eof
  28.