Пример формирования внешнего отчета программно и в фоновом режиме

&НаКлиенте
Перем ПараметрыОбработчикаОжидания;

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	ЭтаФорма.КлючТекущегоВарианта = "ПримерОтчета";
	Если Параметры.ДополнительнаяОбработкаСсылка = Справочники.ДополнительныеОтчетыИОбработки.ПустаяСсылка() Тогда
		// Почему то не передаются "Параметры" ДополнительнаяОбработкаСсылка, так что ищем сами
		// Если же и здесь не находит, то служебные процедуры выведут ошибки.
		ВременнаяСсылка	=	Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию("Пример отчета");
		Параметры.ДополнительнаяОбработкаСсылка	= ВременнаяСсылка;	
		ОбъектСсылка = ВременнаяСсылка; 
	Иначе 
		ОбъектСсылка = Параметры.ДополнительнаяОбработкаСсылка;
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура СформироватьОтчетВФонеДлительныеОперации(Команда)
	
	ОбщегоНазначенияКлиентСервер.УстановитьСостояниеПоляТабличногоДокумента(Элементы.Результат, "ФОРМИРОВАНИЕОТЧЕТА");
	
	ОчиститьСообщения();
	
	ОтключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания");
	
	ДлительныеОперацииКлиент.ИнициализироватьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания);
	
	ИнтервалПроверки = ПараметрыОбработчикаОжидания.ТекущийИнтервал;
	
	Состояние(НСтр("ru = 'Выполнение отчета...'"));
	
	СформироватьОтчетВФонеДлительныеОперацииНаСервере();
	
	Если НЕ Выполнено Тогда
		ПодключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания", ИнтервалПроверки, Истина);
	Иначе
		ОтключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания");
		ЗагрузитьПодготовленныеДанные()
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура СформироватьОтчетПрограммно(Команда)
	
	СформироватьОтчетПрограммноНаСервере()
	
КонецПроцедуры

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

&НаСервере
Процедура СформироватьОтчетВФонеДлительныеОперацииНаСервере()
	
	ДлительныеОперации.ОтменитьВыполнениеЗадания(ИдентификаторЗадания);
		
	ИдентификаторЗадания 	= Неопределено;
	Выполнено 				= Ложь;
	АдресХранилища 			= ПоместитьВоВременноеХранилище(Неопределено, УникальныйИдентификатор);
	
	ОтчетОбъект	= РеквизитФормыВЗначение("Отчет");
	
	ПараметрыКоманды = Новый Структура;
	ПараметрыКоманды.Вставить("АдресХранилища"         			, АдресХранилища);
	ПараметрыКоманды.Вставить("ДополнительнаяОбработкаСсылка" 	, ОбъектСсылка);
	ПараметрыКоманды.Вставить("СопровождающийТекст"				, НСтр("ru = 'Выполнение отчета...'"));
	ПараметрыКоманды.Вставить("ИдентификаторКоманды"			, "СформироватьОтчет");
	ПараметрыКоманды.Вставить("УникальныйИдентификатор"         , УникальныйИдентификатор);
	ПараметрыКоманды.Вставить("СхемаКомпоновкиДанных"			, ОтчетОбъект.СхемаКомпоновкиДанных);	
	ПараметрыКоманды.Вставить("НастройкиПользователя"			, Отчет.КомпоновщикНастроек.ПользовательскиеНастройки);	
	
	Попытка
		
		ЗаданиеРезультат = ДлительныеОперации.ЗапуститьВыполнениеВФоне(
			УникальныйИдентификатор,
			"ДополнительныеОтчетыИОбработки.ВыполнитьКоманду",
			ПараметрыКоманды,
			СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
				НСтр("ru = 'Выполнение дополнительного отчета или обработки ""%1"", имя команды ""%2""'"),
				Строка(ПараметрыКоманды.ДополнительнаяОбработкаСсылка),
				ПараметрыКоманды.ИдентификаторКоманды));
		
		Выполнено = ЗаданиеРезультат.ЗаданиеВыполнено;
		ВызваноИсключение = Ложь;
		
		Если Выполнено Тогда
			ЗагрузитьПодготовленныеДанные();
		Иначе
			ИдентификаторЗадания  = ЗаданиеРезультат.ИдентификаторЗадания;
		КонецЕсли;
		
	Исключение
		
		Выполнено = Ложь;
		ВызваноИсключение = Истина;
		ТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
		
	КонецПопытки;
	
		
КонецПроцедуры

