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

v3.0.0.111

Browse Source
This commit is contained in:
Профи-Софт
2026-07-23 08:11:37 +00:00
parent aa3c4401ce
commit 31b6177ce4
2 changed files with 2 additions and 4 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.110</Version> <Version>3.0.0.111</Version>
<Caption/> <Caption/>
<ShortCaption/> <ShortCaption/>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+1 -3
View File
@@ -87,12 +87,11 @@
ТаблДок = Новый ТабличныйДокумент; ТаблДок = Новый ТабличныйДокумент;
ТаблДок.Прочитать(ПутьВрем); ТаблДок.Прочитать(ПутьВрем);
УдалитьФайлы(ПутьВрем); УдалитьФайлы(ПутьВрем);
УдалитьФайлы(ПутьВрем);
// Проверяем наличие листа "Расчет" // Проверяем наличие листа "Расчет"
ЛистРасчет = Неопределено; ЛистРасчет = Неопределено;
Для Каждого Область Из ТаблДок.Области Цикл Для Каждого Область Из ТаблДок.Области Цикл
Если Область.ТипОбласти = 1 И ВРег(Область.Имя) = "РАСЧЕТ" Тогда Если ВРег(Область.Имя) = "РАСЧЕТ" Тогда
ЛистРасчет = Область.Имя; ЛистРасчет = Область.Имя;
Прервать; Прервать;
КонецЕсли; КонецЕсли;
@@ -114,7 +113,6 @@
МассивНДФЛ = Новый Массив; МассивНДФЛ = Новый Массив;
Счетчик = 0; Счетчик = 0;
Для Каждого Область Из ТаблДок.Области Цикл Для Каждого Область Из ТаблДок.Области Цикл
Если Область.ТипОбласти <> 1 Тогда Продолжить; КонецЕсли;
ИмяЛиста = Область.Имя; ИмяЛиста = Область.Имя;
Если ВРег(ИмяЛиста) = "РАСЧЕТ" Тогда Продолжить; КонецЕсли; Если ВРег(ИмяЛиста) = "РАСЧЕТ" Тогда Продолжить; КонецЕсли;
ФИО = СокрЛП("" + ТаблДок.Область(ИмяЛиста + "|C2").Текст); ФИО = СокрЛП("" + ТаблДок.Область(ИмяЛиста + "|C2").Текст);