Сообщения, отправленные пользователем: oazis

Народ, а на самом деле, что является сквозным идентификатором?

ПыСы: Народ, а batchID не является тем самым сквозным ID?

https://vetrf.ru/vetrf-forum/posts/list/2145/6855.page#81843
здесь 2 моих поста. Вкратце: при гашении ВСД думал, раз у меня перепродажа то vd:vetInspection заполнять не надо, получил ошибку error code="APLM0007">Wrong application data format. Format validation failed due to XML Schema rules: Element 'decision' not expected. После заполнения секции vd:vetInspection ВСД погасился.

Народ, вопрос снят, я думал что если у меня перепродажа, то vd:vetInspection заполнять не надо.
Однако после заполнения ветки

запрос на гашение прошел

Всем ку!
Гашу ВСД полностью. Пишет ошибку error code="APLM0007">Wrong application data format. Format validation failed due to XML Schema rules: Element 'decision' not expected
Как я понимаю - элемент decision не требуется, убираю элемент, пишет ошибку что блок deliveryFacts не заполнен. XML проверил схемой mercury_g2b_applications_v2.0 - ошибок нет

xmlns:dt="http://api.vetrf.ru/schema/cdm/dictionary/v2"
xmlns:bs="http://api.vetrf.ru/schema/cdm/base"
xmlns:merc="http://api.vetrf.ru/schema/cdm/mercury/g2b/applications/v2"
xmlns:apldef="http://api.vetrf.ru/schema/cdm/application/ws-definitions"
xmlns:apl="http://api.vetrf.ru/schema/cdm/application"
xmlns:vd="http://api.vetrf.ru/schema/cdm/mercury/vet-document/v2"
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
<SOAP-ENV:Header/>
<SOAP-ENV:Body>
    <apldef:submitApplicationRequest>
      <apldef:apiKey>ххх</apldef:apiKey>
      <apl:application>
        <apl:serviceId>mercury-g2b.service:2.0</apl:serviceId>
        <apl:issuerId>a1e8c6ad-8c6a-4f87-a7a7-aa25564446dd</apl:issuerId>
        <apl:issueDate>2019-07-04T18:01:30</apl:issueDate>
        <apl:data>
          <merc:processIncomingConsignmentRequest>
            <merc:localTransactionId>46B1FEC0-703B-4650-8C92-058BAFB86CAF</merc:localTransactionId>
            <merc:initiator>
              <vd:login>ххх</vd:login>
            </merc:initiator>
            <merc:delivery>
              <vd:deliveryDate>2019-07-04T18:01:30</vd:deliveryDate>
<vd:consignor>
	<dt:businessEntity>
		<bs:uuid>66a0b29e-3c34-4ab7-9917-f7bfd586cba5</bs:uuid>
		<bs:guid>9b64d557-fddf-4e75-b758-820adda51107</bs:guid>
	</dt:businessEntity>
	<dt:enterprise>
		<bs:uuid>b3cf9d35-713d-49f9-ab11-1d68884393c1</bs:uuid>
		<bs:guid>dd77a94d-1af8-4096-9b3c-2ba2a952a4ba</bs:guid>
	</dt:enterprise>
</vd:consignor>
<vd:consignee>
	<dt:businessEntity>
		<bs:uuid>952da0c0-cf5e-410b-bc15-58bc7eeea3e8</bs:uuid>
		<bs:guid>a1e8c6ad-8c6a-4f87-a7a7-aa25564446dd</bs:guid>
	</dt:businessEntity>
	<dt:enterprise>
		<bs:uuid>fe4aa054-0d42-4942-8e21-e465f293a9d5</bs:uuid>
		<bs:guid>ab6dad81-e57c-4219-ac60-3bc3c5f2bbb4</bs:guid>
	</dt:enterprise>
</vd:consignee>
              <vd:consignment>
                <vd:productType>2</vd:productType>
<vd:product>
	<bs:uuid>86f43269-e031-a9b7-fb70-c90ff2f191ab</bs:uuid>
	<bs:guid>64c7e27e-b999-c027-aa19-bb94269fcae9</bs:guid>
</vd:product>
<vd:subProduct>
	<bs:uuid>ff01e1e2-3c64-0ea1-3032-fdd83fb2b6c3</bs:uuid>
	<bs:guid>1d1b35b8-3b00-3ef4-661b-40cda8ba8555</bs:guid>
