home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / REPORT.PRG < prev    next >
Text File  |  1988-08-15  |  9KB  |  289 lines
  1. *!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. * report.sig 08/18/83
  6.  
  7. STORE .T. TO MORE
  8. DO WHILE MORE
  9.    STORE CHR(PEEK (063)) TO dr
  10.    CLEAR
  11.    STORE 'Y' TO PRINTER
  12.    STORE 'N' TO DISK
  13.    STORE '        ' TO FILENAME
  14.    STORE '?' TO COMMAND
  15.    @  2, 0 SAY "--------------------------------------------------------------------------------"
  16.    @  2,18 SAY "> > >  R E P O R T  M E N U  < < <"
  17.    @  5,18 SAY "1. Print return address labels"
  18.    @  6,18 SAY "2. Print shipping labels"
  19.    @  7,18 SAY "3. Print shipping documents"
  20.    @  8,18 SAY "4. Print report of orders shipped"
  21.    @  9,18 SAY "5. Print report of orders completed"
  22.    @ 10,18 SAY "6. Print backorder report"
  23.    @ 11,18 SAY "7. Display Records on screen"
  24.    @ 12,18 SAY "8. Make WordStar-MailMerge File"
  25.    @ 13,18 SAY "9. Return to Main Menu"
  26.    @ 17, 0 SAY "--------------------------------------------------------------------------------"
  27.    @ 20,30 SAY "WHAT NEXT"
  28.    @ 20,40 GET COMMAND PICTURE '!'
  29.    READ
  30.    IF COMMAND  >'3' .AND. COMMAND <  '7'
  31.       @ 20,00
  32.       @ 19,22 SAY "Send Report to the Printer (Y/N)"
  33.       @ 19,55 GET PRINTER PICTURE '!'
  34.       READ
  35.       @ 21,22 SAY "Send Report to a Disk File (Y/N)"
  36.       @ 21,55 GET DISK PICTURE '!'
  37.       READ
  38.       IF DISK ='Y'
  39.          @ 21,00
  40.          @ 21,22 SAY "Enter Disk File Name"
  41.          @ 21,44 GET FILENAME PICTURE '!!!!!!!!'
  42.          @ 21,54 SAY "(.TXT will be added )"
  43.          READ
  44.          @ 21,00
  45.          @ 21,22 SAY 'SELECT DRIVE TO PUT FILES ON  ' GET DR PICTURE '!'
  46.          READ
  47.          DO WHILE AT(dr,'ABCDM') = 0
  48.             @ 21,00
  49.             @ 21,22 SAY 'SELECT DRIVE TO PUT FILES ON  ' GET DR PICTURE '!'
  50.             READ
  51.          ENDDO WHILE @
  52.       ENDIF DISK = Y
  53.       IF PRINTER = 'Y'
  54.          @ 23,00 SAY 'MAKE PRINTER READY AND HIT ANY KEY'
  55.          SET CONSOLE OFF
  56.          WAIT
  57.          SET CONSOLE ON
  58.          SET PRINT ON
  59.       ENDIF PRINTER = Y
  60.       IF DISK = 'Y' .AND. FILENAME <> ' '
  61.          * make a proper REPORT file name that is of type TXT
  62.          STORE AT('.',filename) TO length
  63.          IF LENGTH = 0 .OR. LENGTH > 8
  64.             STORE 9 TO LENGTH
  65.          ENDIF LENGTH
  66.          STORE SUBSTR(filename,1,length-1) TO filename
  67.          STORE '&DR.:'+FILENAME+'.TXT' TO FILENAME
  68.          SET ALTERNATE TO &FILENAME
  69.          SET ALTERNATE ON
  70.       ENDIF DISK = Y AND FILENAME <> ''
  71.    ENDIF DISK = Y
  72.    CLEAR
  73.    DO CASE
  74.       CASE COMMAND = '1'
  75.            SET PRINT ON
  76.            SET CONSOLE OFF
  77.            * set printer codes for small type
  78.            ? CHR(29)
  79.            ? CHR(27) + chr(56)
  80.            SET PRINT OFF
  81.            SET CONSOLE ON
  82.            CLEAR
  83.  
  84.            STORE .T. TO LINEUP
  85.            DO WHILE LINEUP
  86.               STORE '?' TO COMMAND
  87.               @ 10,00
  88.               @ 11,00
  89.               @ 10,10 SAY 'PLEASE LINE UP THE TOP OF THE RIBBON WITH THE TOP OF THE LABEL'
  90.               @ 11,10 SAY 'WHEN LINED UP HIT ENTER FOR A PRINT CHECK.'
  91.               SET CONSOLE OFF
  92.               WAIT
  93.               SET PRINT ON
  94.               SET MARGIN TO 0
  95.               ? 'THE TOP OF THE TOP LINE SHOULD BE ABOUT'
  96.               ? '1/4" FROM THE TOP OF THE LABEL'
  97.               ? ' '
  98.               SET PRINT OFF
  99.               SET CONSOLE ON
  100.               @ 10,00
  101.               @ 11,00
  102.               @ 10,10 SAY 'Are you lined up to print (Y/N) '
  103.               @ 10,44 GET COMMAND PICTURE '!'
  104.               READ
  105.               CLEAR GETS
  106.               IF COMMAND = 'Y'
  107.                  SET PRINT ON
  108.                  ? ' '
  109.                  ? ' '
  110.                  ? ' '
  111.                  ? ' '
  112.                  ? ' '
  113.                  SET PRINT OFF
  114.  
  115.                  STORE .F. TO LINEUP
  116.  
  117.                  STORE .T. TO PRINTLAB
  118.               ENDIF COMMAND = Y
  119.            ENDDO WHILE LINEUP
  120.            CLEAR
  121.  
  122.            DO WHILE PRINTLAB = .T.
  123.               STORE '?' TO COMMAND
  124.               STORE 0 TO PRNTNO
  125.               @ 10,00
  126.               @ 11,00
  127.               @ 12,00
  128.               @ 13,00
  129.               @ 15,00
  130.               @ 13,12 SAY " How many return address labels shall we print ? " GET PRNTNO
  131.               READ
  132.               DO WHILE PRNTNO > 0
  133.                  SET PRINT ON
  134.                  SET CONSOLE OFF
  135.                  SET MARGIN TO 5
  136.                  ? ' '
  137.                  ? ' SIG/M SOFTWARE'
  138.                  ? '    BOX 97'
  139.                  ? 'ISELIN, NJ 08830'
  140.                  ? ' '
  141.                  ? ' '
  142.                  ? ' '
  143.                  ? ' '
  144.                  STORE PRNTNO - 1 TO PRNTNO
  145.               ENDDO WHILE PRNTNO
  146.  
  147.               SET PRINT OFF
  148.               SET CONSOLE ON
  149.               SET PRINT ON
  150.               ? CHR(30)
  151.               ? CHR(27) + CHR(54)
  152.               EJECT
  153.               SET PRINT OFF
  154.               SET CONSOLE ON
  155.  
  156.               STORE .F. TO PRINTLAB
  157.            ENDDO WHILE PRINTLAB
  158.            CLEAR
  159.            RELEASE ALL
  160.  
  161.            STORE .T. TO FIRST
  162.  
  163.            STORE .T. TO MORE
  164.            STORE '?' TO COMMAND
  165.  
  166.       CASE COMMAND = '2'
  167.            @ 19,22 SAY "Send Report to a Disk File (Y/N)"
  168.            @ 19,55 GET DISK PICTURE '!'
  169.            READ
  170.            IF DISK ='Y'
  171.               @ 19,00
  172.               @ 19,22 SAY "Enter Disk File Name"
  173.               @ 19,44 GET FILENAME PICTURE '!!!!!!!!'
  174.               @ 19,54 SAY "(.TXT will be added )"
  175.               READ
  176.               @ 19,00
  177.               @ 19,22 SAY 'SELECT DRIVE TO PUT FILES ON  ' GET DR PICTURE '!'
  178.               READ
  179.               DO WHILE AT(dr,'ABCDM') = 0
  180.                  @ 19,00
  181.                  @ 19,22 SAY 'SELECT DRIVE TO PUT FILES ON  ' GET DR PICTURE '!'
  182.                  READ
  183.               ENDDO WHILE @
  184.            ENDIF DISK = Y
  185.            @ 19,00
  186.            @ 20,22 SAY "Send Report to the Printer (Y/N)"
  187.            @ 20,55 GET PRINTER PICTURE '!'
  188.            READ
  189.            IF PRINTER = 'Y'
  190.               SET PRINT ON
  191.               SET CONSOLE OFF
  192.               ? CHR(28)
  193.               SET PRINT OFF
  194.               SET CONSOLE ON
  195.               CLEAR
  196.  
  197.               STORE .T. TO LINEUP
  198.               DO WHILE LINEUP
  199.                  STORE '?' TO COMMAND
  200.                  @ 10,00
  201.                  @ 11,00
  202.                  @ 10,10 SAY 'PLEASE LINE UP THE TOP OF THE RIBBON WITH THE TOP OF THE LABEL'
  203.                  @ 11,10 SAY 'WHEN LINED UP HIT ENTER FOR A PRINT CHECK.'
  204.                  SET CONSOLE OFF
  205.                  WAIT
  206.                  SET PRINT ON
  207.                  SET MARGIN TO 0
  208.                  ? 'THE TOP OF THE TOP LINE SHOULD BE ABOUT'
  209.                  ? '1/4" FROM THE TOP OF THE LABEL'
  210.                  ? ' '
  211.                  SET PRINT OFF
  212.                  SET CONSOLE ON
  213.                  @ 10,00
  214.                  @ 11,00
  215.                  @ 10,10 SAY 'Are you lined up to print (Y/N) '
  216.                  @ 10,44 GET COMMAND PICTURE '!'
  217.                  READ
  218.                  CLEAR GETS
  219.                  IF COMMAND = 'Y'
  220.                     SET PRINT ON
  221.                     ? ' '
  222.                     ? ' '
  223.                     ? ' '
  224.                     ? ' '
  225.                     ? ' '
  226.  
  227.                     STORE .F. TO LINEUP
  228.  
  229.                     STORE .T. TO PRINTLAB
  230.                  ENDIF COMMAND = Y
  231.               ENDDO WHILE LINEUP
  232.            ENDIF PRINTER = Y
  233.            DO LABELS.PRG
  234.       CASE COMMAND = '3'
  235.            DO SHIPDOC.PRG
  236.       CASE COMMAND = '4'
  237.            DO SHIPPED.PRG
  238.       CASE COMMAND = '5'
  239.            DO COMPLETE.PRG
  240.       CASE COMMAND = '6'
  241.            DO BACKORDR.PRG
  242.       CASE COMMAND = '7'
  243.            CLEAR
  244.            @ 02,12 SAY 'RECORDS ARE DISPLAYED BY LAST NAMES'
  245.            @ 05,12 SAY 'YOU MAY CHOOSE THE FIRST LETTER'
  246.            @ 06,12 SAY 'OF THE STARTING LOCATION OF THE RECORDS'
  247.            @ 09,12 SAY 'WHEN WAITING HIT SPACE BAR TO'
  248.            @ 10,12 SAY 'CONTINUE... OR ESCAPE TO QUIT'
  249.            * get a starting point in file
  250.            STORE 'A' TO STLETTER
  251.            @ 17,12 SAY 'LETTER OF ALPHABET AT WHICH TO START DISPLAY'
  252.            @ 17,57 GET STLETTER PICTURE '!'
  253.            READ
  254.            * goto starting point or next if no find
  255.            *!! EOF() will be true if NO FIND, and RECNO() will equal BOTTOM, not 0.
  256.            FIND &STLETTER
  257.            DO WHILE (EOF() .OR. BOF())
  258.               STORE 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ' TO ALPHABET
  259.               STORE AT(stletter,ALPHABET) + 1 TO NEXL
  260.               STORE SUBSTR(ALPHABET,NEXL,1) TO stletter
  261.               *!! EOF() will be true if NO FIND, and RECNO() will equal BOTTOM, not 0.
  262.               FIND &STLETTER
  263.               RELEASE ALPHABET
  264.            ENDDO WHILE #
  265.            * display selected list
  266.            CLEAR
  267.            SET ESCAPE OFF
  268.            DISPLAY NEXT 65000 LNAME,ZIP,COMP,ENTERED,SHIPPED
  269.            IF EOF()
  270.               WAIT
  271.            ENDIF
  272.            SET ESCAPE ON
  273.       CASE COMMAND = '8'
  274.            DO WSFILE.PRG
  275.       CASE (command = '9' .OR. COMMAND = 'Q')
  276.            
  277.            STORE .F. TO MORE
  278.    ENDCASE
  279.    SET PRINT OFF
  280.    SET ALTERNATE OFF
  281. ENDDO WHILE MORE
  282. RELEASE ALL
  283.  
  284. STORE .T. TO MORE
  285.  
  286. STORE .T. TO FIRST
  287. STORE '?' TO COMMAND
  288.  
  289.