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

v3.0.0.15: fix ЗначениеВРеквизитФормы for TabularSection

Browse Source
This commit is contained in:
Профи-Софт
2026-07-08 19:33:37 +00:00
parent f1e8451bc6
commit 80ae5cde84
2 changed files with 13 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+12 -14
View File
@@ -502,36 +502,34 @@
Процедура ИнициализироватьТаблицы()
КонецПроцедуры
// Заполняет таблицы значений на сервере из массивов структур.
// Заполняет табличные части объекта из массивов структур.
// TabularSection не поддерживает РеквизитФормыВЗначение — работаем через Объект напрямую.
&НаСервере
Процедура ЗаполнитьТаблицыНаСервере(МассивДанных, МассивВзносов)
ТЗРасчет = РеквизитФормыВЗначение("Объект.ДанныеРасчетаЗП");
ТЗРасчет.Очистить();
// Очистка и заполнение ДанныеРасчетаЗП
Объект.ДанныеРасчетаЗП.Очистить();
Для Каждого Эл Из МассивДанных Цикл
Строка = ТЗРасчет.Добавить();
Строка = Объект.ДанныеРасчетаЗП.Добавить();
ЗаполнитьЗначенияСвойств(Строка, Эл);
КонецЦикла;
ЗначениеВРеквизитФормы(ТЗРасчет, "Объект.ДанныеРасчетаЗП");
ТЗВзносы = РеквизитФормыВЗначение("Объект.ДанныеСтраховыхВзносов");
ТЗВзносы.Очистить();
// Очистка и заполнение ДанныеСтраховыхВзносов
Объект.ДанныеСтраховыхВзносов.Очистить();
Для Каждого Эл Из МассивВзносов Цикл
Строка = ТЗВзносы.Добавить();
Строка = Объект.ДанныеСтраховыхВзносов.Добавить();
ЗаполнитьЗначенияСвойств(Строка, Эл);
КонецЦикла;
ЗначениеВРеквизитФормы(ТЗВзносы, "Объект.ДанныеСтраховыхВзносов");
КонецПроцедуры
// Записывает данные в документы 1С.
// Работает напрямую с TabularSection через Объект.
&НаСервере
Процедура ЗаписатьДанныеНаСервере()
ГодЗагрузки = ТекущаяДата().Год();
Период = Дата(ГодЗагрузки, Объект.МесяцЗагрузки, 1);
ТЗРасчет = РеквизитФормыВЗначение("Объект.ДанныеРасчетаЗП");
Объект.ЗаписатьДанныеРасчета(ТЗРасчет, Период);
ТЗВзносы = РеквизитФормыВЗначение("Объект.ДанныеСтраховыхВзносов");
Если ТЗВзносы.Количество() > 0 Тогда
Объект.ЗаписатьДанныеСтраховыхВзносов(ТЗВзносы, Период);
Объект.ЗаписатьДанныеРасчета(Объект.ДанныеРасчетаЗП, Период);
Если Объект.ДанныеСтраховыхВзносов.Количество() > 0 Тогда
Объект.ЗаписатьДанныеСтраховыхВзносов(Объект.ДанныеСтраховыхВзносов, Период);
КонецЕсли;
КонецПроцедуры