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