Как реализовать процедуру для внесения денег через кассовый аппарат в 1С?

Процедура ВнесениеНажатие(Элемент)

// 1. Находим кассу
Касса = Справочники.Кассы.НайтиПоРеквизиту(«ИмяКомпьютера», ИмяКомпьютера());
Если Касса = Неопределено Тогда
Сообщить(«Касса не найдена для текущего компьютера!», СтатусСообщения.Важное);
Возврат;
КонецЕсли;

// 2. Формируем URL и JSON
URL = Касса.IPАдресККТ + «/fiscal/bills/registerDeposit/»;
//Сумма = «100.00»; // Замените на Форма.Элементы.ПолеСуммы.Значение
JSONТекст = «{«»amount»»: «»» + Сумма + «»»}»;

// 3. Создаем HTTP-запрос (современный способ для 8.3.17)
Запрос = Новый HTTPЗапрос();
Запрос.АдресРесурса = URL;
Запрос.УстановитьТелоИзСтроки(JSONТекст, КодировкаТекста.UTF8);

// 4. Устанавливаем заголовки
Заголовки = Новый Соответствие;
Заголовки.Вставить(«Content-Type», «application/json; charset=utf-8»);
Запрос.Заголовки = Заголовки;

// 5. Отправляем запрос и обрабатываем ответ
Попытка
Соединение = Новый HTTPСоединение(URL);
Ответ = Соединение.ОтправитьДляОбработки(Запрос);

// Проверяем ответ (универсальный способ для 8.3.17)
Если Ответ.КодСостояния = 200 Тогда
ТекстОтвета = Ответ.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8);
Сообщить(«Успешно: » + ТекстОтвета);
Иначе
ТекстОтвета = Ответ.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8);
Сообщить(«Ошибка HTTP » + Ответ.КодСостояния + «: » + ТекстОтвета);
КонецЕсли;

Исключение
Сообщить(«Ошибка при выполнении запроса: » + ОписаниеОшибки());
КонецПопытки;

КонецПроцедуры