Как посчитать сумму в списке документов

02.06.10

Разработка - Запросы

Часто возникает необходимость посчитать сумму на форме типа ДокументСписок с текущими отборами... И при большом количестве документов методы с ПостроительЗапроса.ИсточникДанных начинают сильно тормозить, т.к. весь список грузится на клиента. Остается единственное решение - Запрос.

Добавляем подвал в ЭлементыФормы, и вот примерный текст обработчика "ПриПолученииДанных()" списка документов:

Запрос = Новый Запрос();
ТекстОтбора = "";
Список = ДокументСписок;
ш = 0;

 Для Каждого ЭлементНастройкиОтбора Из ЭлементыФормы.Список.НастройкаОтбора Цикл

     Если Список.Отбор[ЭлементНастройкиОтбора.Имя].Использование Тогда

         ВидСравненияЭлементаОтбора = Список.Отбор[ЭлементНастройкиОтбора.Имя].ВидСравнения;
   ш = ш + 1;

         Если ВидСравненияЭлементаОтбора = ВидСравнения.Больше Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " > &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.БольшеИлиРавно Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " >= &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ВИерархии Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " В ИЕРАРХИИ(&ЗначениеПараметра"+ш+")";
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ВСписке Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " В (&ЗначениеПараметра"+ш+")";
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ВСпискеПоИерархии Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " В ИЕРАРХИИ(&ЗначениеПараметра"+ш+")";
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.Интервал Тогда
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеС);
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " > &ЗначениеПараметра"+ш; ш = ш + 1;
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " < &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеПо);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ИнтервалВключаяГраницы Тогда
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеС);
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " >= &ЗначениеПараметра"+ш; ш = ш + 1;
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " <= &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеПо);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ИнтервалВключаяНачало Тогда
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеС);
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " >= &ЗначениеПараметра"+ш; ш = ш + 1;
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " < &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеПо);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ИнтервалВключаяОкончание Тогда
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеС);
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " > &ЗначениеПараметра"+ш; ш = ш + 1;
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " <= &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеПо);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.Меньше Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " < &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.МеньшеИлиРавно Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " <= &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.НеВИерархии Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И (НЕ ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " В ИЕРАРХИИ(&ЗначениеПараметра"+ш+"))";
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.НеВСписке Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И (НЕ ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " В (&ЗначениеПараметра"+ш+"))";
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.НеВСпискеПоИерархии Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И (НЕ ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " В ИЕРАРХИИ(&ЗначениеПараметра"+ш+"))";
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.НеРавно Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " <> &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.НеСодержит Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И (НЕ ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " ПОДОБНО &ЗначениеПараметра"+ш+")";
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, "%" + Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение + "%");
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.Равно Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " = &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
         ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.Содержит Тогда
             ТекстОтбора = ТекстОтбора + Символы.ПС + "    И ТаблицаСписка." + ЭлементНастройкиОтбора.Имя + " ПОДОБНО &ЗначениеПараметра"+ш;
             Запрос.УстановитьПараметр("ЗначениеПараметра"+ш, "%" + Список.Отбор[ЭлементНастройкиОтбора.Имя].Значение + "%");
         КонецЕсли;

     КонецЕсли;

 КонецЦикла;

 Если ТекстОтбора <> "" Тогда
     ТекстОтбора = "ГДЕ" + Символы.ПС + "    " + Сред(ТекстОтбора, 8);
 КонецЕсли;

 ТекстЗапроса =
 "ВЫБРАТЬ РАЗРЕШЕННЫЕ
 |    Сумма(СуммаДокумента) КАК Сумма
 |ИЗ
 |    Документ.ПриходныйКассовыйОрдер КАК ТаблицаСписка
 |" + ТекстОтбора;

 Запрос.Текст = ТекстЗапроса;

 Выборка = Запрос.Выполнить().Выбрать();

 Если Выборка.Следующий() Тогда
  ЭлементыФормы.Список.Колонки.СуммаДокумента.ТекстПодвала = Формат(Выборка.Сумма, "ЧЦ=15; ЧДЦ=2");
 Иначе
  ЭлементыФормы.Список.Колонки.СуммаДокумента.ТекстПодвала = 0;
 КонецЕсли;

 


Далее меняем в запросе имя таблицы Документ.ПриходныйКассовыйОрдер

на нужное вам и вуаля! Имеем сумму документов, которая вычисляется мнгновенно, с любым отбором.

По материалам http://www.kb.mista.ru/article.php?id=471

См. также

SALE! 20%

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

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

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

13000 10400 руб.

02.09.2020    122122    670    389    

714

Для чего используют конструкцию запроса "ГДЕ ЛОЖЬ" в СКД на примере конфигурации 1С:ERP

Запросы СКД Платформа 1С v8.3 Запросы Система компоновки данных 1С:ERP Управление предприятием 2 Бесплатно (free)

В типовых конфигурациях разработчики компании 1С иногда используют в отчетах, построенных на СКД, такую конструкцию, как "ГДЕ ЛОЖЬ". Такая конструкция говорит о том, что данные в запросе не будут получены совсем. Для чего же нужен тогда запрос?

