IDimAttributeHierarchy.BaseAttribute

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

Sub UserProc;
Var
    mb: IMetabase;
    dimension: IDimensionModel;
    attribute: IDimAttribute;
    attributes: IDimAttributes;
    attrhierarchy: IDimAttributeHierarchy;
    attrhierarchies: IDimAttributeHierarchies;
    dimindex: IDimIndex;
    id: string;
Begin
    // Получим репозиторий
    mb := MetabaseClass.Active;
    // Получим справочник
    dimension := mb.ItemById("DIM_SEP").Edit As IDimensionModel;
    // Получим коллекцию атрибутов справочника
    attributes := dimension.Attributes;
    // Получим атрибут «Name»
    attribute := attributes.FindById("NAME");
    // Получим коллекцию иерархий справочника
    attrhierarchies := dimension.AttributeHierarchies;
    // Найдем альтернативную иерархию по уровню
    attrhierarchy := attrhierarchies.FindByAttributeLevel(2, 2);
    // Зададим атрибут-оригинал, на значениях которого построена иерархия
    attrhierarchy.BaseAttribute := attribute;
    // Установим уровень иерархии
    attrhierarchy.Level := 2;
    // Получим индекс атрибута
    If attrhierarchy.AttributeIndex <> Null Then
        dimindex := attrhierarchy.AttributeIndex;
        id := dimindex.Id;
        Debug.WriteLine("Идентификатор индекса атрибута = " + id)
    Else
        Debug.WriteLine("В альтернативной иерархии не содержится индекс атрибута" + id)
    End If;
    // Сохраним изменения
    (dimension As IMetabaseObject).Save;
End Sub UserProc;