* Program   : END.PRG
* Version   : V4.2
* Author(s) : Joe Tomas 
* Date      : 08/22/86
* Notice    : 
* Called by : FMAINT.PRG 
* Call(s)   :   
* Notes     : PROGRAM TO ENTER ENDING INVENTORY QUANTITIES
*           : 

CLEAR
SET CONFIRM ON
STORE SPACE(11) TO PARTNO
STORE SPACE(30) TO DESCRI
STORE SPACE(3)  TO PROCOD
STORE SPACE(3)  TO CODE
STORE 0 TO ENDCNT
STORE 0 TO COUNT

USE MASTER INDEX MASTER

@ 01,00
SET COLOR TO I
?? VWIDE+SPACE(40)
@ 02,00
SET COLOR TO I+
?? VWIDE+'     *** ENTER ENDING INVENTORY ***     '
@ 03,00
SET COLOR TO I
?? VWIDE+SPACE(40)

DO WHILE PROCOD <> 'END'
   SET COLOR TO I+
   @ 10,25 SAY 'DECUS PRODUCT CODE  : ' GET CODE
   @ 23,25 SAY ' ENTER <END> TO EXIT '
   SET COLOR TO
   READ

   IF CODE = 'END'
      USE
      CLEAR
      RETURN
   ENDIF

   SEEK CODE

   IF .NOT. FOUND()
      @ 12,00
      ?? VBELL3
      SET COLOR TO +
      @ 10,52 SAY 'INVALID PRODUCT CODE'
      SET COLOR TO
      LOOP
   ELSE
      @ 10,52
   ENDIF

   SET COLOR TO I+
   @ 12,25 SAY 'DEC PART #          : '+ PARTNO 
   @ 14,25 SAY 'DESCRIPTION         : '+ DESCRI 
   @ 16,25 SAY 'ENTER ENDING QTY    : ' GET ENDCNT
   SET COLOR TO
   @ 15,00 
   ?? VBELL1
   READ

   SKIP 1
   STORE PROCOD TO CODE
   @ 12,47
   @ 14,47
   @ 16,47
   STORE 0000 TO COUNT
ENDDO
SET CONFIRM OFF
RETURN