STORE ALIAS() TO DBBF
SELECT 2
STORE RECNO() TO SSEL2
SELECT 4
STORE RECNO() TO SSEL4
SELECT 5
STORE RECNO() TO SSEL5
SELECT 90
SET EXCLUSIVE ON
USE COMBINE
ZAP
SET EXCLUSIVE OFF
SELECT 5

IF VSEL = 'M'
 RETURN
ENDIF
SAVE SCREEN
SELECT 6
STORE 'VENDOR' TO DNET
DO NETERROR
USE VENDOR INDEX VNUMBER
SELECT 5
*@ ROW24,0 CLEAR
*STORE ' ' TO SSS
STORE ' ' TO LLL
STORE STR(CURPRT,1,0) TO LLL
*@ ROW24,48 SAY LLL
*@ ROW23,78 SAY ' '
*SET PRINTER TO TEMP
IF DBBB = 'SERVER'
 SET PRINTER TO LPT1
ELSE
 SET PRINTER TO LPT1
ENDIF
*ACCEPT 'PRINT TO PRINTER #0,1,2,3 or C TO CANCEL - ' TO LLL 
*@ ROW24,0 CLEAR
*@ ROW23,78 SAY ' '
*ACCEPT 'PRINT COMBINED ORDER REPORT (Y/N) - ' TO COMBINE 
STORE 'N' TO COMBINE
*STORE UPPER(LLL) TO LLL 
*IF CL = 1
* PRESSED = LASTKEY()
* IF PRESSED = 27
*  RESTORE SCREEN
*  RETURN
* ENDIF
*ENDIF
*IF LLL = 'C'
* RETURN
*ENDIF
*IF LLL = '0'
* DO PENDCAP
*ENDIF
*IF LLL = '1'
* DO PSINGLE
**ENDIF
*IF LLL = '2'
* DO PDOUBLE
*ENDIF
*IF LLL = '3'
* DO PLASER
*ENDIF
 
STORE CURPRT TO DDD
STORE VAL(LLL) TO SELPRT
*DO SELPRT
SET DEVICE TO PRINT
SELECT 2
*@ 0,0 SAY CHR(27) + CHR(64)
*@ 2,0 SAY ' '
@ 3,30 SAY 'SALES ORDER' + CHR(27) + CHR(70)
STORE 7 TO QROW
@ QROW,0 SAY '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)+'  PO-'+ PO
STORE QROW+2 TO QROW
@ QROW,0 SAY 'PERSON       - ' + PERSON
SELECT 1
SET ORDER TO 1
STORE RECNO() TO MREC
SEEK MMCUSTNUM
@ QROW,40 SAY 'PHONE        - ' + STR(PHONE,15,0) 
STORE QROW+2 TO QROW
@ 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 + SPACE(20) + 'ORDERED ON -  ____________'
*@ QROW,105 SAY 'CHECK IT !!'
STORE QROW+2 TO QROW
@ QROW,0 SAY ' VENDOR  QTY  PART #                   DESC               SERIAL #      SELL      '
STORE QROW+1 TO QROW
@ QROW,0 SAY ' ------  ---  ------  ----------------------------------------------  ---------   '
STORE QROW+1 TO QROW
STORE 0 TO MMAMT,MMAMT1
GOTO MREC
SELECT 4
STORE RECNO() TO MREC
SEEK LINV
DO WHILE .T.
SELECT 4
*IF QTY = 0 .OR. (PART = '   ' .AND. DESC = '            ' .AND. SELL = 0 )
IF QTY = 9998
 SKIP
 IF VSEL = 'I'
  IF INUMBER <> LINV .OR. EOF()
   EXIT
  ENDIF
 ENDIF
 IF VSEL = 'W'
  IF SNUMBER <> LINV .OR. EOF()
   EXIT
  ENDIF
 ENDIF
 IF VSEL = 'Q'
  IF QNUMBER <> LINV .OR. EOF()
   EXIT
  ENDIF
 ENDIF
 LOOP
ENDIF
@ QROW,0 SAY '__________' 
@ QROW,10 SAY QTY
*@ QROW,4 SAY '|'
@ QROW,15 SAY PART
*@ QROW,12 SAY '|'
@ QROW,22 SAY SUBSTR(DESC,1,46)
*@ QROW,59 SAY '|'
IF LLL = 'Y'
 @ QROW,62 SAY STR(COST,8,2)
ENDIF
@ QROW,72 SAY STR(SELL,8,2)
*@ QROW,86 SAY '_____________________'
*@ QROW,71 SAY '|'
*@ QROW,69 SAY TAX
*@ QROW,73 SAY '|'
STORE MMAMT+ (SELL*QTY) TO MMAMT
STORE MMAMT1+ (COST*QTY) TO MMAMT1
STORE PART TO LL
*COMBINE TOTAL QTY OF ALL SIMULAR PART NUMBER TO PRINT AT END OF REPORT
STORE DESC TO XDESC
STORE QTY TO XQTY
IF SUBSTR(PART,1,5) <> '     '
 SELECT 90
 LOCATE FOR XDESC = DESC
 IF EOF()
  DO FILELOCK
  APPEND BLANK
  REPLACE DESC WITH XDESC
  REPLACE QTY WITH XQTY
  UNLOCK
 ELSE
  DO LOCKWAIT
  REPLACE QTY WITH QTY+XQTY
  UNLOCK
 ENDIF
