SET DELETED ON
SET CENTURY on
set date german

USE zagrac ALIAS zagrac IN 0
USE racstav ALIAS racstav IN 0
SELECT zagrac
SET ORDER TO tag kupdob
GOTO top
SEEK "0257"
DO WHILE !EOF()
IF zagrac.kupdob<>"0257"
	EXIT
ENDIF
mbr=zagrac.brdok
SELECT racstav
SET ORDER TO tag brdok
GOTO top
SEEK mbr
if !FOUND()
	?mbr
ENDIF
SELECT zagrac
SKIP
ENDDO
RETURN
			

