v8: Выборка данных из запроса по отдельности телефон и адрес

Добрый день. У меня вопрос по поводу выборки данных

Вот запрос 

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

Пример функции

Строка=0;

//адрес МассивКИ = Новый Массив; МассивКИ.Добавить(ОбластьМакетаАдрес); МассивКИ.Добавить(ОбластьМакетаТелефон); Пока ВыборкаДанныхКонтактнойИнформации.Следующий() Цикл ВложенаяВыборкаКИА = ВыборкаДанныхКонтактнойИнформации.Выбрать(); ВложенаяВыборкаКИА.Следующий();

//Для Строка=0 По ВсегоСтрокДокументаКИ Цикл //ОбластьМакетаКИА.ПовторятьПриПечатиСтроки(ОбластьМакетаТелефон); ОбластьМакетаАдрес.Параметры.Заполнить(ВложенаяВыборкаКИА); //ОбластьМакетаКИТ.ПовторятьПриПечатиСтроки(ОбластьМакетаАдрес); //КонецЦикла; КонецЦикла;

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

// Проверим, уместится ли строка на странице или надо открывать новую страницу ВывестиКонецКИА = Не ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, МассивКИ); Если Не ВывестиКонецКИА и Строка = ВсегоСтрокДокументаКИ Тогда МассивКИ.Добавить(ОбластьМакетаОбразованиеШапка); ВывестиПодвалЛиста = Не ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, МассивКИ); КонецЕсли; Если ВывестиПодвалЛиста Тогда ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц(); ТабДокумент.Вывести(ОбластьМакетаКИА); ТабДокумент.Вывести(ОбластьМакетаКИТ); КонецЕсли;

В выделеной области должны выводиться все номера телефонов, вид и все адреса и вид.. Выводит только один адрес. Подскажите пожалуйста где косячу? Спасибо заранее)