IValidationExecuteSettings.DataMatrix

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

Sub UserProc;
Var
    mb: IMetabase;
    TSDBObj: IMetabaseObjectDescriptor;
    Dest: ICubeInstanceDestination;
    DestExec: ICubeInstanceDestinationExecutor;
    DataMatrix: IMatrix;
    Ite: IMatrixIterator;
    ValidFilter: IValidationFilter;
    ExecSett: IValidationExecuteSettings;
    ExecRun: IValidationExecRun;
    i: Integer;
Begin
    Mb := MetabaseClass.Active;
    // Получаем базу данных временных рядов
    TSDBObj := Mb.ItemById("TSDB");
    // Получаем вариант отображения базы данных временных рядов 
    Dest := (TSDBObj.Open(Null) As ICubeInstance).Destinations.DefaultDestination;
    DestExec := dest.CreateExecutor;
    DestExec.PrepareExecute(Null);
    DestExec.PerformExecute;
    // Получаем данные
    DataMatrix := DestExec.Matrix;
    // Изменяем данные
    Ite := DataMatrix.CreateIterator;
    Ite.Move(IteratorDirection.First);
    While Ite.Valid Do
        If Ite.Value < 10 Then
            Ite.Value := Ite.Value + 10;
        End If;
        Ite.Move(IteratorDirection.Next);
    End While;
    // Получаем правило валидации
    ValidFilter := Mb.ItemByIdNamespace("NAMBCOMP_VALIDATION", TSDBObj.Key).Bind As IValidationFilter;
    // Создаем параметры выполнения правила валидации
    ExecSett := ValidFilter.CreateExecuteSettings;
    // Задаем данные, на которых валидация будет рассчитываться
    ExecSett.DataMatrix := DataMatrix;
    // Выполняем расчет правила
    ExecRun := ValidFilter.Execute(ExecSett);
    // Выводим количество исключений в окно консоли
    Ite := ExecRun.Matrix.CreateIterator;
    Ite.Move(IteratorDirection.First);
    While Ite.Valid Do
        i := i + 1;
        Ite.Move(IteratorDirection.Next);
    End While;
    Debug.WriteLine("Количество исключений валидации: " + i.ToString);
End Sub UserProc;