Создание внешнего отчета

&НаКлиенте
Процедура НайтиДокумент(Команда)
ПоискДокумента();
КонецПроцедуры

&НаСервере
Функция ПоискДокумента()
//Получить Макет
ЭтотОбъект=РеквизитФормыВзначение("Объект");
Макет=ЭтотОбъект.ПолучитьМакет("Макет");
ТабДок=Новый ТабличныйДокумент;
ОбластьМакета=Макет.ПолучитьОбласть("Шапка");
ТабДок.Вывести(ОбластьМакета);
ОбластьМакета=Макет.ПолучитьОбласть("ШапкаТаблицы");
ТабДок.Вывести(ОбластьМакета);
ОбластьМакета=Макет.ПолучитьОбласть("Данные");
ТабДок.Вывести(ОбластьМакета);



Запрос=Новый Запрос;
Запрос.Текст="ВЫБРАТЬ
             |    КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ЭлектронныйДокументВходящий.Ссылка) КАК Количество
             |ИЗ
             |    (ВЫБРАТЬ
             |        ЭлектронныйДокументВходящий.Ссылка КАК Ссылка
             |    ИЗ
             |        Документ.ЭлектронныйДокументВходящий КАК ЭлектронныйДокументВходящий) КАК ВложенныйЗапрос
             |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЭлектронныйДокументВходящий КАК ЭлектронныйДокументВходящий
             |        ПО ВложенныйЗапрос.Ссылка.Ссылка = ЭлектронныйДокументВходящий.Ссылка
             |
             |СГРУППИРОВАТЬ ПО
             |    ВложенныйЗапрос.Ссылка
             |ИТОГИ
             |    СУММА(Количество)
             |ПО
             |    ОБЩИЕ";

//Запрос.УстановитьПараметр("НачалоПериода",Месяц(ТекущаяДата()));
//Запрос.УстановитьПараметр("КонецПериода",Месяц(ТекущаяДата()-6));
Результат=Запрос.Выполнить().Выбрать();

Пока Результат.Следующий() Цикл
ОбластьМакета.Параметры.Тип=Результат.Ссылка;
ОбластьМакета.Параметры.Количество=Результат.Количество;
ТабДок.Вывести(ОбластьМакета);
КонецЦикла;
Возврат ТабДок;
КонецФункции