Решил спросить у оракула.

Есть запросик:

Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(НайтиДублиПоНомеру)
   |ОбрабатыватьДокументы все;
   |НомерДок = Документ.ЗаказНаПокупку.НомерДок;
   |ТекущийДокумент = Документ.ЗаказНаПокупку.ТекущийДокумент;
   |Функция Сч = Счётчик();
   |Группировка НомерДок;
   |"//}}ЗАПРОС
   ;

Пока Запрос.Группировка(1) = 1 Цикл
       
       Если Запрос.Сч=1 Тогда
           Продолжить;
       КонецЕсли;
       
       // Заполнение полей НомерДок
       Таб.ВывестиСекцию("НомерДок");
КонецЦикла;

Выходит результат со счетчиком 2. Проверяю явно с номером 12345 есть три дубля но в пор запрос этог оне видит. Забить и делать через ТЗ и трахогемор?

га фига группировать по номеру документа?

как это фига,
у меня номер документа Текст длина 5

есть три документа с номерами 12345

я хочу увидеть, что номер 12345 дублирется N-раз

случаем одинаковых номеров документов нет у тебя там в базе?

В ТЗ нет ни какого трахогемора, свернуть и получил результат :)

(3) ну а я очем, мне и надо найти все дубли! Но запрос не все видит - это что за бред?

Проще через 1СРР написать, а стандартный так и не докумекал.

да я и чем. надо юзать мне стандарт, там ВК не надо ставить

ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Номер");
ТЗ.НоваяКолонка("Счетчик");

Док = СоздатьОбъект("Документ.ЗаказНаПокупку");
Док.ВыбратьДокументы();
Пока Док.ПолучитьДокумент() = 1 Цикл
   ТЗ.НоваяСтрока();
   ТЗ.Номер = Док.НомерДок;
   ТЗ.Счетчик = 1;
КонецЦикла;

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

(8) еще отсортировать по убыванию :) и прервать, как только достигли 1 :)

Спс.

ункция ПолучитьНомераРО()
   
   Перем Запрос, ТекстЗапроса, Таб;
   //Создание объекта типа Запрос
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |ОбрабатыватьДокументы все;
   |ТекущийДокумент = Документ.ЗаказНаПокупку.ТекущийДокумент;
   |НомерДок = Документ.ЗаказНаПокупку.НомерДок;
   |Группировка НомерДок;
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат 0;
   КонецЕсли;
   
   ТаблНомера = СоздатьОбъект("ТаблицаЗначений");
   Запрос.Выгрузить(ТаблНомера,,0);
   
   ТаблНомера.НоваяКолонка("Счётчик");    
   
   ТаблНомера.ВыбратьСтроки();
   Пока ТаблНомера.ПолучитьСтроку() = 1 Цикл
       ТаблНомера.Счётчик = 1;
   КонецЦикла;
   
   ТаблНомера.Свернуть("НомерДок","Счётчик");
   
   
   ТаблДубли = СоздатьОбъект("ТаблицаЗначений");
   ТаблДубли.НоваяКолонка("НомерДок");
   ТаблДубли.НоваяКолонка("Счётчик");
   
   ТаблНомера.ВыбратьСтроки();
   Пока ТаблНомера.ПолучитьСтроку() = 1 Цикл
       Если ТаблНомера.Счётчик = 1 Тогда
           Продолжить;
       КонецЕсли;
       
       ТаблДубли.НоваяСтрока();
       ТаблДубли.НомерДок = ТаблНомера.НомерДок;
       ТаблДубли.Счётчик = ТаблНомера.Счётчик;
       
   КонецЦикла;
   
   ТаблДубли.Сортировать("НомерДок+");
   ТаблДубли.ВыбратьСтроку();
   
КонецФункции

Я просто думал я это или лыжи, хорошо что проверил

(9) Рюшки - сами )

ПРикол после такого кода на выходе выбрать строку 0 Строк ))) интересненько