Shareware Overload/ShartewareOverload.cdr/database/workdb.zip/SHIPDOC.PRG

Text File | 1988-08-15 | 4KB | 123 lines

*!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
*
SET HEADING OFF
SET SAFETY OFF
* shipdoc.sig 08/27/83
CLEAR
STORE DTOC(DATE()) TO stdat
* get a starting  point
STORE DTOC(DATE()) TO stdat
@ 18,12 SAY 'ORDERS AFTER WHAT DATE REQUIRE SHIPPING DOCUMENTS'
@ 18,60 GET STDAT PICTURE '99/99/99'
READ
STORE SUBSTR(stdat,7,2)+SUBSTR(stdat,1,2)+SUBSTR(stdat,4,2) TO stdate
GOTO TOP
STORE .T. TO MORE
SET DEVICE TO PRINT
SET MARGIN TO 0
? CHR(29)
SET CONSOLE OFF
DO WHILE MORE
   IF .NOT. EOF()
      STORE SUBSTR(dayu,7,2)+SUBSTR(dayu,1,2)+SUBSTR(dayu,4,2) TO stdate1
      IF STDATE1 >= STDATE
         @ 1,10 SAY 'SIG/M SOFTWARE - BOX 97 - ISELIN, NJ 08830'
         @ 3,6 SAY 'ORDER NUMBER'
         @ 3,19 SAY ':'
         @ 3,20 SAY ORDER
         @ 3,42 SAY 'COMPLETE'
         @ 3,51 SAY ':'
         @ 3,52 SAY COMP
         @ 5,9 SAY 'LAST NAME'
         @ 5,19 SAY ':'
         @ 5,20 SAY LNAME
         @ 5,45 SAY 'FIRST'
         @ 5,51 SAY ':'
         @ 5,52 SAY FNAME
         @ 7,11 SAY 'ADDRESS'
         @ 7,19 SAY ':'
         @ 7,20 SAY ADDR1
         @ 8,10 SAY '(line 2)'
         @ 8,19 SAY ':'
         @ 8,20 SAY ADDR2
         @ 9,10 SAY '(line 3)'
         @ 9,19 SAY ':'
         @ 9,20 SAY ADDR3
         @ 10,14 SAY 'CITY'
         @ 10,19 SAY ':'
         @ 10,20 SAY CITY
         @ 10,48 SAY 'ST'
         @ 10,51 SAY ':'
         @ 10,52 SAY STATE
         @ 10,67 SAY 'ZIP'
         @ 10,71 SAY ':'
         @ 10,72 SAY ZIP
         @ 13,3 SAY 'VOLUMES'
         @ 13,11 SAY ':'
         @ 13,12 SAY VOL1
         @ 16,4 SAY 'AMOUNT'
         @ 16,11 SAY ':'
         @ 16,12 SAY AMT PICTURE '$999.99'
         @ 16,23 SAY 'ORDERED'
         @ 16,31 SAY ':'
         @ 16,51 SAY ':'
         @ 16,52 SAY ENTERED
         @ 16,62 SAY 'SHIPPED'
         @ 16,70 SAY ':'
         @ 16,71 SAY SHIPPED
         @ 17,43 SAY 'CATALOG'
         @ 17,51 SAY ':'
         @ 17,52 SAY CATALOG
         @ 18,3 SAY 'REMARKS'
         @ 18,11 SAY ':'
         @ 18,12 SAY REM1
         @ 19,3 SAY 'REMARKS'
         @ 19,11 SAY ':'
         @ 19,12 SAY REM2
         @ 20,1 SAY 'BACKORDER'
         @ 20,11 SAY ':'
         @ 20,12 SAY BO
         @ 22,01 SAY 'BACKORDER SHIPPED'
         @ 22,19 SAY ':'
         @ 22,20 SAY BO_SHIP
         @ 22,40 SAY 'BACKORDER SHIPPED'
         @ 22,58 SAY ':'
         @ 22,59 SAY BO2_SHIP
         @ 24,10 SAY "BACKORDERED VOLUMES WILL BE SHIPPED SEPARATELY"
         @ 25,1 SAY '* * * * * * * * * * * * * * * * * * *'
         @ 25,40 SAY '* * * * * * * * * * * * * * * * * *'
         @ 27,0 SAY 'SIG/M MAIL ORDER RATES'
         @ 28,0 SAY 'Domestic(US & Canada):  $5/volume + $1/order for shipping (UPS)'
         @ 29,0 SAY ' Foreign: $9 = $6/volume + $3/disk for shipping (AIR MAIL)'
         @ 31,0 SAY '[  ] YOUR PAYMENT WAS NOT SUFFICIENT TO COMPLETE YOUR ORDER. THE BALANCE OF'
         @ 32,0 SAY '     YOUR ORDER OF $____________ WILL BE APPLIED TO YOUR NEXT ORDER IF YOU'
         @ 33,0 SAY '     RETURN THIS FORM WITH YOUR ORDER.'
         @ 35,0 SAY '[  ] YOU HAVE OVERPAID FOR YOUR ORDER.'
         @ 36,0 SAY '     [   ] WE ARE SENDING ADDITIONAL VOLUMES SINCE IT LOOKS LIKE YOU ARE'
         @ 37,0 SAY '           GETTING THE COMPLETE LIBRARY.'
         @ 39,0 SAY '     [   ] YOU OVERPAID  $__________. IT BE APPLIED TO YOUR NEXT'
         @ 40,0 SAY '           ORDER IF YOU RETURN THIS FORM WITH YOUR ORDER.'
         @ 42,0 SAY '[  ] WE ARE RETURNING YOUR BLANK DISKS. WE ONLY COPY  TO'
         @ 43,0 SAY '     MEMBER SUPPLIED DISKS AT USER GROUP MEETINGS.BECAUSE'
         @ 44,0 SAY '     OF HIGH SHIPPING COSTS, WE CHARGED YOUR ACCOUNT $______'
         @ 45,0 SAY '     FOR RETURN SHIPPING. '
         @ 47,0 SAY '[  ] OTHER:'
         @ 50,20 SAY 'MANY THANKS FOR YOUR ORDER FROM SIG/M SOFTWARE'
         @ 51,40 SAY DTOC(DATE())
         EJECT
         SKIP
      ELSE
         SKIP
      ENDIF $DATE
   ELSE
      STORE .F. TO MORE
   ENDIF NOT EOF
ENDDO MORE
EJECT
? CHR(30)
SET DEVICE TO SCREEN
RELEASE ALL
STORE .T. TO MORE
STORE .T. TO FIRST