ВЫБРАТЬ Ссылка, МАКСИМУМ(АдресЭП)
ПОМЕСТИТЬ втКИ
ИЗ Справочник.ФизическиеЛица.КонтактнаяИнформация
СГРУППИРОВАТЬ ПО Ссылка
ИНДЕКСИРОВАТЬ ПО Ссылка
;
ВЫБРАТЬ Физики.Ссылка КАК ФизЛицо, Физики.ДатаРождения, КИ.АдресЭП
ИЗ 
  втКИ КАК КИ
  ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ФизическиеЛица КАК Физики
    ПО Физики.Ссылка = КИ.Ссылка

Запрос = Новый Запрос("
  |ВЫБРАТЬ Ссылка
  |ИЗ РегистрСведений.РеестрДокументов
  |СГРУППИРОВАТЬ ПО Ссылка
  |ИМЕЮЩИЕ Сумма(1) > 1");
Выборка = Запрос.Выполнить().Выбрать();
// ТРАНЗАКЦИЯ +
НачатьТранзакцию();
Попытка
  // ОПЕРАЦИЯ +
  Пока Выборка.Следующий() Цикл
    НаборЗаписей = РегистрыСведений.РеестрДокументов.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Ссылка.Установить(Выборка.Ссылка);
    НаборЗаписей.Прочитать();
    Количество = НаборЗаписей.Количество();
    Для Счетчик = 2 По Количество Цикл
      НаборЗаписей.Удалить(0);
    КонецЦикла;
    НаборЗаписей.Записать(Истина);
  КонецЦикла;
  // ОПЕРАЦИЯ -
  ЗафиксироватьТранзакцию();
Исключение
  Если ТранзакцияАктивна() Тогда
    ОтменитьТранзакцию();
  КонецЕсли;
  ВызватьИсключение СтрШаблон("Во время транзакции произошла ошибка.
                  |Описание ошибки: %1", ОписаниеОшибки());
КонецПопытки;
// ТРАНЗАКЦИЯ -