*SET TALK OFF
*STORE 0 TO CL

STORE SEL TO XSEL
STORE 'PART NUMBER LIST' TO TOP1
CLEAR
IF XSEL = '4'
 STORE '#1 WEEKLY INVENTORY CHKOFF REPORT' TO TOP1
ENDIF
IF XSEL = '5'
 STORE '#2 WEEKLY INVENTORY PHYSICAL COUNT REPORT' TO TOP1
ENDIF
IF XSEL = '6'
 STORE '#3 WEEKLY INVENTORY RE-ORDER REPORT' TO TOP1
ENDIF
*@ 10,30 SAY '4 - #1 WEEKLY INVENTORY CHKOFF REPORT'
*@ 11,30 SAY '5 - #2 WEEKLY INVENTORY PHYSICAL COUNT REPORT'
*@ 12,30 SAY '6 - #3 WEEKLY INVENTORY RE-ORDER REPORT' 
DO TOP
STORE ' ' TO LLR
STORE 'Y' TO HEAVY
STORE 'N' TO PDR,CCC
STORE 'P' TO PRT
STORE ' ' TO CCC
@ 5,0 SAY 'SORT BY (B)OX LOCATION / (P)ART NUMBER / (O)RDER LEVEL - ' GET PRT PICTURE '!'
@ 6,0 SAY 'LOCATION (W-WAREHOUSE) - '  GET CCC PICTURE '!'
@ 7,0 SAY 'SKIP OVER (OLD) INVENTORY WITH HIGH LEVEL = 0 - ' GET LLR PICTURE '!'
@ 9,0 SAY 'MAKE SURE PRINTER IS ON LINE !!!'
@ 18,0 SAY 'Take this report and do the following:'
@ 19,0 say '#1 Match each line item with a invoice, fill in invoice #.'
@ 20,0 say "#2 If no invoice found try to locate the item and write down where it's at."
@ 22,0 SAY 'All VAN or CAR stock needs to be verified and filled in  OK.'
@ 24,0 SAY 'Scott will then check off each item.'
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
STORE 0 TO COL
@ 11,0 SAY 'SORTING FILE ... PLEASE WAIT  '
CLOSE DATA
STORE 'INVENTORY' TO DNET
DO NETERROR
IF PRT = 'B'
 SORT ON BOX, PNUM TO F:\PUBLIC\TEMP19
ELSE
 SORT ON PNUM TO F:\PUBLIC\TEMP19
ENDIF
CLOSE DATA
SELECT 1
STORE 'F:\PUBLIC\TEMP19' TO DNET
DO NETERROR
SELECT 2
STORE 'VENDOR' TO DNET
DO NETERROR
USE VENDOR INDEX VNUMBER
SELECT 12
STORE 'INVSTOCK' TO DNET
DO NETERROR
USE INVSTOCK
SELECT 1
GOTO TOP

*GET CLEAR STATUS FROM CURRENT INVENTORY TRANSFER INTO INVENTORY
DO WHILE .NOT. EOF()
STORE PNUM TO ZNUM
DO LOCKWAIT
REPLACE CLEARED WITH 'Y'
UNLOCK
SELECT 12
LOCATE FOR ZNUM = PN .AND. INVOICE = 0 .AND. DTOC(DATEOUT) <> '  /  /  '
IF .NOT. EOF()
 SELECT 1
 DO LOCKWAIT
 REPLACE CLEARED WITH ' '
 UNLOCK
ENDIF
SELECT 1
SKIP
ENDDO
SELECT 1
GOTO TOP
@ ROW,0 CLEAR
SET DEVICE TO PRINT
STORE ' ' TO MMCAT,MCAT
STORE 'Y' TO PCAT
STORE 5001 TO ROW
STORE 0 TO MCOST,MMCOST
DO WHILE .NOT. EOF()
IF XSEL = '4'
 IF CLEARED = 'Y'
  SKIP
  LOOP
 ENDIF
ENDIF
IF PNUM = '    '
 SKIP
 LOOP
ENDIF
IF LLR = 'Y'
 IF HLEVEL = 0
  SKIP
  LOOP
 ENDIF
ENDIF
IF CCC <> ' '
 IF AT(CCC,BOX) = 0
  SKIP
  LOOP
 ENDIF
ENDIF

IF PRT = 'O'
 IF ONHAND > LLEVEL
  SKIP
  LOOP
 ENDIF
