Процедура ДобавитьТекстHTML(ТекстHTML, Элемент); СсылкаНаЭлемент = ЗначениеВСтрокуВнутр(Элемент); ТекстHTML.ДобавитьСтроку("<A href= " + "v8:"+СсылкаНаЭлемент + ">"+Элемент+"</A><BR>"); КонецПроцедуры Процедура ДействияФормыСформировать(Кнопка) Запрос = Новый Запрос(" |ВЫБРАТЬ | Номенклатура.Ссылка |ИЗ | Справочник.Номенклатура КАК Номенклатура"); ТекстHTML = Новый ТекстовыйДокумент; Выборка = Запрос.Выполнить().Выбрать(); Пока Выборка.Следующий() Цикл ДобавитьТекстHTML(ТекстHTML, Выборка.Ссылка); КонецЦикла; ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(ТекстHTML.ПолучитьТекст()); КонецПроцедуры Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj) // Отказ от стандартной обработки клика. pEvtObj.returnValue = Ложь; Если ВРег(pEvtObj.srcElement.tagName) = "A" Тогда СсылкаТекст = Сред(pEvtObj.srcElement.href, 4); Ссылка = ЗначениеИзСтрокиВнутр(СсылкаТекст); Если Ссылка.Пустая() Или Ссылка.ПолучитьОбъект() = Неопределено Тогда Предупреждение("Ошибка открытия объекта.",, "Ошибка"); Возврат; Иначе ОткрытьЗначение(Ссылка); КонецЕсли; КонецЕсли; КонецПроцедуры