SET TALK OFF
*STORE 0 TO CL

STORE SEL TO XSEL
STORE 'PART NUMBER LIST' TO TOP1
CLEAR
STORE '11505 18003 18001 18007 18002 18006 18004' TO GPNUM
*IF PNUM<>'11505'.AND.PNUM<>'18003'.AND.PNUM<>'18001'.AND.PNUM<>'18007'.AND.PNUM<>'18002'.AND.PNUM<>'18004'.AND.PNUM<>'18006'
STORE ' ' TO TOP2
IF XSEL = 'A'
 STORE '                   #1 WEEKLY INVENTORY CLEAR REPORT' TO TOP1
 store '           Verify each item is billed, rma, etc. Clear with menu #3' to top2
ENDIF
IF XSEL = 'B'
 STORE '           #2 WEEKLY INVENTORY PHYSICAL COUNT REPORT' TO TOP1
 Store '               Verify each item is on the shelf' to top2
ENDIF
IF XSEL = 'C'
 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 'Y' TO LLR
STORE 'Y' TO HEAVY

STORE 'N' TO PDR,CCC
STORE 'P' TO PRT
STORE 'S' TO PRT
STORE 'W' TO CCC
STORE 'N' TO SL
STORE 'L' TO SPRT
@ 5,0 SAY 'SORT BY (B)OX LOCATION / (P)ART NUMBER / (O)RDER LEVEL / (S)HELF - ' 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 '!'
*@ 8,0 SAY 'Print short listing for report (Y/N) - ' get sl picture '!'
@ 9,0 SAY 'Part number to print, leave blank to print all - ' get gpnum
@ 11,0 SAY 'Print to  L=Laser or blank for local - ' get sprt picture '!'
@ 18,0 SAY 'Take this report and do the following:'
IF XSEL = 'A'
 @ 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.'
ENDIF
IF XSEL = 'B'
 @ 20,0 SAY 'Check each inventory item in warehouse against this report'
ENDIF
IF XSEL = 'C'
 @ 20,0 SAY 'Make sure  PHYSICAL INVENTORY REPORT is correct  BEFORE running'
 @ 21,0 say 'this report.'
ENDIF
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
*IF SEL = 'A'
* store 'Y' TO SEL
* SET COLOR TO 14
* @ 12,0 CLEAR
* @ 12,0 SAY 'Run the program to automatically input I/W/Q into the inventory file (Y/N) - ' get sel picture '!'
* READ
* SET COLOR TO 2
* IF SEL = 'Y'
*  DO SSEARCH
*  @ 10,0 CLEAR
* 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 TEMP19
ENDIF
IF PRT = 'S'
 INDEX ON STR(SHELF,1,1)+STR(POSISTION,1,1) TO TTT
 USE INVENTORY INDEX TTT
 COPY TO TEMP19
ENDIF
CLOSE DATA
SET EXCLUSIVE ON
SELECT 1
STORE 'TEMP19' TO DNET
DO NETERROR
*DELETE ALL PART NUMBERS EXCEPT 
*MODEMS INTERNAL,MODEM EXTERNAL,MONITORS,HARD DRIVES
*DELETE FOR PNUM <> '15100'.AND.PNUM <> '15101'.AND.PNUM <> '12031'
PACK
SET EXCLUSIVE OFF
SELECT 2
STORE 'VENDOR' TO DNET
DO NETERROR
USE VENDOR INDEX VNUMBER
SELECT 12
STORE 'INVSTOCK' TO DNET
DO NETERROR
USE INVSTOCK
INDEX ON PN TO XPN
USE INVSTOCK INDEX XPN
SELECT 1
GOTO TOP

*GET CLEAR STATUS FROM CURRENT INVENTORY TRANSFER INTO INVENTORY
DO WHILE .NOT. EOF()
@ 11,40 SAY RECNO()
SELECT 1
IF PNUM = '    '
 SKIP
 LOOP
ENDIF
STORE PNUM TO ZNUM
DO LOCKWAIT
REPLACE CLEARED WITH 'Y'
REPLACE DATEOUT WITH 'Y'
UNLOCK
STORE PNUM TO ZNUM
SELECT 12
STORE 0 TO XONHAND,XREALLEV
STORE 'N' TO CLEAR,DOUT
FIND &ZNUM
DO WHILE .NOT. EOF()
IF ZNUM = PN
 IF DTOC(DATEOUT) = '  /  /  '
  STORE XONHAND+1 TO XONHAND 
 ENDIF
 IF DTOC(DATEOUT) = '  /  /  ' .AND. BILL = '     '
  STORE XREALLEV+1 TO XREALLEV 
 ENDIF
 IF INVOICE = 0 .AND. DTOC(DATEOUT) <> '  /  /  '
  STORE 'Y' TO CLEAR
 ENDIF
 IF DTOC(DATEOUT) = '  /  /  '
  STORE 'Y' TO DOUT
 ENDIF
