IMsCalculationChainFolder.Contents

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

Sub UserProc;
Var
    mb: Imetabase;
    MsKey: Integer;
    MetaModel: IMsMetaModel;
    CalcChain: IMsCalculationChainEntries;
    Folder: IMsCalculationChainFolder;
    Model: IMsModel;
Begin
    // Получаем репозиторий
    mb := MetabaseClass.Active;
    // Получаем ключ контейнера моделирования
    MsKey := mb.GetObjectKeyById("MS");
    // Получаем метамодель
    MetaModel := mb.ItemByIdNamespace("META", MsKey).Edit As IMsMetaModel;
    // Получаем цепочку расчета метамодели
    CalcChain := MetaModel.CalculationChain;
    // Проверяем, есть ли в цепочке расчета модель «MODEL_LINEARREGR»
    If CalcChain.FindById("MODEL_LINEARREGR") = Null Then
        // Если метамодели нет, то в цепочке расчета создаем папку
        Folder := CalcChain.AddFolder("Папка с моделью");
        CalcChain := Folder.Contents;
        // В созданную папку добавляем модель «MODEL_LINEARREGR»
        Model := mb.ItemByIdNamespace("MODEL_LINEARREGR", MsKey).Bind As IMsModel;
        CalcChain.AddModel(Model);
    End If;
    // Сохраняем изменения
    (MetaModel As IMetabaseObject).Save;
End Sub UserProc;