CreateBlocks: IDimBlocks
CreateBlocks(): Prognoz.Platform.Interop.Dimensions.IDimBlocks;
Метод CreateBlocks возвращает коллекцию блоков справочника.
Для выполнения примера предполагается наличие в репозитории табличного справочника НСИ с настроенной динамической загрузкой элементов и с идентификатором «DYNDIM».
Добавьте ссылки на системные сборки: Dimensions и Metabase.
Sub UserProc;
Var
MB: IMetabase;
Dim: IDynamicInstance;
Blocks: IDimBlocks;
Begin
MB := MetabaseClass.Active;
Dim := MB.ItemById("DYNDIM").Open(Null) As IDynamicInstance;
// Получим коллекцию блоков справочника
Blocks := Dim.CreateBlocks;
// Выведем размер коллекции
Debug.WriteLine("Блоков в справочнике: " + Blocks.Count.ToString);
End Sub UserProc;
В результате выполнения примера в окно консоли будет выведен размер коллекции блоков справочника.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Dim: IDynamicInstance;
Blocks: IDimBlocks;
Begin
MB := Params.Metabase;
Dim := MB.ItemById["DYNDIM"].Open(Null) As IDynamicInstance;
// Получим коллекцию блоков справочника
Blocks := Dim.CreateBlocks();
// Выведем размер коллекции блоков
System.Diagnostics.Debug.WriteLine("Блоков в справочнике: " + Blocks.Count);
End Sub;
См. также: