IMsProblemCalculation.VariableStubs

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

Sub UserProc;
Var
    MB: IMetabase;
    Problem: IMsProblem;
    CalcSett: IMsProblemCalculationSettings;
    Calculation: IMsProblemCalculation;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    Problem := MB.ItemByIdNamespace("PROBLEM_1", MB.ItemById("KONT_MODEL").Key).Bind As IMsProblem;
    CalcSett := Problem.CreateCalculationSettings;
    Calculation := Problem.Calculate(CalcSett);
    For i := 0 To Calculation.VariableStubs.Count - 1 Do
        Debug.WriteLine((Calculation.VariableStubs.Item(i) As IMetabaseObject).Name);
    End For;
End Sub UserProc;