IMatrixQueryFilter.AllowNull

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    CubeDest: ICubeInstanceDestination;
    Executor: ICubeInstanceDestinationExecutor;
    Sels, FilterSel: IDimSelectionSet;
    Sel: IDimSelection;
    Factory: IMatrixFactory;
    Matrix: IMatrix;
    Query: IMatrixQuery;
    Filter: IMatrixQueryFilter;
Begin
    Mb := MetabaseClass.Active;
    // Открытие куба
    CubeDest := (Mb.ItemById("CUBE").Open(Null) As ICubeInstance).Destinations.DefaultDestination;
    Executor := CubeDest.CreateExecutor;
    // Создание отметки
    Sels := CubeDest.CreateDimSelectionSet;
    For Each Sel In Sels Do
        Sel.SelectAll;
    End For;
    // Получение матрицы с данными куба
    Executor.PrepareExecute(Sels);
    Executor.PerformExecuteO(CubeInstanceDestinationExecutorOptions.Cached);
    Matrix := Executor.Matrix;
    // Создание запроса
    Factory := New MatrixFactory.Create As IMatrixFactory;
    Query := Factory.CreateQuery(Matrix);
    Filter := Query.Filter;
    // Добавление отметки для фильтрации данных
    FilterSel := CubeDest.CreateDimSelectionSet;
    FilterSel.Item(0).SelectElement(0, False);
    FilterSel.Item(1).SelectElement(0, False);
    // Отметка для фильтрации
    Filter.Selection := FilterSel;
    Filter.AllowNull := True;
    // Выполнение фильтрации с AllowNull=True и просмотр результирующей отметки
    Debug.WriteLine("Filter.AllowNull=True");
    Query.Execute;
    ShowResult(Query.Result);
    // Выполнение фильтрации с AllowNull=False и просмотр результирующей отметки
    Debug.WriteLine("Filter.AllowNull=False");
    Filter.AllowNull := False;
    Query.Execute;
    ShowResult(Query.Result);
End Sub UserProc;

Sub ShowResult(Result: IMatrixQueryResult);
Var
    SelFactory: IDimSelectionSetFactory;
    ResSels: IDimSelectionSet;
    Sel: IDimSelection;
Begin
    SelFactory := New DimSelectionSetFactory.Create;
    ResSels := SelFactory.CreateDimSelectionSet;
    Result.GetSelectionSet(ResSels);
    For Each Sel In ResSels Do
        Debug.WriteLine("Измерение: " + (Sel.Dimension.Dimension As IMetabaseObject).Id +
            ".Отмечено элементов: " + Sel.SelectedCount.ToString + " из " + Sel.Dimension.Elements.Count.ToString);
    End For;
End Sub ShowResult;