Документы.УстановкаЦенНоменклатуры.Выбрать(,ВыборНоменклатуры) — перепишите код как
Документы.УстановкаЦенНоменклатуры.Выбрать()
В цикле Для Каждого ТекСтр Из Объект1.Данные Цикл надо сделать проверку на равенство номенклатуры в текущей строке номенклатуре выбранной на форме
Если ТекСтр.Номенклатура = ВыборНоменклатура Тогда ….. Установить цену 5000
