&НаКлиенте
Процедура Схоронить(Команда)

	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
	Оповещение = Новый ОписаниеОповещения("ОповещениеПослеВыбораФайлаДляЗаписи", ЭтотОбъект);
	Диалог.МножественныйВыбор = Ложь;
	Диалог.Расширение = "xls";
	Диалог.Показать(Оповещение);

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

&НаКлиенте
Процедура ОповещениеПослеВыбораФайлаДляЗаписи(ВыбранныеФайлы, ДопПараметры)Экспорт

	Если ВыбранныеФайлы = Неопределено Тогда
		Возврат;
	КонецЕсли;

	Область = ЭтотОбъект.ТабДок;

	АдресХранилища = ФормированиеФайлаНаСервере(ДопПараметры, ЭтаФорма.УникальныйИдентификатор, Область);
	Оповещение = Новый ОписаниеОповещения("ОповещениеПослеПолученияФайла", ЭтотОбъект);
	ОписаниеФайла = Новый ОписаниеПередаваемогоФайла();
	ОписаниеФайла.Хранение = АдресХранилища;
	ОписаниеФайла.Имя = ВыбранныеФайлы[0];
	ПолучаемыеФайлы = Новый Массив;
	ПолучаемыеФайлы.Добавить(ОписаниеФайла);
	НачатьПолучениеФайловССервера(Оповещение, ПолучаемыеФайлы,, Ложь);

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

&НаСервереБезКонтекста
Функция ФормированиеФайлаНаСервере(Ссылка, ИдентификаторФормы, Область)

	Таблица = Область.ПолучитьОбласть(1,1,2,4);
	Таблица.Область(2,1).Значение = "Тест";
	АдресХранилища = ПоместитьВоВременноеХранилище(Таблица, ИдентификаторФормы);
	Возврат АдресХранилища;

КонецФункции

&НаКлиенте
Процедура ОповещениеПослеПолученияФайла(ПолученныеФайлы, ДопПараметры)Экспорт

	Если Не ПолученныеФайлы = Неопределено Тогда
		Сообщить("Записано")
	КонецЕсли;

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