v8: Документ Закрытие месяца для КА

Создал документ, Процедура проведения:
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Счет20();
Счет23();
Счет26();
Счет25();
КонецПроцедуры
Процедура Счет23()
Движения.Хозрасчетный.Записывать = Истина;
//Движения.Хозрасчетный.Очистить();
Для Каждого ТекСтрокаСчет23 Из Счет23 Цикл
Движение = Движения.Хозрасчетный.Добавить();
Движение.СчетДт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
Движение.СчетКт = ТекСтрокаСчет23.Счет23;
Движение.Период = КонецМесяца(Дата2);
Движение.Организация = Орг;
Движение.Сумма = ТекСтрокаСчет23.Сумма;
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = ТекСтрокаСчет23.Подразделение;
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы] = ТекСтрокаСчет23.НоменклатурныеГруппы;
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат] = ТекСтрокаСчет23.СтатьиЗатрат;
КонецЦикла;
КонецПроцедуры
Процедура Счет26()
// регистр Хозрасчетный
Движения.Хозрасчетный.Записывать = Истина;
//Движения.Хозрасчетный.Очистить();
Для Каждого ТекСтрокаСчет26 Из Счет26 Цикл
Движение = Движения.Хозрасчетный.Добавить();
Движение.СчетДт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
Движение.СчетКт = ТекСтрокаСчет26.Счет26;
Движение.Период = КонецМесяца(Дата2);
Движение.Организация = Орг;
Движение.Сумма = ТекСтрокаСчет26.Сумма;
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = ТекСтрокаСчет26.Подразделение;
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат] = ТекСтрокаСчет26.СтатьиЗатрат;
КонецЦикла;
КонецПроцедуры
Процедура Счет25()
// регистр Хозрасчетный
Движения.Хозрасчетный.Записывать = Истина;
//Движения.Хозрасчетный.Очистить();
Для Каждого ТекСтрокаСчет25 Из Счет25 Цикл
Движение = Движения.Хозрасчетный.Добавить();
Движение.СчетДт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
Движение.СчетКт = ТекСтрокаСчет25.Счет25;
Движение.Период = КонецМесяца(Дата2);
Движение.Организация = Орг;
Движение.Сумма = ТекСтрокаСчет25.Сумма;
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = ТекСтрокаСчет25.Подразделение;
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат] = ТекСтрокаСчет25.СтатьиЗатрат;
КонецЦикла;

КонецПроцедуры
Процедура Счет20()
//// регистр Хозрасчетный
Движения.Хозрасчетный.Записывать = Истина;
////Движения.Хозрасчетный.Очистить();
Для Каждого ТекСтрокаСчет20 Из Счет20 Цикл
Движение = Движения.Хозрасчетный.Добавить();
Движение.СчетДт = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеОблагаемаяЕНВД;
Движение.СчетКт = ТекСтрокаСчет20.Счет20;
Движение.Период = Дата;
Движение.Организация = Орг;
Движение.Сумма = ТекСтрокаСчет20.Сумма;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы] = ТекСтрокаСчет20.НоменклатурныеГруппы;

Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения] = ТекСтрокаСчет20.Подразделение;
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы] = ТекСтрокаСчет20.НоменклатурныеГруппы;
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат] = ТекСтрокаСчет20.СтатьиЗатрат;
КонецЦикла;
КонецПроцедуры;

после проведения обаротка выглядит так ->http://uploads.ru/q1Kh5.jpg
Как мне сделать кт20-го такой же как и дт20?
Заранее благодарю!!! и вообще верен ли подход?