SELECT 6
STORE 'VENDOR' TO DNET
DO NETERROR
USE VENDOR INDEX VNUMBER

IF VSEL = 'M'
 RETURN
ENDIF
@ 24,0 CLEAR
STORE ' ' TO SSS
@ 23,78 SAY ' '
WAIT 'GET PRINTER READY TO PRINT ORDER ... PRESS  RETURN TO CONTINUE ' 
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
SET DEVICE TO PRINT
SELECT 2
@ 1,0 SAY CHR(27) + CHR(64)
@ 2,0 SAY ' '
@ 3,30 SAY CHR(27) + CHR(69) + CHR(27) + CHR(14) + 'PO REQUEST' + CHR(27) + CHR(70)
STORE 5 TO QROW
@ QROW,0 SAY 'COMPUTER AUDIO SERVICES'
STORE QROW+1 TO QROW
@ QROW,0 SAY '4716 CAROLINA BEACH ROAD'
STORE QROW+1 TO QROW
@ QROW,0 SAY 'WILMINGTON, N.C.  28403'
STORE QROW+3 TO QROW

@ QROW,0 SAY CHR(15)+'DATE- '+DTOC(DATE())+'    '+'INV NUMBER- '+STR(INUMBER,5,0)+'    '+'QUOTE NUMBER- '+STR(QNUMBER,5,0)+'    '+'WO NUMBER- '+STR(SNUMBER,5,0)+'    '+ 'INVOICE NUMBER-'+STR(INUMBER,5,0)+'  '+'PERSON NAME- '+PERSON
STORE QROW+2 TO QROW
SELECT 1
STORE RECNO() TO MREC
SEEK MMCUSTNUM
@ QROW,0 SAY 'NAME         - ' + NAME 
STORE QROW+1 TO QROW
@ QROW,0 SAY '             - ' + ADDRESS
IF SUBSTR(ADDRESS1,1,2) <> '  '
 STORE QROW+1 TO QROW
 @ QROW,0 SAY '             - ' + ADDRESS1
ENDIF
STORE QROW+1 TO QROW
@ QROW,0 SAY '             - ' + CSZ
STORE QROW+2 TO QROW
@ QROW,0 SAY 'PHONE        - ' + STR(PHONE,12,0)
STORE QROW+3 TO QROW
STORE 0 TO MMAMT
GOTO MREC
SELECT 4
STORE RECNO() TO MREC
SEEK LINV
DO WHILE .T.
SELECT 4
IF QTY = 0 .AND. PART = '   ' .AND. DESC = '            ' .AND. SELL = 0
 SKIP
 IF VSEL = 'I'
  IF INUMBER <> LINV .OR. EOF()
   EXIT
  ENDIF
 ENDIF
 IF VSEL = 'Q'
  IF QNUMBER <> LINV .OR. EOF()
   EXIT
  ENDIF
 ENDIF
 LOOP
ENDIF
@ QROW,0 SAY QTY
@ QROW,5 SAY PART
@ QROW,13 SAY DESC
STORE QTY*SELL TO MSELL
@ QROW,60 SAY MSELL
@ QROW,72 SAY TAX
STORE MMAMT+MSELL TO MMAMT
IF PART <> '     '
 STORE PART TO MPART
 SELECT 5
 FIND &MPART
 IF EOF()
  STORE 'PART NUMBER NOT FOUND ' TO MLL
 ELSE
  STORE LVEN1 TO MMP
  SELECT 6
  SEEK MMP
  IF EOF()
   STORE 'VENDOR NOT FOUND' TO MLL
  ELSE
   STORE SUBSTR(NAME,1,10) + '  ' + STR(PHONE,12,0) + '  ' + SUBSTR(CSZ,1,10) + '  ' + SUBSTR(CONTACT,1,13) TO MLL
  ENDIF
 ENDIF
ENDIF
SELECT 4
STORE QROW+1 TO QROW
SKIP
IF VSEL = 'I'
 IF INUMBER <> LINV .OR. EOF()
  EXIT
 ENDIF
ENDIF
IF VSEL = 'Q'
 IF QNUMBER <> LINV .OR. EOF()
  EXIT
 ENDIF
ENDIF
ENDDO
SELECT 4
GOTO MREC
@ QROW+1,62 SAY '----------'
@ QROW+2,60 SAY MMAMT
@ QROW+7,0 SAY 'COMMENTS _____________________________________________________________________________________________________________________'
EJECT
SET DEVICE TO SCREEN
@ 24,0 CLEAR
RETURN