Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Вчасно АПИ (интеграция). Авторизация          
Inkognito Подменю пользователя
сообщение 03.08.21, 9:56
Сообщение #1

Ветеран
*******
Группа: Пользователи
Сообщений: 939
Из: Україна
Спасибо сказали: 446 раз
Рейтинг: 13.5

УТП. Необходимо авторизироваться и получить список входящих документов с начала года.
Проблема: непонятно как это корректно сделать.

Токен = "ЗдесьБылТокен";
    ЗаголовокHTTP = Новый Соответствие();
    
    ЗаголовокHTTP.Вставить("Authorization", "Token " + Токен);
    ЗаголовокHTTP.Вставить("X-Vendor-ID", "1C");
    ЗаголовокHTTP.Вставить("Accept", "application/xml");
    
    текст = "https://vchasno.ua/api/v2/incoming-documents?date_created_from=20210101&date_created_to=20210701";

    ЗапросHTTP = Новый HTTPЗапрос(текст, ЗаголовокHTTP);
    
    //Ответ от сервера получим в возвращаемом значении типа HTTPОтвет
    тмпОтвет = ПолучитьИмяВременногоФайла("txt");    
    
    НТТРВчасно = Новый HTTPСоединение("https://vchasno.ua");  //не факт!
    ОтветHTTP = НТТРВчасно.Получить(ЗапросHTTP, тмпОтвет);


Результат:
Ошибка при вызове метода контекста (Получить)
ОтветHTTP = НТТРВчасно.Получить(ЗапросHTTP, тмпОтвет);
по причине:
Ошибка работы с Интернет: Couldn't resolve host name

Vofka Подменю пользователя
сообщение 03.08.21, 10:28
Сообщение #2

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4519 раз
Рейтинг: 3641.2

Цитата(Inkognito @ 03.08.21, 10:56) *
НТТРВчасно = Новый HTTPСоединение("https://vchasno.ua"); 

Тут должен быть только хост, в вашем случае vchasno.ua и какой-то последующий параметр может сказать, что это именно httpS (по умолчанию это http).
Вот, кстати, есть какие-то примеры обработок [необходимо зарегистрироваться для просмотра ссылки]

Сообщение отредактировал Vofka - 03.08.21, 10:36

Inkognito Подменю пользователя
сообщение 03.08.21, 10:49
Сообщение #3

Ветеран
*******
Группа: Пользователи
Сообщений: 939
Из: Україна
Спасибо сказали: 446 раз
Рейтинг: 13.5

Работающий код (может кому пригодится), в качестве примера подключения и получения списка входящих документов:
Пример
Токен = "ЗдесьБылТокен";
ЗаголовокHTTP = Новый Соответствие();

ЗаголовокHTTP.Вставить("Authorization", "Token " + Токен);
ЗаголовокHTTP.Вставить("X-Vendor-ID", "1C");
ЗаголовокHTTP.Вставить("Accept", "application/xml");

текстЗапроса = "/api/v2/incoming-documents?date_created_from=20210101&date_created_to=20210701";

ЗапросHTTP = Новый HTTPЗапрос(текстЗапроса, ЗаголовокHTTP);

тмпОтвет = ПолучитьИмяВременногоФайла("txt");    
Хост = "vchasno.ua";
НТТРВчасно = Новый HTTPСоединение(Хост,,,,,60,Новый ЗащищенноеСоединениеOpenSSL());

ОтветHTTP = НТТРВчасно.Получить(ЗапросHTTP, тмпОтвет);

КодОтвета = ОтветHTTP.КодСостояния;

Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(тмпОтвет);

ФайлОтвета = Новый Файл(тмпОтвет);
Если ФайлОтвета.Существует() Тогда
    ТекстОтвета = Новый ТекстовыйДокумент();
    ТекстОтвета.Прочитать(тмпОтвет,КодировкаТекста.UTF8);
    Если ТекстОтвета.КоличествоСтрок() > 0 Тогда
        ОтветСервера = ТекстОтвета.ПолучитьТекст();    
    КонецЕсли;    
    
    Сообщить(ОтветСервера);
    
    _ЧтениеXML = Новый ЧтениеXML;
    
    Попытка
        _ЧтениеXML.УстановитьСтроку(ОтветСервера);
    Исключение
        ОбщегоНазначения.СообщитьОбОшибке("Неудачная попытка чтения ответа сервиса: "+ОписаниеОшибки(), Отказ);
    КонецПопытки;            
Иначе
    ОбщегоНазначения.СообщитьОбОшибке("Не найден файл ответа сервиса: "+тмпОтвет, Отказ);
КонецЕсли;

Спасибо сказали: Alegzander, Rakish,

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 16.04.24, 16:32
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!