v3.0.0.107

Configuration.xml

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

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

@@ -39,22 +39,7 @@
         Возврат;
     КонецЕсли;
     Состояние("Загрузка файла...");
-    // Определяем тип файла на клиенте (перечисление доступно)
+    АдресТабДока = ЗагрузитьФайлНаСервере(Объект.ПутьКФайлу);
-    ФайлОбъект = Новый Файл(Объект.ПутьКФайлу);
-    Расширение = НРег(ФайлОбъект.Расширение);
-    Если Расширение = ".xlsx" ИЛИ Расширение = ".xlsm" Тогда
-        ТипФайла = 3; // ТипФайлаТабличногоДокумента.XLSX
-    ИначеЕсли Расширение = ".xls" Тогда
-        ТипФайла = 2; // ТипФайлаТабличногоДокумента.XLS
-    ИначеЕсли Расширение = ".mxl" Тогда
-        ТипФайла = 1; // ТипФайлаТабличногоДокумента.MXL
-    ИначеЕсли Расширение = ".csv" Тогда
-        ТипФайла = 4; // ТипФайлаТабличногоДокумента.CSV
-    Иначе
-        Сообщить("Неподдерживаемый формат: " + Расширение);
-        Возврат;
-    КонецЕсли;
-    АдресТабДока = ЗагрузитьФайлНаСервере(Объект.ПутьКФайлу, ТипФайла);
     Если АдресТабДока = Неопределено Тогда
         Сообщить("Ошибка загрузки файла!");
         Возврат;
@@ -197,7 +182,7 @@
 #Область СерверныеПроцедуры
 
 &НаСервереБезКонтекста
-Функция ЗагрузитьФайлНаСервере(ПутьКФайлу, ТипФайла = Неопределено) Экспорт
+Функция ЗагрузитьФайлНаСервере(ПутьКФайлу) Экспорт
     ФайлНаДиске = Новый Файл(ПутьКФайлу);
     Если Не ФайлНаДиске.Существует() Тогда Сообщить("Файл не найден: " + ПутьКФайлу); Возврат Неопределено; КонецЕсли;
     ВремКаталог = КаталогВременныхФайлов();
@@ -205,11 +190,7 @@
     ПутьВрем = ВремКаталог + ИмяФайла;
     КопироватьФайл(ПутьКФайлу, ПутьВрем);
     ТаблДок = Новый ТабличныйДокумент;
-    Если ЗначениеЗаполнено(ТипФайла) Тогда
+    ТаблДок.Прочитать(ПутьВрем);
-        ТаблДок.Прочитать(ПутьВрем, ТипФайла);
-    Иначе
-        ТаблДок.Прочитать(ПутьВрем);
-    КонецЕсли;
     УдалитьФайлы(ПутьВрем);
     Возврат ПоместитьВоВременноеХранилище(ТаблДок);
 КонецФункции