From f62237e24db3be96817d8a2aba0ba6d92edbbb8b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=9F=D1=80=D0=BE=D1=84=D0=B8-=D0=A1=D0=BE=D1=84=D1=82?= Date: Sun, 12 Jul 2026 12:49:49 +0000 Subject: [PATCH] v3.0.0.33: fix org/funding/month reading --- .../Forms/Форма/Ext/Form/Module.bsl | 31 +++++++------------ 1 file changed, 12 insertions(+), 19 deletions(-) diff --git a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl index 22b5b2f..4f631e1 100644 --- a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl +++ b/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, ФИО)); Если ЛистСотрудника <> Неопределено Тогда Карточка = ПрочитатьКарточкуСотрудника(ЛистСотрудника);