Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

отрывки:заполнение_входящего_сертификата [2017/12/08 02:25] (текущий)
adminasp создано
Строка 1: Строка 1:
 +====== Заполнение входящего сертификата данными из Меркурия ======
  
 +Вариант:​
 +<1c>
 +// На входе:
 +// ГУИД входящего сертификата
 +// Организация - наш поднадзорный
 +
 +Обработка = АСП_Общие.ПолучитьОбъектОбработки();​
 +Обработка.ЗапроситьДанныеСертификата(ГУИД,​ Организация);​
 +ДанынеСертификата = Обработка.ДанныеСертификата;​
 +
 +ВидДока = Справочники.АСП_ВидыДокументов1С.НайтиПоНаименованию("​Поступление"​).Ссылка;​
 +
 +Док = Документы.АСП_ВетеринарныйДокумент.СоздатьДокумент();​
 +Док.Дата = ТекущаяДата();​
 +Док.Организация = Организация;​
 +Док.ВетВрач = Константы.АСП_ОсновнойВетВрач.Получить();​
 +Док.ГУИДВходящегоВСД = Стр.ГУИД;​
 +Док.Записать();​
 +Док.ДокументОснование = Док.Ссылка;​
 +Док.ВидДокумента = ВидДока;​
 +
 +Шаблон = АСП_Функции.НайтиШаблон(Док.Ссылка,​ ВидДока);​
 +Если НЕ Шаблон = Неопределено Тогда
 + ЗаполнитьЗначенияСвойств(Док,​ Шаблон);​
 +КонецЕсли;​
 +
 +Док.ПолучитьФорму().ЗаполнитьПоВходящему(Обработка,​ ДанныеСертификата);​
 +Док.Записать();​
 +</1c>