IAlgorithmParamValue.Name

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo: ICalcObject;
    CalcAlgo: ICalcAlgorithm;
    ParamValues: IAlgorithmParameterValues;
    ValueList: IAlgorithmParamValueList;
    Param: IAlgorithmParamValue;
    ParamType: String;
Begin
    MB := MetabaseClass.Active;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Получим коллекцию параметров алгоритма расчёта
    ParamValues := CalcAlgo.ParamValues;
    ValueList := ParamValues.Values;
    // Получим первый параметр и выведем в консоль его настройки
    Param := ValueList.Item(0);
    Debug.WriteLine("Наименование: " + Param.Name + '(' + Param.Id + ')');
    Debug.Indent;
    Select Case Param.ParamType As Integer
        Case 5: ParamType := "Отметка элементов справочника";
        Case 7: ParamType := "Альтернативная иерархия";
    End Select;
    Debug.WriteLine("Тип параметра: " + ParamType);
    Debug.WriteLine("Справочник: " + Param.LinkedObject.Name);
    If Param.ParamType = TsParamType.Selection Then
        Debug.WriteLine("Количество элементов, отмеченных по умолчанию: " + (Param.Value As IDimSelection).SelectedCount.ToString);
    Elseif Param.ParamType = TsParamType.Hierarchy Then
        Debug.WriteLine("Ключ альтернативной иерархии: " + Param.Value);
    End If;
    Debug.Unindent;
End Sub UserProc;