Асинхронное сохранение текстового файла

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

&НаКлиенте
Процедура РезультатЗаписиФайла(Результат, ДополнительныеПараметры) Экспорт
	ф = 1;
КонецПроцедуры

&НаКлиенте
Процедура СформироватьФайл(ТекстФайла)
	
	ДиалогОткрытия = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
	ДиалогОткрытия.ПолноеИмяФайла = "";
	Фильтр = НСтр("ru = 'Календарь iCalendar'; en = 'Calendar iCalendar'") + "*.ics|*.ics";
	ДиалогОткрытия.Фильтр = Фильтр;
	ДиалогОткрытия.МножественныйВыбор = Ложь;
	ДиалогОткрытия.Заголовок = "Выберите файлы";
	ДиалогОткрытия.Показать(Новый ОписаниеОповещения("ВыборФайла", ЭтаФорма, Новый Структура("ДиалогОткрытия, ТекстФайла", ДиалогОткрытия, ТекстФайла)));

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

&НаКлиенте
Процедура Сформировать(Команда)
	Если реквГод = 0 Тогда
		реквГод = Год(ТекущаяДата());
	КонецЕсли;
	ТекстКалендаря = СформироватьНаСервере();
	СформироватьФайл(ТекстКалендаря);
	Сообщить("Загрузка завершена.");
КонецПроцедуры