Не могу программно перезаписать проводки документа (заменить счет)

Question

Здравствуйте! Есть документ Распределение НДС, он делает проводки ДТ 10 КТ 19 (для учитываемого НДС). Подобная система не очень нравится бухгалтерии. Решили этот НДС списывать на 91.02, а не на 10. Была сделана подписка на событие, где после проведения документа Распределения НДС  10 счета заменялись на 91.02. Все работало. После обновления на релиз 3.0.107, подписка стала выдавать ошибку "Запись не верна!" и все. Не пойму в чем дело и что изменилось с обновлением. Может кто сталкивался с подобным?
Код в модуле подписки такой. 
[1C-CODE]мСчетов = Новый Массив;
	мСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.01"));
	мСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.03.1"));
	мСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.05"));
	мСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.06"));
	мСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.09"));
	мСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.10"));
	
	НаборДвижений = Источник.Движения.Хозрасчетный;
	
Для Каждого Проводка Из НаборДвижений Цикл 
	Если мСчетов.Найти(Проводка.СчетДТ)<>Неопределено Тогда 
	   Проводка.СчетДТ= ПланыСчетов.Хозрасчетный.НайтиПоКоду("91.02")  ;
           Проводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПрочиеДоходыИРасходы]=Источник.Субконто1;
//Субконто1 - Справочник ПрочиеДоходыИРасходы

Проводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.РеализуемыеАктивы]=Источник.Субконто2;
//Субконто2 - Справочник Номенклатура.
	КонецЕсли; 
КонецЦикла;   
НаборДвижений.ОбменДанными.Загрузка = Истина;
НаборДвижений.Записывать = Истина;	
[/1C-CODE]

Accepted Answer

В моем случае помогло. У меня задача была подменить СчетДТ, а СчетКТ оставить пустым, так вот я очищал субконтоКт записывая в них неопределено, а нужно было ЗаписьБУ.СубконтоКт.Очистить();

Может у тебя Субконто старые некорректные остаются?