OPEN DATABASE d:\2009\robno\baze\belcar
USE d:\2009\robno\baze\roba ALIAS sroba IN 0

OPEN DATABASE z:\ro2009\baze\belcar SHARED
USE z:\ro2009\baze\roba ALIAS roba SHARED IN 0

SELECT sroba
GOTO top
DO WHILE !EOF()
a1=sroba.sifrob
a2=sroba.naziv
SELECT roba
SET ORDER TO tag sifrob
GOTO top
SEEK a1
IF FOUND()
	replace roba.naziv WITH a2
ENDIF
SELECT sroba
SKIP
ENDDO
	
