Запись регистра расчетов измененные пользователем данные

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

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

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