Привет, Денис!
Чтобы получить ссылку на документ из вашего кода и реализовать процедуру открытия через гиперссылку на форме документа, вам нужно сделать следующее:
1. **Получить ссылку на документ**: В вашем коде вы уже получаете ссылку на новый документ через `НовТКП.Ссылка`. Это значение можно использовать для создания гиперссылки.
2. **Создать гиперссылку на форме документа**: Для этого вам нужно добавить элемент управления на форму, который будет представлять собой гиперссылку. Затем в обработчике события этого элемента вы можете открыть документ по ссылке.
Вот пример, как это можно сделать:
### Шаг 1: Получение ссылки на документ
В вашем коде вы уже получаете ссылку на документ, когда записываете новый документ:
1C Стр.Ссылка = НовТКП.Ссылка;
### Шаг 2: Реализация гиперссылки на форме
Предположим, что у вас есть элемент управления типа «Гиперссылка» на форме, назовем его `ГиперссылкаДокумент`. Вам нужно добавить обработчик события для этого элемента:
1C
&НаКлиенте
Процедура ГиперссылкаДокументНажат()
Если ЗначениеЗаполнено(Элементы.ГиперссылкаДокумент.Значение) Тогда
Ссылка = Элементы.ГиперссылкаДокумент.Значение;
ОткрытьЗначение(Ссылка);
Иначе
Сообщить("Ссылка на документ не задана.");
КонецЕсли;
КонецПроцедуры
### Шаг 3: Установка значения гиперссылки
После того как вы записали новый документ, вам нужно установить значение гиперссылки на форме:
1C Элементы.ГиперссылкаДокумент.Значение = Стр.Ссылка;
### Полный пример
Объединяя все вместе, ваш код может выглядеть так:
1C
&НаСервере
Процедура ЗаписатьРазделенныеТКПНаСервере()
Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда
Сообщить("Сначала запишите данное коммерческое предложение!");
Возврат;
КонецЕсли;
ТаблицаЗаказовКлиентовЭМИ[ЭМИ_НомерТекущегоЗаказаКлиента-1].ЗаказКлиента.Загрузить(ТоварыЗаказаКлиента.Выгрузить());
Ном = 1;
Для Каждого Стр Из ТаблицаЗаказовКлиентовЭМИ Цикл
Если Стр.ЗаказКлиента.Количество()>0 Тогда
Если ЗначениеЗаполнено(Стр.Ссылка) Тогда
НовТКП = Стр.Ссылка.ПолучитьОбъект();
Иначе
НовТКП = Объект.Ссылка.Скопировать();
НовТКП.ТКП = Объект.Ссылка;
НовТКП.Дата = ТекущаяДата();
КонецЕсли;
НовТКП.Товары.Загрузить(Стр.ЗаказКлиента.Выгрузить());
Для Каждого Стр2 Из НовТКП.Товары Цикл
Ключ = Стр2.КлючСвязи;
СтрокаТовары = Объект.Товары[Ключ - 1];
ЗаполнитьЗначенияСвойств(Стр2, СтрокаТовары);
Стр2.КлючСвязи = Ключ;
КонецЦикла;
НовТКП.Комментарий = ?(ПустаяСтрока(НовТКП.Комментарий),"Деление "+Объект.Ссылка,"Деление "+Объект.Ссылка+"
|"+НовТКП.Комментарий);
НовТКП.Записать(РежимЗаписиДокумента.Запись);
Стр.Ссылка = НовТКП.Ссылка;
Элементы["ГиперссылкаДокумент"].Значение = Стр.Ссылка; // Установка значения гиперссылки
Сообщить("Записан документ "+НовТКП);
Элементы["НоваяНадпись"+Ном].Заголовок = Стр.Ссылка;
КонецЕсли;
Ном = Ном + 1;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ГиперссылкаДокументНажат()
Если ЗначениеЗаполнено(Элементы.ГиперссылкаДокумент.Значение) Тогда
Ссылка = Элементы.ГиперссылкаДокумент.Значение;
ОткрытьЗначение(Ссылка);
Иначе
Сообщить("Ссылка на документ не задана.");
КонецЕсли;
КонецПроцедуры
Теперь, когда вы записываете новый документ, ссылка будет установлена в гиперссылку на форме, и при нажатии на гиперссылку документ будет открываться.