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

v3.0.0.65

Browse Source
This commit is contained in:
Профи-Софт
2026-07-14 04:43:12 +00:00
parent 8971b63915
commit 4ef4eda26f
2 changed files with 15 additions and 9 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.64</Version> <Version>3.0.0.65</Version>
<Caption/> <Caption/>
<ShortCaption/> <ShortCaption/>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+14 -8
View File
@@ -1,5 +1,11 @@
#Область ОбработчикиСобытийФормы #Область ОбработчикиСобытийФормы
// Переменные модуля — сохраняются между процедурами
Перем ГодЗагрузкиМодуль;
Перем СтрокаОрганизацияМодуль;
Перем СтрокаСтатьяФинансированияМодуль;
Перем СтрокаСтатьяРасходовМодуль;
&НаСервере &НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
@@ -37,7 +43,7 @@
Сообщить("Нет данных для записи!"); Сообщить("Нет данных для записи!");
Возврат; Возврат;
КонецЕсли; КонецЕсли;
ЗаписатьДанныеНаСервере(ГодЗагрузки, СтрокаОрганизация, СтрокаСтатьяФинансирования, СтрокаСтатьяРасходов); ЗаписатьДанныеНаСервере(ГодЗагрузкиМодуль, СтрокаОрганизацияМодуль, СтрокаСтатьяФинансированияМодуль, СтрокаСтатьяРасходовМодуль);
Сообщить("Данные записаны!"); Сообщить("Данные записаны!");
КонецПроцедуры КонецПроцедуры
@@ -317,21 +323,21 @@
ГодЗначение = ЛистРасчет.Cells(3, 1).Value; ГодЗначение = ЛистРасчет.Cells(3, 1).Value;
Если ЗначениеЗаполнено(ГодЗначение) Тогда Если ЗначениеЗаполнено(ГодЗначение) Тогда
Попытка Попытка
ГодЗагрузки = Число(ГодЗначение); ГодЗагрузкиМодуль = Число(ГодЗначение);
Исключение Исключение
ГодЗагрузки = 0; ГодЗагрузкиМодуль = 0;
КонецПопытки; КонецПопытки;
Иначе Иначе
ГодЗагрузки = 0; ГодЗагрузкиМодуль = 0;
КонецЕсли; КонецЕсли;
МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки; МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузкиМодуль;
Организация = СокрЛП(Строка(ЛистРасчет.Cells(4, 20).Value)); Организация = СокрЛП(Строка(ЛистРасчет.Cells(4, 20).Value));
СтатьяФинансирования = СокрЛП(Строка(ЛистРасчет.Cells(8, 20).Value)); СтатьяФинансирования = СокрЛП(Строка(ЛистРасчет.Cells(8, 20).Value));
СтатьяРасходов = "211"; СтатьяРасходов = "211";
// Сохраняем строковые значения для передачи на сервер // Сохраняем строковые значения для передачи на сервер
СтрокаОрганизация = Организация; СтрокаОрганизацияМодуль = Организация;
СтрокаСтатьяФинансирования = СтатьяФинансирования; СтрокаСтатьяФинансированияМодуль = СтатьяФинансирования;
СтрокаСтатьяРасходов = СтатьяРасходов; СтрокаСтатьяРасходовМодуль = СтатьяРасходов;
// Строка начала данных // Строка начала данных
НачальнаяСтрока = 0; НачальнаяСтрока = 0;
Для Ном = 17 По 30 Цикл Для Ном = 17 По 30 Цикл