Типовая Бухгалтерия предприятия, редакция 3.0 (3.0.64.29) 

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

Отбор = ФормаОбработки.ПостроительЗапроса_Отбор.Добавить("Ссылка");
    Отбор["Номенклатура"].Использование = Истина;
    Отбор["Номенклатура"].Значение = СпиокНомеклатуры;
    Отбор["Номенклатура"].ВидСравнения = ВидСравнения.ВСписке;