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