Функция ЗаполнитьПараметрыИзСтроки(ЛиДобавлятьНовые = Истина)

СтрокаПараметровВнутр = "";
//Если не ВвестиСтроку(СтрокаПараметровВнутр, "Строка с параметрами",,Истина) Тогда
//    Возврат Истина;
//КонецЕсли;  
// Форма для ввода строки отличается от "ВвестиСтроку" только тем, что на форме можно разместить развернутую подсказку о том, что это должна быть за строка
Результат = ПолучитьФорму("ФормаВводаСтрокиПараметров").ОткрытьМодально();
Если (Результат = Неопределено) или ПустаяСтрока(Результат) Тогда
Возврат Истина;
КонецЕсли;  
СтрокаПараметровВнутр = Результат;

Попытка
СтруктураПараметров = ЗначениеИзСтрокиВнутр(СтрокаПараметровВнутр);
Исключение
Сообщить("Ошибка разбора строки с параметрами!");
Возврат Ложь;
КонецПопытки;  
Если ЛиДобавлятьНовые Тогда
Параметры.Колонки.Добавить("НИмя", Новый ОписаниеТипов("Строка"));
Для Каждого СтрокаПараметра Из Параметры Цикл
СтрокаПараметра.НИмя = НРег(СтрокаПараметра.ИмяПараметра);
КонецЦикла;
Для каждого ПараметрЗапроса Из СтруктураПараметров Цикл
ИмяПараметра = ПараметрЗапроса.Ключ;
СтрокаПараметров = Параметры.Найти(НРег(ИмяПараметра), "НИмя");
Если СтрокаПараметров <> Неопределено Тогда
Продолжить;
КонецЕсли;
СтрокаПараметров = Параметры.Добавить();
СтрокаПараметров.ИмяПараметра = ИмяПараметра;
СтрокаПараметров.ЭтоВыражение = Ложь;
МассивТипов = Новый Массив; МассивТипов.Добавить(ТипЗнч(ПараметрЗапроса.Значение));
ТипЗначения = Новый ОписаниеТипов(МассивТипов);
СтрокаПараметров.ТипЗначения = ТипЗначения;
СтрокаПараметров.Значение = ПараметрЗапроса.Значение;
КонецЦикла;
Параметры.Колонки.Удалить("НИмя");
КонецЕсли;

Возврат Истина;

КонецФункции // ЗаполнитьПараметрыИзСтроки()

// Обработчик нажатия кнопки командной панели "Заполнить из строки"
//
Процедура КоманднаяПанельПараметрыЗаполнитьИзСтроки(Кнопка)

Если Не ЗаполнитьПараметрыИзСтроки() Тогда
Возврат;
КонецЕсли;  

КонецПроцедуры