Код

Процедура ПоискПоПодстрокеСПП(ВидСправочника,РеквизитПоиска)  

	Если РеквизитПоиска="Код" Тогда РеквизитПоиска2="Спр.Code" ;
		ТипРеквизита="Строка";
	ИначеЕсли РеквизитПоиска="Наименование" Тогда РеквизитПоиска2="Спр.Descr";
		ТипРеквизита="Строка";
	Иначе  
		МетСпр=Метаданные.Справочник(ВидСправочника);
		ТипРеквизита=МетСпр.Реквизит(РеквизитПоиска).Тип;
		Если (ТипРеквизита="Строка") Тогда
			РеквизитПоиска2="$Спр."+СокрЛП(РеквизитПоиска);
		ИначеЕсли (ТипРеквизита="Справочник") Тогда
			ВидРеквизита=МетСпр.Реквизит(РеквизитПоиска).Вид;
			РеквизитПоиска2="$Спр."+СокрЛП(РеквизитПоиска);
		Иначе Возврат;
		КонецЕсли;

	КонецЕсли;


	Если ТипРеквизита="Строка" Тогда
		ТекстЗапроса="
		|SELECT
		|Спр.ID as [Элемент $Справочник."+ВидСправочника+"]
		|FROM
		|	$Справочник."+ВидСправочника+" as Спр
		|WHERE
		|    Спр.IsFolder = 2 AND
		|    UPPER("+РеквизитПоиска2+") LIKE  '%' + :СтрПоиска + '%'";
	ИначеЕсли   (ТипРеквизита="Справочник") Тогда
		ТекстЗапроса="
		|SELECT
		|Спр.ID as [Элемент $Справочник."+ВидСправочника+"]
		|FROM
		|	$Справочник."+ВидСправочника+" as Спр
		|LEFT JOIN $Справочник."+ВидРеквизита+" as СпрРек  ON СпрРек.ID="+РеквизитПоиска2+"
		|WHERE
		|    Спр.IsFolder = 2 AND
		|    UPPER(СпрРек.Descr) LIKE  '%' + :СтрПоиска + '%'";

	КонецЕсли;

	ОлеДБКоманда = глОлеДБ.СоздатьКоманду();
	)));
	ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);