* Program : PHYSICAL.PRG * Version : V4.2 * Author(s) : Joe Tomas * Date : 07/31/86 * Notice : * Called by : REPORTS.PRG * Call(s) : * Notes : PRINTS PHYSICAL INVENTORY WORKSHEET * : CLEAR STORE ' ' TO LOWER STORE ' ' TO UPPER STORE REPLICATE(".",29) TO DOTS STORE 1 TO COUNT SET COLOR TO I @ 01,00 ?? VWIDE+SPACE(40) SET COLOR TO +I @ 02,00 ?? VWIDE+' *** PHYSICAL INVENTORY WORKSHEET *** ' SET COLOR TO I @ 03,00 ?? VWIDE+SPACE(40) IF .NOT. FILE("OE-OK.MEM") @ 10,00 ?? VBELL3 SET COLOR TO I @ 10,20 SAY " PRODUC.DBF DATA FILE HAS NOT BEEN CREATED " SET COLOR TO DO WHILE COUNT < 40 STORE COUNT + 1 TO COUNT ENDDO CLEAR RETURN ENDIF @ 05,11 SAY " Enter the LOWER and UPPER range of product codes for this " @ 06,11 SAY " report. Enter ALL for the entire report. Enter END at " @ 07,11 SAY " either LOWER or UPPER range to end reporting function. " SET COLOR TO USE PRODUC INDEX PRODUC GOTO TOP DO WHILE LOWER <> 'END' .OR. UPPER <> 'END' @ 10,43 @ 12,43 @ 10,25 SAY 'ENTER LOWER RANGE ' GET LOWER @ 12,25 SAY 'ENTER UPPER RANGE ' GET UPPER READ STORE UPPER(LOWER) TO LOWER STORE UPPER(UPPER) TO UPPER @ 20,24 IF LOWER = 'END' .OR. UPPER = 'END' USE CLEAR RETURN ENDIF IF LOWER <> 'ALL' .AND. UPPER <> 'ALL' SEEK LOWER IF .NOT. FOUND() @ 20,24 SET COLOR TO + ?? VBELL3+'INVALID LOWER RANGE CODE' SET COLOR TO LOOP ENDIF ENDIF SEEK UPPER IF .NOT. FOUND() .OR. LOWER > UPPER @ 20,24 SET COLOR TO + ?? VBELL3+'INVALID UPPER RANGE CODE' SET COLOR TO LOOP ENDIF EXIT ENDDO IF LOWER = 'ALL' .OR. UPPER = 'ALL' GOTO TOP STORE PROCOD TO LOWER GOTO BOTTOM STORE PROCOD TO UPPER ENDIF @ 05,00 CLEAR ?? VBELL1 SET COLOR TO + @ 10,13 SAY 'PLACE PLAIN PAPER IN PRINTER...PRESS ANY KEY TO START ' SET COLOR TO DO WHILE INKEY() = 0 SET COLOR TO + @ 10,50 SAY 'ANY KEY' SET COLOR TO @ 10,50 SAY 'ANY KEY' ENDDO @ 10,00 CLEAR SET COLOR TO +*I @ 10,20 SAY ' PRINTING WORKSHEET...DO NOT INTERRUPT ' SET COLOR TO STORE 10 TO LINE STORE .T. TO TOP SET DEVICE TO PRINT * SET PRINTER TO NORMAL 80 COL MODE @ 01,00 SAY CHR(27)+'[1w' SEEK LOWER DO WHILE .NOT. EOF() IF TOP @ 02,035 SAY CHR(27)+'[5w'+'DECUS' @ 03,008 SAY CHR(27)+'[5w'+'SPG PHYSICAL INV. WORKSHEET' @ 04,000 SAY CHR(27)+'[1w' @ 05,027 SAY '[ ] BEGINNING [ ] ENDING' @ 06,000 SAY REPLICATE("-",80) @ 07,007 SAY 'DECUS' @ 07,069 SAY 'QTY' @ 08,007 SAY 'CODE' @ 08,014 SAY 'DEC PART #' @ 08,037 SAY 'ITEM DESCRIPTION' @ 08,066 SAY 'ON HAND' @ 09,000 SAY REPLICATE("=",80) ENDIF STORE .F. TO TOP IF PROCOD >= LOWER .AND. PROCOD <= UPPER @ LINE,08 SAY PROCOD @ LINE,14 SAY PARTNO @ LINE,28 SAY TRIM(DESCRI)+SUBSTR(DOTS,1,37-LEN(TRIM(DESCRI))) @ LINE,59 SAY '.....' @ LINE,65 SAY '______________' STORE LINE+1 TO LINE SKIP 1 DO WHILE EOF() .OR. PROCOD > UPPER @ 60,01 SAY ' ' @ 61,01 SAY ' ' @ 62,01 SAY ' ' @ 63,01 SAY ' ' @ 64,01 SAY ' ' USE SET DEVICE TO SCREEN SET CONSOLE ON CLEAR RETURN ENDDO IF LINE > 59 STORE 10 TO LINE @ 60,01 SAY ' ' @ 61,01 SAY ' ' @ 62,01 SAY ' ' @ 63,01 SAY ' ' @ 64,01 SAY ' ' STORE .T. TO TOP ENDIF ENDIF ENDDO EJECT SET CONSOLE ON RETURN