Корректировка распределения счет 20

Добрый день. В ниже указанной процедуре происходит не правильное распределение (См рис). Подскажите, как это можно подправить.

Процедура РаспределениеСчета20(СтруктураШапкиДокумента, Отказ, Ошибки)

// ПОДГОТОВКА ПРОВЕДЕНИЯ ПО ДАННЫМ ДОКУМЕНТА

ПараметрыПроведения = Документы.РегламентнаяОперация.ПодготовитьПараметрыУчетЗатрат(СтруктураШапкиДокумента, Отказ);
Если Отказ Тогда
Возврат;
КонецЕсли;

Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.Текст =
"ВЫБРАТЬ
|    СУММА(ХозрасчетныйОбороты.СуммаОборотДт) КАК СуммаОборотДт,
|    ПравилаРаспределенияСчета20.ДопНоменклатурнаяГруппа,
|    СУММА(ХозрасчетныйОбороты.СуммаНУОборотДт) КАК СуммаНУОборотДт
|ПОМЕСТИТЬ База
|ИЗ
|    РегистрСведений.ПравилаРаспределенияСчета20 КАК ПравилаРаспределенияСчета20
|    ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.Обороты(&ДатаНачало, &ДатаКонец, , Счет = &Счет, , Организация = &Организация, , ) КАК ХозрасчетныйОбороты
|    ПО ПравилаРаспределенияСчета20.ОснНоменклатурнаяГруппа = ХозрасчетныйОбороты.Субконто1
|
|СГРУППИРОВАТЬ ПО
|    ПравилаРаспределенияСчета20.ДопНоменклатурнаяГруппа
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
|    ПравилаРаспределенияСчета20.ОснНоменклатурнаяГруппа,
|    ХозрасчетныйОбороты.СуммаОборотДт / База.СуммаОборотДт КАК Коэфициент,
|    ПравилаРаспределенияСчета20.ДопНоменклатурнаяГруппа,
|    ХозрасчетныйОбороты.СуммаНУОборотДт / База.СуммаНУОборотДт КАК КоэфициентНУ
|ПОМЕСТИТЬ Коэфициенты
|ИЗ
|    РегистрСведений.ПравилаРаспределенияСчета20 КАК ПравилаРаспределенияСчета20
|    ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.Обороты(&ДатаНачало, &ДатаКонец, , Счет = &Счет, , Организация = &Организация, , ) КАК ХозрасчетныйОбороты
|    ПО ПравилаРаспределенияСчета20.ОснНоменклатурнаяГруппа = ХозрасчетныйОбороты.Субконто1
|    ВНУТРЕННЕЕ СОЕДИНЕНИЕ База КАК База
|    ПО ПравилаРаспределенияСчета20.ДопНоменклатурнаяГруппа = База.ДопНоменклатурнаяГруппа
|ГДЕ
|    ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотДт / База.СуммаОборотДт, 0) <> 0
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
|    Коэфициенты.ОснНоменклатурнаяГруппа КАК СубконтоДт1,
|    ХозрасчетныйОбороты.Субконто2 КАК СубконтоДт2,
|    ХозрасчетныйОбороты.СуммаОборотДт * Коэфициенты.Коэфициент КАК Сумма,
|    ХозрасчетныйОбороты.Счет КАК СчетДт,
|    ХозрасчетныйОбороты.Организация,
|    ХозрасчетныйОбороты.Валюта КАК ВалютаДт,
|    ХозрасчетныйОбороты.Подразделение КАК ПодразделениеДт,
|    ХозрасчетныйОбороты.Субконто3 КАК СубконтоДт3,
|    Коэфициенты.ДопНоменклатурнаяГруппа КАК СубконтоКт1,
|    ХозрасчетныйОбороты.Субконто2 КАК СубконтоКт2,
|    ХозрасчетныйОбороты.Субконто3 КАК СубконтоКт3,
|    ХозрасчетныйОбороты.Подразделение КАК ПодразделениеКт,
|    ХозрасчетныйОбороты.Валюта КАК ВалютаКт,
|    ХозрасчетныйОбороты.Счет КАК СчетКт,
|    ХозрасчетныйОбороты.СуммаНУОборотДт * Коэфициенты.КоэфициентНУ КАК СуммаНУДт,
|    ХозрасчетныйОбороты.СуммаНУОборотДт * Коэфициенты.КоэфициентНУ КАК СуммаНУКт
|ИЗ
|    Коэфициенты КАК Коэфициенты
|    ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.Обороты(&ДатаНачало, &ДатаКонец, , Счет = &Счет, , Организация = &Организация, , ) КАК ХозрасчетныйОбороты
|    ПО Коэфициенты.ДопНоменклатурнаяГруппа = ХозрасчетныйОбороты.Субконто1
|ГДЕ
|    ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотДт * Коэфициенты.Коэфициент, 0) <> 0";

Запрос.УстановитьПараметр("ДатаНачало", СтруктураШапкиДокумента.НачДата);
Запрос.УстановитьПараметр("ДатаКонец", СтруктураШапкиДокумента.КонГраница);
Запрос.УстановитьПараметр("Организация", СтруктураШапкиДокумента.Организация);
Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.ОсновноеПроизводство);

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

// ФОРМИРОВАНИЕ ДВИЖЕНИЙ
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

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

Для НомерСубконто = 1 По 3 Цикл
// Дт
БухгалтерскийУчет.УстановитьСубконто(
Проводка.СчетДт,
Проводка.СубконтоДт,
НомерСубконто,
ВыборкаДетальныеЗаписи["СубконтоДт" + НомерСубконто]);
// Кт
БухгалтерскийУчет.УстановитьСубконто(
Проводка.СчетКт,
Проводка.СубконтоКт,
НомерСубконто,
ВыборкаДетальныеЗаписи["СубконтоКт" + НомерСубконто]);
КонецЦикла;

КонецЦикла;

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

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