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