универсальный подбор и обработка объектов

Здравствуйте. Столкнулся со следующей проблемой. Обрабатываю записи в справочнике с табличной частью. Данные заполняются по нескольку раз.(Одна и та же запись повторяется в табличной части, сколько найденных объектов столько раз и вносятся в выбранную запись)
Вот код:
СписокКонтрагентов = Новый СписокЗначений;
СписокКонтрагентов.Добавить("Альянс Белгород 2 РС ООО");
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ ПЕРВЫЕ 2
|    Компьютеры.Ссылка,
|    Компьютеры.Контрагент КАК Контрагент
|ИЗ
|    Справочник.Компьютеры КАК Компьютеры
|ГДЕ
|     Компьютеры.Контрагент.Наименование В(&Контрагент)
|СГРУППИРОВАТЬ ПО
|    Компьютеры.Ссылка,
|    Компьютеры.Контрагент";
Запрос.УстановитьПараметр("Контрагент", СписокКонтрагентов);

РезультатЗапросаКомпьютеры = Запрос.Выполнить().Выбрать();
Если РезультатЗапросаКомпьютеры.Количество()>0 Тогда
    Пока РезультатЗапросаКомпьютеры.Следующий() Цикл

    Источник = РезультатЗапросаКомпьютеры.Ссылка;
    ЭлементОбработан = Ложь;

    Если Не ЭлементОбработан Тогда

           НовоеСвойство = Объект.Свойства.Добавить();
           НовоеСвойство.ВидСвойства = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Дата снятия с учета");
           НовоеСвойство.ЗначениеСвойства= НачалоГода(ТекущаяДата());
           Сообщить(СОКРЛП(РезультатЗапросаКомпьютеры.Ссылка.Контрагент)+" "+СОКРЛП(РезультатЗапросаКомпьютеры.Ссылка));
           Объект.Записать();
           ЭлементОбработан = Истина;
    КонецЕсли;

КонецЦикла;
КонецЕсли;