13.02.2024    5746    KawaNoNeko    23    

23

Набор-объект для СКД по тексту или запросу

Запросы СКД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Есть список полей в виде текста, или запрос - закидываем в набор СКД.

1 стартмани

31.01.2024    2000    2    Yashazz    0    

29

Запрос 1С copilot

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

Пишем на человеческом языке, что нам надо, и получаем текст запроса на языке 1С. Используются большие языковые модели (LLM GPT) от OpenAI или Яндекс на выбор.

5 стартмани

15.01.2024    6284    31    mkalimulin    25    

50

PrintWizard: поддержка представлений ЗУП в конструкторе

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

Одной из интересных задач, стоящих в процессе разработки, была поддержка механизма представлений в ЗУП. Но не просто возможность исполнения запросов с ними. Основная проблема была в том, чтобы с ними было удобно работать, а именно: создавать, модифицировать и отлаживать. Кратко о том, что в итоге получилось...

14.12.2023    1742    vandalsvq    7    

29

Объектная модель запроса "Схема запроса" 2

Запросы Платформа 1С v8.3 Запросы Конфигурации 1cv8 Бесплатно (free)

Далеко уже не новый тип данных "Схема запроса". Статья о том, как использовать его "попроще". Примеры создания текста запроса с нуля и изменение имеющегося запроса.

06.12.2023    5388    user1923546    26    

43

Начните уже использовать хранилище запросов

HighLoad оптимизация Запросы

Очень немногие из тех, кто занимается поддержкой MS SQL, работают с хранилищем запросов. А ведь хранилище запросов – это очень удобный, мощный и, главное, бесплатный инструмент, позволяющий быстро найти и локализовать проблему производительности и потребления ресурсов запросами. В статье расскажем о том, как использовать хранилище запросов в MS SQL и какие плюсы и минусы у него есть.

11.10.2023    16181    skovpin_sa    14    

98
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Danil.Potapov 514 14.05.10 19:16 Сейчас в теме
ПостроительЗапроса = Новый ПостроительЗапроса;
ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ДокументСписок);
//настройть на вывод только нужного поля.
ПостроительЗапроса.Выполнить();
ПостроительЗапроса.Результат. Выбрать();
//дальше все как у тебя
8. a-novoselov 1155 19.05.10 13:38 Сейчас в теме
(1) Да, ПостроительЗапроса.Результат. Выбрать(); -
получаем выборку всех документов (их например 100 000) и считаем в цикле общую сумму. Или ПостроительЗапроса.Результат. Выгрузить(); - и по таблице на клиенте считаем сумму колонки. Метод намного проще и нисколечко не будет тормозить на клиент-серверном варианте.
Даже при корректной настройке на вывод нужного поля вся колонка будет выгружаться на клиента, что намного дольше возврата 1й цыфры. Только при ручном назначени ИсточникаДанных построителю мы колонки сможем узнать и типизировать после получения свойства ПостроительЗапроса.Результат... а это опять же получение всего списка... может подскажете как настроить вывод нужного поля до получения результата?
2. alexk-is 6533 14.05.10 19:36 Сейчас в теме
Текст модуля в публикации можно раскрасить получше. :)
5. a-novoselov 1155 18.05.10 07:09 Сейчас в теме
6. alexk-is 6533 18.05.10 07:42 Сейчас в теме
(5) Ой. А что так страшно-то? :)
3. Поручик 4670 14.05.10 21:56 Сейчас в теме
Поддерживаю, раскрась по путёвому.
4. tango 506 17.05.10 09:19 Сейчас в теме
(0) "Добавляем подвал в ЭлементыФормы" или в ЭлементыФормы.ДокументСписок?

| Сумма(ТаблицаСписка.СуммаДокумента) КАК Сумма

Если НЕ ПустаяСтрока(ТекстОтбора) Тогда
ТекстОтбора = "ГДЕ Истина " + ТекстОтбора;
КонецЕсли;
7. DoctorRoza 19.05.10 09:59 Сейчас в теме
МногА букоФак .. нИ асилил .. :D )) +
9. vital1c 97 26.12.12 14:27 Сейчас в теме
в динамических списках в отборе также участвуют КриетрииОтбора, поэтому формирование такого запроса например в Списке ЗаказПокупателя в УТ 10.3 при выборе отбора ДокументыПоДоговоруКонтрагента, запрос не выполнится, потому что имя реквизита будет соответсовать критерию отбора, а не реквизита документа.
10. a-novoselov 1155 26.12.12 15:57 Сейчас в теме
(9) Да, согласен. Но публикация была сделана для того, чтобы показать как следует делать, показать направление так сказать. Просто встречал на своей практике случаи, когда делалось то же самое через построитель - кода, конечно, меньше в разы, но после перехода отметки в 1000 документов форма начинала открываться по 20-30 секунд, хотя через запрос при любом количестве документов открывается не больше секунды.
Оставьте свое сообщение