Пример интерфейса для обработки контактной информации - адреса ФИАС

&НаСервере
Функция СерверПредыдущаяСтруктураКонтактнойИнформацииXML(СтруктураАдресаXML)
	
	    СтруктураАдреса = "";
	
		Если Не ПустаяСтрока(СтруктураАдресаXML) Тогда
			СтруктураАдреса = УправлениеКонтактнойИнформацией.ПредыдущаяСтруктураКонтактнойИнформацииXML(
					СтруктураАдресаXML);
		КонецЕсли;
		
		Возврат СтруктураАдреса;
	
КонецФункции


&НаКлиенте
Процедура АдресНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	
	СтандартнаяОбработка = Ложь;
	
	ПараметрыОткрытия = Новый Структура;
	ПараметрыОткрытия.Вставить("ВидКонтактнойИнформации", ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.ЮрАдресКонтрагента"));
	ПараметрыОткрытия.Вставить("Представление", Объект.Адрес);
	
	Оповещение = Новый ОписаниеОповещения("АдресЗавершениеВыбора", ЭтотОбъект);
	
	УправлениеКонтактнойИнформациейКлиент.ОткрытьФормуКонтактнойИнформации(ПараметрыОткрытия, ЭтотОбъект, Оповещение);
	
КонецПроцедуры                                               

&НаКлиенте
Процедура АдресЗавершениеВыбора(РезультатОткрытияФормы, ПараметрыОповещения) Экспорт 
	
	Если ТипЗнч(РезультатОткрытияФормы)<>Тип("Структура") Тогда
		// не было изменений в данных
		Возврат;
	КонецЕсли;
	
	Объект.Адрес              = РезультатОткрытияФормы.Представление;
	
	НаборКонтактнойИнформации = СерверПредыдущаяСтруктураКонтактнойИнформацииXML(РезультатОткрытияФормы.КонтактнаяИнформация);

	//Заполним наименование
	Наименование = НаборКонтактнойИнформации["Улица"];
	Если Не Наименование = "" тогда
		Если НЕ НаборКонтактнойИнформации["Дом"] = "" Тогда
			Наименование = Наименование + ", " + НаборКонтактнойИнформации["Дом"];	
		КонецЕсли; 
	КонецЕсли;
	
	Если Не Наименование = "" тогда
		Если НЕ НаборКонтактнойИнформации["Город"] = "" Тогда
			Наименование = Наименование + ", " + НаборКонтактнойИнформации["Город"];	
		КонецЕсли; 
	Иначе
		Наименование = НаборКонтактнойИнформации["Город"];
	КонецЕсли;
	
	Если Не Наименование = "" тогда
		Если НЕ НаборКонтактнойИнформации["Регион"] = "" Тогда
			Наименование = Наименование + ", " + НаборКонтактнойИнформации["Регион"];	
		КонецЕсли; 
	Иначе
		Наименование = НаборКонтактнойИнформации["Регион"];
	КонецЕсли;
	
	Объект.Наименование = Наименование;
	
	Модифицированность  = Истина;
	
КонецПроцедуры