home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP04.EXE / CHP0404.PRG < prev    next >
Encoding:
Text File  |  1991-04-30  |  1.1 KB  |  51 lines
  1. /*
  2.    Listing 4.4 TYPE() example
  3.    Author: Joe Booth
  4.    Excerpted from "Clipper 5: A Developer's Guide"
  5.    Copyright (c) 1991 M&T Books
  6.                       501 Galveston Drive
  7.                       Redwood City, CA 94063-4728
  8.                       (415) 366-3600
  9. */
  10.  
  11. //───── NOTE: must compile with the /N option!
  12.  
  13. function main
  14. local mpick :=1
  15. cls
  16. dispbox(10, 30, 15, 50, 1)
  17. @ 11,31 prompt "General Ledger     "
  18. @ 12,31 prompt "Accounts Receivable"
  19. @ 13,31 prompt "Accounts Payable   "
  20. @ 14,31 prompt "Payroll            "
  21. menu to mpick
  22. do case
  23. case mpick == 1
  24.    if type("GL()") == "UI"
  25.       Gl()
  26.    else
  27.       ? "General Ledger is not installed...."
  28.    endif
  29. case mpick == 2
  30.    if type("AR()") == "UI"
  31.       Ar()
  32.    else
  33.       ? "Accounts Receivable is not installed...."
  34.    endif
  35. case mpick == 3
  36.    if type("AP()") == "UI"
  37.       Ap()
  38.    else
  39.       ? "Accounts Payable is not installed...."
  40.    endif
  41. case mpick == 4
  42.    if type("PR()") == "UI"
  43.       Pr()
  44.    else
  45.       ? "Payroll is not installed...."
  46.    endif
  47. endcase
  48. return nil
  49.  
  50. // end of file CHP0404.PRG
  51.