SET DEFAULT TO d:\2024\baze
SET DELETED ON
USE zagfak ALIAS zagfak IN 0
USE fakstav ALIAS fakstav IN 0
SET DATE GERMAN
SET CENTURY on
SELECT fakstav
SET ORDER TO tag brdok
GOTO top
SEEK "004501"
DO WHILE !EOF()
IF VAL(fakstav.brdok)<4502 
	SKIP
	LOOP
ENDIF
IF VAL(fakstav.brdok)>4511
	EXIT
ENDIF
a1=fakstav.brdok
SCATTER memvar
SELECT zagfak
SET ORDER TO tag brdok
GOTO top
SEEK a1
IF !FOUND()
	APPEND BLANK
	GATHER memvar
ENDIF
SELECT fakstav
SKIP
ENDDO
RETURN
		
	
