JSON в 1С: Полное руководство для бухгалтеров и специалистов по 1С

ПРИМЕР

СКРИПТ ОТПРАВКИ ДАННЫХ В JSON

URL сервера: https://example.com/api
Метод отправки: POST
Формат данных: JSON
Пример данных: {"orderId": 12345, "status": "completed"}

Процедура ОтправитьДанныеJSON(URL, Метод, ДанныеJSON)

Запрос = Новый HTTPЗапрос(URL);
Запрос.УстановитьМетод(Метод);
Запрос.УстановитьТелоИзСтроки(ДанныеJSON, "application/json");
Ответ = Запрос.Выполнить();
Если Ответ.КодСостояния = 200 Тогда
Сообщить("Данные успешно отправлены");
Иначе
Сообщить("Ошибка отправки данных: " + Ответ.КодСостояния);
КонецЕсли;

МЕРЫ ПО ЗАЩИТЕ ЭЛЕКТРОННЫХ ДОВЕРЕННОСТЕЙ

URL API: https://example.com/api/orders
Метод запроса: GET
Параметры запроса: date=2023-01-01
Пример ответа: [{"orderId": 12345, "status": "completed"}, {"orderId": 12346, "status": "pending"}]

Процедура ПолучитьДанныеИзAPI(URL, Параметры)

Запрос = Новый HTTPЗапрос(URL);
Запрос.УстановитьМетод("GET");
Запрос.УстановитьПараметры(Параметры);
Ответ = Запрос.Выполнить();
Если Ответ.КодСостояния = 200 Тогда
ДанныеJSON = Ответ.ПолучитьТелоКакСтроку();
Данные = ПрочитатьJSON(ДанныеJSON);
Для Каждого Заказ Из Данные Цикл
Сообщить("ID заказа: " + Заказ.orderId + ", Статус: " + Заказ.status);
КонецЦикла;
Иначе
Сообщить("Ошибка получения данных: " + Ответ.КодСостояния);
КонецЕсли;

КОНВЕРТАЦИЯ ДАННЫХ В JSON

Функция КонвертироватьВJSON(ТаблицаДокумента)
Результат = Новый Массив;
Для Каждого Строка Из ТаблицаДокумента Цикл
Объект = Новый Структура("Номер, Дата, Сумма");
Объект.Номер = Строка.Номер;
Объект.Дата = Строка.Дата;
Объект.Сумма = Строка.Сумма;
Результат.Добавить(Объект);
КонецЦикла;
Возврат ЗаписатьJSON(Результат);
КонецФункции

Использование функции:
ТаблицаДокумента = Новый ТаблицаДокумента;
// Заполнение таблицы документа
JSONДанные = КонвертироватьВJSON(ТаблицаДокумента);
Сообщить(JSONДанные);