Самый последний тюниг 1CQA.ert ...
если кому интересно  

Код

|-- ВыбТовар=Справочник.Номенклатура
|-- ВыбЧето=Перечисление.Булево.Да
 

Код

	вДобавилиПарам = Нет;
	вДобавилиПарамТекст = "";
	Для ъ = 1 По СтрКоличествоСтрок(ТекстЗапроса) Цикл
		ТекСтрока = СтрПолучитьСтроку(ТекстЗапроса, ъ);
		ТекСтрока = СокрЛП(ТекСтрока);
		ТекСтрока = СтрЗаменить(ТекСтрока,"|","");
		ТекСтрока = СтрЗаменить(ТекСтрока," ","");
		ТекСтрока = СокрЛП(ТекСтрока);
		Если Лев(ТекСтрока,2) = "--" Тогда
		    ТекСтрока = СтрЗаменить(ТекСтрока,"-","");
			вСпис = глСтрокаВСписок(ТекСтрока,"=");

			Если вСпис.РазмерСписка() > 1 Тогда
				// |-- ВыбТовар=Справочник.Номенклатура
				// |-- ВыбЧето=Перечисление.Булево.Да

				вСписП = глСтрокаВСписок(вСпис.ПолучитьЗначение(2),".");
				вЭтоЭлементПеречисления = Нет;
				вЭлементПеречисления = "";
				Если (вСписП.РазмерСписка() = 3) И (Врег(вСписП.ПолучитьЗначение(1)) = Врег("Перечисление"))  Тогда
					вЭтоЭлементПеречисления = Да;
					Попытка
						вЭлементПеречисления = у(вСписП.ПолучитьЗначение(3));
					Исключение
						вЭлементПеречисления = "";
						вЭтоЭлементПеречисления = Нет;
						е(2));
					КонецПопытки;
				КонецЕсли;
				ТекСтрока = вСпис.ПолучитьЗначение(1);
				вРегулярка = "([\а-яА-ЯёЁa-zA-Z]{2,})";
				Если глНайтиEx(вРегулярка,ТекСтрока) <> ТекСтрока Тогда
					Продолжить;
				КонецЕсли;
				ТекСтрока = вСпис.ПолучитьЗначение(2);
				Если (Найти(ТекСтрока,"Справочник.")>0) ИЛИ (Найти(ТекСтрока,"Документ.")>0) ИЛИ (Найти(ТекСтрока,"Перечисление.")>0)  Тогда
					ТекСтрока = СокрЛП(вСпис.ПолучитьЗначение(1));
					вНашли = Нет;
					ТПараметров.ВыбратьСтроки();
					Пока ТПараметров.ПолучитьСтроку() = 1 Цикл
						Если Врег(СокрЛП(ТПараметров.Параметр)) =  Врег(СокрЛП(ТекСтрока)) Тогда
							вНашли = Да;
							Если вЭтоЭлементПеречисления = Да Тогда
							    ТПараметров.Значение = вЭлементПеречисления;
								Продолжить;
							КонецЕсли;
						    Если глТипИВидЗначения(ТПараметров.Значение) = вСпис.ПолучитьЗначение(2) Тогда

							Иначе
								Попытка
									ТПараметров.Значение = ПолучитьПустоеЗначение(вСпис.ПолучитьЗначение(2));
								Исключение
								КонецПопытки;
						    КонецЕсли;
						КонецЕсли;
					КонецЦикла;
					Если вНашли = Нет Тогда
					    ТПараметров.НоваяСтрока();
						ТПараметров.Параметр = вСпис.ПолучитьЗначение(1);
						вТекстДоп = Шаблон("Добавили параметр '[ сокрЛП(ТПараметров.Параметр) ]', установите значение!");
						Сообщить(вТекстДоп,"!");
						вДобавилиПарамТекст = глДобавитьКСтроке(вДобавилиПарамТекст,вТекстДоп,РазделительСтрок);
						Попытка
							ТПараметров.Значение = ПолучитьПустоеЗначение(вСпис.ПолучитьЗначение(2));
							вДобавилиПарам = Да;
						Исключение
						КонецПопытки;
						Если вЭтоЭлементПеречисления = Да Тогда
						    ТПараметров.Значение = вЭлементПеречисления;
							Продолжить;
						КонецЕсли;
						Если вСпис.РазмерСписка() = 3 Тогда
						    ТекСтрока = вСпис.ПолучитьЗначение(3);
							Если Найти(ТекСтрока,"Код:")>0 Тогда
							    ТекСтрока = СтрЗаменить(ТекСтрока,"Код:","");
								Если ПустоеЗначение(ТекСтрока) = 0 Тогда
									Попытка
										вСпр = СоздатьОбъект(вСпис.ПолучитьЗначение(2));
										Если вСпр.НайтиПоКоду(ТекСтрока) = 1 Тогда
											ТПараметров.Значение = вСпр.ТекущийЭлемент();
										КонецЕсли;

									Исключение
									КонецПопытки;
								КонецЕсли;
							КонецЕсли;
						КонецЕсли;
						ТПараметров.Укладка = "";
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	Если вДобавилиПарам = Да Тогда
	    Предупреждение("В таблицу параметр(ы)!
		|"+вДобавилиПарамТекст);
	КонецЕсли;