PDA

Просмотр полной версии : 1с 8.2 Создание отчёта !



xNEWXTx
04.04.2013, 20:13
Мне необходимо создать отчет «Список документов», который должен:

1)формировать список документов «Приходная накладная» введенные в информационную базу за определенный интервал времени, список документов должен быть отсортирован по их дате;
2)я должен иметь возможность указать не только период, но и из списка (который будет содержать весь список документов конфигурации) выбрать интересующий меня тип документа. Отчет формировать по выбранному типу документа;


У меня создано 4 документа: ПриходнаяНакладная, РасходнаяНакладная, ПеремещениеТоваров, РасходныйКассовыйОрдер...


В общем я сделал 1 пункт , а вот 2 не могу ... Подскажите как его сделать... Заранее спс

kyafnsum
06.04.2013, 01:59
Собирайте отчет на СКД вручную, в запрос программно подставляйте имя таблицы.
что-то наподобии:
Функция ПечатьДокумента()

ДокументОбъект = РеквизитФормыВЗначение("Объект");

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| СборкаКомпьютера.Дата,
| СборкаКомпьютера.Номер,
| СборкаКомпьютера.Мастер,
| СборкаКомпьютера.Продукци� � КАК СистемныйБлок,
| СборкаКомпьютера.Склад
|ИЗ
| Документ.СборкаКомпьютера КАК СборкаКомпьютера
|ГДЕ
| СборкаКомпьютера.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", ДокументОбъект.Ссылка);
Результат = Запрос.Выполнить();

ШапкаДок = Результат.Выгрузить();

ВнешниеНаборыДанных = Новый Структура();
ВнешниеНаборыДанных.Встав� �ть("СоставСБ", ДокументОбъект.ПереченьНо� �енклатуры);
ВнешниеНаборыДанных.Встав� �ть("ДокументСБ", ШапкаДок);

СхемаКомпоновкиДанных = ДокументОбъект.ПолучитьМа� �ет("Макет");

Настройки = СхемаКомпоновкиДанных.Нас� �ройкиПоУмолчанию;

КомпоновщикМакета = Новый КомпоновщикМакетаКомпонов киДанных;

МакетКомпоновки = КомпоновщикМакета.Выполни� �ь(СхемаКомпоновкиДанных, Настройки);

ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных ;

ПроцессорКомпоновкиДанных .Инициализировать(МакетКом поновки, ВнешниеНаборыДанных);

ДокументРезультат = Новый ТабличныйДокумент;

ПроцессорВывода = Новый ПроцессорВыводаРезультата КомпоновкиДанныхВТабличны йДокумент;

ПроцессорВывода.Установит� �Документ(ДокументРезульта т);

ПроцессорВывода.Вывести(Пр оцессорКомпоновкиДанных);

Возврат ДокументРезультат;

КонецФункции[COLOR="Silver"]