IMsFormulaTransformVariable.Kind

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

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_M");
    Model := mb.ItemByIdNamespace("Model", cm.Key).Bind As IMsModel;
    Transform := Model.Transform;
    InputsVar := Transform.Inputs;
    For i := 0 To InputsVar.Count - 1 Do
        Varabl := InputsVar.Item(i);
        Debug.Write(Varabl.Id);
        Select Case Varabl.Kind
            Case MsFormulaTransformVariableKind.Stub: Debug.WriteLine(" - переменная содержит данные");
            Case MsFormulaTransformVariableKind.Parameter: Debug.WriteLine(" - переменная является параметром");
        End Select;
    End For;
End Sub UserProc;