SET DELETED ON
USE d:\jugocolor\baze\roba ALIAS roba IN 0
USE d:\jugocolor\podaci\misa ALIAS misa IN 0
SET NEAR OFF
SELECT misa
GOTO top
DO WHILE !EOF()
a1=misa.sifrob
a2=misa.masa
a3=misa.jm1
a4=misa.oznaka
SELECT roba
SET ORDER TO tag sifrob
GOTO top
LOCATE FOR roba.sifrob==a1
IF FOUND()
	replace roba.masa WITH a2
	replace roba.jm1 WITH a3
	IF UPPER(ALLTRIM(a4))="N"
		replace roba.oznaka1 WITH 6
	endif	
ENDIF
SELECT misa
SKIP
ENDDO
RETURN
