|
|
Как в УТ 11 грамотно создать программно элемент плана видов характеристик?
|
|
0
batmansoft
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
|
В общем, спасибо всем, разобрался сам.
|
|