ДОбрый день!
На форме есть кнопка "подбор".

&НаКлиенте
Процедура Подбор(Команда)
    ПараметрыПодбора = Новый Структура("ЗакрыватьПриВыборе,МножественныйВыбор", Ложь, Истина);
    ОткрытьФорму("Справочник.Номенклатура.ФормаВыбора",ПараметрыПодбора, Элементы.Товары);
КонецПроцедуры

&НаКлиенте
Процедура ТоварыОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
    Для каждого Элемент Из ВыбранноеЗначение Цикл
    
        Строка = Объект.Товары.Добавить();
        Строка.Номенклатура = Элемент;
        Строка.Количество = 1;
        Строка.Цена = РаботаСДокументами.ПодстановкаЦеныСервер(Элемент,
            ?((Не ЗначениеЗаполнено(Объект.ВидПрайсаНоменклатуры)),ПолучениеКонстанты(),
            Объект.ВидПрайсаНоменклатуры), Объект.Дата);        
    
    КонецЦикла;
    
КонецПроцедуры
    
&НаСервереБезКонтекста
Функция ПолучениеКонстанты()

    Возврат Константы.ОсновнаяЦенаНоменклатуры.Получить();    

КонецФункции// ПолучениеКонстанты()()

при Множественном выборе система зависает, конфигуратор работает. Похоже на зацикливание, Как победить?

Прям зависает намертво?

(1) прям мистика какая-то теперь работает, похоже проблема была в     
Возврат Константы.ОсновнаяЦенаНоменклатуры.Получить();

(2) Освяти сервак. Демоны, не иначе ))))

файловая

(2)Нафиг ты в цикл вызов константы вставил? Получил бы один раз перед циклом

(0)
1.Убрать точки останова?
2. Называть переменные именами, отличными от имен параметров (Элемент)
3. Избавиться от запроса в цикле

1С зависает не потому что 1С, а потому что зависает

(6) всем спасибо, так сделал:

&НаКлиенте
Процедура Подбор(Команда)
    ПараметрыПодбора = Новый Структура("ЗакрыватьПриВыборе,МножественныйВыбор", Ложь, Истина);
    ОткрытьФорму("Справочник.Номенклатура.ФормаВыбора",ПараметрыПодбора, Элементы.Товары);
КонецПроцедуры

&НаКлиенте
Процедура ДобавитьСтрокуТовары(Элемент,ВидПрайсаНоменклатуры)

    Строка = Объект.Товары.Добавить();
    Строка.Номенклатура = Элемент;
    Строка.Количество = 1;
    Строка.Цена = РаботаСДокументами.ПодстановкаЦеныСервер(Элемент, ВидПрайсаНоменклатуры, Объект.Дата);        

КонецПроцедуры // ДобавитьСтрокуТовары()


&НаКлиенте
Процедура ТоварыОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
    ВидПрайсаНоменклатуры = ?((Не ЗначениеЗаполнено(Объект.ВидПрайсаНоменклатуры)),ПолучениеКонстанты(), Объект.ВидПрайсаНоменклатуры);
    Если ТипЗнч(ВыбранноеЗначение) = Тип("СправочникСсылка.Номенклатура") Тогда

        ДобавитьСтрокуТовары (Элемент,ВидПрайсаНоменклатуры);
        
    Иначе         
            
        Для каждого Товар Из ВыбранноеЗначение Цикл
    
            ДобавитьСтрокуТовары(Товар,ВидПрайсаНоменклатуры);
        
        КонецЦикла;
        
    КонецЕсли;

КонецПроцедуры
    
&НаСервереБезКонтекста
Функция ПолучениеКонстанты()

    Возврат Константы.ОсновнаяЦенаНоменклатуры.Получить();    

КонецФункции// ПолучениеКонстанты()()

(8) а ты попробуй первоначальный вариант вместо
&НаСервереБезКонтекста
Функция ПолучениеКонстанты()
написать

&НаСервере
Функция ПолучениеКонстанты()

а то походу ты лезешь на сервер без данных формы, а когда возвращаешься обратно, то считываются заново все выбранные значения и цикл получается бесконечным