Не меняются проводки документа после обмена данными

Попытка
	Объект.Записать(РежимЗаписиДокумента.Проведение);  
Исключение  
	Объект.Проведен = Ложь;
КонецПопытки;  

Если Объект.Проведен Тогда
	
	Набор = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
	Набор.Отбор.Регистратор.Установить(Объект.Ссылка);
	Набор.Прочитать();

Счет43   = ПланыСчетов.Хозрасчетный.ГотоваяПродукция;  
Счет4101 = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;  
Счет900201 = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД;

	
	Запрос = Новый Запрос();  
	
	НужноЗаписать = Ложь;
	
	Для каждого Стр из Набор Цикл
		
		Если Стр.СчетДт = Счет900201 Тогда
			Если Стр.СчетКт = Счет43 Или Стр.СчетКт = Счет4101 Тогда
								
				Запрос.Текст = "ВЫБРАТЬ
				|	ЕСТЬNULL(ХозрасчетныйОстатки.СуммаОстатокДт, 0) КАК Сумма
				|ИЗ
				|	РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет = &Счет, , Субконто1 = &Номенклатура) КАК ХозрасчетныйОстатки";
				
				Запрос.УстановитьПараметр("Период", 	  НачалоДня(Объект.Дата));
				Запрос.УстановитьПараметр("Счет",	      Стр.СчетКт);
				Запрос.УстановитьПараметр("Номенклатура", Стр.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура]); 
				
				Результат = Запрос.Выполнить().Выбрать();
				
				Если Результат.Следующий() Тогда 
					Если Не Стр.КоличествоКт = 0 Тогда
						Стр.Сумма = Результат.Сумма/Стр.КоличествоКт; 	
					Иначе
						Стр.Сумма = 0;
					КонецЕсли;
				Иначе
					Стр.Сумма = 0
				КонецЕсли;
				
				НужноЗаписать = Истина;
				
			КонецЕсли;
			
		КонецЕсли;
		
		
	КонецЦикла;
	
	Если НужноЗаписать Тогда
		
		Набор.Записать();
		
	КонецЕсли;
	
КонецЕсли;