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