Сформировать запрос для api сбербанка
Пытаюсь сделать интеграцию с api Сбербанка для регистрации заказа. Но немного не понимаю как правильно его отправить) Написал в тех поддержку сбербанка, говорят, что запрос, правильный, думаю, может быть я в 1С что-то не так делаю, что у меня не получается отправить запрос
Вот код:
Вот на этой строчке выдает ошибку
В чем может быть проблема?
Вот код:
ЗаписьJSON = Новый ЗаписьJSON;
тПараметрыJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет, " ", Истина);
ЗаписьJSON.УстановитьСтроку(тПараметрыJSON);
МассивДанныхJSON = Новый Массив;
Строка = Объект.Запасы[0];
Корзина = Новый Структура;
Данные = Новый Структура;
Товар = Новый Структура;
Товар.Вставить("positionId", Строка(Строка.НомерСтроки));
Товар.Вставить("name",Строка.Номенклатура.Наименование);
Количество = Новый Структура;
Количество.Вставить("value",Строка.Количество);
Количество.Вставить("measure",Строка.Номенклатура.ЕдиницаИзмерения.НаименованиеПолное);
Товар.Вставить("quantity",Количество);
Товар.Вставить("itemCurrency","643");
Товар.Вставить("itemCode",Строка.Артикул);
//Товар.Вставить("tax",);
Товар.Вставить("itemPrice",Строка.Сумма); //Сумма
МассивТоваров = Новый Массив;
МассивТоваров.Добавить(Товар);
Данные.Вставить("items", МассивТоваров);
Корзина.Вставить("cartItems",Данные);
ЗаписатьJSON(ЗаписьJSON, Корзина, Новый НастройкиСериализацииJSON);
СтрокаJS = ЗаписьJSON.Закрыть();
Токкен = Справочники.МТД_Константы.НайтиПоРеквизиту("Ключ","ТоккенСбер").Значение;
Попытка
Сайт = "https://3dsec.sberbank.ru";
Ресурс = "/payment/rest/register.do?token="+ Токкен + "&amount="+СтрЗаменить(Строка(Объект.СуммаДокумента)," ","")+"¤cy=643&language=ru&orderNumber="+Строка(Объект.Номер)+"&returnUrl=https://testshop.ru&sessionTimeoutSecs=15400&orderBundle=";
HttpЗапрос = Новый HTTPЗапрос(Ресурс);
HttpЗапрос.Заголовки.Вставить("Content-type", "application/x-www-form-urlencoded");
HttpЗапрос.УстановитьТелоИзСтроки(СтрокаJS);
СайтСоединение = Новый HTTPСоединение(Сайт, ,"claystreet-operator-api" ,"ClayStreet_22!" , , ,Новый ЗащищенноеСоединениеOpenSSL);
HTTPОтвет = СайтСоединение.ОтправитьДляОбработки(HttpЗапрос);
Исключение
Сообщить("Не удалось установить соединение с сервером онлайн-проверки:"
+ Символы.ПС + ИнформацияОбОшибке().Описание, СтатусСообщения.Важное);
Возврат;
КонецПопытки;
ПоказатьСайтСоединение.ОтправитьДляОбработки(HttpЗапрос);
Не удалось установить соединение с сервером онлайн-проверки:
Ошибка при вызове метода контекста (ОтправитьДляОбработки)
Ошибка при вызове метода контекста (ОтправитьДляОбработки)
В чем может быть проблема?
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот