Интеграция с 1С

Добрый день, подскажите... добрался таки до отправки заявки транспортной партии.. встретился такой объект:
Объект ..Response/vetDocument/purpose (Идентификатор версии записи в справочнике целей. Обязательность: 1 - обязательно должно быть заполнено одно из плей, либо UUID, либо GUID) не пойму откуда это брать, помогите пож-та!

sayunot wrote:по многочисленным письмам, кидаю пример) дата актуальности - 7.02. как сейчас - не знаю, т.к. писал интеграцию по просьбе - написал, отдал, забыл)
итак:
1. добавляем в конфигу след. пакеты:
- http://api.vetrf.ru/schema/cdm/base
- http://api.vetrf.ru/schema/cdm/application
- http://api.vetrf.ru/schema/cdm/argus/common
- http://api.vetrf.ru/schema/cdm/ikar
- http://api.vetrf.ru/schema/cdm/cerberus/enterprise
- http://api.vetrf.ru/schema/cdm/argus/shipment
- http://api.vetrf.ru/schema/cdm/argus/production
- http://api.vetrf.ru/schema/cdm/mercury/vet-document
- http://api.vetrf.ru/schema/cdm/mercury/applications
- http://schemas.xmlsoap.org/soap/envelope/

2. в пакете http://api.vetrf.ru/schema/cdm/application типы ApplicationDataWrapper и ApplicationResultWrapper делаем открытыми

3. добавляем ws ссылку http://api.vetrf.ru/schema/platform/services/ApplicationManagementService_v1.2.wsdl

4. дальше комменты из обработки:
// получаем определение сервиса и берем из него фабрику // ВетисAPI = http://api.vetrf.ru/schema/platform/services/ApplicationManagementService_v1.2.wsdl ОпределениеWS = WSСсылки.ВетисAPI.ПолучитьWSОпределения(); // создаем врем. фабрику на основе пакетов из конфиги и web сервиса // нам нужны 2 пакета из ws, но пакет с application нужен локальный МассивURI = Новый Массив; МассивURI.Добавить("http://api.vetrf.ru/schema/cdm/application/ws-definitions"); МассивURI.Добавить("http://api.vetrf.ru/schema/cdm/base/ws-definitions"); ФабрикаWS = Новый ФабрикаXDTO(ОпределениеWS.ФабрикаXDTO.ЭкспортМоделиXDTO(МассивURI), ФабрикаXDTO.Пакеты); // добавим 2 пакета, которые нужны, но есть только локально Пакеты = Новый Массив; Пакеты.Добавить(ФабрикаXDTO.Пакеты.Получить("http://api.vetrf.ru/schema/cdm/mercury/applications")); Пакеты.Добавить(ФабрикаXDTO.Пакеты.Получить("http://schemas.xmlsoap.org/soap/envelope/")); Для Каждого Пакет Из ФабрикаWS.Пакеты Цикл Пакеты.Добавить(Пакет); КонецЦикла; // создаем общую фабрику ФабрикаXD = Новый ФабрикаXDTO(, Пакеты); // создаем пробный узел Меркурия, MercuryApplicationRequest. используем теста ради // в реальности на месте этого запроса может (и должен) быть любой другой из этого пакета MercRequestDO = ФабрикаXD.Создать("http://api.vetrf.ru/schema/cdm/mercury/applications", "MercuryApplicationRequest"); // я сразу инициализую все узлы объекта методом, что ниже, имхо там удобнее // ИнициализироватьОбъектXDTO(MercRequestDO, ФабрикаXD); // определяем свойства и их значения для заполнения. // можно, конечно, и напрямую указать для каждого свойства значение, // но т.к. запросы будут разные, проще для каждого составить свое соответствие // и использовать общий метод MercRequestPM = Новый Соответствие; MercRequestPM.Вставить("localTransactionId", вашID); MercRequestPM.Вставить("initiator/login", login); // тож мой локальный метод // ЗаполнитьСвойстваОбъектаXDTO(MercRequestDO, MercRequestPM); // создаем нужный запрос, инициализируем, заполняем свойства SubmitRequestDO = ФабрикаXD.Создать("http://api.vetrf.ru/schema/cdm/application/ws-definitions", "submitApplicationRequest"); ИнициализироватьОбъектXDTO(SubmitRequestDO, ФабрикаXD); SubmitRequestPM = Новый Соответствие; SubmitRequestPM.Вставить("apiKey", apiKey); SubmitRequestPM.Вставить("application/serviceId", "mercury-g2b.service"); SubmitRequestPM.Вставить("application/issuerId", issuerID); SubmitRequestPM.Вставить("application/issueDate", ТекущаяДата()); ЗаполнитьСвойстваОбъектаXDTO(SubmitRequestDO, SubmitRequestPM); // добавляем в блок data mercury request SubmitRequestDO.application.data.Добавить(ФормаXML.Элемент, MercRequestDO.Тип().URIПространстваИмен, "mercuryApplicationRequest", MercRequestDO); // создаем корневой узел, инициализируем EnvelopeDO = ФабрикаXD.Создать("http://schemas.xmlsoap.org/soap/envelope/", "Envelope"); ИнициализироватьОбъектXDTO(EnvelopeDO, ФабрикаXD); // добавляем submitApplicationRequest в блок body и готово!) EnvelopeDO.body.Добавить(ФормаXML.Элемент, SubmitRequestDO.Тип().URIПространстваИмен, "submitApplicationRequest", SubmitRequestDO); // получившийся объект можем выгружать во что угодно и передавать каким угодно способом, например, так: ТелоXML = Новый ЗаписьXML; ТелоXML.УстановитьСтроку("UTF-8"); ФабрикаXD.ЗаписатьXML(ТелоXML, EnvelopeDO); ЗапросWeb = Новый HTTPЗапрос("platform/services/ApplicationManagementService"); ЗапросWeb.УстановитьТелоИзСтроки(ТелоXML.Закрыть()); СоединениеWeb = Новый HTTPСоединение("api2.vetrf.ru", 8002, login, password,,Истина); ОтветWeb = СоединениеWeb.ОтправитьДляОбработки(ЗапросWeb); Если (ОтветWeb.КодСостояния = 200) Тогда // значит, все ок // десериализуем ОтветXML = Новый ЧтениеXML; ОтветXML.УстановитьСтроку(ОтветWeb.ПолучитьТелоКакСтроку("UTF-8")); MercAppDO = ФабрикаXD.ПрочитатьXML(ОтветXML, EnvelopeDO.Тип()).Body.submitApplicationResponse.application; // возможные статусы: // ACCEPTED Заявка принята. // IN_PROCESS Заявка обрабатывается. // COMPLETED Заявка успешно обработана. // REJECTED Заявка отклонена. Если (MercAppDO.status = "ACCEPTED") Тогда // тут шлем запрос на подтверждение КонецЕсли; КонецЕсли;

