IRubricatorInstance.SaveValidationRun

Copy example

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 := "Validation execution";
    ArrVali[0] := ObjVal.Key;
    // Calculated validations are set for calculation record
    ValiData.ValidationKey := ObjVal.Key;
    ValiData.Validations := ArrVali;
    // Calculation record is saved to database
    (ValiData As IRubricatorRecord).Save;
    // Data is saved for this new calculation
    i := RubInst.SaveValidationRun(ValiRun, ValiData);
    Debug.WriteLine("Validation calculation key " + i.ToString);
End Sub UserProc;