SourceProblem: IMsProblem;
Свойство SourceProblem определяет задачу моделирования, которую необходимо добавить в список запланированных задач.
Sub Main;
Var
MB: IMetabase;
CrInf: IMetabaseObjectCreateInfo;
MObj: IMetabaseObject;
Exe: ICalculateModelScheduledTask;
Per: IScheduledTaskPeriodDaily;
Prop: IScheduledTaskProperties;
Begin
MB := MetabaseClass.Active;
CrInf := Mb.CreateCreateInfo;
CrInf.ClassId := MetabaseObjectClass.KE_CLASS_TASK_CALCULATEMODEL;
CrInf.Id := "New_Task";
CrInf.Name := "New_Task";
CrInf.Parent := Mb.ItemById("Cont_scheduled_problems");
CrInf.Permanent := False;
MObj := Mb.CreateObject(CrInf).Edit;
Exe := MObj As ICalculateModelScheduledTask;
Exe.SourceProblem := MB.ItemByIdNamespace("PROBLEM_1", MB.ItemById("KONT_MODEL").Key).Bind As IMsProblem;
Prop := Exe.Properties;
Per := Prop.CreatePeriod(ScheduledTaskPeriodType.Daily) As IScheduledTaskPeriodDaily;
Per.StartDateTime := DateTime.Now;
Prop.Period := Per;
MObj.Save;
End Sub Main;
После выполнения примера в контейнере запланированных задач с идентификатором «Cont_scheduled_problems» будет создан новый объект, выполняющий расчет задачи моделирования.
См. также: