Помогите с SOAP сервисом

korstin

28.09.16 - 11:16

Есть SOAP-сервис (закрытый), необходимо выполнить запрос

Пример запроса:
<?xml version="1.0" encoding="utf-8"?>
<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"; xmlns:xsd="http://www.w3.org/2001/XMLSchema"; xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">;
  <soap12:Body>
    <BulkSearchByCodes xmlns="http://myurl/soap">;
      <codes>
        <CodeSet>
          <INN>string</INN>
          <KPP>string</KPP>
        </CodeSet>
      </codes>
    </BulkSearchByCodes>
  </soap12:Body>
</soap12:Envelope>

Пример ответа:
<?xml version="1.0" encoding="utf-8"?>
<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"; xmlns:xsd="http://www.w3.org/2001/XMLSchema"; xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">;
  <soap12:Body>
    <BulkSearchByCodesResponse xmlns="http://myurl/soap">;
      <result>
        <data>
          <card>
            ...
          </card>
          <card>
            ...
          </card>
        </data>
        <truncated>boolean</truncated>
      </result>
    </BulkSearchByCodesResponse>
  </soap12:Body>
</soap12:Envelope>

korstin

1 - 28.09.16 - 11:18

WS Ссылку проимпортировал



ВебСсылка = WSСсылки.МояСсылка;

ssl = Новый ЗащищенноеСоединениеOpenSSL();

ВебСервис = ВебСсылка.СоздатьWSПрокси("http://myurl/soap";, "SearchService", "SearchServiceSoap12", , , ssl);

ТипWSПараметра = ВебСервис.ФабрикаXDTO.Пакеты.Получить("http://myurl/soap").Получить("BulkSearchByCodes";);

WSПараметр = ВебСервис.ФабрикаXDTO.Создать(ТипWSПараметра);

ТипArrayOfCodeSet = ВебСервис.ФабрикаXDTO.Тип("http://myurl/soap";, "ArrayOfCodeSet");

ТипCodeSet = ВебСервис.ФабрикаXDTO.Тип("http://myurl/soap";, "CodeSet");



ЗначениеArrayOfCodeSet = ВебСервис.ФабрикаXDTO.Создать(ТипArrayOfCodeSet);    



ЗначениеCodeSet = ВебСервис.ФабрикаXDTO.Создать(ТипCodeSet);

ЗначениеCodeSet.INN = "ааааа";

ЗначениеCodeSet.KPP = "ббббб";

ЗначениеArrayOfCodeSet.CodeSet.Добавить(ЗначениеCodeSet);



ЗначениеCodeSet = ВебСервис.ФабрикаXDTO.Создать(ТипCodeSet);

ЗначениеCodeSet.INN = "ввввв";

ЗначениеCodeSet.KPP = "ггггг"; 

ЗначениеArrayOfCodeSet.CodeSet.Добавить(ЗначениеCodeSet);



WSПараметр.codes = ЗначениеArrayOfCodeSet;

Результат = ВебСервис.BulkSearchByCodes(WSПараметр);

Для Каждого СтрокаДанных Из Результат.data Цикл

    Сообщить(СтрокаДанных);

КонецЦикла;

korstin

2 - 28.09.16 - 11:19

Прошу прощения, последние строки должны быть как

Для Каждого СтрокаДанных Из Результат.data.card Цикл
    Сообщить(СтрокаДанных);
КонецЦикла;

korstin

3 - 28.09.16 - 11:20

Так вот, возвращенных данных нет. Через SoapUI проверил - данные возвращаются с этими параметрами.

Знающие, подскажите, где ошибка и куда копать?

korstin

4 - 28.09.16 - 11:56

Вопрос снят, помог Fiddler

Список тем форума

Рекламное место пустует Рекламное место пустует

Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс

ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.

Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.