1С 8.2 УП : Как реализовать метод красного сторно для регистра бухгалтерии?

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



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

    

    Пока СторнируемыеДвижения.Следующий() Цикл 

        Проводка = Движения.Хозрасчетный.Добавить(); 

        Проводка.Период = Дата; 

        Проводка.СчетДт = СторнируемыеДвижения.СчетДт; 

        Проводка.СчетКт = СторнируемыеДвижения.СчетКт; 



        Для каждого Субконто Из СторнируемыеДвижения.СубконтоДт Цикл 

            Проводка.СубконтоДт[Субконто.Ключ] = Субконто.Значение; 

        КонецЦикла; 



        Для каждого Субконто Из СторнируемыеДвижения.СубконтоКт Цикл 

            Проводка.СубконтоКт[Субконто.Ключ] = Субконто.Значение; 

        КонецЦикла; 



        Проводка.ВалютаДт = СторнируемыеДвижения.ВалютаДт; 

        Проводка.ВалютаКт = СторнируемыеДвижения.ВалютаКт; 

        Проводка.ВалютнаяСуммаДт = - СторнируемыеДвижения.ВалютнаяСуммаДт; 

        Проводка.ВалютнаяСуммаКт = - СторнируемыеДвижения.ВалютнаяСуммаКт; 

        Проводка.КоличествоДт = - СторнируемыеДвижения.КоличествоДт; 

        Проводка.КоличествоКт = - СторнируемыеДвижения.КоличествоКт; 

        Проводка.НомерЖурнала = СторнируемыеДвижения.НомерЖурнала; 

        Проводка.Организация = СторнируемыеДвижения.Организация; 

        Проводка.Содержание = СторнируемыеДвижения.Содержание; 

        Проводка.Сумма = - СторнируемыеДвижения.Сумма; 

    КонецЦикла; 



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



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