</vd:subProduct>
<vd:productItem>
	<bs:uuid>ba5a218c-a0c1-4084-bb4f-dcb7293dca08</bs:uuid>
	<bs:guid>589afd7e-0adb-4004-bbcf-196236c9e365</bs:guid>
	<dt:globalID>14607065371071</dt:globalID>
	<dt:name>Kitekat курочка аппетит 10*800г</dt:name>
	<dt:code>10132065</dt:code>
</vd:productItem>
                <vd:volume>24</vd:volume>
<vd:unit>
	<bs:uuid>069792f0-053d-11e1-99b4-d8d385fbc9e8</bs:uuid>
	<bs:guid>21ed96c9-337b-4a27-8761-c6e6ad3c9f5b</bs:guid>
</vd:unit>
<vd:dateOfProduction>
	<vd:firstDate>
		<dt:year>2019</dt:year>
		<dt:month>5</dt:month>
		<dt:day>27</dt:day>
	</vd:firstDate>
</vd:dateOfProduction>
<vd:expiryDate>
	<vd:firstDate>
		<dt:year>2020</dt:year>
		<dt:month>8</dt:month>
		<dt:day>23</dt:day>
	</vd:firstDate>
</vd:expiryDate>
                <vd:batchID>922A1NOV05</vd:batchID>
                <vd:perishable>false</vd:perishable>
                <vd:origin>
<vd:country>
	<bs:uuid>72a84b51-5c5e-11e1-b9b7-001966f192f1</bs:uuid>
	<bs:guid>74a3cbb1-56fa-94f3-ab3f-e8db4940d96b</bs:guid>
	<dt:name>Российская Федерация</dt:name>
</vd:country>
<vd:producer>
	<dt:enterprise>
		<bs:uuid>6a2b1b38-9706-470f-abbe-660a96019ad5</bs:uuid>
		<bs:guid>25183918-9d3b-4710-bf82-0a176191c07b</bs:guid>
	</dt:enterprise>
	<dt:role>PRODUCER</dt:role>
</vd:producer>
                </vd:origin>
                <vd:lowGradeCargo>false</vd:lowGradeCargo>
              </vd:consignment>
<vd:transportInfo>
	<vd:transportType>1</vd:transportType>
	<vd:transportNumber>
		<vd:vehicleNumber>М548ТХ174</vd:vehicleNumber>
		<vd:trailerNumber>ВР233974</vd:trailerNumber>
	</vd:transportNumber>
</vd:transportInfo>
              <vd:transportStorageType>VENTILATED</vd:transportStorageType>
              <vd:accompanyingForms>
                <vd:waybill>
                  <vd:issueNumber>ПГПГ-228389</vd:issueNumber>
                  <vd:issueDate>2019-07-04</vd:issueDate>
                  <vd:type>1</vd:type>
                </vd:waybill>
                <vd:vetCertificate>
                  <bs:uuid>3cf2c3d9-3af8-4c85-a895-ffb131b49b4e</bs:uuid>
                </vd:vetCertificate>
              </vd:accompanyingForms>
            </merc:delivery>
            <merc:deliveryFacts>
              <vd:vetCertificatePresence>ELECTRONIC</vd:vetCertificatePresence>
              <vd:docInspection>
                <vd:responsible>
                  <vd:login>ххх</vd:login>
                </vd:responsible>
                <vd:result>CORRESPONDS</vd:result>
              </vd:docInspection>
              <vd:decision>ACCEPT_ALL</vd:decision>
            </merc:deliveryFacts>
          </merc:processIncomingConsignmentRequest>
        </apl:data>
      </apl:application>
    </apldef:submitApplicationRequest>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Всем Ку
Наверно не я первый, поражаюсь бредовости функции погашения ВСД.
Ведь есть ID ВСД, зачем перечислять в запросе гашения всякий шлак типа транспортной информации или инфы о товаре?
Складывается подозрение что разрабы не дружат с принципами нормализации данных...

всем привет. Чет устал я парится с нэймСпэйсами стандартными методами TXMLDocument.
Понимаю что это не вполне профессионально, но вобщем решил переформатировать XML с неймСпэйсами в обычный

Поделитесь кто как разбирает XML в Delphi

вобщем получил нормальный ответ на запрос
сначала ошибка была

MERC31369 Инициатор, ответственный за выполнение операции, с указанным идентификатором не найден в реестре РСХН, либо идентификатор не соответствует установленному формату.

