Untitled

 avatar
unknown
plain_text
2 years ago
2.5 kB
3
Indexable
Процедура ОбработкаПроведения(Отказ, РежимПроведения)

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

	// Запись рабочих наборов записей
	Движения.Записать();
	
	// Окончательный расчет данных в регистрах
	Расчет.РассчитатьНачисления(Ссылка, Движения.ОсновныеНачисления, Отказ);

КонецПроцедуры
Editor is loading...