home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / LABELS.PRG < prev    next >
Text File  |  1988-08-15  |  1KB  |  62 lines
  1. *!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. * labels.sig 08/18/83
  6. CLEAR
  7. STORE DTOC(DATE()) TO stdat
  8. * get a starting  point
  9. STORE DTOC(DATE()) TO stdat
  10. @ 18,12 SAY 'ORDERS AFTER WHAT DATE REQUIRE SHIPPING LABELS'
  11. @ 18,60 GET STDAT PICTURE '99/99/99'
  12. READ
  13. STORE SUBSTR(stdat,7,2)+SUBSTR(stdat,1,2)+SUBSTR(stdat,4,2) TO stdate
  14. GOTO TOP
  15.  
  16. STORE .T. TO MORE
  17. SET MARGIN TO 5
  18. DO WHILE MORE
  19.    IF .NOT. EOF()
  20.       STORE SUBSTR(dayu,7,2)+SUBSTR(dayu,1,2)+SUBSTR(dayu,4,2) TO stdate1
  21.       IF STDATE1 >= STDATE
  22.          STORE 0 TO XTRA
  23.          ? ' '
  24.          ? TRIM(fname) +' ' + lname
  25.          ? ADDR1
  26.          IF ADDR2 <> ' '
  27.             ? ADDR2
  28.          ELSE
  29.             STORE XTRA + 1 TO XTRA
  30.          ENDIF ADDR2
  31.          IF ADDR3 <> ' '
  32.             ? ADDR3
  33.          ELSE
  34.             STORE XTRA + 1 TO XTRA
  35.          ENDIF ADDR3
  36.          ? TRIM(city) +', '+  state + '  ' +zip
  37.          ? ' '
  38.          ? '** MAGNETIC MEDIA - DO NOT X-RAY **  '
  39.          ? ' '
  40.          DO WHILE XTRA <> 0
  41.             ? ' '
  42.             STORE XTRA -1 TO XTRA
  43.          ENDDO WHILE XTRA
  44.          SKIP
  45.       ELSE
  46.          SKIP
  47.       ENDIF $DATE
  48.    ELSE
  49.  
  50.       STORE .F. TO MORE
  51.    ENDIF NOT EOF
  52. ENDDO MORE
  53. EJECT
  54. ? CHR(30)
  55. SET PRINT OFF
  56. RELEASE ALL
  57.  
  58. STORE .T. TO MORE
  59.  
  60. STORE .T. TO FIRST
  61.  
  62.