0
spiller26
11.01.17
✎
18:59
|
Есть файл xlsx, который нужно поместить на сервер для обработки.
Вроде все сохраняет, но теряет данные при записи на серваке по ходу.
&НаКлиенте
Процедура ФайдEXCELНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ОписаниеОповещения = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтаФорма);
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогОткрытияФайла.Фильтр = "Файлы Excel (*.xlsx) |*.xlsx";
ДиалогОткрытияФайла.Заголовок = "Выберите файл таблицы Excel";
ДиалогОткрытияФайла.ПредварительныйПросмотр = Ложь;
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Расширение ="xls;xlsx";
ДиалогОткрытияФайла.ИндексФильтра = 0;
ДиалогОткрытияФайла.ПолноеИмяФайла = Объект.ФайлEXCEL;
ДиалогОткрытияФайла.ПроверятьСуществованиеФайла = Истина;
НачатьПомещениеФайлов(ОписаниеОповещения, , ДиалогОткрытияФайла, Истина, УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура ОбработатьВыборФайла(ПомещенныеФайлы, ДополнительныеПараметры) Экспорт
Если ПомещенныеФайлы = Неопределено Тогда
Возврат;
КонецЕсли;
Для каждого ПереданныйФайл Из ПомещенныеФайлы Цикл
Объект.ФайлEXCEL = ПереданныйФайл.Имя;
Объект.ПутьВременногоФайлаEXCEL = ПереданныйФайл.Имя;
Объект.КлючФайлаEXCEL = ПереданныйФайл.Хранение;
КонецЦикла;
КонецПроцедуры // ()
&НаСервере
Функция ЗагрузитьФайлНаСервере()
ПутьНаСервере = ПолучитьИмяВременногоФайла("xlsx");
ДвоичныеДанные = ПолучитьИзВременногоХранилища(Объект.КлючФайлаEXCEL);
ДвоичныеДанные.Записать(ПутьНаСервере);
ТабличныйДокумент = Новый ТабличныйДокумент;
Попытка
ТабличныйДокумент.Прочитать(ПутьНаСервере, СпособЧтенияЗначенийТабличногоДокумента.Значение);
//...
Возврат ТаблицаРезультат;
КонецФункции
|
|