Вопрос: Групповая обработка субконто (программно)
Типовая Бухгалтерия предприятия, редакция 3.0 (3.0.64.29)
Внешняя обработка, нужно в документе Реализация(за определенный период) из наименований договоров сделать номенклатурные группы, эти созданные номенклатурные группы поставить в субконто доходов в таблице Услуги.
Не могу присвоить новое значение субконто.
Листинг
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| РеализацияТоваровУслуг.Ссылка КАК Ссылка,
| ВЫРАЗИТЬ(РеализацияТоваровУслуг.ДоговорКонтрагента.Наименование КАК СТРОКА()) КАК Название
|ИЗ
| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
| РеализацияТоваровУслуг.Дата >= &Дата" ;
Запрос.УстановитьПараметр("Дата", Объект.Дата);
Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() Цикл
ДокОбъект = Результат.Ссылка.ПолучитьОбъект();
НоваяНоменклатурнаяГруппа = Справочники.НоменклатурныеГруппы.СоздатьЭлемент();
НоваяНоменклатурнаяГруппа.Наименование = Результат.Название;
НоваяНоменклатурнаяГруппа.Записать();
Для Каждого СтрокаДок из ДокОбъект.Услуги Цикл
СтрокаДок.Субконто = НоваяНоменклатурнаяГруппа;
КонецЦикла;
Попытка
ДокОбъект.Записать();
Исключение
Сообщить("Ошибка записи объекта" + ДокОбъект + "!" + ОписаниеОшибки());
КонецПопытки;
КонецЦикла;