Как вывести в печатную форму итоговую сумму по каждой группировке?

@LusineMkrtumyan · Регистрация: 28.06.2020

Студворк — интернет-сервис помощи студентам

Всем привет! Делаю печатную форму документа, в котором есть таблица с начислениями (столбцы: ОКТМО, СуммаПлаты, НазначениеПлатежа).

Сейчас это примерно так выглядит:

ОКТМО Сумма НазначениеПлатежа

12345 23 ......

12345 31 ......

12345 41 .........

654789 54 ...........

789 78 .....

И есть только общий итог по документу.

Мне нужно в печатную форму добавить четвертый столбец, куда выводилась бы итоговая сумма по каждому ОКТМО. Как это можно сделать?

@Yulunga · 23.12.2020, 11:36

вы хотите вывести что-то, но оно не выводится
а вообще - существует ли оно? если вы можете остановиться отладчиком - астанавитись!
если нет - напишите сообщить. один из ранних методов отладки )
там где следующий. если сообщается - значит проблема дальше. не так называется область. или так, но получаете не её, ......

@LusineMkrtumyan · 24.12.2020, 11:26 **[ТС]**

Yulunga, короче, проблема в том, что я не добавляю строки.. Вот он одну строку и выводит.

1C
1
2
3
4
5
6
7
8
9
Пока Выборка.Следующий() Цикл
//сюда надо строку :(
        ВыборкаОКТМО = Выборка.ОКТМО;
        ОбластьНачисления.Параметры.ОКТМО = ВыборкаОКТМО;
        ВыборкаКБК = Выборка.КБК;
        ОбластьНачисления.Параметры.КБК = ВыборкаКБК;
        ВыборкаСумма = Выборка.Сумма;
        ОбластьНачисления.Параметры.Сумма = ВыборкаСумма;
    КонецЦикла;

@Yulunga · 24.12.2020, 11:33

LusineMkrtumyan, я бы пока не сделал как-то умно, раз уж это делается неделю - примерно так бы действовал

1C
1
2
3
4
5
6
й = новый массив(выборка.количество());
йц = 0;
пока выборка.следующий() цыкл
й[йц] = выборка.октмоиликактамувас;
йц ++;
конеццыкла

а потом выводить в цикле, когда уже обходишь прямо, не по группировкам

@LusineMkrtumyan · 25.12.2020, 15:57 **[ТС]**

Смогла в итоге только вот так:

ОКТМО	Сумма	Назначение	Всего по ОКТМО
11223344	45	...
11223344	45	...
11223344	5 2	...
		Итого по ОКТМО	95
55667788	3	...
55667788	3	...
55667788	3	...
		Итого по ОКТМО	12
		Всего по документу	107

@Yulunga · 25.12.2020, 19:36

по мне так прекрасно. а вы как хотели?

@polax · 25.12.2020, 21:27

Сообщение от polax

LusineMkrtumyan, Группируйте по ОКТМО и первый проход обработки запроса делайте по группировкам Сумму по октмо выводите в свою колонку

В запросе сгруппируйте по октмо и результат обход по группировкам. Будет на каждое октмо 1 строка и возьмет все октмо

@Yulunga · 25.12.2020, 23:08

не, ну можно заморочиться.
ещё раз прочитал задание
завести что-то типа

1C
1
2
3
4
5
6
7
8
9
10
11
выборка.следующий
текущееоктмо = выборка.октмо
тексумма = 0
выборка.сбросить
пока выборка.следующий цыкл
если выборка.октмо == текущееоктмо тогда
 тексумма += выборка.сумма
иначе 
 тексумма = выборка.октмо
конецесле
 параметр.4столбец = тексумма

что-то-так. денис правда будет бросаться тухлыми мандаринами, но пусть учится программировать на 8.3 ))

@LusineMkrtumyan · 27.12.2020, 16:08 **[ТС]**

Yulunga, хотят типа вот так, но я вообще не понимаю, как можно в одно поле впихнуть и обход по группировке, и детальные.

ОКТМО	СуммаОКТМО	Назначение	Всего по ОКТМО
11223344	15	Назначение такое-то	вот тут должен быть
11223344	15	Назначение вот такое	общий столбец
11223344	15	Назначение такое	и написано: 45

@Yulunga · 27.12.2020, 17:02

ну так я вроде так и написал
будет
123 15 15
234 20 35
345 10 45

@polax · 27.12.2020, 17:58

Как-то так. Делал без компьютера, могут быть помарки

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Результат = Запрос.Выполнить();
ВыборкаПервогоУровня = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "ОКТМО");
 ОбластьМакета = Макет.ПолучитьОбласть("Строка");
Пока ВыборкаПервогоУровня.Следующий() Цикл 
Сумма = 0;
    ВыборкаВторогоУровня = ВыборкаПервогоУровня.Выбрать(ОбходРезультатаЗапроса.Прямой);
 
Сумма = ВыборкаВторогоУровня.ОКТМО + Сумма;
    ОбластьМакета.Параметры.Заполнить(ВыборкаВторогоУровня);
        
        КонецЦикла;
ОбластьМакета.Параметры.Сумма = Сумма;  
    КонецЦикла;
 ТабДок.Вывести(ОбластьМакета);

@LusineMkrtumyan · 27.12.2020, 21:58 **[ТС]**

polax, Yulunga, спасибо вам большое, отправила пока так, если не подойдет - попробую эти варианты.

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть не большие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Yulunga Модератор 4775 / 970 / 270 Регистрация: 22.04.2013 Сообщений: 6,657 Записей в блоге: 1
	23.12.2020, 11:36
	вы хотите вывести что-то, но оно не выводится а вообще - существует ли оно? если вы можете остановиться отладчиком - астанавитись! если нет - напишите сообщить. один из ранних методов отладки ) там где следующий. если сообщается - значит проблема дальше. не так называется область. или так, но получаете не её, ...... 1

@Yulunga Модератор 4775 / 970 / 270 Регистрация: 22.04.2013 Сообщений: 6,657 Записей в блоге: 1
	25.12.2020, 19:36
	по мне так прекрасно. а вы как хотели? 0

@Yulunga Модератор 4775 / 970 / 270 Регистрация: 22.04.2013 Сообщений: 6,657 Записей в блоге: 1
	27.12.2020, 17:02
	ну так я вроде так и написал будет 123 15 15 234 20 35 345 10 45 0

@LusineMkrtumyan 14 / 14 / 0 Регистрация: 28.06.2020 Сообщений: 64
	27.12.2020, 21:58 [ТС]
	polax, Yulunga, спасибо вам большое, отправила пока так, если не подойдет - попробую эти варианты. 0