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

v3.0.0.89

Browse Source
This commit is contained in:
Профи-Софт
2026-07-17 06:42:01 +00:00
parent b81a0b9a36
commit 40e0f771a9
3 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
CommonModules/ЗагрузкаДанныхИзExcel_ЗаписьВРегистры/Ext/Module.bsl
+10 -10
View File
@@ -73,9 +73,9 @@
КонецПроцедуры
&НаСервере
Процедура ЗаписатьДанные(ГодЗагрузкиПараметр, ОрганизацияНаименование, СтатьяФинансированияНаименование, СтатьяРасходовКод) Экспорт
Процедура ЗаписатьДанные(ГодЗагрузкиПараметр, МесяцЗагрузки, ОрганизацияНаименование, СтатьяФинансированияНаименование, СтатьяРасходовКод, ТЧДанныеРасчетаЗП, ТЧДанныеНДФЛ, ТЧДанныеСтраховыхВзносов, ТЧСотрудники) Экспорт
ГодЧисло = Число(ГодЗагрузкиПараметр);
МесяцЧисло = Цел(Объект.МесяцЗагрузки);
МесяцЧисло = Цел(МесяцЗагрузки);
Если ГодЧисло = 0 Тогда ГодЧисло = Год(ТекущаяДата()); КонецЕсли;
Если МесяцЧисло < 1 Или МесяцЧисло > 12 Тогда
Сообщить("Ошибка: месяц = " + МесяцЧисло + ", год = " + ГодЧисло);
@@ -92,7 +92,7 @@
СтатьяРасходов = РазрешитьСтатьюРасходов(СтатьяРасходовКод);
КэшСотрудников = Новый Соответствие;
ПостроитьКэшСотрудников(Объект.Сотрудники, КэшСотрудников);
ПостроитьКэшСотрудников(ТЧСотрудники, КэшСотрудников);
ДокПеренос = Документы.ПереносДанных.СоздатьДокумент();
ДокПеренос.Дата = Период;
@@ -100,7 +100,7 @@
ВидРасчётаОклад = ПланыВидовРасчета.Начисления.НайтиПоНаименованию("Оклад", Истина);
// Регистр 1: НачисленияУдержанияПоСотрудникам
Для Каждого Строка Из Объект.ДанныеРасчетаЗП Цикл
Для Каждого Строка Из ТЧДанныеРасчетаЗП Цикл
ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
ФизЛицо = ДанныеСотр.ФизическоеЛицо;
@@ -137,7 +137,7 @@
КонецЦикла;
// Регистр 2: ОтработанноеВремяПоСотрудникам
Для Каждого Строка Из Объект.ДанныеРасчетаЗП Цикл
Для Каждого Строка Из ТЧДанныеРасчетаЗП Цикл
ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
Если Строка.ОтработаноДней > 0 Или Строка.РабочиеЧасыПоТабелю > 0 Тогда
@@ -155,7 +155,7 @@
КонецЦикла;
// Регистр 3: СведенияОДоходахНДФЛ
Для Каждого Строка Из Объект.ДанныеНДФЛ Цикл
Для Каждого Строка Из ТЧДанныеНДФЛ Цикл
ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
Движение = ДокПеренос.Движения.СведенияОДоходахНДФЛ.Добавить();
@@ -169,7 +169,7 @@
КонецЦикла;
// Регистр 4: СтраховыеВзносыПоФизическимЛицам
Для Каждого Строка Из Объект.ДанныеСтраховыхВзносов Цикл
Для Каждого Строка Из ТЧДанныеСтраховыхВзносов Цикл
ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
Движение = ДокПеренос.Движения.СтраховыеВзносыПоФизическимЛицам.Добавить();
@@ -185,7 +185,7 @@
// Регистр 6: ВзаиморасчетыССотрудниками
ДвиженияВзаиморасчеты = ДокПеренос.Движения.ВзаиморасчетыССотрудниками;
Для Каждого Строка Из Объект.ДанныеРасчетаЗП Цикл
Для Каждого Строка Из ТЧДанныеРасчетаЗП Цикл
ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
Если Строка.ВсегоНаРуки <> 0 Тогда
@@ -202,7 +202,7 @@
// Регистр 7: БухгалтерскиеВзаиморасчетыССотрудниками
ДвиженияБухВзаиморасчеты = ДокПеренос.Движения.БухгалтерскиеВзаиморасчетыССотрудниками;
Для Каждого Строка Из Объект.ДанныеРасчетаЗП Цикл
Для Каждого Строка Из ТЧДанныеРасчетаЗП Цикл
ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
Если Строка.ВсегоНаРуки <> 0 Тогда
@@ -219,7 +219,7 @@
// Регистр 8: ДанныеОВремениДляРасчетаСреднегоОбщий
ДвиженияСреднего = ДокПеренос.Движения.ДанныеОВремениДляРасчетаСреднегоОбщий;
Для Каждого Строка Из Объект.ДанныеРасчетаЗП Цикл
Для Каждого Строка Из ТЧДанныеРасчетаЗП Цикл
ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
Если Строка.ОтработаноДней <> 0 Тогда