IMsProblemCalculationSettings.StubLoadSelections

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

Sub UserProc;
Var
    mb: IMetabase;
    MsKey: Integer;
    Problem: IMsProblem;
    CalcSettings: IMsProblemCalculationSettings;
    StubLoadSel: IMsStubLoadSelectionValues;
    StubLoadSelVal: IMsStubLoadSelectionValue;
    Stub: IVariableStub;
    SelSet: IDimSelectionSet;
    i: Integer;
    DimInst: IDimInstance;
    Sel: IDimSelection;
    Calculation: IMsProblemCalculation;
Begin
    mb := MetabaseClass.Active;
    // Получаем ключ контейнера моделирования
    MsKey := mb.GetObjectKeyById("MS");
    // Получаем задачу моделирования
    Problem := mb.ItemByIdNamespace("PROBLEM_FILTER", MsKey).Edit As IMsProblem;
    // Получаем параметры расчета задачи
    CalcSettings := Problem.CreateCalculationSettings;
    // Получаем параметры отметки в источниках данных для загрузки при расчете задачи
    StubLoadSel := CalcSettings.StubLoadSelections;
    // Очищаем отметку
    StubLoadSel.Clear;
    // Получаем первый источник данных, использующийся задачей моделирования
    Stub := Problem.VariableStubs(MsVariableKind.All).Item(0);
    // Задаем отметку в источнике данных для загрузки при расчете задачи
    StubLoadSelVal := StubLoadSel.Add(Stub.Key);
    // Выводим наименование источника данных
    Debug.WriteLine("Наименование источника данных: " + mb.Item(StubLoadSelVal.StubKey).Name);
    SelSet := StubLoadSelVal.SelectionSet;
    SelSet.Clear;
    For i := 0 To Stub.DimensionCount - 1 Do
        DimInst := (Stub.Dimension(i) As IMetabaseObject).Open(Null) As IDimInstance;
        Sel := SelSet.Add(DimInst);
        Sel.SelectElement(1, True);
        Sel.SelectElement(3, True);
    End For;
    // Выполняем расчет задачи
    Calculation := Problem.Calculate(CalcSettings);
    Calculation.Run;
End Sub UserProc;