v3.0.0.91

Configuration.xml

@@ -56,7 +56,7 @@
 			<ScriptVariant>Russian</ScriptVariant>
 			<DefaultRoles/>
 			<Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor>
-			<Version>3.0.0.90</Version>
+			<Version>3.0.0.91</Version>
 			<Caption/>
 			<ShortCaption/>
 			<DefaultLanguage>Language.Русский</DefaultLanguage>

DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl

@@ -172,8 +172,28 @@
 #Область СерверныеПроцедуры
 
 &НаСервере
-Процедура ЗаполнитьТаблицыНаСервере(МассивДанных, МассивВзносов, МассивНДФЛ, МассивСотрудников)
-    ЗагрузкаДанныхИзExcel_ЗаписьВРегистры.ЗаполнитьТЧ(МассивДанных, МассивВзносов, МассивНДФЛ, МассивСотрудников, Объект.ДанныеРасчетаЗП, Объект.ДанныеСтраховыхВзносов, Объект.ДанныеНДФЛ, Объект.Сотрудники);
+Процедура ЗаполнитьТаблицыНаСервере(МассивДанных, МассивВзносов, МассивНДФЛ, МассивСотрудников) Экспорт
+    ТЧЗП = Объект.ДанныеРасчетаЗП;
+    ТЧВзносы = Объект.ДанныеСтраховыхВзносов;
+    ТЧНДФЛ = Объект.ДанныеНДФЛ;
+    ТЧСотрудники = Объект.Сотрудники;
+    ТЧЗП.Очистить(); ТЧВзносы.Очистить(); ТЧНДФЛ.Очистить(); ТЧСотрудники.Очистить();
+    Для Каждого Строка Из МассивДанных Цикл
+        НоваяСтрока = ТЧЗП.Добавить();
+        ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
+    КонецЦикла;
+    Для Каждого Строка Из МассивВзносов Цикл
+        НоваяСтрока = ТЧВзносы.Добавить();
+        ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
+    КонецЦикла;
+    Для Каждого Строка Из МассивНДФЛ Цикл
+        НоваяСтрока = ТЧНДФЛ.Добавить();
+        ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
+    КонецЦикла;
+    Для Каждого Строка Из МассивСотрудников Цикл
+        НоваяСтрока = ТЧСотрудники.Добавить();
+        ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
+    КонецЦикла;
 КонецПроцедуры
 
 #КонецОбласти