ICompoundSelection.IsCompound

Синтаксис Fore

IsCompound: Boolean;

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

IsCompound: Boolean;

Описание

Свойство IsCompound определяет признак того, каким образом задана отметка: над элементами составного справочника или над элементами источников составного справочника.

При значении свойства True необходимо привести интерфейс ICompoundSelection к IDimSelection и задавать отметку, используя его свойства и методы. При значении свойства False необходимо задавать отметку по измерениям куба в свойстве Selection.

Пример Fore

Для выполнения примера понадобится форма с расположенными на ней компонентами Button, UiErAnalyzer, ErAnalyzerDimPanel и TabSheetBox с идентификаторами «Button1», «UiErAnalyzer1», «ErAnalyzerDimPanel1» и «TabSheetBox1» соответственно. Для компонентов «ErAnalyzerDimPanel1» и «TabSheetBox1» в качестве источника выбран компонент «UiErAnalyzer1», к которому подключён экспресс-отчёт, основанный на нескольких источниках данных.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    curolap: IEaxAnalyzer;
    Pivot: IPivot;
    Selection: IDimSelectionSet;
    CompoundSel, CompoundSel1: ICompoundSelection;
    dimSel: IDimSelection;
Begin
    curolap := UiErAnalyzer1.Instance As IEaxAnalyzer;
    Pivot := curolap.Pivot;
    Pivot.BeginSelectionUpdate;
    Selection := Pivot.Selection;
    CompoundSel := Selection.FindById("FACTS_COMPOUND") As ICompoundSelection;
    If CompoundSel.IsCompound Then
        dimSel := CompoundSel As IDimSelection;
        dimSel.SelectAll;
    Else
        For Each CompoundSel1 In CompoundSel.Selection Do
            For Each dimSel In CompoundSel1.Selection Do
                dimSel.SelectElement(0, False);
                dimSel.SelectAll;
            End For;
        End For;
    End If;
    Pivot.EndSelectionUpdate;
End Sub Button1OnClick;

После выполнения примера,при нажатии на компонент «Button1», из выбранных на компоненте «ErAnalyzerDimPanel1» частных измерений будет составлено составной справочник.

Пример Fore.NET

Для выполнения примера понадобится форма с расположенными на ней компонентами Button, UiErAnalyzerNet, ErAnalyzerDimPanelNet и TabSheetBoxNet с идентификаторами «Button1», «UiErAnalyzerNet1», «ErAnalyzerDimPanelNet1» и «TabSheetBoxNet1» соответственно. Для компонентов «ErAnalyzerDimPanelNet1» и «TabSheetBoxNet1» в качестве источника выбран компонент «UiErAnalyzerNet1», к которому подключён экспресс-отчёт, основанный на нескольких источниках данных.

Imports System;
Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Pivot;
Imports Prognoz.Platform.Interop.Express;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    curolap: IEaxAnalyzer;
    Pivot: IPivot;
    Selection: IDimSelectionSet;
    CompoundSel, CompoundSel1: ICompoundSelection;
    DimSel: IDimSelection;
Begin
    curolap := UiErAnalyzerNet1.ErAnalyzer.Instance As IEaxAnalyzer;
    Pivot := curolap.Pivot;
    Pivot.BeginSelectionUpdate();
    Selection := Pivot.Selection;
    CompoundSel := Selection.FindById("FACTS_COMPOUND") As ICompoundSelection;
    If CompoundSel.IsCompound Then
        DimSel := CompoundSel As IDimSelection;
        DimSel.SelectAll();
    Else
        For Each CompoundSel1 In CompoundSel.Selection Do
            For Each DimSel In CompoundSel1.Selection Do
                DimSel.SelectElement(0, False);
                DimSel.SelectAll();
            End For;
        End For;
    End If;
    Pivot.EndSelectionUpdate();
End Sub;

После выполнения примера,при нажатии на компонент «Button1», из выбранных на компоненте «ErAnalyzerDimPanelNet1» частных измерений будет составлено составной справочник.

См. также: