присоединить так области чтобы адреса емаилов выводились так, как на картинке?
Как присоединить так области чтобы адреса емаилов выводились так, как на картинке? Так не получается:
Пока Выборка.Следующий() Цикл
ОбластьЗаголовок.Параметры.Контрагент = Выборка.Контрагент;
ТабДок.Вывести(ОбластьЗаголовок);
Если Выборка.ДополнительнаяИнформация = "" Тогда
ОбластьСтрока.Параметры.ДопИнформация = "Нет информации";
Иначе
ОбластьСтрока.Параметры.ДопИнформация = СтрЗаменить(СокрЛП(Выборка.ДополнительнаяИнформация),Символы.ПС,"");
КонецЕсли;
ЗапросЕм = Новый Запрос;
ЗапросЕм.Текст =
"ВЫБРАТЬ
| КонтрагентыКонтактнаяИнформация.АдресЭП КАК АдресЭП
|ИЗ
| Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформация
|ГДЕ
| КонтрагентыКонтактнаяИнформация.Ссылка = &Контрагент
| И КонтрагентыКонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты)";
ЗапросЕм.УстановитьПараметр("Контрагент", Выборка.Контрагент);
РезультатЗапросаЕм = ЗапросЕм.Выполнить();
ВыборкаЕм = РезультатЗапросаЕм.Выбрать();
Пока ВыборкаЕм.Следующий() Цикл
ОбластьСтрока.Параметры.Емаил = ВыборкаЕм.АдресЭП;
КонецЦикла;
ТабДок.Вывести(ОбластьСтрока);
КонецЦикла;
ПоказатьПрикрепленные файлы:

Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот