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