USE kalkstav alias kalkstav IN 0
USE roba ALIAS roba IN 0

SELECT kalkstav
GOTO top
DO WHILE !EOF()
a1=kalkstav.sifrob
SELECT roba
SET ORDER to tag sifrob
GOTO top
LOCATE FOR roba.sifrob==a1
IF FOUND()
	SELECT kalkstav
	replace kalkstav.sif1 WITH roba.sif
ENDIF
SELECT klakstav
SKIP
ENDDO
return	