OPEN DATABASE \\kasa-pc\d\2015\baze\str 
SET DELETED ON
USE roba ALIAS roba IN 0
USE inventar ALIAS inventar IN 0


SELECT roba
GOTO top
DO WHILE !EOF()
a1=roba.sifrob
a2=roba.kolicina
SELECT inventar
SET ORDER TO tag sifrob
GOTO top
SEEK a1
IF FOUND()
	replace inventar.ikol WITH a2
	?a1
ENDIF
SELECT roba
SKIP
ENDDO
RETURN
	