8.х Помогите удалить повторяющиеся данные

Добрый день.
Помогите реализовать такую задачу

У меня в регистрах сведений хранятся телефоны клиентов, но в реквизите ТелефонКлиента иногда встречаются дубли, Необходимо удалить эти дубли, оставить только один экземпляр.

вот такой у меня код

Код:

рег = РегистрыСведений.МобильныеТелефоныКлиентов.();
Пока рег.Следующий() Цикл

Рег2=РегистрыСведений.МобильныеТелефоныКлиентов.Выбрать();

Пока рег2.Следующий() цикл
Если рег.ТелефонКлиента=Рег2.ТелефонКлиента и рег.Период=Рег2.Период Тогда

Объект=Рег2.ПолучитьМенеджерЗаписи();
Объект.Удалить();

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

Все бы ничего, только в данном случае у меня удаляются все дубли которые найдет программа. И мне необходимо что бы один телефон остался.

P.S. В периоде у меня время звонка

На примере регистра сведений КурсыВалют в УТ.

Код:

	Запрос= Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
|	КурсыВалют.Период,
|	КурсыВалют.Валюта,
|	КурсыВалют.Курс,
|	КурсыВалют.Кратность
|ИЗ
|	РегистрСведений.КурсыВалют КАК КурсыВалют";
ОставляемыеЗаписи = Запрос.Выполнить().Выгрузить(); 

НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей(); 
НаборЗаписей.Загрузить(ОставляемыеЗаписи);	
НаборЗаписей.Записать();

Спасибо большое. Только это не решает, у меня везде периоды разные, а мне надо сравнить реквизит, а период чтобы остался не тронутым

Тогда вот это непонятно

Код:

Если рег.ТелефонКлиента=Рег2.ТелефонКлиента и рег.Период=Рег2.Период Тогда
Объект=Рег2.ПолучитьМенеджерЗаписи();
Объект.Удалить();
КонецЕсли;

Здесь вы сравниваете и реквизит и период, а потом говорите, что периоды разные.
Напишите подробнее что там у вас и как.

Да. я с кодом намудрил. спорить не буду. Решил я вот каким способом.

Код:

    В1=РегистрыСведений.МобильныеТелефоныКлиентов.Выбрать();
Рег=РегистрыСведений.МобильныеТелефоныКлиентов.Выбрать();
Пока В1.Следующий() Цикл
Колво=0;
Пока Рег.Следующий() Цикл    

Если В1.ТелефонКлиента=Рег.ТелефонКлиента  тогда
Если не колво=0 Тогда
Объект=Рег.ПолучитьМенеджерЗаписи();
Объект.Удалить();
КонецЕсли;
Колво=1;
КонецЕсли;
КонецЦикла;
КонецЦикла;

Не буду говорить что этот код идеальный, тем более он не быстрый. Но функцию мою он выполняет.
yzek Вам большое спасибо. :angry: Благодаря Вашему коду я понял в чем моя ошибка