|
БП 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) Проверь наименование, там обычно автоматом включено и название документа
|
| Форум | Правила | Описание | Секции | Поиск |