admin-ps/zagruzka-dannyh-iz-excel
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v3.0.0.33: fix org/funding/month reading

Browse Source
This commit is contained in:
Профи-Софт
2026-07-12 12:49:49 +00:00
parent 7ce513bd0b
commit f62237e24d
1 changed files with 12 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+11 -18
View File
@@ -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, ФИО));
Если ЛистСотрудника <> Неопределено Тогда
Карточка = ПрочитатьКарточкуСотрудника(ЛистСотрудника);