home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3plsar.zip / LABELS.PRG < prev    next >
Text File  |  1986-08-04  |  2KB  |  67 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 CUST
  25.       LABE FORM LABELS SAMPLE TO PRIN FOR .NOT. '*' $ (DISC)
  26.       CLEA
  27.       RETURN
  28.    ENDIF
  29.    IF OPT2='Y'
  30.       USE CUST
  31.       @ 23,15 SAY 'Press ESC to abort while printing labels.'
  32.       LABE FORM 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 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 TEMP FOR ACCT=WHO
  55.    USE 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 LABELS TO PRIN FOR ACCT=WHO
  64.       STORE TIMES-1 TO TIMES
  65.    ENDDO
  66. ENDDO
  67.