Вопрос откуда брать вашID в 35 строке

toliman wrote:

Вопрос откуда брать вашID в 35 строке

http://help.vetrf.ru/wiki/%D0%92%D0%B5%D1%82%D0%B8%D1%81.API#.D0.9F.D1.80.D0.B5.D0.B4.D0.BE.D1.81.D1.82.D0.B0.D0.B2.D0.BB.D0.B5.D0.BD.D0.B8.D0.B5_.D0.B4.D0.BE.D1.81.D1.82.D1.83.D0.BF.D0.B0

Login: *****
Password: *****
APIKey: ************************************************************************
ServiceID: mercury-g2b.service
IssuerID: *************************
Эти данные мне прислали после заявки, где здесь вашID

toliman wrote:Login: *****
Password: *****
APIKey: ************************************************************************
ServiceID: mercury-g2b.service
IssuerID: *************************
Эти данные мне прислали после заявки, где здесь вашID

тьфу, я невнимательно прочитал Ваш вопрос - ваш ИД вы генерите самостоятельно, уникальный для каждой заявки, я из 1С использую код
Новый УникальныйИдентификатор

Спасибо

Хочу печатать ветеринарную справку из 1С - все поля есть возможность получить из Ветис.API, кроме
номера ВСД. Кто-нибудь печатает ВСД из 1С? В каком виде печатаете?

forest wrote:Хочу печатать ветеринарную справку из 1С - все поля есть возможность получить из Ветис.API, кроме
номера ВСД. Кто-нибудь печатает ВСД из 1С? В каком виде печатаете?

печатаю в сокращенном виде, без номера, всё остальное как в Меркурии.

Может кто скинуть определение процедуры ИнициализироватьОбъектXDTO?

lalex23 wrote:

forest wrote:Хочу печатать ветеринарную справку из 1С - все поля есть возможность получить из Ветис.API, кроме
номера ВСД. Кто-нибудь печатает ВСД из 1С? В каком виде печатаете?

