IMsCrossDimensionAggregationTransform.Result

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

Sub UserProc;
Var
    mb: IMetabase;
    msDescr: IMetabaseObjectDescriptor;
    Model: IMsModel;
    Transform: IMsFormulaTransform;
    Formula: IMsFormula;
    Aggr: IMsCrossDimensionAggregationTransform;
    i: Integer;
    strsGen: IMsFormulaStringGenerator;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем модель
    msDescr := mb.ItemById("MS");
    Model := mb.ItemByIdNamespace("MODEL_AGGREGATION", msDescr.Key).Bind As IMsModel;
    // Получаем параметры модели
    Transform := Model.Transform;
    Formula := Transform.FormulaItem(0);
    Aggr := Formula.Method As IMsCrossDimensionAggregationTransform;
    strsGen := Formula.CreateStringGenerator;
    strsGen.ShowFullVariableNames := True;
    // Выводим информацию о модели в окно консоли
    Debug.WriteLine("Выражение агрегации: " + strsGen.Execute);
    Debug.WriteLine("Термы, использованные в выражении агрегации:");
    Debug.Indent;
    For i := 0 To Aggr.Operands.Count - 1 Do
        Debug.WriteLine(Aggr.Operands.Item(0).TermToText);
    End For;
    Debug.Unindent;
    Debug.WriteLine("Терм, соответствующий моделируемой переменной: " + Aggr.Result.TermToText);
End Sub UserProc;