diff --git a/Configuration.xml b/Configuration.xml
index e545eb0..102650f 100755
--- a/Configuration.xml
+++ b/Configuration.xml
@@ -56,7 +56,7 @@
Russian
ООО "Профи-Софт", код партнера 42575-13, г.Байконур.
- 3.0.0.106
+ 3.0.0.107
Language.Русский
diff --git a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
index 170c1ed..f4c1f32 100644
--- a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+++ b/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 @@
ПутьВрем = ВремКаталог + ИмяФайла;
КопироватьФайл(ПутьКФайлу, ПутьВрем);
ТаблДок = Новый ТабличныйДокумент;
- Если ЗначениеЗаполнено(ТипФайла) Тогда
- ТаблДок.Прочитать(ПутьВрем, ТипФайла);
- Иначе
- ТаблДок.Прочитать(ПутьВрем);
- КонецЕсли;
+ ТаблДок.Прочитать(ПутьВрем);
УдалитьФайлы(ПутьВрем);
Возврат ПоместитьВоВременноеХранилище(ТаблДок);
КонецФункции