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

v3.0.0.21: fix employee card coords, month text display, copy DPTable colors

Browse Source
This commit is contained in:
Профи-Софт
2026-07-09 13:19:30 +00:00
parent 71e4582fa0
commit 679a7bae02
2 changed files with 304 additions and 256 deletions
Download Patch File Download Diff File Expand all files Collapse all files
DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+11 -7
View File
@@ -158,11 +158,11 @@
Функция ПрочитатьКарточкуСотрудника(ЛистСотрудника)
Данные = Новый Структура;
Данные.Вставить("ФИО", ПрочитатьЯчейкуСтрока(ЛистСотрудника, 2, 3));
Данные.Вставить("ИНН", ПрочитатьЯчейкуСтрока(ЛистСотрудника, 1, 10));
Данные.Вставить("СНИЛС", ПрочитатьЯчейкуСтрока(ЛистСотрудника, 2, 10));
Данные.Вставить("ЛицевойСчетВБанке", ПрочитатьЯчейкуСтрока(ЛистСотрудника, 4, 4));
Данные.Вставить("ВидЗанятости", ПрочитатьЯчейкуСтрока(ЛистСотрудника, 6, 1));
Данные.Вставить("АдресРегистрации", ПрочитатьЯчейкуСтрока(ЛистСотрудника, 4, 10));
Данные.Вставить("ИНН", "");
Данные.Вставить("СНИЛС", "");
Данные.Вставить("ЛицевойСчетВБанке", ПрочитатьЯчейкуСтрока(ЛистСотрудника, 3, 4));
Данные.Вставить("ВидЗанятости", ПрочитатьЯчейкуСтрока(ЛистСотрудника, 5, 1));
Данные.Вставить("АдресРегистрации", "");
Возврат Данные;
КонецФункции
@@ -307,16 +307,20 @@
// Месяц
МесяцЗначение = ЛистРасчет.Cells(4, 1).Value;
Если ЗначениеЗаполнено(МесяцЗначение) Тогда
Попытка Объект.МесяцЗагрузки = Число(МесяцЗначение); Исключение КонецПопытки;
Попытка Объект.МесяцЗагрузки = Число(МесяцЗначение);
МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки);; Исключение КонецПопытки;
КонецЕсли;
// Год — определяем из файла (строка 3, колонка 1 в РАСЧЕТ)
ГодЗначение = ЛистРасчет.Cells(3, 1).Value;
Если ЗначениеЗаполнено(ГодЗначение) Тогда
Попытка ГодЗагрузки = Число(ГодЗначение); Исключение
Попытка ГодЗагрузки = Число(ГодЗначение);
МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки; Исключение
ГодЗагрузки = Год(ТекущаяДата());
МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки;
КонецПопытки;
Иначе
ГодЗагрузки = Год(ТекущаяДата());
МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки;
КонецЕсли;
// Месяц текстом
МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки;