Показано с 1 по 2 из 2
Тема: 1с 8.2 Создание отчёта !
Комбинированный просмотр
-
06.04.2013, 00:59 #1
- Регистрация
- 05.01.2012
- Сообщений
- 23
- Сказал(а) спасибо
- 21
- Поблагодарили 5 раз(а) в 3 сообщениях
Собирайте отчет на СКД вручную, в запрос программно подставляйте имя таблицы.
что-то наподобии:
Функция ПечатьДокумента()
ДокументОбъект = РеквизитФормыВЗначение("Об ъект");
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| СборкаКомпьютера.Дата,
| СборкаКомпьютера.Номер,
| СборкаКомпьютера.Мастер,
| СборкаКомпьютера.Продукци� � КАК СистемныйБлок,
| СборкаКомпьютера.Склад
|ИЗ
| Документ.СборкаКомпьютера КАК СборкаКомпьютера
|ГДЕ
| СборкаКомпьютера.Ссылка = &Ссылка";
Запрос.УстановитьПараметр( "Ссылка", ДокументОбъект.Ссылка);
Результат = Запрос.Выполнить();
ШапкаДок = Результат.Выгрузить();
ВнешниеНаборыДанных = Новый Структура();
ВнешниеНаборыДанных.Встав� �ть("СоставСБ", ДокументОбъект.ПереченьНо� �енклатуры);
ВнешниеНаборыДанных.Встав� �ть("ДокументСБ", ШапкаДок);
СхемаКомпоновкиДанных = ДокументОбъект.ПолучитьМа� �ет("Макет");
Настройки = СхемаКомпоновкиДанных.Нас� �ройкиПоУмолчанию;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпонов киДанных;
МакетКомпоновки = КомпоновщикМакета.Выполни� �ь(СхемаКомпоновкиДанных, Настройки);
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных ;
ПроцессорКомпоновкиДанных .Инициализировать(МакетКом поновки, ВнешниеНаборыДанных);
ДокументРезультат = Новый ТабличныйДокумент;
ПроцессорВывода = Новый ПроцессорВыводаРезультата КомпоновкиДанныхВТабличны йДокумент;
ПроцессорВывода.Установит� �Документ(ДокументРезульта т);
ПроцессорВывода.Вывести(Пр оцессорКомпоновкиДанных);
Возврат ДокументРезультат;
КонецФункции[COLOR="Silver"]
Социальные закладки