home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3AR.ARC / LABELS.PRG < prev    next >
Encoding:
Text File  |  1985-10-31  |  1.6 KB  |  66 lines
  1. ******************** (LABEL.PRG)
  2. CLEA
  3. STORE ' ' TO OPTION
  4. @ 2,5 SAY 'This will run labels for everyone without an * in ì
  5. their discount field.'
  6. @ 4,5 SAY '     You will have an option to do labels for individual ì
  7. customers.'
  8. @ 8,10 SAY '          Set up printer with letter quality first.'
  9. @ 10,18 SAY 'Use Avery # 4143 2-wide labels for a full run.'
  10. @ 12,10 SAY [Pick up at your local office supply or send  $ 8.95 ì
  11. to Jay's.]
  12. @ 16,20 SAY 'Do you want to run for ALL customers? '
  13. ?
  14. ?
  15. WAIT '                                  ? ' TO OPTION
  16. IF OPTION='Y'
  17. CLEA
  18. STORE ' ' TO OPT2
  19. @ 16,10 SAY 'Want to skip the customers with a 0 balance ? '
  20. ?
  21. WAIT '                                  ? ' TO OPT2
  22. IF OPT2='N'
  23. @ 23,15 SAY 'Press ESC to abort while printing labels.'
  24. USE B:CUST
  25. LABE FORM B:LABELS SAMPLE TO PRIN FOR .NOT. '*' $ (DISC)
  26. CLEA
  27. RETURN
  28. ENDIF
  29. IF OPT2='Y'
  30. USE B:CUST
  31. @ 23,15 SAY 'Press ESC to abort while printing labels.'
  32. LABE FORM B:LABELS SAMPLE TO PRIN FOR .NOT. '*' $ (DISC) .AND. NET<>0.00
  33. ENDIF
  34. ENDIF
  35. DO WHILE .T.
  36. CLEA
  37. @ 15,20 SAY 'Do you want to run labels for 1 customer?'
  38. ?
  39. ?
  40. WAIT '                                    ? ' TO OPTION
  41. IF OPTION<>'Y'
  42. CLEA
  43. RETURN
  44. ENDIF
  45. USE B:CUST
  46. CLEA
  47. STORE '    ' TO WHO
  48. @ 15,15 SAY 'Account number ? ' GET WHO
  49. READ
  50. CLEA
  51. SET TALK ON
  52. @ 17,0 SAY  [I'll be just a moment with this...]
  53. ?
  54. COPY TO B:TEMP FOR ACCT=WHO
  55. USE B:TEMP
  56. SET TALK OFF
  57. STORE 1 TO TIMES
  58. @ 16,0 CLEA
  59. @ 17,15 SAY 'How many labels? ' GET TIMES
  60. READ
  61. CLEA
  62. DO WHILE TIMES<>0
  63. LABE FORM B:LABELS TO PRIN FOR ACCT=WHO
  64. STORE TIMES-1 TO TIMES
  65. ENDDO
  66. ENDDO