USE d:\mevex\baze\roba ALIAS vproba IN 0
USE d:\zoovet\baze\roba ALIAS roba IN 0

SELECT vproba
GOTO top
DO WHILE !EOF()
a1=vproba.sifrob
a2=vproba.naziv
a3=vproba.katbroj
a4=vproba.tarifa
SELECT roba
SET ORDER TO tag barkod
GOTO top
SEEK a3
IF FOUND()
	replace roba.sifrob WITH a1
	replace roba.naziv WITH a2
	replace roba.barkod WITH a3
	replace roba.tarifa WITH a4
ELSE
	APPEND BLANK
	replace roba.sifrob WITH a1
	replace roba.naziv WITH a2
	replace roba.barkod WITH a3
	replace roba.tarifa WITH a4
ENDIF
SELECT vproba
SKIP
ENDDO
		
