From 40e0f771a97530705f50e9ed970f1e3a426b7264 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: Fri, 17 Jul 2026 06:42:01 +0000 Subject: [PATCH] v3.0.0.89 --- .../Ext/Module.bsl | 20 +++++++++---------- Configuration.xml | 2 +- .../Forms/Форма/Ext/Form/Module.bsl | 4 +++- 3 files changed, 14 insertions(+), 12 deletions(-) diff --git a/CommonModules/ЗагрузкаДанныхИзExcel_ЗаписьВРегистры/Ext/Module.bsl b/CommonModules/ЗагрузкаДанныхИзExcel_ЗаписьВРегистры/Ext/Module.bsl index c4db72a..cafe1a4 100644 --- a/CommonModules/ЗагрузкаДанныхИзExcel_ЗаписьВРегистры/Ext/Module.bsl +++ b/CommonModules/ЗагрузкаДанныхИзExcel_ЗаписьВРегистры/Ext/Module.bsl @@ -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 Тогда diff --git a/Configuration.xml b/Configuration.xml index 5b9883b..a741889 100755 --- a/Configuration.xml +++ b/Configuration.xml @@ -56,7 +56,7 @@ Russian ООО "Профи-Софт", код партнера 42575-13, г.Байконур. - 3.0.0.88 + 3.0.0.89 Language.Русский diff --git a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl index 070d0f2..3f60c92 100644 --- a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl +++ b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl @@ -36,7 +36,9 @@ Сообщить("Нет данных для записи!"); Возврат; КонецЕсли; - ЗагрузкаДанныхИзExcel_ЗаписьВРегистры.ЗаписатьДанные(Объект._ГодЗагрузки, Объект._ОрганизацияНаименование, Объект._СтатьяФинансированияНаименование, Объект._СтатьяРасходовКод); + ЗагрузкаДанныхИзExcel_ЗаписьВРегистры.ЗаписатьДанные(Объект._ГодЗагрузки, Объект.МесяцЗагрузки, + Объект._ОрганизацияНаименование, Объект._СтатьяФинансированияНаименование, Объект._СтатьяРасходовКод, + Объект.ДанныеРасчетаЗП, Объект.ДанныеНДФЛ, Объект.ДанныеСтраховыхВзносов, Объект.Сотрудники); Сообщить("Данные записаны!"); КонецПроцедуры