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

// 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 " + Ответ.КодСостояния + ": " + ТекстОтвета);
КонецЕсли;

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

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