Составил печатную форму для документа, подскажите, как можно посчитать и вывести суммирование

1. VKuser257498137 16.03.23 11:49 Сейчас в теме
Здравствуйте, в 1с занимаюсь недавно
Составил печатную форму для документа, подскажите, как можно посчитать и вывести суммирование в данном коде

Процедура Печать(ТабДок, Ссылка) Экспорт
	//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
	Макет = Документы.АктВыполненныхРабот.ПолучитьМакет("Печать");
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	АктВыполненныхРабот.Дата,
	|	АктВыполненныхРабот.Клиент,
	|	АктВыполненныхРабот.Номер,
	|	АктВыполненныхРабот.Сотрудник,
	|	АктВыполненныхРабот.ВыполненныеУслуги.(
	|		НомерСтроки,
	|		НаменованиеУслуги,
	|		ОбщаяСтоимость
	|	),
	|	АктВыполненныхРабот.ЗатраченныеМатериалы.(
	|		НомерСтроки,
	|		НаименованиеМатериала,
	|		СтоимостьМатериала
	|	)
	|ИЗ
	|	Документ.АктВыполненныхРабот КАК АктВыполненныхРабот
	|ГДЕ
	|	АктВыполненныхРабот.Ссылка В (&Ссылка)";
	Запрос.Параметры.Вставить("Ссылка", Ссылка);
	Выборка = Запрос.Выполнить().Выбрать();

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	Шапка = Макет.ПолучитьОбласть("Шапка");
	ОбластьВыполненныеУслугиШапка = Макет.ПолучитьОбласть("ВыполненныеУслугиШапка");
	ОбластьВыполненныеУслуги = Макет.ПолучитьОбласть("ВыполненныеУслуги");
	ОбластьЗатраченныеМатериалыШапка = Макет.ПолучитьОбласть("ЗатраченныеМатериалыШапка");
	ОбластьЗатраченныеМатериалы = Макет.ПолучитьОбласть("ЗатраченныеМатериалы");
	Подвал = Макет.ПолучитьОбласть("Подвал");

	ТабДок.Очистить();

	ВставлятьРазделительСтраниц = Ложь;
	Пока Выборка.Следующий() Цикл
		Если ВставлятьРазделительСтраниц Тогда
			ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
		КонецЕсли;

		ТабДок.Вывести(ОбластьЗаголовок);

		Шапка.Параметры.Заполнить(Выборка);
		ТабДок.Вывести(Шапка, Выборка.Уровень());

		ТабДок.Вывести(ОбластьВыполненныеУслугиШапка);
		ВыборкаВыполненныеУслуги = Выборка.ВыполненныеУслуги.Выбрать();
		Пока ВыборкаВыполненныеУслуги.Следующий() Цикл
			ОбластьВыполненныеУслуги.Параметры.Заполнить(ВыборкаВыполненныеУслуги);
			ТабДок.Вывести(ОбластьВыполненныеУслуги, ВыборкаВыполненныеУслуги.Уровень());
		КонецЦикла;

		ТабДок.Вывести(ОбластьЗатраченныеМатериалыШапка);
		ВыборкаЗатраченныеМатериалы = Выборка.ЗатраченныеМатериалы.Выбрать();
		Пока ВыборкаЗатраченныеМатериалы.Следующий() Цикл
			ОбластьЗатраченныеМатериалы.Параметры.Заполнить(ВыборкаЗатраченныеМатериалы);
			ТабДок.Вывести(ОбластьЗатраченныеМатериалы, ВыборкаЗатраченныеМатериалы.Уровень());
		КонецЦикла;

		Подвал.Параметры.Заполнить(Выборка);
		ТабДок.Вывести(Подвал);

		ВставлятьРазделительСтраниц = Истина;
	КонецЦикла;
	//}}
КонецПроцедуры
Показать
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
4. user856012 14 16.03.23 12:32 Сейчас в теме
(1)
как можно посчитать и вывести суммирование в данном коде
Элементарно: создать переменную (переменные) для суммы, обнулить ее перед циклом, а в цикле - добавлять к ней нужные значения.
2. пользователь 16.03.23 11:55
Сообщение было скрыто модератором.
...
3. user856012 14 16.03.23 12:29 Сейчас в теме
(2)
И причем тут Конфигуратор?
Очевидно же: код можно прочитать/написать только в Конфигураторе!

Или вы способны видеть код в режиме Предприятия? :-)
5. пользователь 16.03.23 12:33
Сообщение было скрыто модератором.
...
6. topoviy1Cer 16.03.23 14:15 Сейчас в теме
ИтогСуммаВсего = 0;
	ИтогКоличествоВсего = 0;
	
	Пока ВыборкаТовары.Следующий() Цикл
		

	ИтогСуммаВсего = ИтогСуммаВсего + ВыборкаТовары.Сумма;
	ИтогКоличествоВсего = ИтогКоличествоВсего + ВыборкаТовары.Количество;

	КонецЦикла;
Показать
7. пользователь 16.03.23 15:03
Сообщение было скрыто модератором.
...
8. topoviy1Cer 16.03.23 15:26 Сейчас в теме
(7) Это печатная форма же, нет?
9. пользователь 16.03.23 15:29
Сообщение было скрыто модератором.
...
10. topoviy1Cer 16.03.23 15:31 Сейчас в теме
(9) Не работает, пробовал
11. пользователь 16.03.23 15:32
Сообщение было скрыто модератором.
...
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот