Будем делать это через дополнительный модуль
Сгенерируем шаблон с событием ПослеОтправкиПакета, будем обрабатывать типовой результат.
В событие ПослеОтправки к нам приходит ответ от Диадок, в котором содержится свойство TimestampTicks в нем содержится нужная нам дата и время.
Функция ОбработатьСобытие(ИмяСобытия, Параметры) Экспорт
Если ИмяСобытия = "ПослеОтправкиПакета" Тогда
Возврат ПослеОтправкиПакета(Параметры);
КонецЕсли;
КонецФункции
Функция ПослеОтправкиПакета(Параметры)
Если ТипЗнч(Параметры) = Тип("Структура") И Параметры.Свойство("Результат_ИМ") Тогда
Документ1 = Параметры.Пакет.Данные1С.Документ;
Если Параметры.Пакет.ДанныеДД.Свойство("TimestampTicks") Тогда
Св_ДатаОтправкиВДиадок = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.ПолучитьСсылку(Новый УникальныйИдентификатор("49b59fde-e69d-11ee-8d44-000c290a1421"));
//Св_ДатаОтправкиВДиадок = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("DD_ДатаОтправкиВДиадок");
Если ЗначениеЗаполнено(Св_ДатаОтправкиВДиадок) Тогда
Набор = РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
Набор.Отбор.Объект.Установить(Документ1);
Набор.Отбор.Свойство.Установить(Св_ДатаОтправкиВДиадок);
Запись = Набор.Добавить();
Запись.Объект = Документ1;
Запись.Свойство = Св_ДатаОтправкиВДиадок;
Запись.Значение = Параметры.Пакет.ДанныеДД.TimestampTicks+3*60*60;
Набор.Записать();
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецФункции
Добавим новый ПланыВидовХарактеристик DD_ДатаОтправкиВДиадок, как реквизит с типом данных Дата.
В результате
Тестировал:
- 1С:Комплексная автоматизация 2 (2.4.13.209)
- Платформа 1С:Предприятие 8.3 (8.3.24.1342)
