Имя: Пароль:
1C
1С v8
Свойство вида номенклатуры
0 nAPACEHAK
 
19.10.17
14:43
Добра всем

Помогите разобраться
УТ 11.3
Надо к номенклатуре добавить свойство, общее для вида

    Процедура СоздатьСвойстваНаСервере(НазначениеСвойств, Свойство)

        ПВХ = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию(Свойство, Истина, НазначениеСвойств);
        ПВХ = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.СоздатьЭлемент();
        ПВХ.ТипЗначения = Тип ("Строка");
        ПВХ.НаборСвойств = Справочники.НаборыДополнительныхРеквизитовИСведений.Справочник_ХарактеристикиНоменклатуры_Общие;
        ПВХ.НаборСвойств = Справочники.НаборыДополнительныхРеквизитовИСведений.НазначениеСвойств;
        ПВХ.Наименование = Свойство;
        ПВХ.Заголовок = Свойство;
        ПВХ.Записать();
        
        
        Спр = Справочники.НаборыДополнительныхРеквизитовИСведений.Справочник_ХарактеристикиНоменклатуры_Общие.ПолучитьОбъект();
        Спр = Справочники.НаборыДополнительныхРеквизитовИСведений.НазначениеСвойств;
        Спр = Спр.ПолучитьОбъект();
        Стр = Спр.ДополнительныеРеквизиты.Добавить();
        Стр.Свойство = ПВХ.Ссылка;
        Спр.Записать();


Так добавится свойство, общее для всех видов. а как добавить свойство для конкретного вида?

Пробовал
Спр = Справочники.НаборыДополнительныхРеквизитовИСведений.Справочник_ХарактеристикиНоменклатуры;
но или чего то упустил или не так

Спасибо
1 nAPACEHAK
 
20.10.17
16:42
Все. починил.

ПВХ.НаборСвойств = НазначениеСвойств.НаборСвойствХарактеристик;

Спр = НазначениеСвойств.НаборСвойствХарактеристик.ПолучитьОбъект ();
Основная теорема систематики: Новые системы плодят новые проблемы.