IMsCrossDimensionAggregationOptions.LevelValue

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

Sub UserProc;
Var
    mb: IMetabase;
    MsKey: Integer;
    Model: IMsModel;
    Transform: IMsFormulaTransform;
    Formula: IMsFormula;
    Aggr: IMsCrossDimensionAggregationTransform;
    strsGen: IMsFormulaStringGenerator;
    Options: IMsCrossDimensionAggregationOptions;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем ключ контейнера моделирования
    MsKey := mb.GetObjectKeyById("MS");
    // Получаем модель
    Model := mb.ItemByIdNamespace("MODEL_AGGR", MsKey).Edit As IMsModel;
    // Получаем параметры модели
    Transform := Model.Transform;
    // Получаем метод расчета модели
    Formula := Transform.FormulaItem(0);
    Aggr := Formula.Method As IMsCrossDimensionAggregationTransform;
    // Задаем метод расчета агрегации
    Aggr.AgregationMethod := MsAgregationMethodType.Sum;
    // Получаем дополнительные параметры расчета агрегации
    Options := Aggr.Options;
    // Задаем пороговое значение для расчета релевантности агрегации
    Options.Threshold := 0;
    // Указываем, что используем функцию Level
    Options.Level := True;
    // Задаем базовое значение для расчета функции Level
    Options.LevelValue := 90;
    // Указываем, что используем функцию Rebase
    Options.Rebase := True;
    // Задаем базовый период для расчета функции Rebase
    Options.RebaseDate := "2001A";
    // Указываем, что агрегация рассчитывается с учетом иерархии данных
    Options.FollowHierarchy := True;
    // Указываем, что агрегация рассчитывается только на один уровень вниз по иерархии
    Options.IncludeOnlyChild := True;
    // Указываем, что исходный элемент учитывается в агрегации
    Options.IncludeParent := True;
    // Создаем объект для генерации строкового представления метода расчета модели
    strsGen := Formula.CreateStringGenerator;
    // Указываем, что в наименованиях переменных используются полные имена
    strsGen.ShowFullVariableNames := True;
    // Генерируем строковое представление метода и выводим его в окно консоли
    Debug.WriteLine("Выражение агрегации: " + strsGen.Execute);
    // Сохраняем изменения в модели
    (Model As IMetabaseObject).Save;
End Sub UserProc;