v3.0.0.65

DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl

@@ -1,5 +1,11 @@
 #Область ОбработчикиСобытийФормы
 
+// Переменные модуля — сохраняются между процедурами
+Перем ГодЗагрузкиМодуль;
+Перем СтрокаОрганизацияМодуль;
+Перем СтрокаСтатьяФинансированияМодуль;
+Перем СтрокаСтатьяРасходовМодуль;
+
 &НаСервере
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 
@@ -37,7 +43,7 @@
         Сообщить("Нет данных для записи!");
         Возврат;
     КонецЕсли;
-    ЗаписатьДанныеНаСервере(ГодЗагрузки, СтрокаОрганизация, СтрокаСтатьяФинансирования, СтрокаСтатьяРасходов);
+    ЗаписатьДанныеНаСервере(ГодЗагрузкиМодуль, СтрокаОрганизацияМодуль, СтрокаСтатьяФинансированияМодуль, СтрокаСтатьяРасходовМодуль);
     Сообщить("Данные записаны!");
 КонецПроцедуры
 
@@ -317,21 +323,21 @@
     ГодЗначение = ЛистРасчет.Cells(3, 1).Value;
     Если ЗначениеЗаполнено(ГодЗначение) Тогда
         Попытка
-            ГодЗагрузки = Число(ГодЗначение);
+            ГодЗагрузкиМодуль = Число(ГодЗначение);
         Исключение
-            ГодЗагрузки = 0;
+            ГодЗагрузкиМодуль = 0;
         КонецПопытки;
     Иначе
-        ГодЗагрузки = 0;
+        ГодЗагрузкиМодуль = 0;
     КонецЕсли;
-    МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки;
+    МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузкиМодуль;
     Организация = СокрЛП(Строка(ЛистРасчет.Cells(4, 20).Value));
     СтатьяФинансирования = СокрЛП(Строка(ЛистРасчет.Cells(8, 20).Value));
     СтатьяРасходов = "211";
     // Сохраняем строковые значения для передачи на сервер
-    СтрокаОрганизация = Организация;
-    СтрокаСтатьяФинансирования = СтатьяФинансирования;
-    СтрокаСтатьяРасходов = СтатьяРасходов;
+    СтрокаОрганизацияМодуль = Организация;
+    СтрокаСтатьяФинансированияМодуль = СтатьяФинансирования;
+    СтрокаСтатьяРасходовМодуль = СтатьяРасходов;
     // Строка начала данных
     НачальнаяСтрока = 0;
     Для Ном = 17 По 30 Цикл