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