Доброго всем дня! Есть связка БП 3.0 и Диадок, стоит задача вытащить из БП сведения о состоянии и датах отправленных документов, знает ли кто - хранится такая инфа в БП? Пока нашел только регистр Доп. сведения, там есть Идентификатор документа в диадок, но ни даты ни статуса там нет...
Диадок как внешняя обработка подключена? Если да, то насколько помню там всё в свойствах хранится. Попробуйте прям из документа открыть свойства (в простонародье "бочка") и посмотреть что там кроме идентификатора.
Мне нужно было статусы контрагентов в базу получать. Не придумал ничего лучше, чем в обработке сделать определенную кнопку, которая по списку эти данные запрашивает, и записывает в мой регистр.
Но это в ручном режиме, и обработку дорабатывать не у всех есть возможность.
(7) тоже пошел таким путем. в форме Контрагенты_ФормаСпискаV2 в процедуре ЗаполнитьТаблицуСвязанныхСправочников дописал код автоматического заполнения:
Для Каждого СтрокаКонтрагента Из СвязанныеСправочники Цикл
НоваяСтрокаСопоставления = СопоставленныеКонтрагенты.Добавить();
НоваяСтрокаСопоставления.ID = ID;
НоваяСтрокаСопоставления.Контрагент = СтрокаКонтрагента.Ссылка;
//18.10.2024 дальше - свой код
Свойство_ДиадокИдентификаторЭДО = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("ДиадокИдентификаторЭДО");
Если Свойство_ДиадокИдентификаторЭДО <> Неопределено Тогда
НайденнаяСтрока = СправочникСписок.Найти(ID,"ID");
Если НайденнаяСтрока <> Неопределено И НЕ ПустаяСтрока(СтрокаКонтрагента.Ссылка) Тогда
НовыйID = ?(ПустаяСтрока(НайденнаяСтрока), "", СокрЛП(НайденнаяСтрока.ИдентификаторУчастникаЭДО));
//Сообщить(СокрЛП(СтрокаКонтрагента.Ссылка) + ": " + ?(ПустаяСтрока(НайденнаяСтрока), "", НайденнаяСтрока.ИдентификаторУчастникаЭДО));
ТекID = ПолучитьЗначениеСвойства(СтрокаКонтрагента.Ссылка, "ДиадокИдентификаторЭДО");
ТекID = ?(ПустаяСтрока(ТекID), "", СокрЛП(ТекID));
Если НовыйID <> "" Тогда
Если ТекID <> НовыйID Тогда
Сообщить("Обновляется свойство ДиадокИдентификаторЭДО контрагента: " + СокрЛП(СтрокаКонтрагента.Ссылка) + " " + НовыйID);
//
МенеджерЗаписи = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписи();
МенеджерЗаписи.Объект = СтрокаКонтрагента.Ссылка;
МенеджерЗаписи.Свойство = Свойство_ДиадокИдентификаторЭДО;
МенеджерЗаписи.Значение = НовыйID;
МенеджерЗаписи.Записать();
//
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
//