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

Функция ПечатьДокумента() Экспорт
	ВыборкаПодразделения = СформироватьЗапросДляПечати().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
	Пока ВыборкаПодразделения.Следующий() Цикл
                                 // вывод подразделения
			ВыборкаСотрудников = ВыборкаПодразделения.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
                                  Пока ВыборкаСотрудников.Следующий() Цикл
                                             // вывод сорудника
				ЕСЛИ ВыборкаСотрудников.Вид = "Телефон физ.лица домашний" ТОГДА  
					//вывод телефона
				КонецЕсли;	                                                              
				ЕСЛИ ВыборкаСотрудников.Вид = "Адрес проживания физ. лица" ТОГДА  
					//вывод адреса
				КонецЕсли;	 
			КонецЦикла;
	 КонецЦикла;
КонецФункции // ПечатьДокумента()