v3.0.0.67

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

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