Нужно пробежаться по справочнику Контрагенты и найти одинаковые по Наименованию. Я сделал, но выглядит по школьному. Хотел бы посмотреть как более опытные и "шарящие" люди выполнили бы это задание. З.Ы. все работает:


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

(0) кури запросы и Having

Запросом, сгруппировать по наименованию

(0) воспользоваться обработкой "Поиск и замена дублирующихся элементов справочника"

Запрос с группировкой по наименованию и подсчётом количества элементов в группе не спасёт отца российской демократии?

Работает? Не трожь!

левое соединение по спр1.наименование=спр2.наименование и спр1.ссылка<>спр2.ссылка
так ещё и сами ссылки получишь

Запросом, АдназначнО.

ужас

Запрос = Новый Запрос;
   Запрос.Текст = "
   |Выбрать
   |    Т." + ИмяПоля + " Как ЗначениеПовтора,
   |    Сумма(Т.Повтор) Как КоличествоПовторов
   |Из
   |    (
   |    Выбрать
   |        " + ИмяПоля + ",
   |        1 Как Повтор
   |    Из
   |        Справочник."+ИмяСправочника+"
   |    )
   |    Как Т
   |Сгруппировать По Т." + ИмяПоля + " Имеющие Сумма(Повтор) > 1
   |Упорядочить По Т." + ИмяПоля + " Возр";

(5) бугага

(0) А потом нам то скорости процессора не хватает, то оперативной памяти...

(9) Зачем вложенный цикл?
пишут-же (1)
Примерно так:

ВЫБРАТЬ
   Наименование,
   КОЛИЧЕСТВО(Наименование)
ИЗ
   Справочник.Контрагенты
ГДЕ
   ЭтоГруппа = ЛОЖЬ
СГРУППИРОВАТЬ ПО
   Наименование
ИМЕЮЩИЕ КОЛИЧЕСТВО(Наименование) > 1

(0) Интересно и как оно работает???
Ссылки не сравниваются

(12) старая привычка

(12) В смысле влеженный запрос :-) не проснулся еще...

(0) если уж так приперло выборкой прихренячить то можно проще

СпрК.ПорядокНаименований();
Предыдущий = "";
СпрК.ВыбратьЭлементы();
Пока СпрК.ПолучитьЭлемент();
 Если СпрК.Наименование = Предыдущий
   Сообщить("дубль: "+СпрК.Код);
   Продолжить;
 КонецЕсли;
 Предыдущий = СпрК.Наименование;
КонецЦикла;

В школе как-раз таки и учат правильно писать

(0) выгружаешь справочник в 2 таблицы.
1) пробегаешь цыклом.
2) в цикле ищешь чеез Таблица2.Найти(имя)
3) выгода.

(18) ржака

(18) Далеко пойдешь, посмотри в (9) и (12) :)

(18) Конкурс на самый быдляцкий код?

(16) ты то с клюшками куда в калашный ряд? ))))

(22) ну если посмотреть в (0) - то снеговики от клюшечников недалеко ушли - я еще успею догнать и обогнать ;-)

(23) Это недоснеговик.

(18) Если уж в таблицу значений.
То выгрузить. Добавить колонку. Свернуть суммируя по этой колонке.

(25) Ужас... а если там элементов до полутора миллиона?

(18) Жуть!

Идеальный вариант: запросом.
Если с запросами не очень - вариант  в (16).

есил изгаляться, то нужно цикл в цикле организовывать

(26) Пофек. Кстати, если бы это было так, то код (0) до сих пор бы крутился. :-)

(16) только Предыдущий = 0; вместо Предыдущий = "";

(23) "Восьмерка разжижает мозг"© (естественно, если он как минимум есть в наличии, что далеко не всегда...)

(20) (21) шутка блин, я думал тут кто бытлятей придумает тот и на коне.

еще и выборка неправильно написана
вложенный цикл один раз сработает только

(34) Ага, код то вообще нерабочий:)

(13) Он заботливо учёл "гарантированное наличие" одного дубля.

(0) Значит так, слушай меня, делай так:

- последовательным чтением записей справочника запомни наименования в массиве;
- отсортируй массив общеизвестным методом пузырька;
- в цикле с х=2 сравнивай текущее значение с предыдущим.

PS: использование бинарных деревьев не предлагаю - не "тот" уровень у тс.

(34)(35) С чего вы взяли? Он просто даст много избыточной информации.

v8: Дубли в справочнике

Еще такой вариант


ВЫБРАТЬ
   ФизическиеЛица.Ссылка КАК Ссылка,
   ФизическиеЛица1.Ссылка КАК Ссылка1
ИЗ
   Справочник.ФизическиеЛица КАК ФизическиеЛица
       ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ФизическиеЛица КАК ФизическиеЛица1
       ПО ФизическиеЛица.Наименование = ФизическиеЛица1.Наименование
           И ФизическиеЛица.Ссылка <> ФизическиеЛица1.Ссылка

УПОРЯДОЧИТЬ ПО
   Ссылка
АВТОУПОРЯДОЧИВАНИЕ


