home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / d_b_a / 87_01 / repmenu.sc < prev    next >
Text File  |  1986-12-05  |  2KB  |  69 lines
  1.  
  2. ;------------------------------------------ RepMenu.SC
  3. ;------------ Display report options and print report.
  4. CLEAR
  5. SHOWMENU
  6.    "Directory"   : "Directory of Customers",
  7.    "Labels"      : "Mailing Labels",
  8.    "Form Letter" : "Create, Edit, or Print Form Letter",
  9.    "None"        : "Return to Menu"
  10. TO RChoice
  11.  
  12. ;---------------- If no report selected, return to menu.
  13. IF RChoice = "None" THEN
  14.    CLEAR
  15.    RETURN
  16. ENDIF
  17.  
  18. ;-------------------------- Make sure printer is ready.
  19. WHILE PRINTERSTATUS() = False
  20.    BEEP
  21.    STYLE REVERSE, BLINK
  22.    @ 12,10 CLEAR EOL
  23.    ?? "Prepare printer then press any key!"
  24.    Nothing = GETCHAR()
  25. ENDWHILE
  26. CLEAR
  27.  
  28. ;-------- Check on sort order, allow only Y or N answer.
  29. Answer = " "
  30. WHILE Answer <> "Y" AND Answer <> "N"
  31.     STYLE ATTRIBUTE 30
  32.     @ 12,10 CLEAR EOL
  33.     ?? "Are records already sorted into desired order? (Y/N) "
  34.     Answer = UPPER(CHR(GETCHAR()))
  35.     ?? Answer
  36. ENDWHILE
  37.  
  38. ;-------- Sort if No selected.
  39. IF Answer = "N" THEN
  40.    STYLE REVERSE, BLINK
  41.    @ 12,10
  42.    CLEAR EOL
  43.    ?? "Sorting records into order first..."
  44.    SWITCH
  45.       CASE RChoice = "Directory" :
  46.            SORT "CustList" ON "Last Name", "First Name"
  47.       OTHERWISE :
  48.            SORT "CustList" ON "Zip", "Last Name"
  49.    ENDSWITCH
  50.    STYLE
  51.    CLEAR
  52. ENDIF
  53.  
  54.  
  55. ;-------------------------- Print requested report.
  56. SWITCH
  57.      CASE RChoice = "Directory" :
  58.           REPORT "CustList" "1"
  59.  
  60.      CASE RChoice = "Labels" :
  61.           REPORT "CustList" "2"
  62.  
  63.      CASE RChoice = "Form Letter" :
  64.           REPORT "CustList" "3"
  65.  
  66. ENDSWITCH
  67. CLEARALL
  68. CLEAR
  69.