но не разобрался сразу с реквизитами доступа

Может кому понадобится

issuerId - идентификатор ХС ГУИД
enterpriseGuid - площадка, её можно получить в вебМорде нажав на зеленую стрелку слева (Выбор обслуживаемого предприятия)
login - логин с которым захожу в вебМорду

oazis wrote:Народ, товарищи (по несчастью) !!!
Если вам попадется такая хрень
<apl:error xmlns:apl="http://api.vetrf.ru/schema/cdm/application" code="APLM0002">Unsupported application data format</apl:error>
читайте тему тут
https://vetrf.ru/vetrf-forum/posts/list/8179.page

PS: короче, по не знанию всяко бился лбом в стену, пока не нашел что использовал не верный пример.
Суть была в не правильном использовании версии АПИ.
Взял правильный пример тут, вроде заработало.
http://help.vetrf.ru/wiki/GetVetDocumentListOperation_v2.0

Народ, товарищи (по несчастью) !!!
Если вам попадется такая хрень

читайте тему тут
https://vetrf.ru/vetrf-forum/posts/list/8179.page

PS: короче, по не знанию всяко бился лбом в стену, пока не нашел что использовал не верный пример.
Суть была в не правильном использовании версии АПИ.
Взял правильный пример тут, вроде заработало.
http://help.vetrf.ru/wiki/GetVetDocumentListOperation_v2.0

"я стар, я очень стар, я просто СУПЕР СТАР!!! шутка конечно ..." (с) Гоблин

Короче, у меня получилось запихнуть ручной сложный XML запрос, почти с первого разу

создал глобальный slRequest : TStringList;
пихаю в него вручную запрос типа как в примере http://help.vetrf.ru/wiki/GetVetDocumentListOperationForVetControl#.D0.9E.D0.B1.D1.8A.D0.B5.D0.BA.D1.82_getVetDocumentListRequest .
В RioBeforeExecute проверяю не пустой ли slRequest и подсовываю вместо штатного, как описано выше ....
запрос ушел без ошибки, получил applicationId.
После обеда запрошу ответ ...

serg882 wrote:

oazis wrote:возвращаюсь к теме
запрос продукта по его GUID
хохма в том что на сайте написано

Операция GetProductByGuid предназначена для получения актуальной версии записи продукции по её глобальному идентификатору

что вводит в заблуждение. Почитав исходники нашел что сам товар надо грузить функцией GetProductItemByGuid

В Меркурии есть тип продукта (1 уровень), продукт (2 уровень), субпродукт (3 уровень) и номенклатура производителей (4 уровень номенклатуры). Для каждого уровня свой запрос (кроме 1 уровня).

Спасибо камрад!!! , просто у меня некому проконсультировать, я сам себе и постановщик задачи и кодер и ещё должен во всей ветеринарии разобраться ...

Ну вот, добрался я и до сложного. Для начала решил сделать getVetDocumentListRequest, но какая то хрень, то ли руки у меня кривые, то ли дельфа не вкуривает ВСДЛ правильно.
Но не понимаю как в обертку submitApplicationRequest передать getVetDocumentListRequest. В примерах видел прямое присвоение
типа такого

Но в моем ВСДЛ getVetDocumentListRequest не является членом ApplicationDataWrapper

Скажу прямо, подзатрахался, и решил для начала просто грузануть готовый XML. Для этого, чтоб не ломать общий подход, решил влезть в RIO
и подсунуть свой XML на момент передачи штатно созданного.

На справочнике подход отработал, завтра буду ковырять сложный запрос.

procedure TSDIAppForm.RioBeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
  SS: TStringStream;
  sTmp : TStringList;
begin
  sTmp := TStringList.Create;
  sTmp.Add('<?xml version="1.0"?><SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><SOAP-ENV:Body><getUnitChangesListRequest ');
  sTmp.Add('xmlns="http://api.vetrf.ru/schema/cdm/registry/ws-definitions/v2"><listOptions xmlns="http://api.vetrf.ru/schema/cdm/base">');
  sTmp.Add('<count>1000</count><offset>0</offset></listOptions><updateDateInterval xmlns="http://api.vetrf.ru/schema/cdm/base"><beginDate>2000-12-01T00:00:00.000+05:00</beginDate><endDate>2019-05-01T00:00:00.000+06:00</endDate>');
  sTmp.Add('</updateDateInterval></getUnitChangesListRequest></SOAP-ENV:Body></SOAP-ENV:Envelope>');

