8.х Контактная Информация Контрагентов

Профы, подскажите плиз как это сделать начинающему юзеру. Нуна сделать простенький маршрутный лист. Не получается вытянуть контактную информацию для шести контрагентов. Для одного получается.
Где копать. Может есть готовый код. Помогите Бога ради.

Все, что удалось найти, так это вывод одного контрагента и его адреса. А чтобы выводилась контактная информация сразу по нескольким контрагентам - не видел. Плиз, помощь!!!

Покажите что именно хотите получить в итоге.

Хочу чтобы в печатную форму выводилось:

Контрагент - адрес доставки
Контрагент - адрес доставки
Контрагент - адрес доставки
Контрагент - адрес доставки
Контрагент - адрес доставки
Контрагент - адрес доставки

Но только не весь справочник контрагенты, а те которые нужны.
Виноват, что плохо объясняю желаемое. Я чайник в этом деле.

Я не знаю как передать список контрагентов. Подскажите плиз.

Показывайте запрос, который вы нашли на форуме, желательно уже с отбором по контрагенту и по типу, виду контактной информации.

Нет

Код:

Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДокумент = ЭлементыФормы.ТабДок;
ТабДокумент.Очистить();

Запрос = Новый Запрос;
ЗапросПоКонтактнымЛицам = Новый Запрос;
Запрос.УстановитьПараметр("ВидЮрАдрес",Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента);
Запрос.УстановитьПараметр("ВидФактАдрес",Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента);
Запрос.УстановитьПараметр("ВидТелефон",Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);

Запрос.УстановитьПараметр("ВыбКонтр",ВыбКонтр);
Запрос.УстановитьПараметр("ВыбКонтр1",ВыбКонтр1);

Запрос.УстановитьПараметр("ПустЮр",ФлагЮрАдрес);
Запрос.УстановитьПараметр("ПустФакт",ФлагФактАдрес);
Запрос.УстановитьПараметр("ПустИНН",ФлагИНН);
Запрос.УстановитьПараметр("ПустКПП",ФлагКПП);
Запрос.УстановитьПараметр("ПустВСЕ",ФлагВсе);


Запрос.Текст =
"ВЫБРАТЬ
|	Контакты.ЮрАдрес КАК ЮрАдрес,
|	Контакты.ФактАдрес КАК ФактАдрес,
|	Контакты.Ссылка,
|	Контакты.ИНН КАК ИНН,
|	Контакты.КПП КАК КПП,
|	Контакты.Наименование КАК Наименование,
|	Контакты.Телефон
|ИЗ
|	(ВЫБРАТЬ
|		МАКСИМУМ(ВЫРАЗИТЬ(ВЫБОР
|					КОГДА КонтактнаяИнформация.Вид = &ВидЮрАдрес
|						ТОГДА КонтактнаяИнформация.Представление
|					ИНАЧЕ NULL
|				КОНЕЦ КАК СТРОКА(200))) КАК ЮрАдрес,
|		МАКСИМУМ(ВЫРАЗИТЬ(ВЫБОР
|					КОГДА КонтактнаяИнформация.Вид = &ВидФактАдрес
|						ТОГДА КонтактнаяИнформация.Представление
|					ИНАЧЕ NULL
|				КОНЕЦ КАК СТРОКА(200))) КАК ФактАдрес,
|		Контрагенты.Ссылка КАК Ссылка,
|		МАКСИМУМ(Контрагенты.ИНН) КАК ИНН,
|		МАКСИМУМ(Контрагенты.КПП) КАК КПП,
|		МАКСИМУМ(Контрагенты.Наименование) КАК Наименование,
|		МАКСИМУМ(ВЫРАЗИТЬ(ВЫБОР
|					КОГДА КонтактнаяИнформация.Вид = &ВидТелефон
|						ТОГДА КонтактнаяИнформация.Представление
|					ИНАЧЕ NULL
|				КОНЕЦ КАК СТРОКА(200))) КАК Телефон
|	ИЗ
|		Справочник.Контрагенты КАК Контрагенты
|			ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|			ПО (КонтактнаяИнформация.Объект = Контрагенты.Ссылка)
|	
|	СГРУППИРОВАТЬ ПО
|		Контрагенты.Ссылка) КАК Контакты
|ГДЕ
|	Контакты.Ссылка.ЭтоГруппа = ЛОЖЬ
|	И Контакты.Ссылка В ИЕРАРХИИ(&ВыбКонтр)
|   И Контакты.Ссылка В ИЕРАРХИИ(&ВыбКонтр1)
|	И ВЫБОР
|			КОГДА &ПустЮр = ИСТИНА
|					И Контакты.ЮрАдрес ЕСТЬ NULL 
|				ТОГДА ИСТИНА
|			ИНАЧЕ ВЫБОР
|					КОГДА &ПустФакт = ИСТИНА
|							И Контакты.ФактАдрес ЕСТЬ NULL 
|						ТОГДА ИСТИНА
|					ИНАЧЕ ВЫБОР
|							КОГДА &ПустИНН = ИСТИНА
|									И Контакты.ИНН = """"
|								ТОГДА ИСТИНА
|							ИНАЧЕ ВЫБОР
|									КОГДА &ПустКПП = ИСТИНА
|											И Контакты.КПП = """"
|										ТОГДА ИСТИНА
|									ИНАЧЕ ВЫБОР
|											КОГДА &ПустВсе = ИСТИНА
|												ТОГДА ИСТИНА
|											ИНАЧЕ ЛОЖЬ
|										КОНЕЦ
|								КОНЕЦ
|						КОНЕЦ
|				КОНЕЦ
|		КОНЕЦ";

Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Возврат;
КонецЕсли;
Макет = ПолучитьМакет("Макет");

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьСтрока 	 = Макет.ПолучитьОбласть("Строка");

