* Program   : PRODLABL.PRG
* Version   : V1.0
* Author(s) : Joe Tomas
* Date      : 09/10/86
* Notice    : 
* Called by : REPORTS.PRG
* Call(s)   :
* Notes     : ALLOWS PRINTING OF SMALL QTY OF PRODUCT LABELS AT DECUS
*           : (LABEL SIZE IS 3 1/2" x 7/8")
CLEAR
SET CONFIRM ON
CLEAR
CALL PAINT WITH "PRODLABL.IMG"
SET COLOR TO
STORE 'Y' TO AGAIN

DO WHILE AGAIN = 'Y'
   STORE '   ' TO ANS
   ?? VBELL1

   @ 18,54 GET ANS PICTURE 'AAAA'
   READ

   IF UPPER(SUBSTR(ANS,1,1))= 'E'
      CLEAR
      RETURN
   ENDIF

   IF UPPER(ANS) = 'Y'
      SET PRINT ON
      SET CONSOLE OFF
      ? 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      ? '------------------------------'
      ? 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      ? '------------------------------'
      ? 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      ? ' '
      SET PRINT OFF
      SET CONSOLE ON
      STORE 'Y' TO AGAIN
   ELSE
      STORE 'N' TO AGAIN
   ENDIF

ENDDO

@ 22,00

STORE .F. TO VALID

DO WHILE .NOT. VALID
   SET INTENSITY ON
   STORE .T. TO VALID
   STORE SPACE(3) TO MCODE
   STORE 0 TO PRICE
   STORE SPACE(30) TO DESCRI
   STORE '  -     -  ' TO PARTNO
   STORE 0 TO LABELS

   @ 04,00 CLEAR
   @ 08,20 SAY '3-DIGIT PRODUCT CODE : ' GET MCODE PICTURE '999'
   @ 09,20 SAY 'DEC PART NUMBER      : ' GET PARTNO PICTURE '!!-!!!!!-!!'
   @ 10,20 SAY 'ITEM DESCRIPTION     : ' GET DESCRI
   @ 11,20 SAY 'DECUS SHOW PRICE     : ' GET PRICE PICTURE '99999.99'
   @ 12,20 SAY '# OF LABELS TO PRINT : ' GET LABELS PICTURE '99'
   SET COLOR TO I+
   @ 23,22 SAY ' ENTER <999> FOR PRODUCT CODE TO EXIT '
   SET COLOR TO
   READ
   STORE UPPER(DESCRI) TO DESCRI

   IF MCODE = '999'
      CLEAR
      RETURN
   ENDIF

   SET COLOR TO +
   @ 20,25 SAY 'PRESS ANY KEY TO START PRINTING'
   SET COLOR TO

   DO WHILE INKEY() = 0
      SET COLOR TO +
      @ 20,31 SAY 'ANY KEY'
      SET COLOR TO
      @ 20,31 SAY 'ANY KEY'
   ENDDO

   SET COLOR TO
   STORE .F. TO VALID

   @ 04,00 CLEAR
   SET COLOR TO I+*
   @ 10,25 SAY ' *** PRINTING LABELS *** '
   SET COLOR TO
   STORE '                          ' TO PAD

   STORE 1 TO LOOP
   SET PRINT ON

   SET CONSOL OFF
   STORE TRIM(DESCRI) TO SHORTD
   STORE LEN(SHORTD) TO L
   STORE SUBSTR(PARTNO,4,8) TO SHORTP

   DO WHILE LOOP <= LABELS

       ? '        *** '+MCODE+' *** '
       ? ' '

       IF SUBSTR(PARTNO,1,2)='  '
         ? '          '+SHORTP
       ELSE
         ? '        '+PARTNO
       ENDIF

       IF LEN(SHORTD) < 27
         ? SUBSTR(PAD,1,14-(L/2))+SHORTD
       ELSE
         ? DESCRI
       ENDIF

       ? '  DECUS PRICE - $ '+STR(PRICE,8,2)
       STORE LOOP+1 TO LOOP
       ? ' '
   ENDDO
   STORE 1 TO LOOP
   SET PRINT OFF
   SET CONSOLE ON
ENDDO