SET DATE GERMAN
SET CENTURY on
SET DELETED ON
SET EXCLUSIVE OFF
USE d:\2020\robno\baze\fakstav ALIAS fakstav shared IN 0
USE d:\2020\robno\baze\zagfak ALIAS zagfak shared IN 0
SELECT fakstav
GOTO top
DO WHILE !EOF()
a1=fakstav.brdok
a2=fakstav.magacin
SCATTER memvar
SELECT zagfak
SET ORDER TO tag magbrdok
GOTO top
SEEK a2+a1
IF !FOUND()
	append blank
	GATHER memvar
	?m.brdok
ENDIF
SELECT fakstav
SKIP
ENDDO
RETURN
	