ТабДокумент.Вывести(ОбластьЗаголовок);

НомерПП=1;
Выборка=Результат.Выбрать();

Пока Выборка.Следующий() Цикл
ОбластьСтрока.Параметры.Заполнить(Выборка);
ОбластьСтрока.Параметры.НомерПП = НомерПП;
ОбластьСтрока.Параметры.ЮрАдрес = СокрЛП(Выборка.ЮрАдрес);
ОбластьСтрока.Параметры.ФактАдрес = СокрЛП(Выборка.ФактАдрес);
ОбластьСтрока.Параметры.Телефон = СокрЛП(Выборка.Телефон);
ОбластьСтрока.Параметры.КонтактноеЛицо = "";


ЗапросПоКонтактнымЛицам.УстановитьПараметр("ВыбКонтр",Выборка.Ссылка);
ЗапросПоКонтактнымЛицам.УстановитьПараметр("ВыбКонтр1",Выборка.Ссылка);
//ЗапросПоКонтактнымЛицам.УстановитьПараметр("ВидТелефон",Справочники.ВидыКонтактнойИнформации.ТелефонКонтактногоЛица);

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

//РезультатКонтакты = ЗапросПоКонтактнымЛицам.Выполнить();
//Если РезультатКонтакты.Пустой() Тогда

//Иначе
//ВыборкаКонтакты=РезультатКонтакты.Выбрать();

//Пока ВыборкаКонтакты.Следующий() Цикл
//ОбластьСтрока.Параметры.КонтактноеЛицо = ОбластьСтрока.Параметры.КонтактноеЛицо + СокрЛП(ВыборкаКонтакты.Должность) + " "+ СокрЛП(ВыборкаКонтакты.Наименование);
//Если ЗначениеЗаполнено(ВыборкаКонтакты.Телефон) Тогда
//ОбластьСтрока.Параметры.КонтактноеЛицо =ОбластьСтрока.Параметры.КонтактноеЛицо +" телефон " + СокрЛП(ВыборкаКонтакты.Телефон) +", ";
//Иначе	
//ОбластьСтрока.Параметры.КонтактноеЛицо =ОбластьСтрока.Параметры.КонтактноеЛицо +", ";
//КонецЕсли;	
//КонецЦикла;	
//ОбластьСтрока.Параметры.КонтактноеЛицо = Лев(ОбластьСтрока.Параметры.КонтактноеЛицо,СтрДлина(ОбластьСтрока.Параметры.КонтактноеЛицо)-2);


//КонецЕсли;






ТабДокумент.Вывести(ОбластьСтрока);
НомерПП = НомерПП + 1;


КонецЦикла;	

ТабДокумент.ТолькоПросмотр = Истина;	

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

Ай да кудесник, ай да колдун :unsure: :smile: :aua:

Супер, то что нужно. Спасибо огромное, выручил.

Жми кнопку "СПАСИБО" товарищу Draco!