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