admin-ps/zagruzka-dannyh-iz-excel
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v3.0.0.93

Browse Source
This commit is contained in:
Профи-Софт
2026-07-20 14:22:37 +00:00
parent e917b0a818
commit 971436b89a
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Configuration.xml
+1 -1
View File
@@ -56,7 +56,7 @@
<ScriptVariant>Russian</ScriptVariant> <ScriptVariant>Russian</ScriptVariant>
<DefaultRoles/> <DefaultRoles/>
<Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor> <Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor>
<Version>3.0.0.92</Version> <Version>3.0.0.93</Version>
<Caption/> <Caption/>
<ShortCaption/> <ShortCaption/>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+2 -2
View File
@@ -184,7 +184,7 @@
ТаблДок = ПолучитьИзВременногоХранилища(АдресТабДока); ТаблДок = ПолучитьИзВременногоХранилища(АдресТабДока);
Список = Новый Массив; Список = Новый Массив;
Для Каждого Область Из ТаблДок.Области Цикл Для Каждого Область Из ТаблДок.Области Цикл
Если Область.ТипОбласти = ТипОбластиТабличногоДокумента.Прямоугольная Тогда Если Область.ТипОбласти = 1 Тогда
Список.Добавить(Новый Структура("Имя", Область.Имя)); Список.Добавить(Новый Структура("Имя", Область.Имя));
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
@@ -195,7 +195,7 @@
Функция НайтиЛистНаСервере(АдресТабДока, ИмяЛиста) Экспорт Функция НайтиЛистНаСервере(АдресТабДока, ИмяЛиста) Экспорт
ТаблДок = ПолучитьИзВременногоХранилища(АдресТабДока); ТаблДок = ПолучитьИзВременногоХранилища(АдресТабДока);
Для Каждого Область Из ТаблДок.Области Цикл Для Каждого Область Из ТаблДок.Области Цикл
Если Область.ТипОбласти = ТипОбластиТабличногоДокумента.Прямоугольная Тогда Если Область.ТипОбласти = 1 Тогда
Если ВРег(Область.Имя) = ВРег(ИмяЛиста) Тогда Возврат Область.Имя; КонецЕсли; Если ВРег(Область.Имя) = ВРег(ИмяЛиста) Тогда Возврат Область.Имя; КонецЕсли;
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;