IRubricatorInstance.SaveValidationRun

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

Sub UserProc;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubInst: IRubricatorInstance;
    ValiRun: IValidationExecRun;
    ValiData: IValidationExecData;
    ArrVali: Array[1] Of Integer;
    i: integer;
    ObjVal: IMetabaseObject;
    v: IValidationFilter;
    Sett: IValidationExecuteSettings;
Begin
    MB := MetabaseClass.Active;
    RubInst := MB.ItemById("OBJ_RUBRICATOR").Open(Null) As IRubricatorInstance;
    ObjVal := MB.ItemByIdNamespace("OBJ_VALIDATION", RubDesc.Key).Edit;
    v := ObjVal As IValidationFilter;
    Sett := New ValidationExecuteSettings.Create;
    ValiRun := v.Execute(Sett);
    ValiData := RubInst.GetValidationExecData(-1, DictionaryGetDataOptions.Create);
    ValiData.Name := "Выполнение валидации";
    ArrVali[0] := ObjVal.Key;
    // У записи о расчете задаются рассчитанные валидации
    ValiData.ValidationKey := ObjVal.Key;
    ValiData.Validations := ArrVali;
    // Запись о расчете сохраняется в БД
    (ValiData As IRubricatorRecord).Save;
    // По этому новому расчету сохраняются данные
    i := RubInst.SaveValidationRun(ValiRun, ValiData);
    Debug.WriteLine("Ключ расчета валидации " + i.ToString);
End Sub UserProc;