Прошу помощи. Интреграция базы MSSQL и Меркурий через шлюз на Delphi

Имеется производственная компания (база на MS SQL)
Задача написать шлюз на Delphi.
Не могу понять с чего начать... прошу помочь.

Создал проект в Delphi, через WDSL Importer подключил "ApplicationManagementService_v1.4_pilot.wsdl"

получил:
unit ApplicationManagementService_v1;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns, ApplicationManagementService_v11;
type
ApplicationManagementServicePortType = interface(IInvokable)
['{213A10CA-FD9C-F272-69D2-780E0712873A}']
function submitApplicationRequest(const request: submitApplicationRequest): submitApplicationResponse; stdcall;
function receiveApplicationResult(const request: receiveApplicationResultRequest): receiveApplicationResultResponse; stdcall;
end;
function GetApplicationManagementServicePortType(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): ApplicationManagementServicePortType;
.....................

создал кнопку на форме
procedure TForm1.Button1Click(Sender: TObject);
var
ws: ApplicationManagementServicePortType;
begin
ws := GetApplicationManagementServicePortType();
end;

А вот что дальше с этим делать?
Куда вносить APIKey, ServiceID, IssuerID?
Как обратится к серверу и пройти авторизацию?
Как отправить хоть какой то запрос и увидеть ответ от сервера?

Скиньте, пожалуйста, код на Delphi у кого есть.

Интересно, делал ли кто нибудь на Дельфе интеграцию...

сначала нужно сформировать запрос, потом использовать
function submitApplicationRequest(const request: submitApplicationRequest): submitApplicationResponse; stdcall;

и передать этот запрос серверу. получить ответ с applicationid. это для начала.

my.vetrf-forum wrote:Интересно, делал ли кто нибудь на Дельфе интеграцию...

Я сейчас делаю.
Громко матерюсь на невозможность получить изменения справочников городов и нас. пунктов и улиц в городах.

В проекте на Delphi используется "ApplicationManagementService_v1.4_pilot.wsdl".
Подскажите, пожалуйста, как отправить запрос и получить ответ?
Можете скинуть примеры использования функций submitApplicationRequest и receiveApplicationResult?

Jupiter wrote:В проекте на Delphi используется "ApplicationManagementService_v1.4_pilot.wsdl".
Подскажите, пожалуйста, как отправить запрос и получить ответ?
Можете скинуть примеры использования функций submitApplicationRequest и receiveApplicationResult?

и вообще наверное удобнее сначала "руками" тестировать в SOAP UI запросы.
сначала синхронные потренируете (пропроще) - со справочниками -
например в ProductServiceBinding сделаете GetProductChangesList с запросом вида

не забудьте авторизацию добавить.

А потом ассинхронный (например запросите список непогашенных входящих документов в ваш адрес)

через ApplicationManagementServiceBinding - submitApplicationRequest делаете запрос типа такого

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ws="http://api.vetrf.ru/schema/cdm/application/ws-definitions" xmlns:app="http://api.vetrf.ru/schema/cdm/application">
   <soapenv:Header/>
   <soapenv:Body>
      <ws:submitApplicationRequest>
         <ws:apiKey>***</ws:apiKey>
         <app:application>
            <app:serviceId>mercury-g2b.service:2.0</app:serviceId>
            
            <app:issuerId>***</app:issuerId>
            
            <app:issueDate>2017-09-20T18:57:00</app:issueDate>
            <app:data encoding="?">
               
               <soapenv:Envelope xmlns:v2="http://api.vetrf.ru/schema/cdm/mercury/g2b/applications/v2" xmlns:base="http://api.vetrf.ru/schema/cdm/base" xmlns:v21="http://api.vetrf.ru/schema/cdm/mercury/vet-document/v2" xmlns:v22="http://api.vetrf.ru/schema/cdm/dictionary/v2">
                  <soapenv:Header/>
                  <soapenv:Body>
                     <v2:getVetDocumentListRequest>
                        <v2:localTransactionId>?</v2:localTransactionId>
                        <v2:initiator>
                           
                           
                           
                           <v21:login>vestaf-170813</v21:login>
                        </v2:initiator>
                        
                        
                        
                        <base:listOptions>
                           
                           <base:count>1000</base:count>
                           
                           <base:offset>0</base:offset>
                        </base:listOptions>
                        
                        <v21:vetDocumentType>INCOMING</v21:vetDocumentType>
                        
                        
                        <v22:enterpriseGuid>452ff3be-bdda-44f5-853e-35cc0f5e03c8</v22:enterpriseGuid>
                     </v2:getVetDocumentListRequest>
                  </soapenv:Body>
               </soapenv:Envelope>
            </app:data>

