Untitled
plain_text
25 days ago
2.5 kB
0
Indexable
Never
Процедура ОбработкаПроведения(Отказ, Режим) ПериодРегистрации = НачалоМесяца(Дата); // регистр ОсновныеНачисления Движения.ОсновныеНачисления.Записывать = Истина; Для Каждого СтрокаТаблицы Из ОсновныеНачисления Цикл Движение = Движения.ОсновныеНачисления.Добавить(); Движение.Сторно = Ложь; Движение.ВидРасчета = СтрокаТаблицы.ВидРасчета; Движение.ПериодДействияНачало = СтрокаТаблицы.ДатаНачала; Движение.ПериодДействияКонец = СтрокаТаблицы.ДатаОкончания; Движение.ПериодРегистрации = ПериодРегистрации; Движение.Сотрудник = СтрокаТаблицы.Сотрудник; Движение.Подразделение = СтрокаТаблицы.Подразделение; Движение.ГрафикРаботы = СтрокаТаблицы.ГрафикРаботы; КонецЦикла; // регистр ДополнительныеНачисления Движения.ДополнительныеНачисления.Записывать = Истина; Для Каждого СтрокаТаблицы Из ДополнительныеНачисления Цикл Движение = Движения.ДополнительныеНачисления.Добавить(); Движение.Сторно = Ложь; Движение.ВидРасчета = СтрокаТаблицы.ВидРасчета; Движение.ПериодРегистрации = ПериодРегистрации; Движение.БазовыйПериодНачало = ДобавитьМесяц(ПериодРегистрации, -2); Движение.БазовыйПериодКонец = ПериодРегистрации -1; Движение.Сотрудник = СтрокаТаблицы.Сотрудник; Движение.Подразделение = СтрокаТаблицы.Подразделение; КонецЦикла; Движения.Записать(); Расчет.РассчитатьНачисления(Ссылка, Движения); КонецПроцедуры