Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 03:55

Ошибка: Список XDTO

Автор Kerbert, 28 апр 2017, 15:13

0 Пользователей и 1 гость просматривают эту тему.

Kerbert

&НаСервере
Функция ПолучитьСтатусSMS(ПолучателиSMS,ВыдаватьСообщенияОбОшибке = Истина) Экспорт

Результат = Ложь;

// Инициализируем данные
Прокси = ПолучитьПроксиWSDL(ВыдаватьСообщенияОбОшибке);
Если Прокси = Неопределено Тогда
Возврат Результат;
КонецЕсли;

ТипArrayOfLong = Прокси.ФабрикаXDTO.Пакеты.Получить("http://mcommunicator.ru/M2M").Получить("ArrayOfLong");
ArrayOfLong = Прокси.ФабрикаXDTO.Создать(ТипArrayOfLong);

DeliveryInfo = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://mcommunicator.ru/M2M", "DeliveryInfo"));


Для Каждого ПолучательSMS Из ПолучателиSMS Цикл
тчисло= Новый ОписаниеТипов("Число");
IDСообщения = тчисло.Привестизначение(ПолучательSMS.IDСообщения);
ArrayOfLong.long.Добавить(IDСообщения);
КонецЦикла;
// Отправляем и получаем ответ от сервера
ArrayOfMessageStatusWithID = Прокси.GetMessagesStatus(ArrayOfLong,Пользователь, MD5ХешСтрока(Пароль));
// Разбираем структуру ответа
Для Каждого MessageStatusWithID Из ArrayOfMessageStatusWithID.MessageStatusWithID Цикл
ПолучательSMS.СтатусСообщения = MessageStatusWithID.Delivery.DeliveryInfo;
ПолучательSMS.СтатусДействия = MessageStatusWithID.Delivery.DeliveryInfo;
Результат = Истина;
КонецЦикла;
Если ВыдаватьСообщенияОбОшибке Тогда
Сообщить(РасшифровкаОтветаСервера(MessageStatusWithID.Delivery.DeliveryInfo).Текст);
КонецЕсли;

Возврат Результат;
КонецФункции // ПолучитьСтатусSMS()

Не пойму почему возникает ошибка.
Но в статус сообщения попадает надпись"Список XDTO".

Anco27

Надо смотреть что в общем массив приходит ArrayOfMessageStatusWithID, и от этого уже плясать

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск