IMsFormulaTransformVariable.Parameter

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

Sub UserProc;
Var
    mb: IMetabase;
    cm: IMetabaseObjectDescriptor;
    Model: IMsModel;
    Transform: IMsFormulaTransform;
    InputsVar: IMsFormulaTransformVariables;
    Varabl: IMsFormulaTransformVariable;
    i: Integer;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем контейнер моделирования
    cm := mb.ItemById("CONT_MODEL");
    // Получаем модель
    Model := mb.ItemByIdNamespace("MODEL", cm.Key).Bind As IMsModel;
    // Настраиваем параметры модели
    Transform := Model.Transform;
    // Настраиваем переменные метода
    InputsVar := Transform.Inputs;
    Debug.WriteLine("Переменные, которые являются параметрами:");
    For i := 0 To InputsVar.Count - 1 Do
        Varabl := InputsVar.Item(i);
        If Varabl.Parameter.Parameter.Id <> "" Then
            Debug.WriteLine("  " + Varabl.Id);
        End If;
    End For;
End Sub UserProc;