Как в УТ 11 грамотно создать программно элемент плана видов характеристик?

1С v8

10.07.14

✎

19:11

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

1 SherifSP

10.07.14

✎

19:14

(0) Запросом выбери

2 batmansoft

10.07.14

✎

19:16

(1) При чем тут запрос? Мне надо программно ДОБАВИТЬ новый дополнительный реквизит.

3 batmansoft

10.07.14

✎

19:23

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

Что то все равно не появляется созданный элемент

4 batmansoft

10.07.14

✎

19:29

О! Оказывается еще в ТЧ наборов надо добавить. Ну, млин, эта УТ 11 вообще блин лабиринт, слов нет!
&НаСервере
Процедура СоздатьСвойстваНаСервере()
    КЧ = Новый КвалификаторыЧисла(12,2);
    Массив = Новый Массив;
    Массив.Очистить();
    Массив.Добавить(Тип("Число"));
    ТЧ=Новый ОписаниеТипов(Массив,КЧ);
    лОб=ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.СоздатьЭлемент();
    лОб.Наименование="проба";
    лОб.Заголовок="проба";
    лОб.НаборСвойств =  Справочники.НаборыДополнительныхРеквизитовИСведений.Справочник_ХарактеристикиНоменклатуры_Общие;
    лОб.ТипЗначения = ТЧ;
    лОб.Записать();
    лСпр=Справочники.НаборыДополнительныхРеквизитовИСведений.Справочник_ХарактеристикиНоменклатуры_Общие.ПолучитьОбъект();
    стр=лСпр.ДополнительныеРеквизиты.Добавить();
    стр.Свойство=лОб.Ссылка;
    лСпр.Записать();
    сообщить(лОб);
КонецПроцедуры

5 batmansoft

10.07.14

✎

19:29

В общем, спасибо всем, разобрался сам.