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

Подскажите, в чем проблема не печатается отчет

Автор Dobrolubov, 21 мар 2012, 20:19

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

Dobrolubov


Процедура Печать(ТабДок, Ссылка) Экспорт
   //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
   // Данный фрагмент построен конструктором.
   // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

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

   ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
   ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
   ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
   ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
   ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
   ТабличнаяЧасть11ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ТабличнаяЧасть11ШапкаТаблицы");
   ТабличнаяЧасть11ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ТабличнаяЧасть11ПодвалТаблицы");
   ТабличнаяЧасть11ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("ТабличнаяЧасть11Детали");
   ТабличнаяЧасть1ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ТабличнаяЧасть1ШапкаТаблицы");
   ТабличнаяЧасть1ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ТабличнаяЧасть1ПодвалТаблицы");
   ТабличнаяЧасть1ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("ТабличнаяЧасть1Детали");

   ТабДок.Очистить();
   ТабДок.Вывести(ОбластьЗаголовок);
   ТабДок.Вывести(ОбластьШапкаТаблицы);
   ТабДок.НачатьАвтогруппировкуСтрок();

   ВыборкаДетальныеЗаписи = Результат.Выбрать();

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

      ТабДок.НачатьГруппуСтрок();
      ТабДок.Вывести(ТабличнаяЧасть11ОбластьШапкаТаблицы);
      ТабДок.НачатьАвтогруппировкуСтрок();

      ТабличнаяЧасть11ВыборкаДетальныеЗаписи = ВыборкаДетальныеЗаписи.ТабличнаяЧасть11.Выбрать();

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

      ТабДок.ЗакончитьАвтогруппировкуСтрок();
      ТабДок.Вывести(ТабличнаяЧасть11ОбластьПодвалТаблицы);
      ТабДок.Вывести(ТабличнаяЧасть1ОбластьШапкаТаблицы);
      ТабДок.НачатьАвтогруппировкуСтрок();

      ТабличнаяЧасть1ВыборкаДетальныеЗаписи = ВыборкаДетальныеЗаписи.ТабличнаяЧасть1.Выбрать();

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

      ТабДок.ЗакончитьАвтогруппировкуСтрок();
      ТабДок.Вывести(ТабличнаяЧасть1ОбластьПодвалТаблицы);
      ТабДок.ЗакончитьГруппуСтрок();
   КонецЦикла;

   ТабДок.ЗакончитьАвтогруппировкуСтрок();
   ТабДок.Вывести(ОбластьПодвалТаблицы);
   ТабДок.Вывести(ОбластьПодвал);

   //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
   
КонецПроцедуры

Dobrolubov

вот каак

Dobrolubov


Dethmontt

Наверное запрос нужно написать по нормальному
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Public_enemy

Ели я не ошибаюсь то надо дописать ТабДок.Показать() и все получится

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск