Код

Функция GetQuickSearchType(FieldName) Экспорт
	Если FieldName="" Тогда
		Возврат 0;
	ИначеЕсли FieldName="НомерСтроки" Тогда
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции

Процедура QuickSearch(FieldName,DataType,Data) Экспорт
	СтрПоиска=Врег(Data);
	Длина=СтрДлина(Data);
	Для ТекДлинаОбр=0 По Длина-1 Цикл
		ТекДлина=Длина-ТекДлинаОбр;
		ТекСтрПоиска=Лев(СтрПоиска,ТекДлина);
		Для ТекСтр=1 По гТЗ.КоличествоСтрок() Цикл
			Значение=гТЗ.ПолучитьЗначение(ТекСтр,FieldName);
			Если Врег(Лев(Значение,ТекДлина))=ТекСтрПоиска Тогда
				Сам(Контекст).SetCurrentRow(ТекСтр);
				Data=Лев(Data,ТекДлина);
				Возврат;
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	Data="";;
КонецПроцедуры