Item(Index: Integer): IDimHierarchy;
Index - индекс иерархии в коллекции.
Свойство доступно только для чтения.
Свойство Item возвращает альтернативную иерархию из коллекции по индексу.
Для выполнения примера предполагается наличие в репозитории справочника с идентификатором «TB_BASE».
Sub Main;
Var
Mb: IMetabase;
OriginalModelObj: IMetabaseObject;
OriginalModel: IDimensionModel;
Hierarchies: IDimHierarchies;
i: Integer;
Hierarchy: IDimHierarchy;
Begin
Mb := MetabaseClass.Active;
OriginalModelObj := Mb.ItemById("TB_BASE").Edit;
OriginalModel := OriginalModelObj As IDimensionModel;
Hierarchies := OriginalModel.Hierarchies;
Debug.WriteLine("Иерархии справочника '" + OriginalModelObj.Name + "':");
For i := 0 To Hierarchies.Count - 1 Do
Hierarchy := Hierarchies.Item(i);
Debug.WriteLine(" Наименование: " + Hierarchy.Name);
Debug.WriteLine(" Идентификатор: " + Hierarchy.Id);
Debug.WriteLine(" Ключ: " + Hierarchy.Key.ToString);
Debug.WriteLine("------");
End For;
End Sub Main;
После выполнения примера в окно консоли будет выведена информация об альтернативных иерархиях справочника «TB_BASE».
См. также: