Процедура ОбработкаПроведения(Отказ, Режим) 
   СторнируемыеДвижения = РегистрыБухгалтерии.Хозрасчетный.ВыбратьПоРегистратору(СторнируемыйДокумент); 
 Пока СторнируемыеДвижения.Следующий() Цикл 
                Проводка = Движения.Хозрасчетный.Добавить(); 
         Проводка.Период = Дата; 
             Проводка.СчетДт = СторнируемыеДвижения.СчетДт; 
         Проводка.СчетКт = СторнируемыеДвижения.СчетКт; 
         Для каждого Субконто Из СторнируемыеДвижения.СубконтоДт Цикл 
                      Проводка.СубконтоДт[Субконто.Ключ] = Субконто.Значение; 
         КонецЦикла; 
              Для каждого Субконто Из СторнируемыеДвижения.СубконтоКт Цикл 
                      Проводка.СубконтоКт[Субконто.Ключ] = Субконто.Значение; 
         КонецЦикла; 
              Проводка.ВалютаДт = СторнируемыеДвижения.ВалютаДт; 
             Проводка.ВалютаКт = СторнируемыеДвижения.ВалютаКт; 
             Проводка.ВалютнаяСуммаДт = - СторнируемыеДвижения.ВалютнаяСуммаДт; 
                Проводка.ВалютнаяСуммаКт = - СторнируемыеДвижения.ВалютнаяСуммаКт; 
                Проводка.КоличествоДт = - СторнируемыеДвижения.КоличествоДт; 
              Проводка.КоличествоКт = - СторнируемыеДвижения.КоличествоКт; 
              Проводка.НомерЖурнала = СторнируемыеДвижения.НомерЖурнала; 
             Проводка.Организация = СторнируемыеДвижения.Организация; 
               Проводка.Содержание = СторнируемыеДвижения.Содержание; 
         Проводка.Сумма = - СторнируемыеДвижения.Сумма; 
    КонецЦикла; 
      Движения.Хозрасчетный.Записать(); 
КонецПроцедуры