&НаКлиенте
Процедура ОбработкаОжидания()
	ЗаполнитьЗУП(Элементы.ФизЛицаУПП.ТекущиеДанные.ФизЛицо);
КонецПроцедуры

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

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

	Результат = Запрос.Выполнить();
	Первоначально = Результат.Пустой();
	ФильтрПоИнициалам = Истина;
КонецПроцедуры

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

	Запрос.УстановитьПараметр("ФЛУПП", ссылка);

	Результат = Запрос.Выполнить();
    Объект.ФизЛицаЗУП.Очистить();
	Выборка = Результат.Выбрать();
	Пока Выборка.Следующий() Цикл
		нс = Объект.ФизЛицаЗУП.Добавить();
		нс.ФизЛицо = Выборка.Ссылка;
		нс.Гражданство = Выборка.Гражданство;
		нс.ДатаРождения = Выборка.ДатаРождения;
	КонецЦикла;

КонецПроцедуры // ЗаполнитьЗУП()