home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / MEMBERS.ARC / MDLABEL.PRG < prev    next >
Encoding:
Text File  |  1986-10-18  |  2.6 KB  |  112 lines
  1. *----------------------------------------------------------------------
  2. * Program : Membership Database Package
  3. * File    : MDLABEL
  4. * Function: Display/Print mailing labels with optional query.
  5. * Author  : J. North        
  6. * Version : (AT contest)
  7. * Date    : 10/15/86
  8. *----------------------------------------------------------------------
  9. *
  10. call curson
  11. clear
  12. @  1,  0  to  9, 79    DOUBLE
  13. @  2,  2  say "LABEL PRINT SETUP                          Press Ctrl-End to return to menu."
  14. @  4, 30  say "Label Order           Query File            .QRY"
  15. @  5, 29  say "- - - - - - - - - - -"
  16. @  6, 30  say "0- Record # Order     Label Form            .LBL"
  17. @  7, 30  say "1- Last/First Name"
  18. @  8, 30  say "2- Zip Code           Output Device:"
  19. @  3,  1  to  3, 78    DOUBLE
  20. @  4, 28  to  8, 28    DOUBLE
  21. @  4, 50  to  8, 50  
  22. @  5, 51  to  5, 78  
  23. @  7, 51  to  7, 78  
  24. do set_brt
  25. @  4,  2  say "F2 - Set Label Order"
  26. @  5,  2  say "F3 - Select Query File"
  27. @  6,  2  say "F4 - Change Output Device"
  28. @  7,  2  say "F5 - Select Label Form"
  29. @  8,  2  say "F6 - Print Labels"
  30. do set_dim
  31. q_ord=1
  32. q_qry=space(8)
  33. q_frm="ONE-UP  "
  34. do while .T.
  35.     @ 4, 43 get q_ord picture "9"
  36.     @ 4, 64 get q_qry picture "!!!!!!!!"
  37.     @ 6, 64 get q_frm picture "!!!!!!!!"
  38.     do show_dev
  39.     clear gets
  40.     set console off
  41.     key=0
  42.     do while key=0
  43.         key=inkey()
  44.     enddo
  45.     set console on
  46.     do case
  47.         case key=23 
  48.             use
  49.             call cursoff
  50.             return
  51.         case key=-1 
  52.             @ 4, 43 get q_ord picture "9" range 0,2
  53.             read
  54.         case key=-2
  55.             @ 10, 0  say ""
  56.             dir *.qry
  57.             @ 4, 64 get q_qry picture "!!!!!!!!"
  58.             read
  59.             @ 10, 0  clear to 24,79
  60.             if q_qry#space(8).and. .not. file(trim(q_qry)+".qry")
  61.                 q_qry=space(8)
  62.             endif    
  63.         case key=-3
  64.             m_device=iif(m_device=1,0,1)
  65.         case key=-4
  66.             @ 10, 0  say ""
  67.             dir *.lbl
  68.             @ 6, 64 get q_frm picture "!!!!!!!!"
  69.             read
  70.             @ 10, 0  clear to 24,79
  71.             if q_frm#"ONE-UP  ".and. .not. file(trim(q_frm)+".lbl")
  72.                 q_frm="ONE-UP  "
  73.             endif    
  74.         case key=-5
  75.             exit
  76.     endcase
  77. enddo
  78. do clwait
  79. do dialog with 10,"Scanning records..."
  80. select 1
  81. use members index name,zip
  82. set order to q_ord
  83. if q_qry#space(8)
  84.     q_qry=trim(q_qry)+".qry"
  85.     set filter to file &q_qry
  86. endif
  87. q_frm=trim(q_frm)+".lbl"
  88. goto top
  89. if eof()
  90.     clear
  91.     do dialog with 10,"None of the records match the query specifications. - Press any key."
  92.     wait ""
  93.     use
  94.     return
  95. endif
  96. dev=" "
  97. if m_device=0
  98.     dev="to print"
  99. endif
  100. clear
  101. on escape do stoprpt
  102. set escape on
  103. label form &q_frm &dev
  104. set escape off
  105. on escape
  106. use
  107. call cursoff
  108. if m_device=1
  109.     wait
  110. endif
  111. return
  112.