Для использования автоматического гашения ВСД необходимо загрузить её в "Дополнительные обработки", после чего появляется возможность задать расписание выполнения обработки. В ручном режиме достаточно запустить обработку и нажать кнопку "Гасить ВСД". Данная обработка на основании документов "входящий ВСД", создается документ "Приходные операции", заполняет его и формирует заявку на гашение ВСД в 1С. Сформированная заявка обрабатывается на серверах меркурий, после чего приходит ответ в 1С УВС.
Обработка тестировалась на платформе 8.3.15.1656 конфигурация 1С:Управление ветеринарными сертификатами. Интеграция с ФГИС Меркурий(2.0.8.2).
Процедура ВыполнитьКоманду(ИдентификаторКоманды) Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ДокументВСД.Ссылка КАК ДокументВСДСсылка
|ИЗ
| Документ.ВСД КАК ДокументВСД
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПриходныеОперации КАК ПриходныеОперации
| ПО ДокументВСД.Ссылка = ПриходныеОперации.ВСД
|ГДЕ
| ПриходныеОперации.Ссылка ЕСТЬ NULL
| И ДокументВСД.Проведен
| И ДокументВСД.ВидВСД = &ВидВСД
| И ДокументВСД.Организация = &Организация";
Запрос.УстановитьПараметр("ВидВСД",Перечисления.ВидыВСД.Входящий);
Запрос.УстановитьПараметр("Организация",Справочники.Организации.НайтиПоКоду("000000001")); // ООО "Магазин 61"
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ДокументыПриходныеОперации = Документы.ПриходныеОперации.СоздатьДокумент();
ДокументыПриходныеОперации.ЗаполнитьДокументПоВСД(ВыборкаДетальныеЗаписи.ДокументВСДСсылка);
ДокументыПриходныеОперации.Дата = ТекущаяДата();
ДокументыПриходныеОперации.РезультатВетеринарногоКонтроля = Справочники.РезультатыКонтроляПоставки.НайтиПоКоду("UNSUPERVISED");
ДокументыПриходныеОперации.РешениеОПриемеВходнойПартии = Справочники.РешенияОПриемеВходнойПартии.НайтиПоКоду("ACCEPT_ALL");
ДокументыПриходныеОперации.РезультатДокументарногоКонтроля = Справочники.РезультатыКонтроляПоставки.НайтиПоКоду("UNSUPERVISED");
ДокументыПриходныеОперации.Записать(РежимЗаписиДокумента.Проведение);
МассивДокументов = Новый Массив();
МассивДокументов.Добавить(ДокументыПриходныеОперации.Ссылка);
ИнтеграцияВетисAPIОтправкаЗаявокНаОформление.СформироватьЗаявки(МассивДокументов,, Ложь,); //Сформировать заявку
КонецЦикла;
КонецЕсли;
КонецПроцедуры;
