OPEN DATABASE g:\radnja\baze\apoteka SHARED 
USE g:\radnja\baze\inventar ALIAS inventar SHARED IN 0
USE g:\radnja\baze\roba ALIAS roba SHARED IN 0
SELECT roba
GOTO top
DO WHILE !EOF()
a=roba.sifrob
b=roba.kolicina
SELECT inventar
	SET ORDER TO tag sifrob
	GOTO top
	SEEK a
	replace inventar.ikol WITH b
SELECT roba
SKIP
ENDDO
RETURN
