CLOSE ALL

SET DELETED ON
SET NEAR off
USE kalkstav ALIAS kalkstav IN 0
USE d:\jugocolor\podaci\kalk ALIAS kalk1 IN 0
SELECT kalk1
GOTO top
DO WHILE !EOF()
a1=kalk1.sifrob
a2=kalk1.kolicina
a3=kalk1.pcena
SELECT kalkstav
SET ORDER TO tag sifrob
GOTO top
SEEK a1
IF FOUND()
	IF a1==kalkstav.sifrob
		replace kalkstav.kolicina WITH a2
	ELSE
		?a1	
	endif	
ENDIF
SELECT kalk1
SKIP
ENDDO
