v3.0.0.112

Configuration.xml

@@ -56,7 +56,7 @@
 			<ScriptVariant>Russian</ScriptVariant>
 			<DefaultRoles/>
 			<Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor>
-			<Version>3.0.0.111</Version>
+			<Version>3.0.0.112</Version>
 			<Caption/>
 			<ShortCaption/>
 			<DefaultLanguage>Language.Русский</DefaultLanguage>

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

@@ -104,8 +104,8 @@
     // Читаем шапку листа "Расчет"
     ГодЗагрузки = "" + ПрочитатьЧислоИзТД(ТаблДок, ЛистРасчет, 4, 1);
     МесяцЗагрузки = Число(ПрочитатьЧислоИзТД(ТаблДок, ЛистРасчет, 4, 1));
-    Организация = СокрЛП("" + ТаблДок.Область(ЛистРасчет + "|T4").Текст);
+    Организация = СокрЛП(ПрочитатьСтрокуИзТД(ТаблДок, ЛистРасчет, 4, 20));
-    СтатьяФинансирования = СокрЛП("" + ТаблДок.Область(ЛистРасчет + "|T8").Текст);
+    СтатьяФинансирования = СокрЛП(ПрочитатьСтрокуИзТД(ТаблДок, ЛистРасчет, 8, 20));
 
     // === ЭТАП 1: Обход листов сотрудников ===
     КэшФИО = Новый Соответствие;
@@ -240,6 +240,15 @@
     КонецПопытки;
 КонецФункции
 
+&НаСервере
+Функция ПрочитатьСтрокуИзТД(ТаблДок, ИмяОбласти, Строка, Колонка)
+    Попытка
+        Возврат СокрЛП("" + ТаблДок.Область(ИмяОбласти + "|C" + Колонка + "|" + Строка + "|" + Строка).Текст);
+    Исключение
+        Возврат "";
+    КонецПопытки;
+КонецФункции
+
 &НаСервере
 Процедура ЗаполнитьТаблицыНаСервере(МассивДанных, МассивВзносов, МассивНДФЛ, МассивСотрудников)
     Объект.ДанныеРасчетаЗП.Очистить();