SET DELETED ON
CLOSE ALL

USE popismaja ALIAS pm IN 0
USE roba ALIAS roba IN 0

SELECT pm
GOTO top
DO WHILE !EOF()
a1=pm.sifrob
a2=pm.kolicina
SELECT roba
SET ORDER TO tag sifrob
GOTO top
SEEK a1
IF found()
	replace roba.kolicina WITH roba.kolicina+a2
ELSE
	?a1
ENDIF
SELECT pm
SKIP
ENDDO
		