Фоновое задание в модуле внешней обработки

	ПараметрыЗадания = Новый Структура;
	ПараметрыЗадания.Вставить("ИмяМетода", ИмяМетода);
	ПараметрыЗадания.Вставить("ПараметрыВыполнения", ПараметрыОбработки);
	ПараметрыЗадания.Вставить("ЭтоВнешняяОбработка", Истина);
	ПараметрыЗадания.Вставить("ДополнительнаяОбработкаСсылка", ВнешняяОбработка);

	ПараметрыЗадания = Новый Структура;

	ПараметрыЗадания.Вставить("ИмяОбработки", ПутьНаСервере);
	ПараметрыЗадания.Вставить("ИмяМетода", ИмяМетода);
	ПараметрыЗадания.Вставить("ПараметрыВыполнения", ПараметрыОбработки);
	ПараметрыЗадания.Вставить("ЭтоВнешняяОбработка", Истина);

&НаКлиенте
Процедура НачатьПодготовкуФайлаВФоне()
	
		Состояние("Подготовка данных...");

		Если Не ЗначениеЗаполнено(ВнешняяОбработка) И ПустаяСтрока(ПутьНаСервере) Тогда
			ПутьНаСервере = ИспользуемоеИмяФайла();
		ИначеЕсли Не ЗначениеЗаполнено(ВнешняяОбработка) И Не ПустаяСтрока(ПутьНаСервере) Тогда
			Если Не ФайлСуществуетНаСервере(ПутьНаСервере) Тогда
				ПутьНаСервере = ИспользуемоеИмяФайла();
			КонецЕсли;
		КонецЕсли;

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

	
КонецПроцедуры

&НаСервереБезКонтекста
Функция ФайлСуществуетНаСервере(ПутьНаСервере)
	
	Файл = Новый Файл(ПутьНаСервере);
	Возврат Файл.Существует();
	
КонецФункции

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

&НаКлиенте
Функция ИспользуемоеИмяФайла()
	
	ПутьНаКлиенте = ПолучитьИмяФайлаНаКлиенте();
	ДвоичныеДанные = Новый ДвоичныеДанные(ПутьНаКлиенте);
	Возврат СохранитьОбработкуНаСервере(ПоместитьВоВременноеХранилище(ДвоичныеДанные, УникальныйИдентификатор));
 	   
КонецФункции

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

&НаСервере
Функция СохранитьОбработкуНаСервере(АдресВХ)
	
	ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВХ);
	ИмяВременногоФайла = ПолучитьИмяВременногоФайла("epf");
	ДвоичныеДанные.Записать(ИмяВременногоФайла);
	Возврат ИмяВременногоФайла;
	
КонецФункции

&НаКлиенте
Процедура ПрогрессВыполнения(Результат, Контекст) Экспорт
	
	Если Результат.Статус = "Выполняется" или Результат.Статус = "Выполнено" Тогда
		
		Прогресс = Результат.Прогресс;
		
		
		Если Прогресс <> Неопределено Тогда  
			
			Индикатор = Прогресс.Процент; // Индикатор - полей Индикатор на форме
			Элементы.ДекорацияПояснение.Заголовок = Прогресс.Текст; // поле надпись на форме
			
		КонецЕсли;
		
	КонецЕсли;
	
	Если Результат.Статус = "Выполнено" Или Результат.Статус = "Отменено" Тогда
		Элементы.ГруппаИндикация.Видимость = Ложь;
	КонецЕсли;
	 
КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьПроцедуруФоново_Выполнено(Результат, ДополнительныеПараметры) Экспорт

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

	КонецЕсли;

КонецПроцедуры

ДлительныеОперации.СообщитьПрогресс(ПроцентВыполнения, "Выгружено строк: "+Строка(Итератор-2)+" из "+Строка(Всего));