"Как ускорить поиск?<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>КонецПроцедуры "