ENDIF
IF ROW > 5000
 IF ROW <> 5001
  EJECT
 ENDIF
 @ 0,0 SAY CHR(18)
 @ 0,18 SAY TOP1
 @ 0,63 SAY 'DATE - ' + DTOC(DATE())
 @ 1,30 SAY '________________'
 @ 3,0 SAY CHR(15) + 'PART #             DESCRIPTION                VENDOR         PART NUMBER            HIGH LEV  LOW LEVEL  ONHAND  PHY-COUNT  RE-ORDER  '
 @ 4,0 SAY '--------------------------------------------------------------------------------------------------------------------------------------'
 STORE 6 TO ROW
ENDIF
STORE PNUM TO MPNUM
DO GETCAT
IF MCAT <> MMCAT
 STORE 'Y' TO PCAT
 STORE MCAT TO MMCAT
ENDIF
STORE LCOST1 TO PP
STORE 0 TO PPP
IF LCOST2 < PP .AND. LCOST2 <> 0
 STORE LCOST2 TO PP
ENDIF
IF LCOST3 < PP .AND. LCOST3 <> 0
 STORE LCOST3 TO PP
ENDIF
IF SELL <> 0 .AND. PP <> 0
 STORE PP/SELL TO PPP
 STORE (PPP)*100 TO PPP 
 STORE ROUND(PPP,0) TO PPP
ENDIF
IF PCAT = 'Y'
 STORE ROW+1 TO ROW
 @ ROW,0 SAY MCAT
 STORE ROW+1 TO ROW
 STORE '----------------------' TO PLINE
 @ ROW,0 SAY SUBSTR(PLINE,1,LEN(TRIM(MCAT)))
 STORE ROW+1 TO ROW
 STORE 'N' TO PCAT
ENDIF
STORE 0 TO LCC,LCC1,LCC2
IF ONHAND1 <= LLEVEL1 .AND. HLEVEL1 <> 0
 STORE HLEVEL1-ONHAND1 TO LCC1
ENDIF
IF ONHAND2 <= LLEVEL2 .AND. HLEVEL2 <> 0
 STORE HLEVEL2-ONHAND2 TO LCC2
ENDIF
SELECT 1
STORE LVEN1 TO MLVEN1
STORE LVEN2 TO MLVEN2
STORE LVEN3 TO MLVEN3
STORE SPACE(20) TO NLVEN1
STORE SPACE(20) TO NLVEN2
STORE SPACE(20) TO NLVEN3
STORE SPACE(20) TO CLVEN1
STORE SPACE(20) TO CLVEN2
STORE SPACE(20) TO CLVEN3
STORE SPACE(20) TO PLVEN1
STORE SPACE(20) TO PLVEN2
STORE SPACE(20) TO PLVEN3
STORE SPACE(15) TO PNVEN1
STORE SPACE(15) TO PNVEN2
STORE SPACE(15) TO PNVEN3
SELECT 2 
IF MLVEN1 <> 0
 SEEK MLVEN1
 IF .NOT. EOF()
  STORE NAME TO NLVEN1
  STORE PHONE TO PLVEN1
  STORE CONTACT TO CLVEN1  
 ENDIF
ENDIF
IF MLVEN2 <> 0
 SEEK MLVEN2
 IF .NOT. EOF()
  STORE NAME TO NLVEN2
  STORE PHONE TO PLVEN2
  STORE CONTACT TO CLVEN2  
 ENDIF
ENDIF
IF MLVEN3 <> 0
 SEEK MLVEN3
 IF .NOT. EOF()
  STORE NAME TO NLVEN3
  STORE PHONE TO PLVEN3
  STORE CONTACT TO CLVEN3  
 ENDIF
ENDIF
SELECT 1
STORE ' ' TO PLINE,PLINE1,PLINE2
IF SUBSTR(NLVEN1,1,5) <> '     '
 STORE 'VEN #1 - ' + TRIM(SUBSTR(NLVEN1,1,15)) + '  P#-' + LVENPNUM1 + '  ' + STR(PLVEN1,12,0) + '  ' + SUBSTR(CLVEN1,1,10)  TO PLINE
ENDIF
IF SUBSTR(NLVEN2,1,5) <> '     '
 STORE 'VEN #2 - ' + TRIM(SUBSTR(NLVEN2,1,15)) + '  P#' + LVENPNUM2 + '  ' + STR(PLVEN2,12,0) + '  ' + SUBSTR(CLVEN2,1,10) TO PLINE1 
