---

Процедура ОтправитьДанные() Экспорт

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
     | Номенклатура.Цена КАК UID,
     | Номенклатура.Наименование КАК name
     |ИЗ
     | Справочник.Номенклатура КАК Номенклатура";

    Результат = Запрос.Выполнить();
    Выборка = Результат.Выбрать();

    Массив = Новый Массив;

    Пока Выборка.Следующий() Цикл
        Структура = Новый Структура("UID, name");
        ЗаполнитьЗначенияСвойств(Структура, Выборка);
        Массив.Добавить(Структура);
    КонецЦикла;

    // JSON
    ЗаписьJSON = Новый ЗаписьJSON;
    ЗаписьJSON.УстановитьСтроку();
    ЗаписатьJSON(ЗаписьJSON, Массив);
    СтрокаJSON = ЗаписьJSON.Закрыть();

    // ВАЖНО: внешний сервер!
    Соединение = Новый HTTPСоединение("IP_ДРУГОГО_СЕРВЕРА", 80);
    Соединение.Таймаут = 10;

    ЗапросHTTP = Новый HTTPЗапрос("/hs/sync/post");
    ЗапросHTTP.УстановитьТелоИзСтроки(СтрокаJSON);

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

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