v3.0.0.89

CommonModules/ЗагрузкаДанныхИзExcel_ЗаписьВРегистры/Ext/Module.bsl

@@ -73,9 +73,9 @@
 КонецПроцедуры
 
 &НаСервере
-Процедура ЗаписатьДанные(ГодЗагрузкиПараметр, ОрганизацияНаименование, СтатьяФинансированияНаименование, СтатьяРасходовКод) Экспорт
+Процедура ЗаписатьДанные(ГодЗагрузкиПараметр, МесяцЗагрузки, ОрганизацияНаименование, СтатьяФинансированияНаименование, СтатьяРасходовКод, ТЧДанныеРасчетаЗП, ТЧДанныеНДФЛ, ТЧДанныеСтраховыхВзносов, ТЧСотрудники) Экспорт
     ГодЧисло = Число(ГодЗагрузкиПараметр);
-    МесяцЧисло = Цел(Объект.МесяцЗагрузки);
+    МесяцЧисло = Цел(МесяцЗагрузки);
     Если ГодЧисло = 0 Тогда ГодЧисло = Год(ТекущаяДата()); КонецЕсли;
     Если МесяцЧисло < 1 Или МесяцЧисло > 12 Тогда
         Сообщить("Ошибка: месяц = " + МесяцЧисло + ", год = " + ГодЧисло);
@@ -92,7 +92,7 @@
     СтатьяРасходов = РазрешитьСтатьюРасходов(СтатьяРасходовКод);
 
     КэшСотрудников = Новый Соответствие;
-    ПостроитьКэшСотрудников(Объект.Сотрудники, КэшСотрудников);
+    ПостроитьКэшСотрудников(ТЧСотрудники, КэшСотрудников);
 
     ДокПеренос = Документы.ПереносДанных.СоздатьДокумент();
     ДокПеренос.Дата = Период;
@@ -100,7 +100,7 @@
     ВидРасчётаОклад = ПланыВидовРасчета.Начисления.НайтиПоНаименованию("Оклад", Истина);
 
     // Регистр 1: НачисленияУдержанияПоСотрудникам
-    Для Каждого Строка Из Объект.ДанныеРасчетаЗП Цикл
+    Для Каждого Строка Из ТЧДанныеРасчетаЗП Цикл
         ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
         Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
         ФизЛицо = ДанныеСотр.ФизическоеЛицо;
@@ -137,7 +137,7 @@
     КонецЦикла;
 
     // Регистр 2: ОтработанноеВремяПоСотрудникам
-    Для Каждого Строка Из Объект.ДанныеРасчетаЗП Цикл
+    Для Каждого Строка Из ТЧДанныеРасчетаЗП Цикл
         ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
         Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
         Если Строка.ОтработаноДней > 0 Или Строка.РабочиеЧасыПоТабелю > 0 Тогда
@@ -155,7 +155,7 @@
     КонецЦикла;
 
     // Регистр 3: СведенияОДоходахНДФЛ
-    Для Каждого Строка Из Объект.ДанныеНДФЛ Цикл
+    Для Каждого Строка Из ТЧДанныеНДФЛ Цикл
         ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
         Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
         Движение = ДокПеренос.Движения.СведенияОДоходахНДФЛ.Добавить();
@@ -169,7 +169,7 @@
     КонецЦикла;
 
     // Регистр 4: СтраховыеВзносыПоФизическимЛицам
-    Для Каждого Строка Из Объект.ДанныеСтраховыхВзносов Цикл
+    Для Каждого Строка Из ТЧДанныеСтраховыхВзносов Цикл
         ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
         Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
         Движение = ДокПеренос.Движения.СтраховыеВзносыПоФизическимЛицам.Добавить();
@@ -185,7 +185,7 @@
 
     // Регистр 6: ВзаиморасчетыССотрудниками
     ДвиженияВзаиморасчеты = ДокПеренос.Движения.ВзаиморасчетыССотрудниками;
-    Для Каждого Строка Из Объект.ДанныеРасчетаЗП Цикл
+    Для Каждого Строка Из ТЧДанныеРасчетаЗП Цикл
         ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
         Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
         Если Строка.ВсегоНаРуки <> 0 Тогда
@@ -202,7 +202,7 @@
 
     // Регистр 7: БухгалтерскиеВзаиморасчетыССотрудниками
     ДвиженияБухВзаиморасчеты = ДокПеренос.Движения.БухгалтерскиеВзаиморасчетыССотрудниками;
-    Для Каждого Строка Из Объект.ДанныеРасчетаЗП Цикл
+    Для Каждого Строка Из ТЧДанныеРасчетаЗП Цикл
         ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
         Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
         Если Строка.ВсегоНаРуки <> 0 Тогда
@@ -219,7 +219,7 @@
 
     // Регистр 8: ДанныеОВремениДляРасчетаСреднегоОбщий
     ДвиженияСреднего = ДокПеренос.Движения.ДанныеОВремениДляРасчетаСреднегоОбщий;
-    Для Каждого Строка Из Объект.ДанныеРасчетаЗП Цикл
+    Для Каждого Строка Из ТЧДанныеРасчетаЗП Цикл
         ДанныеСотр = КэшСотрудников.Получить(Строка.ИдентификаторСотрудника);
         Если ДанныеСотр = Неопределено Тогда Продолжить; КонецЕсли;
         Если Строка.ОтработаноДней <> 0 Тогда

Configuration.xml

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

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

@@ -36,7 +36,9 @@
         Сообщить("Нет данных для записи!");
         Возврат;
     КонецЕсли;
-    ЗагрузкаДанныхИзExcel_ЗаписьВРегистры.ЗаписатьДанные(Объект._ГодЗагрузки, Объект._ОрганизацияНаименование, Объект._СтатьяФинансированияНаименование, Объект._СтатьяРасходовКод);
+    ЗагрузкаДанныхИзExcel_ЗаписьВРегистры.ЗаписатьДанные(Объект._ГодЗагрузки, Объект.МесяцЗагрузки,
+        Объект._ОрганизацияНаименование, Объект._СтатьяФинансированияНаименование, Объект._СтатьяРасходовКод,
+        Объект.ДанныеРасчетаЗП, Объект.ДанныеНДФЛ, Объект.ДанныеСтраховыхВзносов, Объект.Сотрудники);
     Сообщить("Данные записаны!");
 КонецПроцедуры