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

Обмен данными с мобильным устройством

Автор arendattor, 20 ноя 2019, 21:05

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

arendattor

Есть два фрагмента кода, один в веб сервисе, второй в обработчике команды, надо сделать чтения и запись XML, но чтобы это заработало.
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,ПараметрыВыполненияКоманды)
      ОбработкаКомандыСервер();
КонецПроцедуры
   &НаСервере
  Процедура ОбработкаКомандыСервер()
  Адрес = "http://192.168.0.79/client/ws/ws1.1cws?wsdl";
Определения = Новый WSОпределения(Адрес);
URI = "http://localhost/ws1";
Прокси = Новый  WSПрокси(Определения, URI, "WebОбмен","WebОбменSoap");
СисИнфо = Новый СистемнаяИнформация;
КодМобильногоКомпьютера = Строка(СисИнфо.ИдентификаторКлиента);
//Инициализация (если нужно)
ЦентральныйУзелОбмена = ПланыОбмена.Мобильные.НайтиПоКоду("001");
//Обмен с центральной базой
    ДанныеОбмена = Прокси.ВыполнитьОбмен(КодМобильногоКомпьютера, СформироватьПакетОбмена(ЦентральныйУзелОбмена));

Процедура ЗарегистрироватьИзмененияДанных(УзелОбмена) Экспорт
  СоставПланаОбмена = УзелОбмена.Метаданные().Состав;
  Для каждого ЭлементСоставаПланаОбмена Из СоставПланаОбмена Цикл 
  ПланыОбмена.ЗарегистрироватьИзменения(УзелОбмена,ЭлементСоставаПланаОбмена.Метаданные);  
  КонецЦикла;
КонецПроцедуры

Функция ВыполнитьОбмен(КодУстройства, ДанныеУстройства)
   УстановитьПривилегированныйРежим(Истина);
   //Инициализация (если нужно)
//Получение данных из моб.устройства
    УзелОбмена = ПланыОбмена.Мобильные.НайтиПоКоду(КодУстройства);
Сообщить(КодУстройства);

Теги:

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

Рейтинг@Mail.ru

Поиск