Пример:
|
1 2 3 4 |
&НаКлиенте Процедура Загрузить(Команда) НачатьПомещениеФайла(Новый ОписаниеОповещения("ВыполнитьЗагрузку",ЭтаФорма),,,Истина,УникальныйИдентификатор); КонецПроцедуры |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
&НаКлиенте Процедура ВыполнитьЗагрузку(Результат,Адрес,ВыбранноеИмяФайла,ДополнительныеПараметры) Экспорт Если Не Результат Тогда Возврат; КонецЕсли; ЗагрузитьНаСервере(Адрес); Сообщить("Завершили"); КонецПроцедуры &НаСервереБезКонтекста Процедура ЗагрузитьНаСервере(Знач Адрес) ФайлВременногоХранилища=ПолучитьИзВременногоХранилища(Адрес); ИмяФайла=ПолучитьИмяВременногоФайла(); ФайлВременногоХранилища.Записать(ИмяФайла); УдалитьИзВременногоХранилища(Адрес); MXL=Новый ТабличныйДокумент; MXL.Прочитать(ИмяФайла); УдалитьФайлы(ИмяФайла); //тут полезные действия КонецПроцедуры |