печатаю в сокращенном виде, без номера, всё остальное как в Меркурии.

QR-штрихкод печатаете?

forest wrote:QR-штрихкод печатаете?

конечно, как без него, у меня печ форма идентична той что выходит из Меркурия, просто отсутствует Номер ВСД - не получить его пока никак

toliman wrote:Может кто скинуть определение процедуры ИнициализироватьОбъектXDTO?

каждый пишет её в меру своей извращённой логики, лично у меня она рекурсивная , в неё передаётся структура запроса и определяются все нужные поля, вам она особо не поможет

toliman wrote:

- http://schemas.xmlsoap.org/soap/envelope/

Последний пакет, это творение автора? как я понял

не помню где взял его я, но работает:

<xs:schema xmlns:tns="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xs="http://www.w3.org/2001/XMLSchema" targetNamespace="http://schemas.xmlsoap.org/soap/envelope/" attributeFormDefault="unqualified" elementFormDefault="qualified">
	<xs:attribute name="actor" type="xs:anyURI"/>
	<xs:attribute name="encodingStyle" type="tns:encodingStyle"/>
	<xs:element name="Body" type="tns:Body"/>
	<xs:element name="Fault" type="tns:Fault"/>
	<xs:attribute name="mustUnderstand">
		<xs:simpleType>
			<xs:restriction base="xs:boolean">
				<xs:pattern value="0|1"/>
			</xs:restriction>
		</xs:simpleType>
	</xs:attribute>
	<xs:element name="Envelope" type="tns:Envelope"/>
	<xs:element name="Header" type="tns:Header"/>
	<xs:complexType name="Body">
		<xs:sequence>
			<xs:any namespace="##any" processContents="lax" minOccurs="0" maxOccurs="unbounded"/>
		</xs:sequence>
		<xs:anyAttribute namespace="##any" processContents="lax"/>
	</xs:complexType>
	<xs:complexType name="Envelope">
		<xs:sequence>
			<xs:element name="Header" type="tns:Header" minOccurs="0"/>
			<xs:element name="Body" type="tns:Body"/>
			<xs:any namespace="##any" processContents="lax" minOccurs="0" maxOccurs="unbounded"/>
		</xs:sequence>
		<xs:anyAttribute namespace="##any" processContents="lax"/>
	</xs:complexType>
	<xs:complexType name="Fault">
		<xs:sequence>
			<xs:element name="faultcode" type="xs:QName"/>
			<xs:element name="faultstring" type="xs:string"/>
			<xs:element name="faultactor" type="xs:anyURI" minOccurs="0"/>
			<xs:element name="detail" type="tns:detail" minOccurs="0"/>
		</xs:sequence>
	</xs:complexType>
	<xs:complexType name="Header">
		<xs:sequence>
			<xs:any namespace="##any" processContents="lax" minOccurs="0" maxOccurs="unbounded"/>
		</xs:sequence>
		<xs:anyAttribute namespace="##any" processContents="lax"/>
	</xs:complexType>
	<xs:complexType name="detail">
		<xs:sequence>
			<xs:any namespace="##any" processContents="lax" minOccurs="0" maxOccurs="unbounded"/>
		</xs:sequence>
		<xs:anyAttribute namespace="##any" processContents="lax"/>
	</xs:complexType>
	<xs:simpleType name="encodingStyle">
		<xs:list itemType="xs:anyURI"/>
	</xs:simpleType>
</xs:schema>

сохраните в текст с расширением xsd и импортируйте

сделал, с таким никто не сталкивался {ВнешняяОбработка.ОбменСМеркурием.Форма.Форма.Форма(72)}: Значение не является значением объектного типа (Добавить)
SubmitRequestDO.application.data.Добавить(ФормаXML.Элемент, MercRequestDO.Тип().URIПространстваИмен, "mercuryApplicationRequest", MercRequestDO);

toliman wrote:сделал, с таким никто не сталкивался {ВнешняяОбработка.ОбменСМеркурием.Форма.Форма.Форма(72)}: Значение не является значением объектного типа (Добавить)
SubmitRequestDO.application.data.Добавить(ФормаXML.Элемент, MercRequestDO.Тип().URIПространстваИмен, "mercuryApplicationRequest", MercRequestDO);

Объект XDTO data не проинициализирован, вестимо.