From 85048605154248d6fa001be0520b4a9cf25ca7ea 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 17:19:42 +0000 Subject: [PATCH] v3.0.0.91 --- Configuration.xml | 2 +- .../Forms/Форма/Ext/Form/Module.bsl | 24 +++++++++++++++++-- 2 files changed, 23 insertions(+), 3 deletions(-) diff --git a/Configuration.xml b/Configuration.xml index d1f0c23..02dc0ce 100755 --- a/Configuration.xml +++ b/Configuration.xml @@ -56,7 +56,7 @@ Russian ООО "Профи-Софт", код партнера 42575-13, г.Байконур. - 3.0.0.90 + 3.0.0.91 Language.Русский diff --git a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl index 3f60c92..95b7a9c 100644 --- a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl +++ b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl @@ -172,8 +172,28 @@ #Область СерверныеПроцедуры &НаСервере -Процедура ЗаполнитьТаблицыНаСервере(МассивДанных, МассивВзносов, МассивНДФЛ, МассивСотрудников) - ЗагрузкаДанныхИзExcel_ЗаписьВРегистры.ЗаполнитьТЧ(МассивДанных, МассивВзносов, МассивНДФЛ, МассивСотрудников, Объект.ДанныеРасчетаЗП, Объект.ДанныеСтраховыхВзносов, Объект.ДанныеНДФЛ, Объект.Сотрудники); +Процедура ЗаполнитьТаблицыНаСервере(МассивДанных, МассивВзносов, МассивНДФЛ, МассивСотрудников) Экспорт + ТЧЗП = Объект.ДанныеРасчетаЗП; + ТЧВзносы = Объект.ДанныеСтраховыхВзносов; + ТЧНДФЛ = Объект.ДанныеНДФЛ; + ТЧСотрудники = Объект.Сотрудники; + ТЧЗП.Очистить(); ТЧВзносы.Очистить(); ТЧНДФЛ.Очистить(); ТЧСотрудники.Очистить(); + Для Каждого Строка Из МассивДанных Цикл + НоваяСтрока = ТЧЗП.Добавить(); + ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка); + КонецЦикла; + Для Каждого Строка Из МассивВзносов Цикл + НоваяСтрока = ТЧВзносы.Добавить(); + ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка); + КонецЦикла; + Для Каждого Строка Из МассивНДФЛ Цикл + НоваяСтрока = ТЧНДФЛ.Добавить(); + ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка); + КонецЦикла; + Для Каждого Строка Из МассивСотрудников Цикл + НоваяСтрока = ТЧСотрудники.Добавить(); + ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка); + КонецЦикла; КонецПроцедуры #КонецОбласти