ENDIF
SKIP
ENDDO
SELECT 1
DO LOCKWAIT
REPLACE ONHAND WITH XONHAND
REPLACE REALLEV WITH XREALLEV
IF CLEAR = 'Y'
 REPLACE CLEARED WITH ' '
ENDIF
IF DOUT = 'Y'
 REPLACE DATEOUT WITH ' '
ENDIF
UNLOCK
SKIP
ENDDO

SELECT 1
GOTO TOP
@ ROW,0 CLEAR
SET DEVICE TO PRINT
IF SPRT = 'L'
 SET PRINTER TO LPT3
 @ 0,0 say chr(27)+'(10U'+chr(27)+chr(27) + '(s0p16.67h8.5v0s0b0T'+chr(27)+'&l8.8D'
ELSE
 SET PRINTER TO LPT1
ENDIF
STORE ' ' TO MMCAT,MCAT
STORE 'N' TO PCAT
STORE 5001 TO ROW
STORE 0 TO MCOST,MMCOST

DO WHILE .NOT. EOF()
IF XSEL = 'A' 
 IF CLEARED = 'Y' 
  SKIP
  LOOP
 ENDIF
ENDIF
IF XSEL = 'B' 
 IF DATEOUT = 'Y' 
  SKIP
  LOOP
 ENDIF
ENDIF
IF XSEL = 'C' 
 IF REALLEV > LLEVEL .OR. HLEVEL = 0
  SKIP
  LOOP
 ENDIF
ENDIF

IF PNUM = '    ' 
 SKIP
 LOOP
ENDIF
IF GPNUM <> '     '
 IF PNUM<>'11505'.AND.PNUM<>'18003'.AND.PNUM<>'18001'.AND.PNUM<>'18007'.AND.PNUM<>'18002'.AND.PNUM<>'18004'.AND.PNUM<>'18006'
  SKIP
  LOOP
 ENDIF
ENDIF
IF LLR = 'Y'
 IF HLEVEL = 0
  SKIP
  LOOP
 ENDIF
ENDIF
STORE ' ' TO CCC
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 ' '
 @ 0,18 SAY TOP1
 @ 0,93 SAY 'DATE - ' + DTOC(DATE())
 @ 1,0 SAY top2
 @ 2,0 SAY '------------------------------------------------------------------------------------------------------------------------'
* IF XSEL = 'B'
*  @ 2,0 SAY 'PART #             DESCRIPTION                SHELF     POSISTION'
* ELSE
*  @ 2,0 SAY 'PART #             DESCRIPTION                VENDOR         PART NUMBER            HIGH LEV  LOW LEVEL  ONHAND  PHY-COUNT  RE-ORDER  '
* ENDIF
 STORE 4 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

IF REALLEV <= LLEVEL .AND. HLEVEL <> 0
 STORE HLEVEL-REALLEV TO LCC
ENDIF
STORE ROW+2 TO ROW																												
IF XSEL = 'B'											
 @ ROW,COL SAY 'PART # - ' + SUBSTR(PNUM,1,5) + '    DESCRIPTION - ' +  SUBSTR(PDESC,1,40) + ' SHELF # -' + STR(SHELF,2,0) + '  POSISTION # - ' + STR(POSISTION,2,0) 
ELSE
 @ ROW,COL SAY 'PART # - ' + SUBSTR(PNUM,1,5) + '    DESCRIPTION - ' + SUBSTR(PDESC,1,40) + '    VENDOR - ' + SUBSTR(NLVEN1,1,10) + '  VENDOR PART # - ' + LVENPNUM1 
 IF XSEL <> 'A'
  STORE ROW+1 TO ROW
  @ ROW,COL SAY 'IN STOCK - ' +  STR(REALLEV,8,0) + '  RE-ORDER -  ' + STR(LCC,6,0) + '  HIGH LEVEL - ' + STR(HLEVEL,8,0) + '   LOW LEVEL - ' +STR(LLEVEL,8,0) + '  PHYSCIAL COUNT - _______'
 ENDIF
