IMetaAttribute.IsInHierarchyByDefault

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

Sub UserProc;
Var
    mb: IMetabase;
    Rub: IRubricator;
    Dic: IMetaDictionary;
    MetaAttrs: IMetaAttributes;
    AttCity, AttIndicator: IMetaAttribute;
    SelCity, SelIndicator: IDimSelection;
Begin
    // Получаем базу данных временных рядов
    mb := MetabaseClass.Active;
    Rub := mb.ItemById("TSDB_HIE_BY_DEF").Edit As IRubricator;
    // Получаем атрибуты временных рядов
    Dic := Rub.EditFacts;
    MetaAttrs := Dic.Attributes;
    // Получаем атрибут «CITY»
    AttCity := MetaAttrs.FindById("CITY");
    // Указываем, что атрибут будет первым в иерархии по умолчанию
    AttCity.IsInHierarchyByDefault := True;
    AttCity.OrderInHierarchyByDefault := 0;
    // Задаем отметку, используемую по умолчанию для атрибута
    SelCity := (AttCity.ValuesObject.Open(Null) As IDimInstance).CreateSelection;
    SelCity.SelectAll;
    AttCity.FilterInHierarchyByDefault := SelCity;
    // Получаем атрибут «INDICATOR»
    AttIndicator := MetaAttrs.FindById("INDICATOR");
    // Указываем, что атрибут будет вторым в иерархии по умолчанию
    AttIndicator.IsInHierarchyByDefault := True;
    AttIndicator.OrderInHierarchyByDefault := 1;
    // Задаем отметку, используемую по умолчанию для атрибута
    SelIndicator := (AttIndicator.ValuesObject.Open(Null) As IDimInstance).CreateSelection;
    SelIndicator.SelectAll;
    AttIndicator.FilterInHierarchyByDefault := SelIndicator;
    // Сохраняем и применяем изменения
    Rub.AlterAndSave;
End Sub UserProc;