Программно записать характеристики номенклатуры - 1С - Ответ 3562504

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