v3.0.0.110

Configuration.xml

@@ -56,7 +56,7 @@
 			<ScriptVariant>Russian</ScriptVariant>
 			<DefaultRoles/>
 			<Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor>
-			<Version>3.0.0.109</Version>
+			<Version>3.0.0.110</Version>
 			<Caption/>
 			<ShortCaption/>
 			<DefaultLanguage>Language.Русский</DefaultLanguage>

DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl

@@ -36,10 +36,12 @@
         Сообщить("Выберите файл!");
         Возврат;
     КонецЕсли;
-    Состояние("Загрузка и чтение файла...");
+    Состояние("Загрузка файла...");
-    Результат = ПрочитатьФайлНаСервере(Объект.ПутьКФайлу);
+    АдресФайла = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(Объект.ПутьКФайлу), УникальныйИдентификатор);
+    Состояние("Чтение данных...");
+    Результат = ПрочитатьФайлНаСервере(АдресФайла);
     Если Результат = Неопределено Тогда
-        Сообщить("Ошибка загрузки файла!");
+        Сообщить("Ошибка чтения файла!");
         Возврат;
     КонецЕсли;
     // Заполняем реквизиты формы
@@ -69,23 +71,23 @@
 
 #Область СерверныеПроцедуры
 
-// Главная функция: читает Excel файл целиком на сервере и возвращает структуру результатов
+// Главная функция: читает Excel файл из временного хранилища на сервере
 &НаСервере
-Функция ПрочитатьФайлНаСервере(ПутьКФайлу) Экспорт
+Функция ПрочитатьФайлНаСервере(АдресФайла) Экспорт
-    ФайлНаДиске = Новый Файл(ПутьКФайлу);
+    ДД = ПолучитьИзВременногоХранилища(АдресФайла);
-    Если Не ФайлНаДиске.Существует() Тогда
+    Если ДД = Неопределено Тогда
-        Сообщить("Файл не найден: " + ПутьКФайлу);
+        Сообщить("Файл не получен!");
         Возврат Неопределено;
     КонецЕсли;
-    // Копируем во временный каталог (обход проблем с кириллицей)
+    // Сохраняем во временный файл на сервере
     ВремКаталог = КаталогВременныхФайлов();
-    ИмяФайла = "temp_load" + Формат(ТекущаяДатаСеанса(), "ДФ=yyyyMMddHHmmss") + ФайлНаДиске.Расширение;
+    ПутьВрем = ВремКаталог + "temp_load.xlsx";
-    ПутьВрем = ВремКаталог + ИмяФайла;
+    ДД.Записать(ПутьВрем);
-    КопироватьФайл(ПутьКФайлу, ПутьВрем);
     // Читаем в ТабличныйДокумент
     ТаблДок = Новый ТабличныйДокумент;
     ТаблДок.Прочитать(ПутьВрем);
     УдалитьФайлы(ПутьВрем);
+    УдалитьФайлы(ПутьВрем);
 
     // Проверяем наличие листа "Расчет"
     ЛистРасчет = Неопределено;