Имя: Пароль:
1C
 
БП 3.0: как программно добавить ДополнительныеСведения
,
0 Kifsif
 
31.10.14
00:07
К требованию-накладной делаю печатную форму акта о списании.
Акт подписывает комиссия.

Для справочника Организации я задал дополнительные сведения: Председатель комиссии, Второй член, Третий член, Четвертый член.
Это у меня значения по умолчанию.

И для документа ТребованиеНакладная задал дополнительные сведения с точно такими же наименованиями.

Теперь хочу в каждый новый документ ТребованиеНакладная писать значения по умолчанию. Значения по умолчанию я запросом достал и поместил в переменные. Выбрал запросом для данного

Дальше:

НаборЗаписей = РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Объект.Установить(мДокументСсылка);    
    
    Если ПредседательКомиссииПоУмолчанию <> Null И Выборка.Председатель = Null Тогда                
        НеобходимоПредупреждение = Истина;
        Запись = НаборЗаписей.Добавить();        
        Запись.Объект = мДокументСсылка;
        Запись.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Председатель");
        Запись.Значение = ПредседательКомиссииПоУмолчанию;                
    КонецЕсли;
...
НаборЗаписей.Записать();

Вот тут у меня проблема. Не могу свойство нормально указать. Он находит свойство для организации. Соответственно, в регистр запись попадает, записывается. Только кривая она (с такой пиктограммкой с иконкой листочка с крестиком).

Был бы признателен за совет, как мне задать нужное свойство.
1 КтоКакБог
 
31.10.14
00:14
РДС                = РегистрыСведений.ДополнительныеСведения.СоздатьМенеджерЗаписи();
    РДС.Объект        = НаборЗаписей;
    РДС.Свойство    = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Председатель");
    РДС.Прочитать();
    
    Если РДС.Выбран() Тогда
        
        РДС.Значение    = ПредседательКомиссииПоУмолчанию;        РДС.Записать();
        
    Иначе
           ЗаписьРС            =РегистрыСведений.ДополнительныеСведения.СоздатьМенеджерЗаписи();
           ЗаписьРС.Объект        =мДокументСсылка;
           ЗаписьРС.Свойство    = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Председатель");
        ЗаписьРМ.Значение    = ПредседательКомиссииПоУмолчанию;
        ЗаписьРМ.Записать();    
    КонецЕсли;
2 Aleksey
 
31.10.14
00:16
(0) Проверь наименование, там обычно автоматом включено и название документа