home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / mail / maildb / mailreps.prg < prev    next >
Encoding:
Text File  |  1988-04-01  |  1.5 KB  |  85 lines
  1. CLEAR
  2. TEXT
  3.    
  4.   
  5.   
  6.                         Select a Report Option
  7.  
  8.                             1. Directory
  9.  
  10.                             2. Mailing Labels
  11.  
  12.                             3. Return to Main Menu
  13. ENDTEXT
  14. REPCHOICE = 0
  15. @ 18,20 SAY "Enter your choice (1-3)";
  16.     GET REPCHOICE PICTURE "9" RANGE 1,3
  17. READ
  18. IF REPCHOICE = 3
  19.     RETURN
  20. ENDIF
  21. CLEAR
  22. TEXT
  23.   
  24.   
  25.   
  26.  
  27.                        Select a Sort Order
  28.  
  29.                         1. Alphabetical order by Name
  30.  
  31.                         2. Zip Code Order
  32.  
  33.                         3. Original Order
  34. ENDTEXT
  35. SORTCHOICE = 0
  36. @ 18,20 SAY "Enter your choice (1-3)";
  37.     GET SORTCHOICE PICTURE "9" RANGE 1,3
  38. READ
  39. DO CASE
  40.  
  41.   CASE SORTCHOICE = 1
  42.     SET INDEX TO LNAME   
  43.  
  44.   CASE SORTCHOICE = 2
  45.     SET INDEX TO ZIP     
  46.  
  47.   CASE SORTCHOICE = 3
  48.     CLOSE INDEX
  49. ENDCASE
  50. CLEAR
  51. QCHOICE = "A"
  52. @ 10,5 SAY;
  53.     "Do you want (A)ll records, or a (Q)uery?";
  54.     GET QCHOICE PICTURE "!"
  55. READ
  56. IF QCHOICE = "Q"
  57.     MODIFY QUERY MAILGEN
  58.     SET FILTER TO FILE MAILGEN
  59. ENDIF
  60. PMACRO = " "
  61. TOPRINT ="N"
  62. CLEAR
  63. @ 10,5 SAY "Send report to printer? (Y/N)";
  64.     GET TOPRINT PICTURE "!"
  65. READ
  66. IF TOPRINT = "Y"
  67.     PMACRO = "TO PRINT"
  68. ENDIF
  69. DO CASE
  70.  
  71.     CASE REPCHOICE = 1
  72.         REPORT FORM MEWDIREC &PMACRO
  73.  
  74.     CASE REPCHOICE = 2
  75.         LABEL FORM NAILLAB &PMACRO 
  76.  
  77. ENDCASE
  78. IF TOPRINT <>"Y"
  79.     @ 24,1 CLEAR
  80.   WAIT "Press any key to return to menu..."
  81. ENDIF
  82. SET FILTER TO
  83. SET INDEX TO LNAME, ZIP         
  84. RETURN
  85.