Данный функционал сохраняет запрос с параметрами в файл с деревом значений, который открывается консолью отчетов и консолью запросов. Имеются четыре основных режима работы функции сохранения - на рабочий стол, в документы, в указанный каталог/файл и используя диалог выбора файла. Также можно сохранить значение каталога файлов запросов и указывать только имя создаваемого файла. Режимы сохранение являются наброской, "допилить" "под себя" займет немного времени.
Функция ЗапросВФайл(Запрос, ВариантСохранения = Неопределено, ИмяЗапроса="") Экспорт Перем ИмяКаталога; Перем ИмяФайла; // Получение имен каталога и файла Если ВариантСохранения = 0 Тогда ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение); ДиалогВыбораФайла.Заголовок = "Укажите файл для сохранения запроса"; ДиалогВыбораФайла.Фильтр = "Файлы запросов (*.sel)|*.sel|Файлы отчетов (*.rcf)|*.rcf|Все файлы (*.*)|*.*"; ДиалогВыбораФайла.Расширение = "sel"; Если ДиалогВыбораФайла.Выбрать() Тогда ПолучитьКаталогИИмяФайла(ДиалогВыбораФайла.ПолноеИмяФайла, ИмяКаталога, ИмяФайла);; КонецЕсли; ИначеЕсли ВариантСохранения = 1 Тогда WSS=Новый COMОбъект("WScript.Shell"); ИмяКаталога = Строка(WSS.SpecialFolders().Item("Desktop")); ИначеЕсли ВариантСохранения = 2 Тогда WSS=Новый COMОбъект("WScript.Shell"); ИмяКаталога = Строка(WSS.SpecialFolders().Item("MyDocuments")); ИначеЕсли ТипЗнч(ВариантСохранения) = Тип("Строка") Тогда ПолучитьКаталогИИмяФайла(ВариантСохранения, ИмяКаталога, ИмяФайла); Иначе Возврат Ложь; КонецЕсли; Если Не ЗначениеЗаполнено(ИмяКаталога) Тогда КаталогСохраненияФайлов = ВосстановитьЗначение("КаталогСохраненияФайлов"); Если КаталогСохраненияФайлов = Неопределено Тогда WSS=Новый COMОбъект("WScript.Shell"); ИмяКаталога = Строка(WSS.SpecialFolders().Item("Desktop")) + "\"; Иначе ИмяКаталога = КаталогСохраненияФайлов; КонецЕсли; КонецЕсли; Если Не ЗначениеЗаполнено(ИмяФайла) Тогда ИмяФайла = "Запрос.sel" ИначеЕсли Найти(ИмяФайла, ".") = 0 Тогда ИмяФайла = ИмяФайла + ".sel"; КонецЕсли; // {{ Если файл сущетвует // - это файл запросов - добавление строки в дерево запосов // - если это не файл запросов - перезаписывание файла Файл = Новый Файл(ИмяКаталога + "\" + ИмяФайла); ЗначениеФайла = Неопределено; Если файл.Существует() Тогда ЗначениеФайла = ЗначениеИзФайла(ИмяКаталога + "\" + ИмяФайла) КонецЕсли; // {{ Создание структурированого дерева значений Если ТипЗнч(ЗначениеФайла) = Тип("ДеревоЗначений") Тогда ДеревоЗапросов = ЗначениеФайла; Иначе ДеревоЗапросов = Новый ДеревоЗначений; ДеревоЗапросов.Колонки.Добавить("Запрос"); ДеревоЗапросов.Колонки.Добавить("ТекстЗапроса"); ДеревоЗапросов.Колонки.Добавить("ПараметрыЗапроса"); //ДеревоЗапросов.Колонки.Добавить("СпособВыгрузки"); ДеревоЗапросов.Колонки.Добавить("ТипОформления"); КонецЕсли; // Инициализация параметор запроса ПараметрыЗапроса = Новый ТаблицаЗначений; ПараметрыЗапроса.Колонки.Добавить("ИмяПараметра"); ПараметрыЗапроса.Колонки.Добавить("ЭтоВыражение"); ПараметрыЗапроса.Колонки.Добавить("ЗначениеПараметра"); Для Каждого Параметр Из Запрос.Параметры Цикл ПараметрЗапроса = ПараметрыЗапроса.Добавить(); ПараметрЗапроса.ИмяПараметра = Параметр.Ключ; ПараметрЗапроса.ЭтоВыражение = Ложь; Если ТипЗнч(Параметр.Значение) = Тип("Массив") Тогда СписокЗначения = Новый СписокЗначений; СписокЗначения.ЗагрузитьЗначения(Параметр.Значение); ПараметрЗапроса.ЗначениеПараметра = СписокЗначения; Иначе ПараметрЗапроса.ЗначениеПараметра = Параметр.Значение; КонецЕсли; КонецЦикла; // Добавление запроса в дерево запросов ИмяЗапроса = ?(ЗначениеЗаполнено(ИмяЗапроса), ИмяЗапроса, "Запрос"); ИтоговоеИмяЗапроса = ИмяЗапроса; Итерация = 1; Пока Не ДеревоЗапросов.Строки.Найти(ИтоговоеИмяЗапроса) = Неопределено Цикл ИтоговоеИмяЗапроса = ИмяЗапроса + Строка(Итерация); Итерация = Итерация + 1; КонецЦикла; // Добавление текущего запроса СтрокаЗапрос = ДеревоЗапросов.Строки.Добавить(); СтрокаЗапрос.Запрос = ИтоговоеИмяЗапроса; СтрокаЗапрос.ПараметрыЗапроса = ПараметрыЗапроса; СтрокаЗапрос.ТекстЗапроса = Запрос.Текст; //СтрокаЗапрос.СпособВыгрузки = ?(Найти(Запрос.Текст, "ИТОГИ")>0, 2, 1); СтрокаЗапрос.ТипОформления = СтандартноеОформление.Классика; // Сохранение файла Возврат ЗначениеВФайл(ИмяКаталога + "\" + ИмяФайла, ДеревоЗапросов) КонецФункции Процедура ПолучитьКаталогИИмяФайла(Знач ПолноеИмяФайла, ИмяКаталога, ИмяФайла) Экспорт // находим последний с конца "\" все что до него - это путь, после - имя НомерПозиции = СтрДлина(ПолноеИмяФайла); Пока НомерПозиции <> 0 Цикл Если Сред(ПолноеИмяФайла, НомерПозиции, 1) = "\" Тогда ИмяКаталога = Сред(ПолноеИмяФайла, 1, НомерПозиции - 1); ИмяФайла = Сред(ПолноеИмяФайла, НомерПозиции + 1); Возврат; КонецЕсли; НомерПозиции = НомерПозиции - 1; КонецЦикла; // так и не нашли слешей, значит все- это имя файла ИмяФайла = ПолноеИмяФайла; ИмяКаталога = ""; КонецПроцедуры
P.S. После сохранения не забывайте удалять строку в табло отладки :)
