Property NameDepartment As DATA.PERSONNELDEPARTMEN.Department;

/// класс подразделения предприятия
Class DATA.PERSONNELDEPARTMEN.Department Extends (%Persistent, DATA.CORE.Kernel) [ Inheritance = right ]
{

/// Ссылка на предприятие
Relationship Enterprise As DATA.PERSONNELDEPARTMEN.Enterprise[ Cardinality = one, InitialExpression = " ", Inverse = Departmen ];
Index EnterpriseIndex On Enterprise;

/// подразделение предприятия
Property NameDepartment As DATA.PERSONNELDEPARTMEN.Department;

/// Код подразделения предприятия
Property CodDepartment As %String(MAXLEN =  20 , TRUNCATE =  1 );

/// Полное наименование подразделения предприятия
Property Name As %String(MAXLEN =  200 , TRUNCATE =  1 )[ Required ];

/// Сокращенное наименование подразделения предприятия
Property ShortName As %String(MAXLEN =  20 , TRUNCATE =  1 );

/// Тип подразделения 
Property TypeDepartment As %String(MAXLEN =  20 , TRUNCATE =  1 , VALUELIST = ",1,2,3,4,5,6,7");

/// Профиль подразделения
Relationship ProfileID As DATA.PERSONNELDEPARTMEN.ProfileDepartmen [ Cardinality = one, Inverse = DepartmenID ];

Index ProfileIDIndex On ProfileID;

/// состояние
Property stateDepartment As %Boolean;

/// Номер по-порядку в меню
/// Property NomInMenu As %Integer(MAXVAL =  20 , MINVAL =  1 ); 

/// Выбор всех подразделений 
Query GetAll() As %SQLQuery(CONTAINID =  1 )
{
SELECT %ID,
        Name,
        Enterprise->Name As NameEnterprise
        FROM DATA_PERSONNELDEPARTMEN.Department 
        ORDER BY Name
}

/// Выбор подразделений в заданном предприятии 
Query QueryDepartmentForEnterprise(enterprise As %String) As %SQLQuery(CONTAINID =  1 )
{
SELECT %ID,
		TypeDepartment,
		NameDepartment->Name As NameDepat,
		CodDepartment,
		Name,
		ShortName,
		Enterprise->Name As NameEnterprise				
		FROM DATA_PERSONNELDEPARTMEN.Department
WHERE (Enterprise->%ID = :enterprise)
ORDER BY Name
}

/// Выбор меню корневого уровня
Query QueryMenu(id As %String) As %SQLQuery(CONTAINID =  1 )
{
SELECT %ID,
		TypeDepartment,
		NameDepartment->Name As NameDepat,
		CodDepartment,
		Name,
		ShortName,
		Enterprise->Name As NameEnterprise
FROM DATA_PERSONNELDEPARTMEN.Department	
WHERE (NameDepartment is null ) And (Enterprise->%ID=:id)
ORDER BY Name
}

/// Выбор подменю в заданном меню пользователя
Query QueryPodMenuForMenu(codMenu As %String) As %SQLQuery(CONTAINID =  1 )
{
SELECT %ID,
		TypeDepartment,
		NameDepartment->Name As NameDepat,
		CodDepartment,
		Name,
		ShortName,
		Enterprise->Name As NameEnterprise
FROM DATA_PERSONNELDEPARTMEN.Department	
WHERE (NameDepartment->%ID=:codMenu )
}

/// Проверка наличия подменю
ClassMethod countPodMenuForMenu(codMenu As %String) As %Library.String [ SqlProc ]
{
 set TotalRecord = - 1  
 &sql(SELECT  COUNT(*) INTO :TotalRecord
 FROM DATA_PERSONNELDEPARTMEN.Department
 WHERE (NameDepartment->%ID=:codMenu )
)
 quit TotalRecord
}

......................................

}

...
Relationship NameDepartment As DATA.PERSONNELDEPARTMEN.Department[ Cardinality = one, Inverse = DepartmentID];

Relationship DepartmentID As DATA.PERSONNELDEPARTMEN.Department [ Cardinality = many, Inverse = NameDepartment ];
...