ENDIF
STORE PLINE + SPACE(70) TO PLINE
STORE SUBSTR(PLINE,1,70) TO PLINE
STORE PLINE1 + SPACE(70) TO PLINE1
STORE SUBSTR(PLINE1,1,70) TO PLINE1

STORE PNUM TO ZNUM
SELECT 12
COUNT FOR ZNUM = PN TO XONHAND
SELECT 1																	
IF XONHAND <= LLEVEL .AND. HLEVEL <> 0
 STORE HLEVEL-XONHAND TO LCC
ENDIF
*STORE ROW+2 TO ROW																												
@ ROW,COL SAY CHR(15) + SUBSTR(PNUM,1,5) + ' ' + SUBSTR(PDESC,1,40) + ' ' + SUBSTR(NLVEN1,1,10) + '  ' + LVENPNUM1 + '  ' + STR(HLEVEL,8,0) + '  ' + STR(LLEVEL,8,0) + '  ' + STR(XONHAND,8,0) + '      ' + '_____' + ' ' + STR(LCC,6,0) 
STORE ROW+2 TO ROW
*@ ROW,0 SAY PLINE + 'V- ' + STR(HLEVEL1,8,0) + '  ' + STR(LLEVEL1,8,0) + '  ' + STR(ONHAND1,8,0) + '    ' + '_____' + ' ' + STR(LCC1,8,0)
*STORE ROW+1 TO ROW
*@ ROW,0 SAY PLINE1 + 'C- ' + STR(HLEVEL2,8,0) + '  ' + STR(LLEVEL2,8,0) + '  ' + STR(ONHAND2,8,0) + '    ' + '_____' + ' ' + STR(LCC2,8,0)
*STORE ROW+1 TO ROW
IF XONHAND <> 0
 SELECT 12
 GOTO TOP
 DO WHILE .NOT. EOF()
 IF XSEL = '4'
  IF INVOICE <> 0 .OR. DTOC(DATEOUT) = '  /  /  '
   SKIP
   LOOP
  ENDIF
 ENDIF
 IF PN = ZNUM
  STORE ROW-1 TO ROW
 
  @ ROW,0 SAY STR(RECNO(),4,0) + ' IN STOCK    DESC - ' + DESC + '  SN# - ' + SN + '  COST - ' + STR(COST,10,2)
  STORE ROW+1 TO ROW
  IF DTOC(DATEIN) = '  /  /  '
   @ ROW,5 SAY 'DATE CHK IN ________'
  ELSE
   @ ROW,5 SAY 'DATE CHK IN  ' + DTOC(DATEIN)
  ENDIF 
  IF DTOC(DATEOUT) = '  /  /  '
   @ ROW,29 SAY 'DATE CHK OUT ________'
  ELSE
   @ ROW,29 SAY 'DATE CHK OUT  ' + DTOC(DATEOUT)
  ENDIF 
  IF TEC = '  '
   @ ROW,52 SAY 'BY - ________'
  ELSE
   @ ROW,52 SAY 'BY - ' + TEC + '    '
  ENDIF 
  IF BILL = '  '
   @ ROW,69 SAY 'FOR - ________________________________________' +  '  INV# -  __________'
  ELSE
   @ ROW,69 SAY 'FOR - ' + BILL + '  INV# -  __________'
  ENDIF 
  STORE ROW+3 TO ROW
 ENDIF
 SKIP
 ENDDO
ENDIF
SELECT 1
STORE LCC * PP TO MCOST
STORE MCOST + (LCC * PP) TO MCOST
STORE MCOST + (LCC * PP) TO MCOST
*IF NONCOST = 'N'
* @ ROW,121 SAY STR(MCOST,10,2)
*ENDIF
STORE MMCOST + MCOST TO MMCOST
SKIP
ENDDO
*IF NONCOST = 'N'
* @ ROW+1,121 SAY '----------'
* @ ROW+2,121 SAY STR(MMCOST,10,2)
* STORE ROW+4 TO ROW
* @ ROW,0 SAY 'BOX DESC  1-BOARD BOX, 2-CABLE BOX, 3-P.S. BOX,HD'
*ENDIF
EJECT
SET DEVICE TO SCREEN
RETURN