8.х Дополнительные сведения программно бух 3.0

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Raideres, 8 июн 2017.

  1. TopicStarter Overlay
    Raideres
    Offline

    Raideres Опытный в 1С

    Регистрация:
    9 фев 2016
    Сообщения:
    450
    Симпатии:
    1
    Баллы:
    29
    как заполнить дополнительные сведения программно
    для документа реализации создано в дополнительных сведениях реквизит выгрузка с типом булево
    как программно его записать истина
  2. AlexeyKh
    Offline

    AlexeyKh Опытный в 1С

    Регистрация:
    27 июл 2012
    Сообщения:
    145
    Симпатии:
    17
    Баллы:
    29
    сделайте в общем серверном модуле такую процедуру и вызываете ее где надо.

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

Поделиться этой страницей