Это старая версия документа!

Передача файла с клиента на сервер

&НаКлиенте
Процедура ОткрытьФайл(Команда)
	
	Если ВсеНастройкиЗаполнены() Тогда 
		
		ОчиститьДанныеДляНовойЗагрузки();
		
		СтандартнаяОбработка	=	Ложь;
		
		ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
		ДиалогОткрытияФайла.ПолноеИмяФайла		= "";
		ДиалогОткрытияФайла.МножественныйВыбор	= Ложь;
		ДиалогОткрытияФайла.Заголовок			= НСтр("ru = 'Выберите файл'; uk = 'Виберіть файл'");
		ДиалогОткрытияФайла.Фильтр				= "Файлы MS Excel|*.xls;*.xlsx";
		ДиалогОткрытияФайла.Показать(Новый ОписаниеОповещения("ПоказатьДиалогВыбораФайлаЗавершение", ЭтотОбъект, Новый Структура("ДиалогОткрытияФайла", ДиалогОткрытияФайла)));
		
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура ПоказатьДиалогВыбораФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
	
	Если (ВыбранныеФайлы <> Неопределено) Тогда
		ИмяФайла = ВыбранныеФайлы[0];
	Иначе 
		Возврат;
	КонецЕсли;
	
	
	ДвоичныеДанные=Новый ДвоичныеДанные(ИмяФайла);
    АдресВХ = ПоместитьВоВременноеХранилище(ДвоичныеДанные, ЭтаФорма.УникальныйИдентификатор);
	
	ОбрабоатьФайлНаСервере(АдресВХ);
	
КонецПроцедуры

&НаСервере Процедура ОбрабоатьФайлНаСервере(АдресВХ)

ИмяФайла = ПолучитьИмяВременногоФайла("xls");

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

  //Теперь файл с полнім путем "ИмяФайла" скопирован на сервер и можно с ним работть на сервере

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