IExecuteEtlScheduledTask.SourceTask

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

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Etl: IExecuteEtlScheduledTask;
    Period: IScheduledTaskPeriodMonthly;
    Prop: IScheduledTaskProperties;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    CrInfo := MB.CreateCreateInfo;
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_TASK_EXECUTEETL;
    CrInfo.Id := "ETL_EXECUTOR";
    CrInfo.Name := "Выполнение задачи ETL";
    CrInfo.Parent := MB.ItemById("TASK_CONTAINTER");
    MObj := MB.CreateObject(CrInfo).Edit;
    Etl := MObj As IExecuteEtlScheduledTask;
    Etl.SourceTask := MB.ItemById("ETL").Bind As IEtlTask;
    Prop := Etl.Properties;
    Period := Prop.CreatePeriod(ScheduledTaskPeriodType.Monthly) As IScheduledTaskPeriodMonthly;
    Period.DayOfWeek := CalendarDayOfWeek.LocaleDefault;
    Period.Day := 1;
    For i := 1 To 12 Do
        Period.Months(i As CalendarMonth) := True;
    End For;
    Period.StartTime := DateTime.ComposeTimeOfDay(12, 0, 0, 0);
    Prop.Period := Period;
    MObj.Save;
End Sub UserProc;