v3.0.0.94

Configuration.xml

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

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));