CLOSE ALL
USE d:\mevex\baze\roba ALIAS vproba IN 0
USE d:\zoovet\baze\rpovstav ALIAS nesto IN 0

SELECT vproba
GOTO top
DO WHILE !EOF()
a1=vproba.sifrob
a3=vproba.katbroj
IF EMPTY(a3)
	SKIP
	LOOP
endif	
SELECT nesto
GOTO top
DO WHILE !EOF()
IF nesto.sifrob<>a3
	SKIP
	LOOP
ENDIF
replace nesto.sifrob WITH a1
?a1,a3
SKIP
ENDDO

SELECT vproba
SKIP
ENDDO
		
