ftp.update.uu.se/ftp.update.uu.se.2014.03.zip/ftp.update.uu.se/pub/rainbow/msdos/decus/RB123/physical.prg

Text File | 1995-05-28 | 4KB | 174 lines

* 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