Я еще более быдляцкий вариант знаю:
Выборка = Справочники.Контрагенты.Выбрать();
Пока Выборка.Следующий() Цикл
 Если Спарвочники.Контрагенты.НайтиПоНаименованию(Выборка.Наименование,Истина)<>Справочники.Контрагенты.ПустаяСсылка() Тогда  
     Сообщить("Код "+Выборка.Код+" Код 2 = "+Выборка2.Код);
   КонецЕсли;
 КонецЦикла;
КонецЦикла;

Однако, сколько дурацких вариантов. Надо на собеседовании такой вопрос задавать, однако

блин, не, не катит :(

(38) вторую выборку он перед обходом первой выбирает. цикл по следующему пройдет всего один раз

вот так!!!
Выборка = Справочники.Контрагенты.Выбрать();
Пока Выборка.Следующий() Цикл
 Если Справочники.Контрагенты.НайтиПоНаименованию(Выборка.Наименование,Истина)<>Справочники.Контрагенты.ПустаяСсылка() и Справочники.Контрагенты.НайтиПоНаименованию(Выборка.Наименование,Истина)<>Выборка.Ссылка Тогда  
     Сообщить("Тута дубль!");
   КонецЕсли;
 КонецЦикла;
КонецЦикла;

(38) будут дубли только первого элемента первой выборки

(0)
ВЫБРАТЬ Наименование
ПОМЕСТИТЬ ВТ
ИЗ Справочник.Контрагенты
СГРУППИРОВАТЬ ПО Наименование
ИМЕЮЩИЕ КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Ссылка)>1
;
ВЫБРАТЬ
 ВТ.Наименование
 Спр.Ссылка
ИЗ ВТ
 ВНУТРЕННЕЕ СОЕДИНЕНИЕ
   Справочник.Контрагенты как Спр
     ПО Спр.Наименование = ВТ.Наименование
ИТОГИ КОЛИЧЕСТВО(Ссылка) по ОБЩИЕ, Наименование // это для красоты, можно и не надо

Вцыгрузить справочник в таблицу значений, добавить в нее колонку и заполнить все её строки единичкой. Потом табл.знач свернуть по наименованию. Где новаяКолонка > 1 будет - там повтор

(0) незачет - задействовано только одно ядро проца)

(48) а если там полтора миллиона элементов? руками еще пересчитать предложи

(44) Запусти такой код и ты поймёшь, что неправ:
Процедура КнопкаВыполнитьНажатие(Кнопка)
   Кол=0;
   Выборка = Справочники.Контрагенты.Выбрать();
   Выборка2 = Справочники.Контрагенты.Выбрать();
   Сч1 = 0;
   Пока Выборка.Следующий() Цикл
       Сч1 = Сч1 + 1;
       Сч2 = 0;
       Пока Выборка2.Следующий() Цикл
           Сч2 = Сч2 + 1;
           Если Выборка.Наименование = Выборка2.Наименование Тогда
               Кол = Кол+1;
               Сообщить("Код "+Выборка.Код+" Код 2 = "+Выборка2.Код);
           КонецЕсли;
           Сообщить("Сч1="+Сч1+"   Сч2="+Сч2);
       КонецЦикла;
       Если Кол > 1 тогда
           Сообщить("Найдены дубли "+Выборка.Наименование);
       КонецЕсли;
       Кол = 0;
   КонецЦикла;
   Сообщить("Сч1="+Сч1+"   Сч2="+Сч2);
КонецПроцедуры

(41) Какой же он более быдляцкий, если быстрее отработает?

(11) "А потом нам то скорости процессора не хватает, то оперативной памяти..."
... и ваще 1С гуано, потому что тормозит

(52) Быдляцкий, быдляцкий. Код будет выдавать ошибочные дубли, т.е. сами элементы.

(48) это семерошный вариант ;))

(11), (53) Кстати да. Но что не так с типовыми?

(51) действительно. надо побольше с выборками работать)

быдло кот
http://i.urlas.ru/images/2010-11-06/1289067037.jpg

(55) Да, но в 8-ке тож так можно =)
Выгрузить выборкой справочник в ТЗ(Запрос.Выгрузить(ТЗ) - не кошерно), потом другой выборкой проставить 1. Потом, можно даже не пользоваться штатным методом Свернуть(), а свернуть третьей выборкой.

(59) свернуть таблицу в цикле быдлокодер не сможет, Вы переоценили возможности

Можно создать регистр сведений со строковым измерением, и записывать все наименования из выборки туда (в попытке). Если сработает исключение, то такая запись же есть.

по сути та же задача что и здесь, только цели разные
Простой sql Запрос выполняется 20 секунд.

(0) Кстати, хоть и работает, но не универсально, для другого справочника не факт что сработает. Нужно явно установить порядок:

Выборка = Справочники.Номенклатура.Выбрать(,,, "Наименование");


(42) Да-да-да! Хоть чуток веселухи добавит.

А то ходил yедавно на собеседование. Диалог был такой:
- С УТ работал?
- Работал.
- С БП?
- Работал.
- Когда готов приступить к работе?
- ....

Не собеседование, а скукотища!

Посмотри текст запроса из обработки в УТ10.3 как советовал (3). Зачем тебе кривой велосипед?

(64) yедавно -> недавно.