Как реализовать метод "красного сторно" для регистра бухгалтерии?

Процедура ОбработкаПроведения(Отказ, Режим) 

	СторнируемыеДвижения = РегистрыБухгалтерии.Хозрасчетный.ВыбратьПоРегистратору(СторнируемыйДокумент); 
	
	Пока СторнируемыеДвижения.Следующий() Цикл 
		Проводка = Движения.Хозрасчетный.Добавить(); 
		Проводка.Период = Дата; 
		Проводка.СчетДт = СторнируемыеДвижения.СчетДт; 
		Проводка.СчетКт = СторнируемыеДвижения.СчетКт; 

		Для каждого Субконто Из СторнируемыеДвижения.СубконтоДт Цикл 
			Проводка.СубконтоДт[Субконто.Ключ] = Субконто.Значение; 
		КонецЦикла; 

		Для каждого Субконто Из СторнируемыеДвижения.СубконтоКт Цикл 
			Проводка.СубконтоКт[Субконто.Ключ] = Субконто.Значение; 
		КонецЦикла; 

		Проводка.ВалютаДт = СторнируемыеДвижения.ВалютаДт; 
		Проводка.ВалютаКт = СторнируемыеДвижения.ВалютаКт; 
		Проводка.ВалютнаяСуммаДт = - СторнируемыеДвижения.ВалютнаяСуммаДт; 
		Проводка.ВалютнаяСуммаКт = - СторнируемыеДвижения.ВалютнаяСуммаКт; 
		Проводка.КоличествоДт = - СторнируемыеДвижения.КоличествоДт; 
		Проводка.КоличествоКт = - СторнируемыеДвижения.КоличествоКт; 
		Проводка.НомерЖурнала = СторнируемыеДвижения.НомерЖурнала; 
		Проводка.Организация = СторнируемыеДвижения.Организация; 
		Проводка.Содержание = СторнируемыеДвижения.Содержание; 
		Проводка.Сумма = - СторнируемыеДвижения.Сумма; 
	КонецЦикла; 

	Движения.Хозрасчетный.Записать(); 

КонецПроцедуры