Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[1С:Предприятие 7.7]

1C 7.7 Отправка файла через web service

Елена_В
читатель
офлайн
Дата регистрации: 26.10.2007
Сообщений: 611
Пост №1
 
06.10.2021 10:36

Добрый день, коллеги!
Подскажите, почему возникает ошибка
webservice
Поле агрегатного объекта не обнаружено (ОтправитьдляОбработки)

Текст процедуры

            
Процедура ОтправитьНаВебСервис(ИмяФайлаXML)
            
      HTTP = СоздатьОбъект("Addin.V7HttpReader");
      АдресСайта="http://pfd-app.komus.net:50100/";
      
      Ответ = ""; //В данную переменную получим ответ обработки нашего запроса с сайта
      
      Попытка
            HTTP.Пользователь("***","***");
            HTTP.ОтправитьдляОбработки(АдресСайта, ИмяФайлаXML, 1, Ответ, 2); //Сама команда отправки файла      
      Исключение
            Сообщить(ОписаниеОшибки());
      КонецПопытки;
      
КонецПроцедуры

Елена_В
читатель
офлайн
Дата регистрации: 26.10.2007
Сообщений: 611
Пост №2
 
06.10.2021 10:41

Может быть проблема в неработоспособности вебсервиса?

hlp
читатель
офлайн
Дата регистрации: 27.03.2015
Сообщений: 2
Пост №3
 
07.10.2021 15:56

Елена_В,

Может неработоспособный. По крайней мере при попытке зайти telnet'ом:
telnet имя_вашего_хоста_котрый_мне_запрещено_вставлять_pfd_app_komu­s_net 50100
порт не отвечает


Просто для сведения:

Чаще всего веб сервисы URL имеют сложнее, чем просто имя хоста и порт.

Елена_В
читатель
офлайн
Дата регистрации: 26.10.2007
Сообщений: 611
Пост №4
 
07.10.2021 17:32

Переделала. Но всё равно не работает

      txt = СоздатьОбъект("Текст");
      
      ФайлЗапроса=КаталогИБ()+"test.xml";
      
      ДокXML = СоздатьОбъект("Msxml2.DOMDocument");
      ДокXML.Load(ФайлЗапроса);
      
      Соединение = СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
      
      Соединение.Open("POST","здесь адрес",0);
      Соединение.SetRequestHeader("Authorization Basic", "здесь логин и пароль в Base64");

      Попытка
            Соединение.Send(ДокXML);
            Ответ = Соединение.ResponseText();
            txt.ДобавитьСтроку(Ответ);
            txt.Записать(КаталогИБ()+"response.txt");      
      Исключение
            Сообщить(ОписаниеОшибки());
      КонецПопытки;
      

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация