Ошибка при корректировке движений документа

Имеется такой код:
Сч76_9=ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами;
    Сч20=ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
    Контрагент=Справочники.Контрагенты.ПустаяСсылка();
    Договор=Справочники.ДоговорыКонтрагентов.ПустаяСсылка();
    НачатьТранзакцию();
    НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(ДокументСсылка);
    НаборЗаписей.Прочитать();
        Если НаборЗаписей.Количество() = 0 Тогда
        Возврат;
    КонецЕсли;
    Для каждого Запись из НаборЗаписей Цикл
        Если Запись.СчетДт=Сч20 Тогда
            Запись.ПодразделениеДт=Неопределено;
            ПолучитьКонтрагентаИДоговор(Запись.СубконтоДт.НоменклатурныеГруппы,Контрагент,Договор);
            Запись.СубконтоДт.НоменклатурныеГруппы=Неопределено;
            Запись.СубконтоДт.СтатьиЗатрат=Неопределено;
            Запись.СчетДт = Сч76_9;
            Запись.СубконтоДт.Контрагенты=Контрагент;
            Запись.СубконтоДт.Договоры=Договор;
        КонецЕсли;

    КонецЦикла;
    НаборЗаписей.Записать();
    ДокументОбъект = ДокументСсылка.ПолучитьОбъект();
    ДокументОбъект.РучнаяКорректировка   = Истина;
    ДокументОбъект.Записать();
    ЗафиксироватьТранзакцию();

Проблема возникает при записи набора записей, выдаётся сообщение:
Запись не верна! Вид субконто "Статьи затрат" не доступен для данной записи!
Посмотрел в отладчике НаборЗаписей по каждой строчке - для каждого счета установлены свои значения субконто, определенные для этого счета, остальные имеют значение Неопределено.

Не могу понять, из-за чего же возникает ошибка