Консоль запросов. Очередная гайка.

23.07.14

Разработка - Инструментарий разработчика

Небольшое дополнение к консоли запросов. Позволяет создавать функцию вместе с текстом запроса.
Здравствуйте уважаемые инфостартовцы. Прежде чем приступить к изложению небольшое отступление.
Возможно эта опция есть в других консолях. Если есть прошу строго не судить.
Итак начнем
Рецепт приготовления гайки)
1. Берем 1 стандартную консоль Чистова. Открываем ее в Конфигураторе.
2. Открываем основную форму и находим там элемент "КоманднаяПанельТекстаЗапроса".
3. Добавляем кнопку и даем ей какое нибудь незатейливое название. Например "Fx".
4. Создаем обработчик по нажатию кнопки.
5. В текст обработчика добавляем следующий код:

пНазваниеФункции="";

    ФункцияИнициал = "Функция ";

    Кодзапроса="";

    КодЗапроса = КодЗапроса+ФункцияИнициал;

    ТекстЗапроса = СтрЗаменить(вПолучитьТекстЗапроса(Истина), "|", "");

    Если ПустаяСтрока(ТекстЗапроса) Тогда

        Предупреждение("Отсутствует текст запроса.");

        Возврат;

    КонецЕсли;

    Запрос = Новый Запрос(ТекстЗапроса);

    

    Попытка

        ПараметрыЗапроса = Запрос.НайтиПараметры();

    Исключение

        Предупреждение(ОписаниеОшибки());

        Возврат;

    КонецПопытки;

    

    //название функции

    Если НЕ ВвестиСтроку(пНазваниеФункции, "Введите Имя функции") Тогда

        Возврат;

    КонецЕсли;

    КодЗапроса = КодЗапроса+ пНазваниеФункции+"(";

    КоличествоПараметров = ПараметрыЗапроса.Количество();

    НачальныйПараметр=1;

    Для каждого ПараметрЗапроса Из ПараметрыЗапроса Цикл

       

        Если НачальныйПараметр = КоличествоПараметров Тогда

            КодЗапроса = КодЗапроса+ПараметрЗапроса.Имя;

        Иначе

            КодЗапроса = КодЗапроса+ПараметрЗапроса.Имя + ",";

        КонецЕсли;

 
НачальныйПараметр = НачальныйПараметр+1;
    КонецЦикла;

    

    КодЗапроса = КодЗапроса+ ")"+Символы.ПС;

    пНазваниеЗапроса = "Запрос";

    Если НЕ ВвестиСтроку(пНазваниеЗапроса, "Введите Имя запроса") Тогда

        Возврат;

    КонецЕсли; 

    КодЗапроса = КодЗапроса + пНазваниеЗапроса + " = Новый Запрос;" + Символы.ПС;

    НовыйТекст = "";

    Для Ном = 1 По ЭлементыФормы.ТекстЗапроса.КоличествоСтрок() Цикл

        Текст = СтрЗаменить(ЭлементыФормы.ТекстЗапроса.ПолучитьСтроку(Ном),"|","");

        Текст = СтрЗаменить(Текст, Символ(34), Символ(34) + Символ(34));

        НовыйТекст = НовыйТекст + "|" + Текст + Символы.ПС;

    КонецЦикла;


    КодЗапроса = КодЗапроса + пНазваниеЗапроса + ".Текст = """ + Символы.ПС + СокрЛП(НовыйТекст) + """;" + Символы.ПС;

    

    Для каждого ПараметрЗапроса Из ПараметрыЗапроса Цикл

        КодЗапроса = КодЗапроса + пНазваниеЗапроса+".УстановитьПараметр("""+ПараметрЗапроса.Имя+""","+Символы.Таб+ПараметрЗапроса.Имя+");"+Символы.Таб+" //" + ПараметрЗапроса.ТипЗначения + Символы.ПС;

    КонецЦикла;


    КодЗапроса = КодЗапроса + "РезультатЗапроса = " + пНазваниеЗапроса + ".Выполнить();"+Символы.ПС;

    КодЗапроса = КодЗапроса + "Возврат РезультатЗапроса;"+Символы.ПС;

    КодЗапроса = КодЗапроса + "КонецФункции"+Символы.ПС;

    ФормаКода = ПолучитьФорму("ФормаКодаЗапроса");

    ФормаКода.ЭлементыФормы.КодЗапроса.УстановитьТекст(КодЗапроса);

    ФормаКода.Открыть();

6. Почти готово.
7. Заходим в режим Предприятие. И пробуем.
8. Результат приведен на скриншоте.
9.Спасибо за внимание.

Файл консоли прикладывать не буду его найти не проблема.

консоль запросов функция

См. также

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 руб.

02.09.2020    119910    656    389    

701

Infostart PrintWizard

Пакетная печать Печатные формы Инструментарий разработчика Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:Конвертация данных 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

18000 руб.

06.10.2023    7007    20    6    

37

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

10000 руб.

10.11.2023    3244    10    1    

31

SALE! 30%

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177341    1070    0    

846

Многопоточность. Универсальный «Менеджер потоков» 2.1

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

5000 руб.

07.02.2018    99203    239    97    

296

[ЕХТ] Фреймворк для Расширений 1С

Инструментарий разработчика Платформа 1С v8.3 Управляемые формы Платные (руб)

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019    17910    6    8    

38

1С HTML Шаблоны / HTML Templates

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017    27945    3    10    

14

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

Инструментарий разработчика Обмен между базами 1C Платформа 1С v8.3 Платные (руб)

В процессе работы в 1С часто возникает потребность получить данные из другой базы.  Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019    23488    15    15    

31
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. AlexO 135 31.07.14 23:28 Сейчас в теме
Это что - просто создаем текст под функцию, и все? А чем не устраивает обычные "создать текст модуля"?
2. mdmdvd 51 01.08.14 12:55 Сейчас в теме
Я и написал ,что если есть то не судите строго)
Оставьте свое сообщение