USE roba ALIAS roba IN 0
USE grupe ALIAS grupa IN 0
SELECT roba
GOTO top
DO WHILE !EOF()
a1=roba.grupa
SELECT grupa
SET ORDER TO GRUPA   && GRUPA
GOTO top
SEEK a1
IF !FOUND()
	APPEND BLANK
	replace grupa.grupa WITH a1
ENDIF
SELECT roba
SKIP
ENDDO
	