IMsProblemCalculationSettings.EntriesFilter

Синтаксис Fore

EntriesFilter: IMsCalculationChainFilter;

Синтаксис Fore.NET

EntriesFilter: Prognoz.Platform.Interop.Ms.IMsCalculationChainFilter;

Описание

Свойство EntriesFilter возвращает коллекцию элементов, рассчитываемых задачей.

родительский элемент. Все его дочерние элементы будут добавлены в коллекцию;
дочерний элемент. Все его родительские элементы будут добавлены в коллекцию без дополнительных дочерних элементов. Например, в цепочке расчета метамодели есть папка «Циклы», содержащая модели «Страны», «Города» и «Показатели». Если в коллекцию рассчитываемых элементов будет добавлена модель «Показатели», то в коллекцию также будет добавлена папка «Циклы». Модели «Страны» и «Города» не будут рассчитаны задачей.

Пример Fore

Для выполнения примера в репозитории предполагается наличие контейнера моделирования с идентификатором «MS», содержащим задачу моделирования с идентификатором «PROBLEM_FILTER». Метамодель, рассчитываемая данной задачей, должна содержать несколько элементов в цепочке расчета.

Добавьте ссылки на системные сборки: Metabase, Ms.

Sub UserProc;
Var
    mb: IMetabase;
    MsKey: Integer;
    Problem: IMsProblem;
    CalcChain: IMsCalculationChainEntries;
    CalcSettings: IMsProblemCalculationSettings;
    ChainFilter: IMsCalculationChainFilter;
    Calculation: IMsProblemCalculation;
    i: Integer;
Begin
    mb := MetabaseClass.Active;
    // Получаем ключ контейнера моделирования
    MsKey := mb.GetObjectKeyById("MS");
    // Получаем задачу моделирования
    Problem := mb.ItemByIdNamespace("PROBLEM_FILTER", MsKey).Edit As IMsProblem;
    // Получаем параметры расчета задачи
    CalcSettings := Problem.CreateCalculationSettings;
    // Получаем коллекцию рассчитываемых элементов
    ChainFilter := CalcSettings.EntriesFilter;
    // Очищаем коллекцию
    ChainFilter.Clear;
    // Получаем цепочку расчета
    CalcChain := Problem.EditMetaModel.CalculationChain;
    // Добавляем в коллекцию рассчитываемых элементов только нечетные элементы из цепочки расчета
    For i := 1 To CalcChain.Count Do
        If (i Mod 2) <> 0 Then
            ChainFilter.Add(CalcChain.Item(i - 1));
        End If;
    End For;
    // Выводим в окно консоли наименования рассчитываемых элементов
    Debug.WriteLine("Наименования рассчитываемых элементов:");
    For i := 0 To ChainFilter.Count - 1 Do
        Debug.WriteLine(ChainFilter.Item(i).Name);
    End For;
    // Выполняем расчет задачи
    Calculation := Problem.Calculate(CalcSettings);
    Calculation.Run;
End Sub UserProc;

В результате выполнения примера в расчете задачи будут участвовать только нечетные элементы из цепочки расчета.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Ms;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    MsKey: uinteger;
    Problem: IMsProblem;
    CalcChain: IMsCalculationChainEntries;
    CalcSettings: IMsProblemCalculationSettings;
    ChainFilter: IMsCalculationChainFilter;
    Calculation: IMsProblemCalculation;
    i: Integer;
Begin
    mb := Params.Metabase;
    // Получаем ключ контейнера моделирования
    MsKey := mb.GetObjectKeyById("MS");
    // Получаем задачу моделирования
    Problem := mb.ItemByIdNamespace["PROBLEM_FILTER", MsKey].Edit() As IMsProblem;
    // Получаем параметры расчета задачи
    CalcSettings := Problem.CreateCalculationSettings();
    // Получаем коллекцию рассчитываемых элементов
    ChainFilter := CalcSettings.EntriesFilter;
    // Очищаем коллекцию
    ChainFilter.Clear();
    // Получаем цепочку расчета
    CalcChain := Problem.EditMetaModel.CalculationChain;
    // Добавляем в коллекцию рассчитываемых элементов только нечетные элементы из цепочки расчета
    For i := 1 To CalcChain.Count Do
        If (i Mod 2) <> 0 Then
            ChainFilter.Add(CalcChain.Item[i - 1]);
        End If;
    End For;
    // Выводим в окно консоли наименования рассчитываемых элементов
    System.Diagnostics.Debug.WriteLine("Наименования рассчитываемых элементов:");
    For i := 0 To ChainFilter.Count - 1 Do
        System.Diagnostics.Debug.WriteLine(ChainFilter.Item[i].Name);
    End For;
    // Выполняем расчет задачи
    Calculation := Problem.Calculate(CalcSettings);
    Calculation.Run();
End Sub;

См. также: