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