IMsDetermAggregationTransform.AggregationOperands

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

Sub UserProc;
Var
    mb: IMetabase;
    obj: IMetabaseObject;
    Model: IMsModel;
    Transform: IMsFormulaTransform;
    Formula: IMsFormula;
    DetermAggregation: IMsDetermAggregationTransform;
    i: Integer;
    Operands: IMsFormulaTermList;
Begin
    mb := MetabaseClass.Active;
    Obj := Mb.Item(123456).Edit;
    Model := Obj As IMsModel;
    Transform := Model.Transform;
    Formula := Transform.FormulaItem(0);
    Formula.Kind := MsFormulaKind.DetermAggregation;
    DetermAggregation := Formula.Method As IMsDetermAggregationTransform;
    Operands := DetermAggregation.AggregationOperands;
    Debug.WriteLine("Термы выражения агрегации:");
    For i := 0 To Operands.Count - 1 Do
        Debug.WriteLine("  - " + Operands.Item(i).TermToText);
    End For;
    Operands := DetermAggregation.CompositionRelevanceOperands;
    Debug.WriteLine("Термы выражения расчета порога агрегации:");
    For i := 0 To Operands.Count - 1 Do
        Debug.WriteLine("  - " + Operands.Item(i).TermToText);
    End For;
    Operands := DetermAggregation.WeightsOperands;
    Debug.WriteLine("Термы выражения для задания весов агрегации:");
    For i := 0 To Operands.Count - 1 Do
        Debug.WriteLine("  - " + Operands.Item(i).TermToText);
    End For;
End Sub UserProc;