ICompoundDimensionInstance.Type

Синтаксис Fore

Type: DimCompoundDimensionType;

Синтаксис Fore.NET

Type: Prognoz.Platform.Interop.Dimensions.DimCompoundDimensionType;

Описание

Свойство Type возвращает тип составного измерения.

Комментарии

Данное свойство доступно только для чтения.

Пример Fore

Для выполнения примера в репозитории необходимо наличие виртуального куба с идентификатором «VIRT_CUBE».

Добавьте ссылки на системные сборки: Cubes, Dimensions, Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    Cube: IVirtualCube;
    CDim: ICompoundDimension;
    Params: IMetabaseObjectParamValues;
    CDimInst: ICompoundDimensionInstance;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим виртуальный куб
    Cube := MB.ItemById("VIRT_CUBE").Edit As IVirtualCube;
    // Получим данные составного измерения
    CDim := Cube.FactDimension As ICompoundDimension;
    Params := (CDim As IMetabaseObject).Params.CreateEmptyValues;
    CDimInst := (CDim As IMetabaseObject).Open(Params) As ICompoundDimensionInstance;
    Select Case (CDimInst.Type As Integer)
        Case 1: Debug.WriteLine("Тип составного измерения - обычный");
        Case 2: Debug.WriteLine("Тип составного измерения - метаиерархия");
    End Select;
End Sub UserProc;

После выполнения примера в окно консоли выведется тип составного измерения виртуального куба.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Cube: IVirtualCube;
    CDim: ICompoundDimension;
    Paramss: IMetabaseObjectParamValues;
    CDimInst: ICompoundDimensionInstance;
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим виртуальный куб
    Cube := MB.ItemById["VIRT_CUBE"].Edit() As IVirtualCube;
    // Получим данные составного измерения
    CDim := Cube.FactDimension As ICompoundDimension;
    Paramss := (CDim As IMetabaseObject).Params.CreateEmptyValues();
    CDimInst := (CDim As IMetabaseObject).Open(Paramss) As ICompoundDimensionInstance;
    Select Case (CDimInst.Type As Integer)
        Case 1: System.Diagnostics.Debug.WriteLine("Тип составного измерения - обычный");
        Case 2: System.Diagnostics.Debug.WriteLine("Тип составного измерения - метаиерархия");
    End Select;
End Sub;

См. также:

ICompoundDimensionInstance