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