&НаКлиенте
Процедура СформироватьОтчетВФонеРежимКомпоновки(Команда)
	
 	ЭтаФорма.СкомпоноватьРезультат(РежимКомпоновкиРезультата.Фоновый);
	
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ПроверитьВыполнениеЗадания()
	
	Попытка
		Если ЗаданиеВыполнено(ИдентификаторЗадания) Тогда 

			ЗагрузитьПодготовленныеДанные();
			ОбщегоНазначенияКлиентСервер.УстановитьСостояниеПоляТабличногоДокумента(Элементы.Результат, "НеИспользовать");
		
		Иначе
			ДлительныеОперацииКлиент.ОбновитьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания);
			ПодключитьОбработчикОжидания(
				"Подключаемый_ПроверитьВыполнениеЗадания", 
				ПараметрыОбработчикаОжидания.ТекущийИнтервал, 
				Истина);
		КонецЕсли;
	Исключение
		ОбщегоНазначенияКлиентСервер.УстановитьСостояниеПоляТабличногоДокумента(Элементы.Результат, "НеИспользовать");
		ВызватьИсключение;
	КонецПопытки;
	
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузитьПодготовленныеДанныеНаКлиенте()
	
	ЗагрузитьПодготовленныеДанные();
		
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьПодготовленныеДанные()

	РезультатВыполнения = ПолучитьИзВременногоХранилища(АдресХранилища);
	
	Результат = РезультатВыполнения.Результат;	

	//ДанныеРасшифровки = РезультатВыполнения.ДанныеРасшифровки;
	
	ИдентификаторЗадания = Неопределено;
	
	ОбщегоНазначенияКлиентСервер.УстановитьСостояниеПоляТабличногоДокумента(Элементы.Результат, "НеИспользовать");
	
	//ДополнительныеСвойства = Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства;
	
КонецПроцедуры

&НаСервереБезКонтекста
Функция ЗаданиеВыполнено(ИдентификаторЗадания)
	
	Возврат ДлительныеОперации.ЗаданиеВыполнено(ИдентификаторЗадания);
	
КонецФункции

#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда

////////////////////////////////////////////////////////////////////////////////
// ПРОГРАММНЫЙ ИНТЕРФЕЙС

#Область ПрограммныйИнтерфейс

Функция СведенияОВнешнейОбработке() Экспорт
	ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("2.2.5.32");
	ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиДополнительныйОтчет();
	ПараметрыРегистрации.Версия = "1.0";
	ПараметрыРегистрации.Наименование = "Пример отчета";
	ПараметрыРегистрации.Информация = "Пример отчета";
	ПараметрыРегистрации.БезопасныйРежим = Ложь;
	
	
	НоваяКоманда = ПараметрыРегистрации.Команды.Добавить();
	НоваяКоманда.Представление = НСтр("ru = 'Пример отчета'");
	НоваяКоманда.Идентификатор = "СформироватьОтчет";
	НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыОткрытиеФормы();
	НоваяКоманда.ПоказыватьОповещение = Ложь;
	
	Возврат ПараметрыРегистрации;
КонецФункции

// Интерфейс для выполнения команд обработки.
Процедура ВыполнитьКоманду(ИмяКоманды,ПараметрыВыполненияКоманды) Экспорт
	
	Если ИмяКоманды = "СформироватьОтчет" Тогда
		СформироватьОтчет(ПараметрыВыполненияКоманды,ПараметрыВыполненияКоманды.АдресХранилища);
	КонецЕсли;
	
КонецПроцедуры
#КонецОбласти

Процедура СформироватьОтчет(ПараметрыОтчета,АдресХранилища) Экспорт 
	
	ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
	Результат = Новый ТабличныйДокумент;
	
	СхемаКомпоновкиДанных = ПараметрыОтчета.СхемаКомпоновкиДанных;
	//Или можно так, если схема одна. Не передавая в качестве параметров.
	//СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"); 
	
	КомпоновщикНастроекДанных = Новый КомпоновщикНастроекКомпоновкиДанных;
	КомпоновщикНастроекДанных.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
	
	КомпоновщикНастроекДанных.ЗагрузитьНастройки(КомпоновщикНастроек.Настройки);//копируем настройки
	КомпоновщикНастроекДанных.ЗагрузитьПользовательскиеНастройки(ПараметрыОтчета.НастройкиПользователя);//копируем пользовательские настройки
	
	Настройки = КомпоновщикНастроекДанных.ПолучитьНастройки();
	
	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
	МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки,ДанныеРасшифровки);
	
	ВнешниеНаборыДанных = Новый Структура;// Сюда можно поместить наборы данных ТЗ
	
	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,ВнешниеНаборыДанных,ДанныеРасшифровки);
	
	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	ПроцессорВывода.УстановитьДокумент(Результат);
	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
	
	ПоместитьВоВременноеХранилище(Новый Структура("Результат,ДанныеРасшифровки", Результат, ДанныеРасшифровки), АдресХранилища);
	
КонецПроцедуры

#КонецЕсли