Групповая обработка субконто (программно)

Типовая Бухгалтерия предприятия, редакция 3.0 (3.0.64.29)
Внешняя обработка, нужно в документе Реализация(за определенный период) из наименований договоров сделать номенклатурные группы, эти созданные номенклатурные группы поставить в субконто доходов в таблице Услуги.

Не могу присвоить новое значение субконто.

Листинг

    Запрос = Новый Запрос;

    Запрос.Текст =  "ВЫБРАТЬ
    |    РеализацияТоваровУслуг.Ссылка КАК Ссылка,
    |    ВЫРАЗИТЬ(РеализацияТоваровУслуг.ДоговорКонтрагента.Наименование КАК СТРОКА(14)) КАК Название
    |ИЗ
    |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
    |ГДЕ
    |    РеализацияТоваровУслуг.Дата >= &Дата" ;

    Запрос.УстановитьПараметр("Дата", Объект.Дата);

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

    Пока Результат.Следующий() Цикл

        ДокОбъект = Результат.Ссылка.ПолучитьОбъект();

        НоваяНоменклатурнаяГруппа = Справочники.НоменклатурныеГруппы.СоздатьЭлемент();

        НоваяНоменклатурнаяГруппа.Наименование = Результат.Название;

        НоваяНоменклатурнаяГруппа.Записать();

        Для Каждого СтрокаДок из ДокОбъект.Услуги Цикл
            СтрокаДок.Субконто = НоваяНоменклатурнаяГруппа;
        КонецЦикла;

        Попытка
            ДокОбъект.Записать();
        Исключение
            Сообщить("Ошибка записи объекта" + ДокОбъект + "!" + ОписаниеОшибки());
        КонецПопытки;

    КонецЦикла;