Как работает процесс асинхронной оплаты через API в 1С?

Если СтрНайти(СокрЛП(Операция), «Продажа») > 0 Тогда
ЭтоВозврат = Ложь;
КоличествоПопыток = 0;
МаксКоличествоПопыток = 250;

//ОплатаПрошлаУспешно = Ложь;

// Шаг 1: Создание платежа
Тип = «/create-payment»;

ТелоJSON = Новый Структура;
ТелоJSON.Вставить(«amount», СуммаКредита);
ТелоЗапроса = «{«;
Для Каждого КлючИЗначение Из ТелоJSON Цикл
ТелоЗапроса = ТелоЗапроса + СтрШаблон(«»»%1″»:%2,», КлючИЗначение.Ключ, Формат(КлючИЗначение.Значение, «ЧЦ=12; ЧДЦ=2; ЧРД=.; ЧГ=0»));
КонецЦикла;
ТелоЗапроса = Лев(ТелоЗапроса, СтрДлина(ТелоЗапроса) — 1) + «}»;

Заголовки = Новый Соответствие;
Заголовки.Вставить(«Content-Type», «application/json»);

Запрос = Новый HTTPЗапрос(Тип, Заголовки);
Запрос.УстановитьТелоИзСтроки(ТелоЗапроса);

Результат = Соединение.ОтправитьДляОбработки(Запрос);

Если Результат.КодСостояния = 200 Тогда
СтрокаДокументаJSON = Результат.ПолучитьТелоКакСтроку();
СтруктураОтвета = фПрочитатьJSON(СтрокаДокументаJSON);

Если СтруктураОтвета.Свойство(«id») Тогда
ИдентификаторОперации = СтруктураОтвета.id;

// Шаг 2: Запускаем проверку статуса
Пока КоличествоПопыток < МаксКоличествоПопыток Цикл // ВАЖНО: Разрешаем прервать цикл клавишами Ctrl+Break, если все зависнет ОбработкаПрерыванияПользователя(); КоличествоПопыток = КоличествоПопыток + 1; Тип = "check_payment_status"; Параметр = СокрЛП(ИдентификаторОперации); Результат = ОтправитьЗапросМКСА(Соединение, Тип, Параметр); Если Результат.КодСостояния = 200 Тогда СтрокаДокументаJSON = Результат.ПолучитьТелоКакСтроку(); СтруктураОтвета = фПрочитатьJSON(СтрокаДокументаJSON); Если СтруктураОтвета.Свойство("status") Тогда Статус = СтруктураОтвета.status; Если Статус = "success" Тогда //ОплатаПрошлаУспешно = Истина; Прервать; ИначеЕсли Статус = "FAILED" Тогда // ... код ошибки ... Сообщение = ?(СтруктураОтвета.Свойство("message"), СтруктураОтвета.message, ""); Сообщить("Оплата не удалась: " + Сообщение, СтатусСообщения.ОченьВажное); Возврат; ИначеЕсли Статус = "UNKNOWN" Тогда // ... код ошибки ... Сообщение = ?(СтруктураОтвета.Свойство("message"), СтруктураОтвета.message, ""); Сообщить("Неизвестный статус: " + Сообщение, СтатусСообщения.ОченьВажное); Возврат; ИначеЕсли Статус = "INITED" Тогда // Меняем статус внизу экрана Состояние("Ожидайте... Проверка статуса (" + КоличествоПопыток + ")"); // Ждем 1 секунду перед следующей попыткой Пауза(1);