Заполнение входящего сертификата: различия между версиями

Материал из База знаний АО АСП
Перейти к навигации Перейти к поиску
Новая страница: «====== Заполнение входящего сертификата данными из Меркурия ====== Вариант: <1c> // На входе: // ГУИД входящего сертификата // Организация - наш поднадзорный Обработка = АСП_Общие.ПолучитьОбъектОбработки(); Обработка.ЗапроситьДанныеСертификата(ГУИД, Организаци...»
 
Нет описания правки
 
(не показаны 3 промежуточные версии этого же участника)
Строка 2: Строка 2:


Вариант:
Вариант:
<1c>
<syntaxhighlight lang='1c'>
// На входе:
// На входе:
// ГУИД входящего сертификата
// ГУИД входящего сертификата
Строка 29: Строка 29:
Док.ПолучитьФорму().ЗаполнитьПоВходящему(Обработка, ДанныеСертификата);
Док.ПолучитьФорму().ЗаполнитьПоВходящему(Обработка, ДанныеСертификата);
Док.Записать();
Док.Записать();
</1c>
</syntaxhighlight>
[[Category:Отрывки]]
 
<vote type=1 />

Текущая версия от 13:04, 2 апреля 2025

Заполнение входящего сертификата данными из Меркурия

Вариант:

// На входе:
// ГУИД входящего сертификата
// Организация - наш поднадзорный

Обработка = АСП_Общие.ПолучитьОбъектОбработки();
Обработка.ЗапроситьДанныеСертификата(ГУИД, Организация);
ДанынеСертификата = Обработка.ДанныеСертификата;

ВидДока = Справочники.АСП_ВидыДокументов1С.НайтиПоНаименованию("Поступление").Ссылка;

Док = Документы.АСП_ВетеринарныйДокумент.СоздатьДокумент();
Док.Дата = ТекущаяДата();
Док.Организация = Организация;
Док.ВетВрач = Константы.АСП_ОсновнойВетВрач.Получить();
Док.ГУИДВходящегоВСД = Стр.ГУИД;
Док.Записать();
Док.ДокументОснование = Док.Ссылка;
Док.ВидДокумента = ВидДока;

Шаблон = АСП_Функции.НайтиШаблон(Док.Ссылка, ВидДока);
Если НЕ Шаблон = Неопределено Тогда
	ЗаполнитьЗначенияСвойств(Док, Шаблон);
КонецЕсли;

Док.ПолучитьФорму().ЗаполнитьПоВходящему(Обработка, ДанныеСертификата);
Док.Записать();
0.00
(0 голосов)