ValidationExecSelection.CreateSelection

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

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