IMDCalculationScheduledTask.SourceCalculation

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

Sub UserProc;
Var
    MB: IMetabase;
    CreateInfo: IMetabaseObjectCreateInfo;
    ScheduledTaskContObjD: IMetabaseObjectDescriptor;
    TaskObj: IMetabaseObject;
    Properties: IScheduledTaskProperties;
    PeriodTimeOnly: IScheduledTaskPeriodOneTimeOnly;
    MDCalc: IMDCalculation;
    MDCalcTask: IMDCalculationScheduledTask;
    MDCalcDescr: IMetabaseObjectDescriptor;
    CalcArgs: IMDCalculationCalculateArgs;
    MDTabInst: IMDCalculationInstance;
Begin
    Mb := MetabaseClass.Active;
    // Создаем задачу
    CreateInfo := MB.CreateCreateInfo;
    CreateInfo.Permanent := True;
    ScheduledTaskContObjD := MB.ItemById("Scheduled_Tasks_Cont");
    CreateInfo.Parent := ScheduledTaskContObjD;
    CreateInfo.ClassId := MetabaseObjectClass.KE_CLASS_TASK_CALCULATEMDCALCULATION;
    CreateInfo.Id := MB.GenerateId("MDCalcScheduledTask");
    CreateInfo.Name := "Выполнение многомерного расчета на сервере БД";
    TaskObj := MB.CreateObject(CreateInfo).Edit;
    MDCalcTask := TaskObj As IMDCalculationScheduledTask;
    // Задаем выполняемый многомерный расчет
    MDCalcDescr := MB.ItemById("MDCalc");
    MDCalc := MDCalcDescr.Bind As IMDCalculation;
    MDCalcTask.SourceCalculation := MDCalc;
    // Задаем параметры выполнения расчета
    MDTabInst := MDCalcDescr.Open(Null) As IMDCalculationInstance;
    CalcArgs := MDTabInst.CreateCalculateArgs;
    CalcArgs.CleanType := MDCalculateArgsCleanType.Existing;
    CalcArgs.UpdateType := MDCalculateArgsUpdateType.NotNull;
    CalcArgs.Recursion := TriState.OnOption;
    MDCalcTask.SetCalculationArgs(CalcArgs);
    // Задаем периодичность выполнения
    Properties := MDCalcTask.Properties;
    PeriodTimeOnly := Properties.CreatePeriod(ScheduledTaskPeriodType.OneTimeOnly) As IScheduledTaskPeriodOneTimeOnly;
    PeriodTimeOnly.StartMode := TaskPeriodOneTimeStartMode.Immediate; //Немедленно
    Properties.Period := PeriodTimeOnly;
    // Сохраняем задачу
    TaskObj.Save;
End Sub UserProc;