Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
21 ноя 2024, 22:50

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

Автор Дмитрий Sam, 21 фев 2023, 15:21

0 Пользователей и 1 гость просматривают эту тему.

Дмитрий Sam

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

   ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
   Шапка = Макет.ПолучитьОбласть("Шапка");
   ОбластьКартриджиОтправкаШапка = Макет.ПолучитьОбласть("КартриджиОтправкаШапка");
   ОбластьКартриджиОтправка = Макет.ПолучитьОбласть("КартриджиОтправка");
   ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
      ОбластьПодписи = Макет.ПолучитьОбласть("Подписи");
   ТабДок.Очистить();

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

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

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

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

LexaK

необходимо подсчитать Итог и передать его в Параметр области Подвал.
если помогло нажмите: Спасибо!

Дмитрий Sam


Дмитрий Sam


LexaK

Цитата: Дмитрий Sam от 22 фев 2023, 11:33LexaK, а как это сделать?
примерно так
  Итог = 0;
      ВыборкаКартриджиОтправка = Выборка.КартриджиОтправка.Выбрать();
      Пока ВыборкаКартриджиОтправка.Следующий() Цикл
         ОбластьКартриджиОтправка.Параметры.Заполнить(ВыборкаКартриджиОтправка);
         ТабДок.Вывести(ОбластьКартриджиОтправка, ВыборкаКартриджиОтправка.Уровень());
         Итог = Итог + ВыборкаКартриджиОтправка.Количество;//Подсчет общего Количества
КонецЦикла;             
ОбластьПодвал.Параметры.Итог = Итог; //проверьте! оОбязательно должен быть Параметр Итог 
     ТабДок.Вывести(ОбластьПодвал);
       
если помогло нажмите: Спасибо!

Дмитрий Sam

LexaK, А где можно проверить этот параметр итог? //проверьте! оОбязательно должен быть Параметр Итог

LexaK

Дмитрий Sam,
ЦитироватьА где можно проверить этот параметр итог?
ууу, как все плохо!

в макете! (что такое макет и где находится знаете?)
откройте его, найдите область "Подвал", и добавьте в него параметр Итог, точно так-же как и другие параметры в табличной области.
если помогло нажмите: Спасибо!

Дмитрий Sam

LexaK, спасибо большое) все получилось, немного пришлось переделать, а так все ГУД)

Теги:
Рейтинг@Mail.ru

Поиск