В начало

Процедура ПечатьИстории

 

Процедура ПечатьИстории (Элем)

   Если Элем.Выбран () = 0 Тогда

      Возврат;

   КонецЕсли;

   Таб = СоздатьОбъект ("Таблица");

   Таб.ИсходнаяТаблица ("ПечатьИстории");

   Таб.ВывестиСекцию ("Отчет");

   Ист = СоздатьОбъект ("Периодический");

 

   // Просмотрим все периодические реквизиты справочника

   Ист.ИспользоватьОбъект ("", Элем);

   Ист.ВыбратьЗначения ();

   Пока Ист.ПолучитьЗначение () = 1 Цикл

      ДокИст = Ист.ТекущийДокумент ();

      Если ДокИст.Выбран () = 1 Тогда

 

         // Если значение задано документом

         Таб.ВывестиСекцию ("ПоДокументу");

      Иначе

 

         // Если значение задано интерактивно

         Таб.ВывестиСекцию ("Строка");

      КонецЕсли;

   КонецЦикла;

   Таб.Опции (0, 0, 0, 0);

   Таб.ТолькоПросмотр (1);

   Таб.Показать ("Отчет");

КонецПроцедуры