From 5fd5e65ef1b8bed3f57632c710b3edd730342cd4 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: Mon, 20 Jul 2026 14:39:48 +0000 Subject: [PATCH] v3.0.0.94 --- Configuration.xml | 2 +- .../Forms/Форма/Ext/Form/Module.bsl | 21 +++++++++++++++++++ 2 files changed, 22 insertions(+), 1 deletion(-) diff --git a/Configuration.xml b/Configuration.xml index 354a204..1a6218c 100755 --- a/Configuration.xml +++ b/Configuration.xml @@ -56,7 +56,7 @@ Russian ООО "Профи-Софт", код партнера 42575-13, г.Байконур. - 3.0.0.93 + 3.0.0.94 Language.Русский diff --git a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl index 54036f1..5a0d685 100644 --- a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl +++ b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl @@ -5,6 +5,19 @@ КонецПроцедуры + + +&НаСерве +Процедура ЗаписатьДанныНаСервере(ГодЗагруки, МесяцЗагруки, ОргНаименование, СтатьяФинансирование, СтатьяРасходов, ДанныЗП, ДанныНФДЛ, ДанныВзносов, Сотрудники) + Период = Дата(Год(ТекущаяДата()), МесяцЗагруки, 1); + Орг = Справочники.Организации.НайтиПоНаименованию(СокрЛП(ОрганизацияНаименование), Истина); + Док = Документы.ПереносДанных.СоздатьДокумент(); + Док.Дата = Период; + Док.Организация = Орг; + Док.Записать(); + Сообщить("Документ записан: " + Док.Ссылка); +КонецПроцедуры + #КонецОбласти #Область ОбработчикиКоманд @@ -59,6 +72,10 @@ // === ЭТАП 1: Обход листов сотрудников === Листы = ПолучитьЛистыНаСервере(АдресТабДока); КэшФИО = Новый Соответствие; + МассивДанных = Новый Массив; + МассивВзносов = Новый Массив; + МассивНФДЛ = Новый Массив; + МассивСотрудников = Новый Массив; Счетчик = 0; Для Каждого Лист Из Листы Цикл ФИО = ПрочитатьСтрокуНаСервере(АдресТабДока, Лист.Имя, 2, 3); @@ -93,6 +110,10 @@ КонецЕсли; КонецЦикла; Если НачальнаяСтрока = 0 Тогда Сообщить("Данные не найдены!"); Возврат; КонецЕсли; + МассивДанных = Новый Массив; + МассивВзносов = Новый Массив; + МассивНФДЛ = Новый Массив; + МассивСотрудников = Новый Массив; Счетчик = 0; Для Ном = НачальнаяСтрока По 500 Цикл ФИОТекст = СокрЛП(ПрочитатьСтрокуНаСервере(АдресТабДока, ЛистРасчет, Ном, 1));