</app:application>
      </ws:submitApplicationRequest>
   </soapenv:Body>
</soapenv:Envelope>

тут видно куда APIkey и прочее

В ответе вам придет XML с тегом (если все успешно завершится) <applicationId>84c57445-8f5c-4b5f-88e2-26b82b4fc6f5</applicationId>
по этому ИД запросите результат через

receiveApplicationResult запросом вида

мне кажется когда всю цепочку руками так проделать, поразбираться, то легче дальше будет делать (хоть на дельфи хоть в чем)

WSDL берите из пред. поста - нужно же по версии 2 протокола уже наверное все делать

Пытаюсь отправить запрос для метода getRussianEnterpriseList

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:ws="http://api.vetrf.ru/schema/cdm/cerberus/enterprise/ws-definitions"
xmlns:base="http://api.vetrf.ru/schema/cdm/base"
xmlns:ent="http://api.vetrf.ru/schema/cdm/cerberus/enterprise"
xmlns:ikar="http://api.vetrf.ru/schema/cdm/ikar">
<soapenv:Header/>
<soapenv:Body>
<ws:getRussianEnterpriseListRequest>
<base:listOptions>
<base:count>2</base:count>
<base:offset>0</base:offset>
</base:listOptions>
<ent:enterprise>
<ent:name>***</ent:name>
</ent:enterprise>
</ws:getRussianEnterpriseListRequest>
</soapenv:Body>
</soapenv:Envelope>

В ответ получаю

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
<soapenv:Body>
<soapenv:Fault>
<faultcode>soapenv:Server</faultcode>
<faultstring>BEA-382513: OSB Replace action failed updating variable "body": Error parsing XML: {err}FORG0005: expected exactly one item, got 0 items</faultstring>
<detail>
<con:fault xmlns:con="http://www.bea.com/wli/sb/context">
<con:errorCode>BEA-382513</con:errorCode>
<con:reason>OSB Replace action failed updating variable "body": Error parsing XML: {err}FORG0005: expected exactly one item, got 0 items</con:reason>
<con:location>
<con:path>request-pipeline</con:path>
<con:error-handler>true</con:error-handler>
</con:location>
</con:fault>
</detail>
</soapenv:Fault>
</soapenv:Body>
</soapenv:Envelope>

Подскажите, пожалуйста, что здесь не так?

я тестю на 2й версии

так сработало...
(api.vetrf.ru/schema/platform/services/2.0-RC-last/DictionaryService_v2.0_pilot.wsdl)

Jupiter wrote:Пытаюсь отправить запрос для метода getRussianEnterpriseList
Подскажите, пожалуйста, что здесь не так?

Процедура на Delphi:

Получается запрос:

И ответ:

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
   <SOAP-ENV:Header xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"/>
   <SOAP-ENV:Body xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
      <v2:getRussianEnterpriseListResponse xmlns:bs="http://api.vetrf.ru/schema/cdm/base" xmlns:dt="http://api.vetrf.ru/schema/cdm/dictionary/v2" xmlns:v2="http://api.vetrf.ru/schema/cdm/registry/ws-definitions/v2">
         <dt:enterpriseList count="1" total="318" offset="0">
            <dt:enterprise>
               <bs:uuid>033deb59-6624-bd86-4ebe-113fbdca6e21</bs:uuid>
               <bs:guid>f2b62342-7608-65f8-c10c-e7fd40172fa9</bs:guid>
               <bs:active>true</bs:active>
               <bs:last>true</bs:last>
               <bs:status>200</bs:status>
               <bs:createDate>2014-02-14T10:20:17+04:00</bs:createDate>
               <bs:updateDate>2014-02-14T10:20:17+04:00</bs:updateDate>
               <bs:previous>c90d2b92-d1ff-f535-a830-ff762a813756</bs:previous>
               <dt:name>ООО "МЕТРО Кэш энд Керри"</dt:name>
               <dt:numberList/>
               <dt:address>
                  <dt:country>
                     <bs:guid>74a3cbb1-56fa-94f3-ab3f-e8db4940d96b</bs:guid>
                  </dt:country>
                  <dt:region>
                     <bs:guid>fee76045-fe22-43a4-ad58-ad99e903bd58</bs:guid>
                  </dt:region>
                  <dt:locality>
                     <bs:guid>bebfd75d-a0da-4bf9-8307-2e2c85eac463</bs:guid>
                  </dt:locality>
                  <dt:street>
                     <bs:guid>53ddd15c-5555-4c0a-bcf2-fd0a62aa3e57</bs:guid>
                  </dt:street>
                  <dt:house>100</dt:house>
                  <dt:addressView>Российская Федерация, Ульяновская обл., г. Ульяновск, Урицкого ул., д. 100</dt:addressView>
               </dt:address>
            </dt:enterprise>
         </dt:enterpriseList>
      </v2:getRussianEnterpriseListResponse>
   </SOAP-ENV:Body>
