Программно записать характеристики номенклатуры

@NIKO666 · Регистрация: 22.10.2010

Author24 — интернет-сервис помощи студентам

Приветствую.
Мне нужно записать программно характеристики некоторой номенклатуры. Характеристики беру из экселеского файла. Пытаюсь сделать это кодом, показанным ниже:

1C

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

Но вот он само наименование характеристик записывает, а значения им не задает. Подскажите, люди добрые, что я делаю не так?

@Fenomen · 15.10.2012, 11:03

Сообщение от NIKO666

РегистрЗначенияСвойствОбъектов.Объект = НовНоменклатура.Ссылка;

Здесь нужно писать в регистр ссылку на характеристику, а не на номенклатуру.

@duk337 · 15.10.2012, 14:06

Не по теме:

Если алгоритм не укладывается в голове, значит он не удачен. Может, это мои проблемы, но я каждый раз, берясь за переделку интерфейсов по характеристикам, въезжаю в них заново :(. А переделывать их приходится, поскольку юзер ни черта не может понять в 50% случаев. А в 10% приходится добавлять банальными атрибутами.

@Fenomen · 15.10.2012, 14:42

Сообщение от duk337

Не по теме:
Если алгоритм не укладывается в голове, значит он не удачен. Может, это мои проблемы, но я каждый раз, берясь за переделку интерфейсов по характеристикам, въезжаю в них заново . А переделывать их приходится, поскольку юзер ни черта не может понять в 50% случаев. А в 10% приходится добавлять банальными атрибутами.

Не по теме:

Это плата за универсальность

@Fenomen 900 / 877 / 8 Регистрация: 15.03.2012 Сообщений: 2,680
	15.10.2012, 11:03	2
	Сообщение от NIKO666 РегистрЗначенияСвойствОбъектов.Объект = НовНоменклатура.Ссылка; Здесь нужно писать в регистр ссылку на характеристику, а не на номенклатуру. 0

@duk337
	15.10.2012, 14:06 #3
	Не по теме: Если алгоритм не укладывается в голове, значит он не удачен. Может, это мои проблемы, но я каждый раз, берясь за переделку интерфейсов по характеристикам, въезжаю в них заново :(. А переделывать их приходится, поскольку юзер ни черта не может понять в 50% случаев. А в 10% приходится добавлять банальными атрибутами. 0

@Fenomen 900 / 877 / 8 Регистрация: 15.03.2012 Сообщений: 2,680
	15.10.2012, 14:42	4
	Сообщение от duk337 Не по теме: Если алгоритм не укладывается в голове, значит он не удачен. Может, это мои проблемы, но я каждый раз, берясь за переделку интерфейсов по характеристикам, въезжаю в них заново . А переделывать их приходится, поскольку юзер ни черта не может понять в 50% случаев. А в 10% приходится добавлять банальными атрибутами. Не по теме: Это плата за универсальность 0