Имя: Пароль:
1C
1С v8
Как записать файл с клиента на сервер, чтобы потом его обработать? 8.3.8
0 spiller26
 
11.01.17
18:59
Есть файл xlsx, который нужно поместить на сервер для обработки.

Вроде все сохраняет, но теряет данные при записи на серваке по ходу.  

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

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

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

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

    Для каждого ПереданныйФайл Из ПомещенныеФайлы Цикл
        Объект.ФайлEXCEL = ПереданныйФайл.Имя;
        Объект.ПутьВременногоФайлаEXCEL = ПереданныйФайл.Имя;
        Объект.КлючФайлаEXCEL = ПереданныйФайл.Хранение;
    КонецЦикла;
    
КонецПроцедуры // ()

&НаСервере
Функция ЗагрузитьФайлНаСервере()
    ПутьНаСервере = ПолучитьИмяВременногоФайла("xlsx");
    ДвоичныеДанные = ПолучитьИзВременногоХранилища(Объект.КлючФайлаEXCEL);    
    ДвоичныеДанные.Записать(ПутьНаСервере);
    ТабличныйДокумент = Новый ТабличныйДокумент;
    Попытка
        ТабличныйДокумент.Прочитать(ПутьНаСервере, СпособЧтенияЗначенийТабличногоДокумента.Значение);
//...

     Возврат ТаблицаРезультат;
    
КонецФункции
1 spiller26
 
11.01.17
19:23
Всё разобрался, преобразование строки в число не срабатывает