</soapenv:Envelope>

Через ApplicationManagementServiceBinding - submitApplicationRequest на https://api2.vetrf.ru:8002/platform/services/ApplicationManagementService отправляю запрос на создание связи между ХС и предприятием:
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:ws="http://api.vetrf.ru/schema/cdm/application/ws-definitions"
xmlns:app="http://api.vetrf.ru/schema/cdm/application"
xmlns:merc="http://api.vetrf.ru/schema/cdm/mercury/applications"
xmlns:base="http://api.vetrf.ru/schema/cdm/base"
xmlns:com="http://api.vetrf.ru/schema/cdm/argus/common"
xmlns:ent="http://api.vetrf.ru/schema/cdm/cerberus/enterprise"
xmlns:ikar="http://api.vetrf.ru/schema/cdm/ikar">
<soapenv:Header/>
<soapenv:Body>
<ws:submitApplicationRequest>
<ws:apiKey>apikey</ws:apiKey>
<app:application>
<app:serviceId>mercury-g2b.service</app:serviceId>
<app:issuerId>issuerId</app:issuerId>
<app:issueDate>2017-09-10T17:13:00</app:issueDate>
<app:data>
<merc:modifyActivityLocationsRequest>
<merc:localTransactionId>***</merc:localTransactionId>
<merc:initiator>
<com:login>login</com:login>
</merc:initiator>
<merc:modificationOperation>
<ent:type>CREATE</ent:type>
<ent:businessEntity>
<base:guid>issuerId</base:guid>
</ent:businessEntity>
<ent:enterpriseList count="1" total="1" offset="0">
<ent:enterprise>
<base:guid>guid</base:guid>
</ent:enterprise>
</ent:enterpriseList>
</merc:modificationOperation>
</merc:modifyActivityLocationsRequest>
</app:data>
</app:application>
</ws:submitApplicationRequest>
</soapenv:Body>
</soapenv:Envelope>

В ответ на receiveApplicationResult получаю:

<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
<env:Header/>
<env:Body>
<receiveApplicationResultResponse xmlns="http://api.vetrf.ru/schema/cdm/application/ws-definitions">
<application xmlns="http://api.vetrf.ru/schema/cdm/application">
<applicationId>***</applicationId>
<status>REJECTED</status>
<serviceId>mercury-g2b.service</serviceId>
<issuerId>***</issuerId>
<issueDate>2017-09-10T17:13:00.000+03:00</issueDate>
<rcvDate>2017-10-05T16:36:49.000+03:00</rcvDate>
<prdcRsltDate>2017-10-05T16:36:49.000+03:00</prdcRsltDate>
<errors>
<apl:error code="MERC05558" xmlns:apl="http://api.vetrf.ru/schema/cdm/application">Операция не может быть выполнена, так как у пользователя, ответственного за выполнение, отсутствует доступ</apl:error>
</errors>
</application>
</receiveApplicationResultResponse>
</env:Body>
</env:Envelope>

В чем здесь может быть дело? Есть ли в тестовой версии шлюза возможность выполнения данной операции?

В этом? mercury-g2b.service:2.0

В этом http://api.vetrf.ru/schema/platform/services/2.0-RC-last/ams-mercury-g2b.service_v2.0_pilot.wsdl

Имеет ли инициатор с логином, полученным для доступа к тестовому веб-интерфейсу с ролью ХС, право на выполнение ModifyActivityLocationsOperation в тестовой версии шлюза?

Jupiter wrote:
<apl:error code="MERC05558" xmlns:apl="http://api.vetrf.ru/schema/cdm/application">Операция не может быть выполнена, так как у пользователя, ответственного за выполнение, отсутствует доступ</apl:error>

В чем здесь может быть дело? Есть ли в тестовой версии шлюза возможность выполнения данной операции?

Видимо, не нравится логин для initiator. У этого пользователя должны быть права на выполнение операций по api (если другие операции с таким логином уже получались, то права есть, если нет - настраиваются в Ветис.Паспорт https://t2-accounts.vetrf.ru). Еще этот пользователь должен быть от ХС, а не ветврач, т. е. под этим логином можно попасть в веб-интерфейс Меркурий.ХС.

upd
Извините, не видела следующее сообщение про доступ в ХС.

nsnt, спасибо. После изменения прав через Ветис.Паспорт удалось выполнить ModifyActivityLocationsOperation.