v3.0.0.33: fix org/funding/month reading

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

@@ -305,27 +305,19 @@
         Возврат;
     КонецЕсли;
 
-    // Месяц
-    МесяцЗначение = ЛистРасчет.Cells(4, 1).Value;
-    Если ЗначениеЗаполнено(МесяцЗначение) Тогда
-        Попытка Объект.МесяцЗагрузки = Число(МесяцЗначение);
-        МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки);; Исключение КонецПопытки;
-    КонецЕсли;
-    // Год — определяем из файла (строка 3, колонка 1 в РАСЧЕТ)
+    // Месяц и год
+    МесяЦЗначение = ЛистРасчет.Cells(4, 1).Value;
+    Если ЗначениеЗаполнено(МесяЦЗначение) Тогда
+        Попытка Объект.МесяЦЗагрузки = Число(МесяЦЗначение); Исключение КонецПопытки;
+    КонецПопытки;
     ГодЗначение = ЛистРасчет.Cells(3, 1).Value;
     Если ЗначениеЗаполнено(ГодЗначение) Тогда
-        Попытка ГодЗагрузки = Число(ГодЗначение);
-        МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки; Исключение
-            ГодЗагрузки = Год(ТекущаяДата());
-        МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки;
+        Попытка ГодЗагрузки = Число(ГодЗначение); Исключение КонецПопытки;
     КонецПопытки;
-    Иначе
-        ГодЗагрузки = Год(ТекущаяДата());
-        МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки;
-    КонецЕсли;
-    // Месяц текстом
-    МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки;
-
+    МесяЦТекст = НомерМесцаВТекст(Объект.МесяЦЗагрузки) + " " + ГодЗагрузки;
+    Организация = СокрЛП(Строка(ЛистРасчет.Cells(4, 20).Value));
+    СтатьФинансирование = СокрЛП(Строка(ЛистРасчет.Cells(8, 20).Value));
+    СтатьЯРасходов = "211";
     // Строка начала данных
     НачальнаяСтрока = 0;
     Для Ном = 17 По 30 Цикл
@@ -380,6 +372,7 @@
 
         Строка = ПрочитатьРасчетныеДанныеИзРасчета(ЛистРасчет, Ном, ФИО);
         Строка.Вставить("ИдентификаторСотрудника", Счетчик);
+    Строка.Вставить("ОтработаноДнейКалендарных", ПрочитатьЯчейкуЧисло(ЛистРасчет, Ном, 6, ФИО));
 
         Если ЛистСотрудника <> Неопределено Тогда
             Карточка = ПрочитатьКарточкуСотрудника(ЛистСотрудника);