AttributeHierarchies: IDimAttributeHierarchies;
AttributeHierarchies: Prognoz.Platform.Interop.Dimensions.IDimAttributeHierarchies;
Свойство AttributeHierarchies возвращает коллекцию альтернативных иерархий атрибутов справочника.
В коллекцию попадают иерархии, атрибуты которых используются в качестве альтернативных иерархий.
Для выполнения примера в репозитории предполагается наличие табличного справочника с идентификатором «DIM_SEP».
Добавьте ссылки на системные сборки: Dimensions, Metabase.
Sub UserProc;
Var
mb: IMetabase;
dimmodel: IDimensionModel;
attrhiearchy: IDimAttributeHierarchies;
count: Integer;
Begin
// Получим репозиторий
mb := MetabaseClass.Active;
// Получим структуру справочника
dimmodel := mb.ItemById("DIM_SEP").Bind As IDimensionModel;
// Получим коллекцию альтернативных иерархий атрибутов
attrhiearchy := dimmodel.AttributeHierarchies;
// Получим количество альтернативных иерархий
count := attrhiearchy.Count;
// Выведем количество в окно консоли
Debug.WriteLine("Количество альтернативных иерархий = " + count.ToString);
End Sub UserProc;
После выполнения примера в окно консоли выведется количество альтернативных иерархий атрибутов указанного справочника.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
dimmodel: IDimensionModel;
attrhiearchy: IDimAttributeHierarchies;
count: Integer;
Begin
// Получим репозиторий
mb := Params.Metabase;
// Получим структуру справочника
dimmodel := mb.ItemById["DIM_SEP"].Bind() As IDimensionModel;
// Получим коллекцию альтернативных иерархий справочника
attrhiearchy := dimmodel.AttributeHierarchies;
// Получим количество альтернативных иерархий
атрибутов
count := attrhiearchy.Count;
// Выведем количество в окно консоли
System.Diagnostics.Debug.WriteLine("Количество альтернативных иерархий = " + count.ToString);
End Sub;
См. также: