Перенос ШтрихКодов по номенклатуре с помощью КД

Способ перегрузки ШтрихКодов по номенклатуре:

Если НЕ Источник.ЭтоГруппа Тогда
     Набор = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
     Набор.Отбор.Владелец.Значение      = Источник;
     Набор.Отбор.Владелец.Использование = Истина;
     Набор.Прочитать();

Для Каждого Запись Из Набор Цикл

    Структура = Новый Структура;
    Структура.Вставить("Владелец", Запись.Владелец);
    Структура.Вставить("ЕдиницаИзмерения", Запись.ЕдиницаИзмерения);
    Структура.Вставить("Качество", Запись.Качество);
    Структура.Вставить("СерияНоменклатуры", Запись.СерияНоменклатуры);
    Структура.Вставить("ТипШтрихкода", Запись.ТипШтрихкода);
    Структура.Вставить("ХарактеристикаНоменклатуры", Запись.ХарактеристикаНоменклатуры);
    Структура.Вставить("Штрихкод", Запись.Штрихкод);
    Структура.Вставить("Активность", Запись.Активность);

    ВыгрузитьПоПравилу(Структура, , , , "Штрихкоды");
КонецЦикла;
КонецЕсли;