CLOSE ALL

SET DELETED ON
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()
	SELECT pm
	replace problem WITH "D"
ENDIF
SELECT pm
SKIP
ENDDO
RETURN
	
