ICompoundSelection.IsDisplayCompound

Синтаксис Fore

IsDisplayCompound: Boolean;

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

IsDisplayCompound: boolean;

Описание

Свойство IsDisplayCompound определяет, будут ли отображаться частные измерения в виде составного справочника.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компонент CheckBox с наименованием«CheckBox1», компонент ErAnalyzerDimPanel с наименованием«ErAnalyzerDimPanel1» и компонент UiErAnalyzer с наименованием«UiErAnalyzer1», являющийся источником данных для компонента «ErAnalyzerDimPanel1». В качестве источника данных для компонента «UiErAnalyzer1» укажите экспресс-отчет, созданный по нескольким источникам.

Компонент «CheckBox1» аналогичен флажку «В виде составного изменения», отображаемому на вкладке «Частные измерения» панели «Отметка» экспресс-отчета.

Пример является обработчиком событий: OnCreate для формы и OnChange для компонента «CheckBox1».

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

    analyzer: IEaxAnalyzer;
    CompoundSel: ICompoundSelection;
…
Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
Var
    pivot: IPivot;
    VirtualCube: IVirtualCube;
    CompoundDimKey: Integer;
Begin
    analyzer := UiErAnalyzer1.ErAnalyzer;
    pivot := analyzer.Pivot;
    VirtualCube := (pivot.DataSource As ICubeInstanceDestination).Cube.Cube As IVirtualCube;
    CompoundDimKey := (VirtualCube.FactDimension As IMetabaseObjectDescriptor).Key;
    CompoundSel := pivot.Selection.FindByKey(CompoundDimKey) As ICompoundSelection;
    CheckBox1.Checked := CompoundSel.IsDisplayCompound;
End Sub TESTFormOnCreate;
…
Sub CheckBox1OnChange(Sender: Object; Args: IEventArgs);
Var
    pivot: IPivot;
    VirtualCube: IVirtualCube;
    CompoundDimKey: Integer;
…
Begin
    CompoundSel.IsDisplayCompound := CheckBox1.Checked;
    text := CompoundSel.IsDisplayCompound.ToString;
    analyzer.DataSources.Refresh(False);
    pivot := analyzer.Pivot;
    VirtualCube := (pivot.DataSource As ICubeInstanceDestination).Cube.Cube As IVirtualCube;
    CompoundDimKey := (VirtualCube.FactDimension As IMetabaseObjectDescriptor).Key;
    CompoundSel := pivot.Selection.FindByKey(CompoundDimKey) As ICompoundSelection;
End Sub CheckBox1OnChange;

В результате выполнения примера при установке флажка частные измерения будут отображены в виде составного справочника, состоящего из элементов частных измерений источников данных. В этом случае в названии формы будет отображено значение «True».

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Pivot;
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Metabase;
…
    analyzer: IEaxAnalyzer;
    CompoundSel: ICompoundSelection;
…
Private Sub TESTForm_Load(sender: System.Object; e: System.EventArgs);
Var
    pivot: IPivot;
    VirtualCube: IVirtualCube;
    CompoundDimKey: uinteger;
Begin
    analyzer := uiErAnalyzerNet1.ErAnalyzer.ErAnalyzer;
    pivot := analyzer.Pivot;
    VirtualCube := (pivot.DataSource As ICubeInstanceDestination).Cube.Cube As IVirtualCube;
    CompoundDimKey := (VirtualCube.FactDimension As IMetabaseObjectDescriptor).Key;
    CompoundSel := pivot.Selection.FindByKey(CompoundDimKey) As ICompoundSelection;
    CheckBox1.Checked := CompoundSel.IsDisplayCompound;
End Sub;
…
Private Sub checkBox1_CheckedChanged(sender: System.Object; e: System.EventArgs);
Var
    pivot: IPivot;
    VirtualCube: IVirtualCube;
    CompoundDimKey: uinteger;
Begin
    CompoundSel.IsDisplayCompound := CheckBox1.Checked;
    text := CompoundSel.IsDisplayCompound.ToString();
    analyzer.DataSources.Refresh(False);
    pivot := analyzer.Pivot;
    VirtualCube := (pivot.DataSource As ICubeInstanceDestination).Cube.Cube As IVirtualCube;
    CompoundDimKey := (VirtualCube.FactDimension As IMetabaseObjectDescriptor).Key;
    CompoundSel := pivot.Selection.FindByKey(CompoundDimKey) As ICompoundSelection;
End Sub;

См. также: