IRubricatorInstance.CreateValidationsLookup

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

Sub UserProc;
Var
    MB: IMetabase;
    RubInst: IRubricatorInstance;
    Loo: IRubricatorValidationsLookup;
Begin
    MB := MetabaseClass.Active;
    RubInst := MB.ItemById("OBJ_RUBRICATOR").Open(Null) As IRubricatorInstance;
    Loo := RubInst.CreateValidationsLookup;
    Loo.Open(DictionaryCursorOptions.None);
    While Loo.Eof = False Do
        Debug.WriteLine("Ключ выполнения валидации " + Loo.Current.Key.ToString + "; Ключ валидации "
            + Loo.Current.ValidationKey.ToString);
        Loo.Next;
    End While;
    Loo.Close;
End Sub UserProc;