ENDIF
SELECT 5
STORE ' ' TO MTEST
FIND &LL
STORE LVEN1 TO MLVEN1
STORE 0 TO LV2,LV3
STORE ' ' TO LP2,LP3
IF .NOT. EOF()
* STORE TESTCAT TO MTEST
 SELECT 6
 SEEK MLVEN1
 IF EOF()
  STORE '______________' TO LLK
 ELSE
  IF NAME = '   '
   STORE '______________' TO LLK
  ELSE
   STORE NAME TO LLK
  ENDIF
 ENDIF
 SELECT 5
* @ QROW,72 SAY '---'
* @ QROW,84 SAY SUBSTR(LLK,1,10) 
* @ QROW,98 SAY LVENPNUM1 + '___'
 STORE STR(LVEN2,4,0) TO LV2
 STORE LVENPNUM2 TO LP2
 STORE STR(LVEN3,4,0) TO LV3
 STORE LVENPNUM3 TO LP3
ELSE
* @ QROW,84 SAY '__________' 
ENDIF
SELECT 4
STORE ' ' TO MLL
IF AT('A',MTEST) <> 0 
 STORE MLL + 'SN ____________ ' TO MLL 
ENDIF
IF AT('B',MTEST) <> 0 
 STORE MLL + 'CK SER ___ ' TO MLL 
ENDIF
IF AT('C',MTEST) <> 0 
 STORE MLL + 'CK PAR ___ ' TO MLL 
ENDIF
IF AT('D',MTEST) <> 0 
 STORE MLL + 'CK MEM ___ RESET ___ TURBO ___ ' TO MLL 
ENDIF
IF AT('E',MTEST) <> 0 
 STORE MLL + 'CK COPRO ___ ' TO MLL 
ENDIF
IF AT('F',MTEST) <> 0 
 STORE MLL + 'CK FLOP ___ ' TO MLL 
ENDIF
IF AT('G',MTEST) <> 0 
 STORE MLL + 'CK HD SIZ,LED ___ ' TO MLL 
ENDIF
IF AT('H',MTEST) <> 0 
 STORE MLL + 'TEST  ___ ' TO MLL 
ENDIF
IF AT('I',MTEST) <> 0 
 STORE MLL + 'CK SPK  ___ ' TO MLL 
ENDIF
*@ QROW,104 SAY MLL
SELECT 4
STORE QROW+1 TO QROW
*IF LP2 <> '  ' .AND. QTY <> 0
 *@ QROW,6 SAY 'ADDITIONAL VENDOR INFORMATION >>'
 *@ QROW,45 SAY LV2 
 **@ QROW,52 SAY LP2
 *STORE QROW+1 TO QROW
*ENDIF
*IF LP3 <> '  '.AND. QTY <> 0
* @ QROW,72 SAY LV3 
* @ QROW,79 SAY LP3
*ENDIF
RELEASE LV2,LV3,LP2,LP3
SKIP
IF VSEL = 'I'
 IF INUMBER <> LINV .OR. EOF()
  EXIT
 ENDIF
ENDIF
IF VSEL = 'W'
 IF SNUMBER <> LINV .OR. EOF()
  EXIT
 ENDIF
ENDIF
IF VSEL = 'Q'
 IF QNUMBER <> LINV .OR. EOF()
  EXIT
 ENDIF
ENDIF
ENDDO
SELECT 4
GOTO MREC

IF LLL = 'Y'
 @ QROW+1,58 SAY '----------'
 @ QROW+1,68 SAY '----------'
 @ QROW+2,55 SAY MMAMT1
 @ QROW+2,65 SAY MMAMT
ELSE
 @ QROW+1,74 SAY '----------'
 @ QROW+2,68 SAY MMAMT
ENDIF

SELECT 2
@ QROW+5,0 SAY 'Write all serial numbers on this sheet. When finished drop in '
@ QROW+7,0 SAY 'the Completed Work Box'
*@ QROW+10,0 SAY CHR(27) + CHR(69) + 'INV # _________   QUOTED ________   DATE PROMISED ________   COMPLETED ________' + CHR(27) + CHR(70)
STORE QROW+8 TO QROW
EJECT
IF COMBINE = 'Y'
 *PRINT COMBINE PART # REPORT
 STORE 0 TO ROW
 @ ROW,0 SAY 'COMBINED PART NUMBER REPORT'
 STORE ROW+1 TO ROW
 @ ROW,0 SAY '---------------------------'
 STORE ROW+2 TO ROW
 SELECT 90
 SORT ON DESC TO LRR
 USE LRR
 COPY TO COMBINE
 USE COMBINE
 DELETE FILE LRR.DBF
 GOTO TOP 
 DO WHILE .NOT. EOF()
 @ ROW,0 SAY QTY
 @ ROW,10 SAY DESC
 STORE ROW+1 TO ROW
 SKIP
 ENDDO
ENDIF
SET DEVICE TO SCREEN
@ ROW24,0 CLEAR

SELECT 90
USE
SELECT 2
GOTO SSEL2
SELECT 4
GOTO SSEL4
SELECT 5
GOTO SSEL5
SELECT &DBBF
STORE DDD TO SELPRT
DO SELPRT
RESTORE SCREEN
SET PRINTER TO
RETURN