1С 8.2 УП : Как получить HTML ссылку на объект БД?

 Процедура ДобавитьТекст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);

        Ссылка = ЗначениеИзСтрокиВнутр(СсылкаТекст);

        Если Ссылка.Пустая()

        Или Ссылка.ПолучитьОбъект() = Неопределено Тогда

            Предупреждение("Ошибка открытия объекта.",, "Ошибка");

            Возврат;

        Иначе

            ОткрытьЗначение(Ссылка);

        КонецЕсли;

    КонецЕсли;

КонецПроцедуры