Выборка отчета

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