home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / billing / billing.prg < prev    next >
Encoding:
Text File  |  1986-11-12  |  2.0 KB  |  63 lines
  1. *--[accounts.prg]-- menu for accounting system
  2. PUBLIC clipper
  3. CLEAR
  4. DO WHILE .T.
  5.     CLOSE DATABASES
  6.     SET DELETED ON
  7.     CLEAR
  8.     SET COLOR TO W+
  9. ? "                  TENNESSEE DATA CONSULTING BILLING SYSTEM"
  10. ? "                           7003 Chadwick, Suite 265"
  11. ? "                             Brentwood, TN 37027"
  12. ? "                                (615)377-6253"
  13.     SET COLOR TO W
  14.     TEXT
  15. ===============================================================================
  16.  
  17.      1. Clients              5. Reindex all data files        9.
  18.  
  19.      2. Projects [*]         6. Post charges to Clients       0. Exit System
  20.  
  21.      3. Tasks                7. Display Status of Accts
  22.  
  23.      4. Bills                8. Edit Existing Tasks
  24.  
  25. ===============================================================================
  26.                         Press [0] to quit the accounting system
  27.  
  28.     [*] Coupling projects to clients and tasks has not been completed yet.
  29.     Maybe by next week, else "real soon now" as they say!  
  30.     ENDTEXT
  31.     choice=0
  32.     @ 23,26 SAY "Please make a selection [ ]"
  33.     @ 23,COL()-2 GET choice PICTURE "#"
  34.     READ
  35.     @ 23,0
  36.     DO CASE
  37.         CASE choice=1
  38.             DO clients
  39.         CASE choice=2
  40.         CASE choice=3
  41.             DO entrtask
  42.         CASE choice=4
  43.             DO bill
  44.         CASE choice=5
  45.             DO reindex
  46.         CASE choice=6
  47.             DO postclt
  48.         CASE choice=7
  49.             DO statacct
  50.         CASE choice=8
  51.             DO edittask
  52.         CASE choice=0
  53.             CLEAR
  54.             EXIT
  55.     OTHERWISE
  56.         SET COLOR TO W*+
  57.         WAIT "               INVALID CHOICE"
  58.         SET COLOR TO W
  59.         @ 23,0
  60.     ENDCASE
  61. ENDDO WHILE .T.
  62. RETURN
  63.