IMsCalculationChainEntries.AddUserOptimizationProblem

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

Sub UserProc;
Var
    Mb: IMetabase;
    ModelspaceDescr: IMetabaseObjectDescriptor;
    Problem: IMsProblem;
    UserOptimization: IMsUserOptimizationProblem;
    MetaModel: IMsMetaModel;
    CalculationChain, FolderCont: IMsCalculationChainEntries;
    Folder: IMsCalculationChainFolder;
    Period: IMsModelPeriod;
    UserOptChain: IMsCalculationChainUserOptimization;
Begin
    Mb := MetabaseClass.Active;
    // Получаем контейнер моделирования
    ModelspaceDescr := Mb.ItemById("CONT_MODEL");
    // Получаем задачу
    Problem := Mb.ItemByIdNamespace("USER_OPTIMIZATION", ModelspaceDescr.Key).Edit As IMsProblem;
    // Получаем пользовательскую задачу оптимизации
    UserOptimization := Problem.Details As IMsUserOptimizationProblem;
    // Получаем метамодель
    MetaModel := Problem.MetaModel;
    // Получаем цепочку расчёта и создаём в ней папку
    CalculationChain := MetaModel.CalculationChain;
    CalculationChain.Clear;
    Folder := CalculationChain.AddFolder("Пользовательская задача оптимизации");
    // Задаём параметры расчёта папки
    Folder.Level := DimCalendarLevel.Year;
    Period := Folder.Period;
    Period.IdentificationEndDate := DateTime.ComposeDay(2009, 12, 31);
    Period.IdentificationStartDate := DateTime.ComposeDay(2000, 1, 1);
    Period.ForecastEndDate := DateTime.ComposeDay(2020, 12, 31);
    Period.ForecastStartDate := DateTime.ComposeDay(2010, 1, 1);
    FolderCont := Folder.Contents;
    // Добавляем задачу и ограничение
    UserOptChain := Folder.Contents.AddUserOptimizationProblem(UserOptimization, DimCalendarLevel.Year);
    UserOptChain.Name := "Задача оптимзиации";
    Folder.Contents.AddUserOptimizationConstraint(UserOptChain, UserOptimization.Constraints.Item(0));
    // Сохраняем изменения
    (MetaModel As IMetabaseObject).Save;
    (Problem As IMetabaseObject).Save;
End Sub UserProc;