ТекстЗапроса = "
        |Номенклатура = Справочник.Номенклатура.ТекущийЭлемент;
        |НаименованиеНоменклатуры = Справочник.Номенклатура.Наименование;
        |Условие (НаименованиеНоменклатуры = ВыбНоменкратура);
        |Группировка Номенклатура без групп;
        |";    

Работает оооочень медленно, что делаю не так, надо быстро выбрать одинаковые значения?


////////////////////////////////////////////////////
//Поиск дублей (по наименованию) для текущего элемента справочника
//
Процедура глПроверкаДубликатаСправочника(Конт) Экспорт
    
    ТекКод=Конт.Код;
    ТекНаим=Конт.Наименование;
    
    Спр=СоздатьОбъект("Справочник."+Конт.Вид());
    
    ИспользоватьМедленныйВариант = 0;
    
    НачатьТранзакцию();
    Пока Спр.НайтиПоНаименованию(ТекНаим,0,1)=1 Цикл
        //если найден
        
        Если (СокрЛП(Спр.Наименование)=СокрЛП(ТекНаим))
        и    (СокрЛП(Спр.Код)<>СокрЛП(ТекКод)) Тогда
            Сообщить("Найден дубль: Код "+Спр.Код+", Наименование: '"+СокрЛП(Спр.Наименование)+"' в группе '"+СтрЗаменить(Спр.ПолноеНаименование(),"/"+СокрЛП(Спр.Наименование),"")+"'","!");
        КонецЕсли;                          
        
        Попытка
            Спр.Удалить(1);
        Исключение                
            //не повезло, заблокирован
            ИспользоватьМедленныйВариант = 1;
            Прервать;
        КонецПопытки;
        
        
    КонецЦикла;      
    
    Если ИспользоватьМедленныйВариант = 1 Тогда
        Спр=СоздатьОбъект("Справочник."+Конт.Вид());
        Если Спр.НайтиПоНаименованию(ТекНаим,0,1)=1 Тогда
            //если найден
            Спр.ВыбратьЭлементы();
            Пока Спр.ПолучитьЭлемент()=1 Цикл
                Если (СокрЛП(Спр.Наименование)=СокрЛП(ТекНаим))
                и    (СокрЛП(Спр.Код)<>СокрЛП(ТекКод)) Тогда
                    Сообщить("Найден дубль: Код "+Спр.Код+", Наименование: '"+СокрЛП(Спр.Наименование)+"' в группе '"+СтрЗаменить(Спр.ПолноеНаименование(),"/"+СокрЛП(Спр.Наименование),"")+"'","!");
                КонецЕсли;                          
            КонецЦикла;
        КонецЕсли;                          
    КонецЕсли;
    
    
    ОтменитьТранзакцию();
    
КонецПроцедуры      


select descr, count(*)
from $справочник.Номенклатура
group by desc
having count(*) > 1

(1) Перебор двойной, сложность n в квадрате.
(2) А это как, я только по русски умею...

Пока склоняюсь к методу - запихнуть в ТЗ в отсортированном виде по наименованию, а там уже искать.

Просто странно почему запрос в (0) не работает по индексируемому полю Наименование, он должен вообще моментом выполняться.

(5) потому что он сравнение по наименованию делает...

Зачем вообще условие в (0)?

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

(3) http://yandex.ru/search/?text=прямые%20запросы%20в%201с%207.7&clid=1923020

(3) "Перебор двойной"

Посмотри внимательнее...
Выполняется поиск по наименованию (потом найденный элемент "удаляется" далее отмена транзации, т.е. удаления не будет, и поиск еще раз по наименованию).

Работает быстро. Это рабочий код из реальной базы, которой уже лет 10...

А перебор будет только в том случае, если элемент "удалить" нельзя - заблокирован каким-либо пользователем


Если ИспользоватьМедленныйВариант = 1 Тогда


;)

PS конечно, вариант из (1) не идет в сравнение с "прямыми запросами", но с прямыми запросами и вопроса в (0) не было бы ;)