Каталог решений - Новый запрос и новая таблица значений как функции

Программы на языке программирования платформы «1С:Предприятие» довольно многословны. В них часто повторяются одни и те же шаблоны. Например, постоянно приходится видеть повторение конструкций вида:

Запрос = Новый Запрос;

Запрос.УстановитьПараметр(«ИмяПараметра1», ЗначениеПараметра1);
…
Запрос.УстановитьПараметр(«ИмяПараметраN», ЗначениеПараметраN);

Запрос.Текст = «ВЫБРАТЬ … «;

Или конструкций вида:

ТЗ = Новый ТаблицаЗначений;

ТЗ.Колонки.Добавить(ИмяКолонки1);

…

ТЗ.Колонки.Добавить(ИмяКолонкиN);

Для ускорения ввода конструкций языка по шаблонам есть соответствующие средства. Однако существует и другой путь справиться со ставшей уже привычной избыточностью кода. Этот путь – использование функций.

Для получения готового к выполнению запроса можно использовать функцию:

Функция НовыйЗапрос(Текст, Параметры = 0) Экспорт

    Результат = Новый Запрос(Текст);

    Для Каждого Параметр Из Результат.НайтиПараметры() Цикл Результат.Параметры.Вставить(Параметр.Имя)
    КонецЦикла;

    Если Параметры <> 0 Тогда ЗаполнитьЗначенияСвойств(Результат.Параметры, Параметры)
    КонецЕсли;

    Возврат Результат

КонецФункции

Здесь параметрами является текст запроса и структура или объект, реквизиты которого содержат значения параметров запроса. В модуле объекта удобнее использовать в качестве параметра значение «ЭтотОбъект». А параметры запроса именовать также как реквизиты этого объекта.

Примеры использования функции:

Для получения количества всех элементов справочника можно использовать код:

ВсегоВНоменклатуре = НовыйЗапрос(«ВЫБРАТЬ Ссылка ИЗ Справочник.Номенклатура»).Выполнить().Выгрузить().Количество();

Для получения таблицы значений из табличной части «Товары» документа «РеализацияТоваровИУслуг» можно использовать код:

Товары_ = НовыйЗапрос(«ВЫБРАТЬ * ИЗ Документ.РеализацияТоваровУслуг.Товары ГДЕ Ссылка = &Ссылка», ЭтотОбъект).Выполнить().Выгрузить();

Также, например, в обработке заполнения табличной части для удаления строк с нулевой суммой в модуле объекта обработки достаточно будет записать такую короткую процедуру:

Процедура Инициализировать (Объект, ИмяТабличнойЧасти, ТабличноеПолеОбъекта)  Экспорт

    Объект.Товары.Загрузить(

    НовыйЗапрос(«ВЫБРАТЬ * ИЗ Документ.РеализацияТоваровУслуг.Товары ГДЕ Ссылка = &Ссылка И Сумма > 0»

    , Объект).Выполнить().Выгрузить())

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

Конечно, это только небольшая часть возможных примеров. После того, как использование этой функции входит в привычку, к обычному варианту через повторение «УстановитьЗначениеПараметра» возвращаться уже не хочется. В редких случаях, когда объекта-параметра с походящим набором свойств подобрать не удается, в качестве параметра можно использовать Новый Структура(«ИмяПараметра1, … «, ЗначениеПараметра1, … ). Все равно за счет возможности записать после функции через точку метод «Выполнить» код получается короче.

Для получения таблицы значений, имена колонок которой перечислены в строке через запятую, можно использовать функцию:

Функция НоваяТаблицаЗначений(ИменаКолонокЧерезЗапятую) Экспорт

    Результат = Новый ТаблицаЗначений;

    Для Каждого Элемент Из Новый Структура(ИменаКолонокЧерезЗапятую) Цикл Результат.Колонки.Добавить(Элемент.Ключ)
    КонецЦикла;

    Возврат Результат

КонецФункции

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

ВзаимоРасчетыФИФО = НоваяТаблицаЗначений(«ДокументОтгрузки, ДокументОплаты, Сумма»);