Добрый день! Как привязать один документ к другому при отправке через модуль Диадок? Нужно, чтобы привязывать корректировки к реализации. Даже посмотреть негде. В справке есть ссылка на такую возможность в старых модулях. А сейчас как, непонятно. https://support.kontur.ru/diadoc-1s-of/41730-otpravka
(4) И да. Тут могут помогать и бесплатно. Пришлось самому покопаться.
В подключаемом модуле Диадок нужно добавить в функцию ОбработатьСобытие
Функция ОбработатьСобытие(ИмяСобытия, Параметры) Экспорт
Если ИмяСобытия = "ПодготовитьПакет" Тогда
//+Установка связи в Диадок между УПД и корректировочными/исправительными УПД
ДокументУчета = Параметры.Пакет.ДокументУчета;
ЭтоКорректировка = ТипЗнч(ДокументУчета) = Тип("ДокументСсылка.СчетФактураВыданный") И ТипЗнч(ДокументУчета.ДокументОснование) = Тип("ДокументСсылка.КорректировкаРеализации");
Если ЭтоКорректировка И Параметры.Пакет.Документы.Количество() <> 0 Тогда
СсылкаНаСчетФактуруКорректировки = ДокументУчета;
Запрос = Новый Запрос;
Запрос.Текст =
"Тут текст запроса для поиска счет-фактуры основания для корректировочной";
Запрос.УстановитьПараметр("СсылкаНаСчетФактуруКорректировки", СсылкаНаСчетФактуруКорректировки);
Результат = Запрос.Выполнить().Выбрать();
Если Результат.Следующий() Тогда
Для Каждого Документ Из Параметры.Пакет.Документы Цикл
Если Документ.СлужебнаяИнформация.Свойство("ДокументыОснования") Тогда
Документ.СлужебнаяИнформация.ДокументыОснования.Добавить(Результат.СчетФактура);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
//-Установка связи в Диадок между УПД и корректировочными/исправительными УПД
КонецЕсли;
КонецФункции
(2) пока они предложили доработать за деньги. Я потом им задал вопрос о том, где найти нужную информацию. Дополнительно решил задать вопрос ещё в нескольких местах.
(4) И да. Тут могут помогать и бесплатно. Пришлось самому покопаться.
В подключаемом модуле Диадок нужно добавить в функцию ОбработатьСобытие
Функция ОбработатьСобытие(ИмяСобытия, Параметры) Экспорт
Если ИмяСобытия = "ПодготовитьПакет" Тогда
//+Установка связи в Диадок между УПД и корректировочными/исправительными УПД
ДокументУчета = Параметры.Пакет.ДокументУчета;
ЭтоКорректировка = ТипЗнч(ДокументУчета) = Тип("ДокументСсылка.СчетФактураВыданный") И ТипЗнч(ДокументУчета.ДокументОснование) = Тип("ДокументСсылка.КорректировкаРеализации");
Если ЭтоКорректировка И Параметры.Пакет.Документы.Количество() <> 0 Тогда
СсылкаНаСчетФактуруКорректировки = ДокументУчета;
Запрос = Новый Запрос;
Запрос.Текст =
"Тут текст запроса для поиска счет-фактуры основания для корректировочной";
Запрос.УстановитьПараметр("СсылкаНаСчетФактуруКорректировки", СсылкаНаСчетФактуруКорректировки);
Результат = Запрос.Выполнить().Выбрать();
Если Результат.Следующий() Тогда
Для Каждого Документ Из Параметры.Пакет.Документы Цикл
Если Документ.СлужебнаяИнформация.Свойство("ДокументыОснования") Тогда
Документ.СлужебнаяИнформация.ДокументыОснования.Добавить(Результат.СчетФактура);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
//-Установка связи в Диадок между УПД и корректировочными/исправительными УПД
КонецЕсли;
КонецФункции