SS := TStringStream.Create('');
  try
    SS.LoadFromStream(SOAPRequest);
    Memo1.Lines.Add('---BeforeExecute---');
    Memo1.Lines.Add(SS.DataString);

Memo1.Lines.Add('---BeforeExecute 22222222---');

SOAPRequest.Position := 0;
    SOAPRequest.size := length(sTmp.Text);
    sTmp.SaveToStream(SOAPRequest);

SS.LoadFromStream(SOAPRequest);
    Memo1.Lines.Add(SS.DataString);
  finally
    SS.Free;
    sTmp.Free;
  end;
end;

Самое обидное что в МС Студио ВСДЛ въезжает более корректно. Но блин нет сил вникать в подробности разработки на C#.

возвращаюсь к теме
запрос продукта по его GUID
хохма в том что на сайте написано

Операция GetProductByGuid предназначена для получения актуальной версии записи продукции по её глобальному идентификатору

что вводит в заблуждение. Почитав исходники нашел что сам товар надо грузить функцией GetProductItemByGuid

Запрос ед.изм. GetUnitChangesList

procedure TSDIAppForm.Button4Click(Sender: TObject);
var
  i, j : Integer;
  UnitChangesListRequest : getUnitChangesListRequest;
  UnitChangesListResponse : getUnitChangesListResponse;

ES : DictionaryServicePortType;
begin
//    function  GetUnitChangesList(const request: getUnitChangesListRequest): getUnitChangesListResponse; stdcall;
  UnitChangesListRequest := getUnitChangesListRequest.Create;  //создаем объект запроса
  UnitChangesListResponse := getUnitChangesListResponse.Create; //создаем объект ответа

// для разборок кто есть кто в объектах полезно покликать по типам свойств и в общих чертах усвоить
  UnitChangesListRequest.listOptions := DictionaryService_v2.listOptions.Create;
  UnitChangesListRequest.listOptions.count := TXSDecimal.Create;
  UnitChangesListRequest.listOptions.count.DecimalString := '1000';
  UnitChangesListRequest.listOptions.offset := TXSDecimal.Create;
  UnitChangesListRequest.listOptions.offset.DecimalString := '0';
  UnitChangesListRequest.updateDateInterval := DictionaryService_v2.updateDateInterval.Create;
  UnitChangesListRequest.updateDateInterval.beginDate := TXSDateTime.Create;
  UnitChangesListRequest.updateDateInterval.beginDate.AsDateTime:=StrToDate('01.12.2000');
  UnitChangesListRequest.updateDateInterval.endDate := TXSDateTime.Create;
  UnitChangesListRequest.updateDateInterval.endDate.AsDateTime:=StrToDate('01.05.2019');

ES := GetDictionaryServicePortType(); //сам интерфейс доступа soap

UnitChangesListResponse := ES.GetUnitChangesList(UnitChangesListRequest); //ну и функция загрузки справочника
  //для написания обработчика загружаю полученный XML в любой редактор XML чтоб получить его в виде таблицы
  //удобно видеть свойства и иерархию

j := 0;
  for i := 0 to UnitChangesListResponse.unitList.total-1 do begin
    if UnitChangesListResponse.unitList.unit_[i].active then begin
      inc(j);
      Memo2.Lines.Add(UnitChangesListResponse.unitList.unit_[i].guid+' '+UnitChangesListResponse.unitList.unit_[i].fullName);
    end;

end;
  Memo2.Lines.Add(IntToStr(j));

UnitChangesListRequest.Free;
  UnitChangesListResponse.Free;

end;

Народ, всем привет. Понимаю что тема заезжена, но может кому пригодится, да и я может что спрошу когда.
Вобщем думал отстали от меня по меркурию, ан нет, пришлось гальванизировать трупик.

Начал с того что поставил RAD 10.2, до того (год назад) пользовался Delphi 7, но как говорят там криво работает
Зашел в "component", "импорт wsdl" и загрузил всё что есть по ссылке с офф-сайта АПИ 2.0
Для начала пишу загрузку справочников. Взял модуль DictionaryService_v2 и немного подпилил его для упрощения работы.
Жестко зашил логин пароль и приделал обработчик для РИО в функции
GetDictionaryServicePortType

было:

стало:

далее сами обработчики, для контроля обмена XML, расположены в основной форме: