IDimAttribute.Hierarchies

Копировать пример

Sub UserProc;
Var
    mb: IMetabase;
    dimension: IDimensionModel;
    attribute: IDimAttribute;
    attributes: IDimAttributes;
    hierarchies: IDimAttributeHierarchiesList;
    count: Integer;
Begin
    // Получим репозиторий
    mb := MetabaseClass.Active;
    // Получим справочник
    dimension := mb.ItemById("DIM_SEP").Edit As IDimensionModel;
    // Получим атрибуты справочника
    attributes := dimension.Attributes;
    // Получим атрибут «Name»
    attribute := attributes.FindById("NAME");
    // Проверим, используется ли атрибут в качестве альтернативной иерархии
    If attribute.HasHierarchy Then
        Debug.WriteLine("Атрибут используется в качестве альтернативной иерархии")
            Else
        Debug.WriteLine("Атрибут не используется в качестве альтернативной иерархии");
    End If;
    // Получим иерархии атрибута
    hierarchies := attribute.Hierarchies;
    // Получим количество иерархий
    count := hierarchies.Count;
    // Выведем количество иерархий в окно консоли
    Debug.WriteLine("Количество иерархий = " + count.ToString);
End Sub UserProc;