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

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
+1 -1
View File
@@ -60,7 +60,7 @@
<ScriptVariant>Russian</ScriptVariant> <ScriptVariant>Russian</ScriptVariant>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
<Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor> <Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor>
<Version>3.0.0.9</Version> <Version>3.0.0.14</Version>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
<BriefInformation> <BriefInformation>
<v8:item> <v8:item>
@@ -502,36 +502,34 @@
Процедура ИнициализироватьТаблицы() Процедура ИнициализироватьТаблицы()
КонецПроцедуры КонецПроцедуры
// Заполняет таблицы значений на сервере из массивов структур. // Заполняет табличные части объекта из массивов структур.
// TabularSection не поддерживает РеквизитФормыВЗначение — работаем через Объект напрямую.
&НаСервере &НаСервере
Процедура ЗаполнитьТаблицыНаСервере(МассивДанных, МассивВзносов) Процедура ЗаполнитьТаблицыНаСервере(МассивДанных, МассивВзносов)
ТЗРасчет = РеквизитФормыВЗначение("Объект.ДанныеРасчетаЗП"); // Очистка и заполнение ДанныеРасчетаЗП
ТЗРасчет.Очистить(); Объект.ДанныеРасчетаЗП.Очистить();
Для Каждого Эл Из МассивДанных Цикл Для Каждого Эл Из МассивДанных Цикл
Строка = ТЗРасчет.Добавить(); Строка = Объект.ДанныеРасчетаЗП.Добавить();
ЗаполнитьЗначенияСвойств(Строка, Эл); ЗаполнитьЗначенияСвойств(Строка, Эл);
КонецЦикла; КонецЦикла;
ЗначениеВРеквизитФормы(ТЗРасчет, "Объект.ДанныеРасчетаЗП");
ТЗВзносы = РеквизитФормыВЗначение("Объект.ДанныеСтраховыхВзносов"); // Очистка и заполнение ДанныеСтраховыхВзносов
ТЗВзносы.Очистить(); Объект.ДанныеСтраховыхВзносов.Очистить();
Для Каждого Эл Из МассивВзносов Цикл Для Каждого Эл Из МассивВзносов Цикл
Строка = ТЗВзносы.Добавить(); Строка = Объект.ДанныеСтраховыхВзносов.Добавить();
ЗаполнитьЗначенияСвойств(Строка, Эл); ЗаполнитьЗначенияСвойств(Строка, Эл);
КонецЦикла; КонецЦикла;
ЗначениеВРеквизитФормы(ТЗВзносы, "Объект.ДанныеСтраховыхВзносов");
КонецПроцедуры КонецПроцедуры
// Записывает данные в документы 1С. // Записывает данные в документы 1С.
// Работает напрямую с TabularSection через Объект.
&НаСервере &НаСервере
Процедура ЗаписатьДанныеНаСервере() Процедура ЗаписатьДанныеНаСервере()
ГодЗагрузки = ТекущаяДата().Год(); ГодЗагрузки = ТекущаяДата().Год();
Период = Дата(ГодЗагрузки, Объект.МесяцЗагрузки, 1); Период = Дата(ГодЗагрузки, Объект.МесяцЗагрузки, 1);
ТЗРасчет = РеквизитФормыВЗначение("Объект.ДанныеРасчетаЗП"); Объект.ЗаписатьДанныеРасчета(Объект.ДанныеРасчетаЗП, Период);
Объект.ЗаписатьДанныеРасчета(ТЗРасчет, Период); Если Объект.ДанныеСтраховыхВзносов.Количество() > 0 Тогда
ТЗВзносы = РеквизитФормыВЗначение("Объект.ДанныеСтраховыхВзносов"); Объект.ЗаписатьДанныеСтраховыхВзносов(Объект.ДанныеСтраховыхВзносов, Период);
Если ТЗВзносы.Количество() > 0 Тогда
Объект.ЗаписатьДанныеСтраховыхВзносов(ТЗВзносы, Период);
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры