IValidationExecRun.Matrix

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

Sub UserProc;
Var
    MB: IMetabase;
    RubInst: IRubricatorInstance;
    ValiRun: IValidationExecRun;
    ValidSel: IValidationExecSelection;
    ValiData: IValidationExecData;
    Mat: IMatrix;
    It: IMatrixIterator;
    Arr: Array[0..1] Of Integer;
Begin
    MB := MetabaseClass.Active;
    RubInst := MB.ItemById("OBJ_RUBRICATOR").Open(Null) As IRubricatorInstance;
    ValiData := RubInst.GetValidationExecData(1, DictionaryGetDataOptions.None);
    Arr[0] := 12195999;
    Arr[1] := 12196000;
    ValidSel := New ValidationExecSelection.CreateFactors(Null, Arr);
    ValiRun := RubInst.LoadValidationRun(ValiData, ValidSel);
    Mat := ValiRun.Matrix;
    It := Mat.CreateIterator;
    It.Move(IteratorDirection.First);
    While It.Valid Do
        Debug.WriteLine(It.Value);
        It.Move(IteratorDirection.Next);
    End While;
End Sub UserProc;