IScheduledTaskValidationChecker.Validation

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    cont: IScheduledTasksContainer;
    task: IScheduledTask;
    TChecker: IScheduledTaskChecker;
    ValidationChecker: IScheduledTaskValidationChecker;
Begin
    MB := metabaseClass.Active;
    cont := MB.ItemById("TASK_CONTAINER").Edit As IScheduledTasksContainer;
    task := cont.Tasks.Item(0).Edit As IScheduledTask;
    TChecker := task.CreateChecker(ScheduledTaskCheckerType.Validation);
    ValidationChecker := TChecker As IScheduledTaskValidationChecker;
    Debug.WriteLine("Task execution condition is set: ");
    Select Case (TChecker.Type As Integer)
        Case 0: Debug.WriteLine(" - Execute task if function is performed with result");
        Case 1: Debug.WriteLine(" - Execute task if validation rule is performed with result");
    End Select;
    ValidationChecker.Validation := MB.ItemByIdNamespace("VALIDATION", MB.ItemById("RUBRICATOR").Key).Bind;
    ValidationChecker.Condition := STValidationCheckerConditionType.Equal;
    ValidationChecker.ExceptionCount := 0;
    task.TaskChecker := TChecker;
    (task As IMetabaseObject).Save;
End Sub UserProc;