Создать упаковки для всех номенклатур УТ11

Как программно создать упаковки для всех номенклатур? "Шт"

&НаСервере
Процедура СоздатьУпаковкиНаСервере()


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

    Запрос.УстановитьПараметр("Номенклатура", Номенклатура);

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

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

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Если  НЕ ВыборкаДетальныеЗаписи.Ссылка.ЭтоГруппа  Тогда
            Если Справочники.УпаковкиНоменклатуры.НайтиПоНаименованию(Строка(ВыборкаДетальныеЗаписи.ЕдиницаИзмерения),,,ВыборкаДетальныеЗаписи.Ссылка)= Справочники.УпаковкиНоменклатуры.ПустаяСсылка() Тогда
            // Создать упаковку
            Попытка
                НоваУпаковкаНоменклатур = Справочники.УпаковкиНоменклатуры.СоздатьЭлемент();
                НоваУпаковкаНоменклатур.Владелец = ВыборкаДетальныеЗаписи.Ссылка;
                НоваУпаковкаНоменклатур.Владелец.НаборУпаковок=Справочники.НаборыУпаковок.ИндивидуальныйДляНоменклатуры;
                НоваУпаковкаНоменклатур.СкладскаяГруппа = Справочники.СкладскиеГруппыУпаковок.НайтиПоНаименованию("ШТ",Истина);
                НоваУпаковкаНоменклатур.ЕдиницаИзмерения=ВыборкаДетальныеЗаписи.ЕдиницаИзмерения;
                НоваУпаковкаНоменклатур.Наименование =Строка(ВыборкаДетальныеЗаписи.ЕдиницаИзмерения);
                НоваУпаковкаНоменклатур.Коэффициент = 1 ;
                НоваУпаковкаНоменклатур.Записать();
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;
        // конец
    КонецЕсли;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры