From fa48a4924c40e6a0c6c55a2a66d58b04fb32eedc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=9F=D1=80=D0=BE=D1=84=D0=B8-=D0=A1=D0=BE=D1=84=D1=82?= Date: Wed, 22 Jul 2026 11:56:49 +0000 Subject: [PATCH] v3.0.0.107 --- Configuration.xml | 2 +- .../Forms/Форма/Ext/Form/Module.bsl | 25 +++---------------- 2 files changed, 4 insertions(+), 23 deletions(-) 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 @@ ПутьВрем = ВремКаталог + ИмяФайла; КопироватьФайл(ПутьКФайлу, ПутьВрем); ТаблДок = Новый ТабличныйДокумент; - Если ЗначениеЗаполнено(ТипФайла) Тогда - ТаблДок.Прочитать(ПутьВрем, ТипФайла); - Иначе - ТаблДок.Прочитать(ПутьВрем); - КонецЕсли; + ТаблДок.Прочитать(ПутьВрем); УдалитьФайлы(ПутьВрем); Возврат ПоместитьВоВременноеХранилище(ТаблДок); КонецФункции