Получить адрес контрагента не строкой

Функция ОпределитьАдресПолучателя(Объект) Экспорт

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

КонецФункции

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

ВидАдреса = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Справочники.ВидыКонтактнойИнформации["ЮрАдресОрганизации"], "Ссылка");	
МассивСсылокИлиОбъектов = Новый Массив;
МассивСсылокИлиОбъектов Добавить(Организация);
ТЗКИ	=	УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъектов(хМ, , ВидАдреса, Дата);	
СтруктураАдреса	=	РаботаСАдресами.СведенияОбАдресе(ТЗКИ[0].ЗначенияПолей, );

 ЮрАдрес = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;

	Отбор = Новый Структура("Вид, Тип");
	Отбор.Вид = ЮрАдрес;
	Отбор.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
	
	ПоискВКИ = Партнер.КонтактнаяИнформация.НайтиСтроки(Отбор);
	Если ПоискВКИ.Количество() > 0 Тогда
		
		СтрокаТЧ = ПоискВКИ.Получить(0);
		Город = СтрокаТЧ.Город;

	КонецЕсли;