Почему не пишет субконто и как правильно

//5.Добавляем новую запись в набор---------------------------------------
НоваяЗапись = Набор.Добавить();
НоваяЗапись.Активность = Истина;
НоваяЗапись.Организация = Организация;
НоваяЗапись.Период = ДатаВвода;

Если ОстатокДт = 0 ИЛИ ОстатокДт = "0" Тогда //Движение идет по кредиту

НоваяЗапись.СчетКт = Счет;
НоваяЗапись.СчетДт = ПланыСчетов.Хозрасчетный.Вспомогательный;
НоваяЗапись.Сумма = ОстатокКт;
Если Субконто1 <> Неопределено Тогда
Сообщить(Субконто1.Ссылка);
НоваяЗапись.СубконтоКт[0] = Субконто1.Ссылка;
КонецЕсли;
Если Субконто2 <> Неопределено Тогда
Сообщить(Субконто2.Ссылка);
НоваяЗапись.СубконтоКт[1] = Субконто2.Ссылка;
КонецЕсли;
Если Субконто3 <> Неопределено Тогда
Сообщить(Субконто3.Ссылка);
НоваяЗапись.СубконтоКт[2] = Субконто3.Ссылка;
КонецЕсли;

Иначе //Движение идет по дебету

НоваяЗапись.СчетДт = Счет;
НоваяЗапись.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный;
НоваяЗапись.Сумма = ОстатокДт;
Если Субконто1 <> Неопределено Тогда
Сообщить(Субконто1.Ссылка);
НоваяЗапись.СубконтоДт[0] = Субконто1.Ссылка;
КонецЕсли;
Если Субконто2 <> Неопределено Тогда
Сообщить(Субконто2.Ссылка);
НоваяЗапись.СубконтоДт[1] = Субконто2.Ссылка;
КонецЕсли;
Если Субконто3 <> Неопределено Тогда
Сообщить(Субконто3.Ссылка);
НоваяЗапись.СубконтоДт[2] = Субконто3.Ссылка;
КонецЕсли;

КонецЕСли;

//6.Запишем набор, если последняя строка----------------------------------
ЕСли НомерСтроки = Кол тогда
Записать (Набор);
КонецЕсли;