ENDIF
STORE ROW+1 TO ROW
@ ROW,0 SAY '======================================================================================================================='
STORE ROW+2 TO ROW
STORE ROW TO LROW
*@ 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
STORE PNUM TO ZNUM
IF ONHAND <> 0 .AND. XSEL <> 'C'
 SELECT 12
 GOTO TOP
 DO WHILE .NOT. EOF()
 IF  DESC = '    '
  do lockwait
  DELETE
  unlock
  SKIP
 ENDIF
 *SKIP OVER THER DETAILS

 IF XSEL = 'A'
  IF INVOICE <> 0 .OR. DTOC(DATEOUT) = '  /  /  ' .OR. CLEARED = 'Y'
   SKIP
   LOOP
  ENDIF
 ENDIF
 IF XSEL = 'B'
  IF DTOC(DATEOUT) <> '  /  /  '
   SKIP
   LOOP
  ENDIF
 ENDIF
 IF PN = ZNUM
  IF SL = 'Y'
   @ ROW,0 SAY SN + '  ' + DESC + DTOC(DATEIN)
   STORE ROW+1 TO ROW
  ELSE
   IF XSEL <> 'B'
    @ ROW,0 SAY STR(RECNO(),4,0) + ' IN STOCK    DESC - ' + DESC + '  SN# - ' + SN + '  COST - ' + STR(COST,10,2)
   ELSE
    @ ROW,0 SAY STR(RECNO(),4,0) + ' DESC - ' + DESC + '  SN# - ' + SN + '____  CHECK IF IN STOCK'
   ENDIF
   IF XSEL <> 'B'
    STORE ROW+1 TO ROW
    IF DTOC(DATEIN) = '  /  /  '
     @ ROW,5 SAY 'CHECKED IN ________'
    ELSE
     @ ROW,5 SAY 'CHECKED IN ' + DTOC(DATEIN)
    ENDIF 
    IF DTOC(DATEOUT) = '  /  /  '
     @ ROW,29 SAY 'CHECKED OUT ________'
    ELSE
     @ ROW,29 SAY 'CHECKED OUT ' + DTOC(DATEOUT)
    ENDIF 
    IF TEC = '  '
     @ ROW,54 SAY 'BY - ________'
    ELSE
     @ ROW,54 SAY 'BY - ' + TEC + '    '
    ENDIF 
    IF BILL = '  '
     @ ROW,69 SAY 'FOR - ________________________________________' +  '  INV# - ' + STR(INVOICE,5,0)
    ELSE
     @ ROW,69 SAY 'FOR - ' + SUBSTR(BILL,1,20) + '  INV# -  ' + STR(INVOICE,5,0)
    ENDIF 
   ENDIF
   STORE ROW+2 TO ROW
  ENDIF
  IF ROW > 76
   EJECT
   STORE 4 TO ROW
   @ 0,0 SAY ' '
   @ 0,18 SAY TOP1
   @ 0,93 SAY 'DATE - ' + DTOC(DATE())
   @ 1,0 SAY top2
   @ 2,0 SAY '--------------------------------------------------------------------------------------------------------------'
  ENDIF
 ENDIF
 SKIP
 ENDDO
ENDIF
IF ROW = LROW
 @ ROW,COL SAY 'NO ITEMS FOUND TO LIST '
 STORE ROW+1 TO ROW
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
IF XSEL = 'A'
 @ ROW+2,0 SAY 'Each of these items need to be matched with a invoice #'
 @ ROW+3,0 SAY '**** All inventory items listed have been checked out of stock and have not been cleared.' 
 @ ROW+4,0 SAY '**** Search invoices, etc. to locate item.  After locating, go into inventory then #3 to checkoff item.'

ENDIF
IF XSEL = 'B'
 @ ROW+2,0 SAY '**** Physically check off each item that is in stock.'
ENDIF
@ ROW+5,0 SAY 'END OF REPORT'
EJECT
IF SPRT = 'L'
 @ ROW+1,0 SAY chr(27)+'E'
ENDIF
SET DEVICE TO SCREEN
CLOSE DATA
RETURN
*@ 0,0 SAY 'TODAYS ACTIVITY'
*@ 1,0 SAY '---------------'
SELECT 12
DO WHILE .NOT. EOF()
STORE 3 TO ROW
IF DATEIN = DATE() .OR. DATEOUT = DATE()
 @ 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# - ' + STR(INVOICE,5,0)
 ELSE
  @ ROW,69 SAY 'FOR - ' + BILL + '  INV# -  ' + STR(INVOICE,5,0)
 ENDIF 
 STORE ROW+2 TO ROW
ENDIF
SKIP
ENDDO
IF SPRT = 'L'
 @ ROW+1,0 SAY chr(27)+'E'
ENDIF
SET DEVICE TO SCREEN
CLOSE DATA
USE RPTDATES
IF XSEL = 'A'
 LOCATE FOR NAME = '#1 WEEKLY INV CHKOFF          '
 IF .NOT. EOF()
  DO LOCKWAIT
  REPLACE DATE WITH DATE()
  UNLOCK
 ENDIF
ENDIF
IF XSEL = 'B'
 LOCATE FOR NAME = '#2 WEEKLY INV PHYSICAL COUNT  '
 IF .NOT. EOF()
  DO LOCKWAIT
  REPLACE DATE WITH DATE()
  UNLOCK
 ENDIF
ENDIF
IF XSEL = 'C'
 LOCATE FOR NAME = '#2 WEEKLY INV RE-ORDER        '
 IF .NOT. EOF()
  DO LOCKWAIT
  REPLACE DATE WITH DATE()
  UNLOCK
 ENDIF
ENDIF
CLOSE DATA
RETURN