/*структура таблицы*/ 

Create table zDepartment (
	Id		INTEGER NOT NULL, 
	SubId		INTEGER, // ссылка на родителя
	D_From		Date NOT NULL,
	D_To		Date NOT NULL,
	Name		VARCHAR30,
	FullName	VARCHAR100,
	Id_ItemType	Integer,
	Check		(D_To >= D_From),
	Constraint PK_Department Primary Key(ID) ); 


 /*процедура для разбора*/ 

 /* список всех узлов у конкретного корня дерева zDepartment (полный доступ) */ 
CREATE PROCEDURE Sys_ListDeptSheetFull(
	RootId		Integer,  /* Идентефикатор корневого узла */ 
	DTime		Date,  /* текущая дата */ 
	TmpId		Integer,  /* Идентефикатор списка */ 
	ListOnly	Integer  /* если = 1 то только листья, =0 все узлы*/ 
)
AS
Declare Variable Flag		INTEGER;
Declare Variable NewRootId	integer;
begin
  Flag = null;
  for
    select D.id
    from zDepartment D
    where D.SubId = :RootId
    Into :NewRootId
  do
  begin
    Flag =  1 ;
    execute procedure Sys_ListDeptSheetFull (:NewRootId, :DTime,:TmpId,:ListOnly);
  end
  if (((Flag is null) or (ListOnly <>  1 )) and exists(
    select * from zDepartment where Id = :RootId
  ) and (not exists(
    select * from TmpIntTable where Id = :TmpId and F1 = :RootId
  ))) then
    insert into TmpIntTable(id,F1) values(:TmpId,:RootId);
  suspend;
end
^