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».

Class TESTForm: Form
    UiErAnalyzer1: UiErAnalyzer;
    CheckBox1: CheckBox;
    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;
        Self.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;
End Class TESTForm;

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

Пример Fore.NET

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

Public Partial Class TESTForm: Prognoz.Platform.Forms.Net.ForeNetForm
    Public Constructor TESTForm();
    Begin
        InitializeComponent();
    End Constructor;

    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;
        Self.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;
End Class;

См. также: