1c 7.7 Как можно ускорить поиск?

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

С понятием "Запросы" знаком?

да впринципе)<br>но как в запросе условие "Если Найти(ВРЕГ(СокрЛП(Спр.Наименование)),ШНаименование)>0 Тогда" написать ?

Насколько я помню, в запросе можно вызывать внешние функции.

а что нужно сделать ?

Оптимизировать процедуру поиска

> Оптимизировать процедуру поиска<br><br>тип значения Кода справочника : текст или число ?

число

> число<br><br>а что в этой конфигурации нет контроля уникальности кодов в справочнике Номенклатура ?<br>что за конфа

"написал запрос:<br>ТекстЗапроса="<br>|Спр=Справочник.Номенклатура.ТекущийЭлемент;<br>|Группировка Спр без групп Упорядочить по Спр.Код;<br>|Условие(Спр в ВыбГруппа);<br>|Условие((ШКод в Спр.Код)и(ПустаяСтрока(Спр.Код)=0));<br>|Условие((ШНаименование в Спр.Наименование)и(ПустаяСтрока(Спр.Наименование)=0));" <br><br>такой запрос выполняется в два раза медленее чем процедура выше((((((("