diff --git a/Configuration.xml b/Configuration.xml index a741e0b..733ea86 100755 --- a/Configuration.xml +++ b/Configuration.xml @@ -60,7 +60,7 @@ Russian Language.Русский ООО "Профи-Софт", код партнера 42575-13, г.Байконур. - 3.0.0.9 + 3.0.0.14 Language.Русский diff --git a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl index 015ea10..82acc6d 100644 --- a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl +++ b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl @@ -502,36 +502,34 @@ Процедура ИнициализироватьТаблицы() КонецПроцедуры -// Заполняет таблицы значений на сервере из массивов структур. +// Заполняет табличные части объекта из массивов структур. +// TabularSection не поддерживает РеквизитФормыВЗначение — работаем через Объект напрямую. &НаСервере Процедура ЗаполнитьТаблицыНаСервере(МассивДанных, МассивВзносов) - ТЗРасчет = РеквизитФормыВЗначение("Объект.ДанныеРасчетаЗП"); - ТЗРасчет.Очистить(); + // Очистка и заполнение ДанныеРасчетаЗП + Объект.ДанныеРасчетаЗП.Очистить(); Для Каждого Эл Из МассивДанных Цикл - Строка = ТЗРасчет.Добавить(); + Строка = Объект.ДанныеРасчетаЗП.Добавить(); ЗаполнитьЗначенияСвойств(Строка, Эл); КонецЦикла; - ЗначениеВРеквизитФормы(ТЗРасчет, "Объект.ДанныеРасчетаЗП"); - ТЗВзносы = РеквизитФормыВЗначение("Объект.ДанныеСтраховыхВзносов"); - ТЗВзносы.Очистить(); + // Очистка и заполнение ДанныеСтраховыхВзносов + Объект.ДанныеСтраховыхВзносов.Очистить(); Для Каждого Эл Из МассивВзносов Цикл - Строка = ТЗВзносы.Добавить(); + Строка = Объект.ДанныеСтраховыхВзносов.Добавить(); ЗаполнитьЗначенияСвойств(Строка, Эл); КонецЦикла; - ЗначениеВРеквизитФормы(ТЗВзносы, "Объект.ДанныеСтраховыхВзносов"); КонецПроцедуры // Записывает данные в документы 1С. +// Работает напрямую с TabularSection через Объект. &НаСервере Процедура ЗаписатьДанныеНаСервере() ГодЗагрузки = ТекущаяДата().Год(); Период = Дата(ГодЗагрузки, Объект.МесяцЗагрузки, 1); - ТЗРасчет = РеквизитФормыВЗначение("Объект.ДанныеРасчетаЗП"); - Объект.ЗаписатьДанныеРасчета(ТЗРасчет, Период); - ТЗВзносы = РеквизитФормыВЗначение("Объект.ДанныеСтраховыхВзносов"); - Если ТЗВзносы.Количество() > 0 Тогда - Объект.ЗаписатьДанныеСтраховыхВзносов(ТЗВзносы, Период); + Объект.ЗаписатьДанныеРасчета(Объект.ДанныеРасчетаЗП, Период); + Если Объект.ДанныеСтраховыхВзносов.Количество() > 0 Тогда + Объект.ЗаписатьДанныеСтраховыхВзносов(Объект.ДанныеСтраховыхВзносов, Период); КонецЕсли; КонецПроцедуры