Необходимо реализовать выгрузку из 1с необходимых данных в формате
json, для отправки их автоматически на http. Со слов постановщика
задачи, на стороне отправки АПИ. Делал ли кто подобно, или делает ли
сейчас? Поделитесь пожалуйста информацией на разработку, для меня
это новое, и ранее я такого не делал.

Пример, запроса отправки

https://zzz.ru/api/set/accruals/?login=ttt&password=qqq123&ccc=[{"tsg_id":1,"objects":[{"apartment_number":"1","month":"2016-11-00","object_type":"квартира","room_number":"","accrual":117.0,"total_debt":231.0}]}]

При вводе в строку браузера, выходит сообщение
message ok!

То есть подобным образом нужно посылать данные из 1с видимо
в таком формате. Подскажите пожалуйста с чего начать
это делать?????

Ранее там был формат .csv, это понятно обмен через текстовый файл, но как реализовывать отправку данных по json ?

Берешь лист бумаги и пишешь: "Прошу уволить меня по собственному желанию. Дата сегодняшняя, подпись - "ЛивингСтар"

Так как я не занимался этим, не понятно с чего начать.

Для начала сформируй текст параметров запроса в формате JSON, ищи в СП по ключевому слову ЗаписьJSON.

(3) ну, в общих модулях разыскиваешь процедуру выгрузка в json. Находишь, пользуешься.

(4) В инете нащел всяких статей на эту тему.
Нужно разбираться.
Текст параметров запроса, это то есть выборка нужных
данных из 1с с формированием их в запрос (1)?
А потом как то нужно его выполнить что бы данные передались
по http?

(6) сделай уже сам что-нибудь раз в жизни

Кто понимает о чем речь, можете сформулировать перечень
действий, для данной разработки? Алгоритм действий,
что бы можно было от него отталкиваться, искать решения,
выполнять.

(0) Надеюсь, ты не за деньги это делаешь...

(8) начальник ИТ обычно как раз деньги получает за формулировки для подчиненных

(8)
1) программно сформировать в 1с нужнные данные, выгрузить их в формат json
2) полученные данные программно отправить по http

на мисте все это есть, тут даже отправка без формирования заголовка запроса - все чисто в одной строке

(6) >Нужно разбираться

Да неужели?

(0)
1. Создаешь http сервис.
2. Публикуешь.
3. Тестишь.
4. Вводишь в опытную эксплуатацию

Если есть скайп или почта, могу выслать пример простейшего сервиса.

тут даже можно тупо самому собрать строку с данными  - ручками , без функций по работе с форматом json, в новой платформе уже есть они

(14) мимо :)

(16)
Почему?

(0) сделаю. пиши. Писали парсеры. Сделаем выгрузку и загрузку сразу.
Контакты на https://subsystems.ru

Есть готовое решение под поставщика ELEVEL

(1) Это прям пример всамделищного запроса?

(17) ему нужно отправить данные, а ты хочешь приемник создавать. плюс он ошибся  - "на стороне отправки АПИ"
былоб АПи - все готово уже было на этапе отправки.
а так есть готовый сервак уже - который принимает по http в нужном формате по АПИ.

вот ему туда надо и скормить данные

Первая ссылка в гугле очень даже хороша http://v8.1c.ru/o7/201410json/index.htm

А вообще формируешь в 1Се массив структур (или соответствий, если там название какого-нибудь поля начинается с цифры) в соответствии с API, потом с помощью объекта ЗаписьJSON кодируешь это все в строку, а потом строку послыаешь с помощью HTTPСодинение и HTTPЗапрос

(20) да

(0) очень хорошая статья на тему
http://xn----1-bedvffifm4g.xn--p1ai/articles/2017-09-07-exchange-with-internet-services/

(22) то что надо ТСу. (24) статья хорошая но ему это не надо пока.

(22) Нужно поразбираться с этой постановкой!

Если в (1) строка http, которая отправляет данные при вызове, нельзя ли в ней менять значения переменных и отправлять?

Не пойму Json зачем?

(27) Тебе это не надо.

(0) Какая платформа? 8-ку желательно апнуть до 8.3.6, чтобы появилась возможность работать через ЗаписьJSON. Иначе скорость будет несильно высокая и будут проблемы с совместимостью.

(27) //Не пойму Json зачем?
затем, что на серваке стоит программа, которая читает этот JSON. Вот и отправляй JSON.
JSON это просто текст.
вот он у тебя в (1)    
[{"tsg_id":1,"objects":[{"apartment_number":"1","month":"2016-11-00","object_type":"квартира","room_number":"","accrual":117.0,"total_debt":231.0}]}]

(27) Ты спрашиваешь нашего разрешения на замену переменных в строке? Конечно даем.
И почему спрашиваешь у нас, зачем твоему поставщику json? Ему виднее наверное.

ТС бы еще спросил "какие данные мне передавать?"

(29) Платформа 8.3.10

что у вас за дохлый релиз?

Скажите, а как этот json связан с тектовой строкой что передается в http ?

(34) это и есть текстовая строка

(34) Передается длиииинная строка.
По сути это массив структур в строчку.

(34) Вот держи код формирования JSON, которым я пользуюсь

#Region Формирование_JSON

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

&НаСервере
Функция СформироватьСтрокуJSONИзМассива(Объект)
    
    СтрокаJSON = "[";
    
    Для каждого Элемент Из Объект Цикл
        СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON(Элемент) + ",";
    КонецЦикла;
    
    Если Прав(СтрокаJSON, 1) = "," Тогда
        СтрокаJSON = Лев(СтрокаJSON, СтрДлина(СтрокаJSON)-1);
    КонецЕсли;
    
    Возврат СтрокаJSON + "]";
    
КонецФункции

&НаСервере
Функция СформироватьСтрокуJSONИзСтруктуры(Объект)
    
    СтрокаJSON = "{";
    
    Для каждого Элемент Из Объект Цикл
        
        Если Элемент.Значение = "" Тогда
            Продолжить;
        КонецЕсли;
        
        СтрокаJSON = СтрокаJSON + """" + Элемент.Ключ + """" + ":";
        
        Если ТипЗнч(Элемент.Значение) = Тип("Строка") Тогда
            //СтрокаJSON = СтрокаJSON + """" + URLEncode(Элемент.Значение) + """";
            СтрокаJSON = СтрокаJSON + """" + КодироватьСтроку(Элемент.Значение, СпособКодированияСтроки.КодировкаURL) + """";
        ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("Число") Тогда
            СтрокаJSON = СтрокаJSON + СтрЗаменить(Строка(Элемент.Значение), Символы.НПП, "");
        ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("Булево") Тогда
            СтрокаJSON = СтрокаJSON + Формат(Элемент.Значение, "БЛ=false; БИ=true");
        ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("Дата") Тогда
            // преобразование в unixtime
            СтрокаJSON = СтрокаJSON + Формат(Элемент.Значение - Дата(1970,1,1,1,0,0), "ЧГ=0");
        ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("Массив") Тогда
            СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON(Элемент.Значение);
        ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("Структура") Тогда
            СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON(Элемент.Значение);
        ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("ТаблицаЗначений") Тогда
            СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON(Элемент.Значение);
        Иначе
            СтрокаJSON = СтрокаJSON + """" + КодироватьСтроку(Строка(Элемент.Значение), СпособКодированияСтроки.КодировкаURL) + """";
        КонецЕсли;
        
        СтрокаJSON = СтрокаJSON + ",";
        
    КонецЦикла;
    
    Если Прав(СтрокаJSON, 1) = "," Тогда
        СтрокаJSON = Лев(СтрокаJSON, СтрДлина(СтрокаJSON)-1);
    КонецЕсли;
    
    Возврат СтрокаJSON + "}";
    
КонецФункции

#EndRegion

(37) все давно в платформе есть уже, и работает стабильнее

(34) Вот чтение

#Region JSON

&НаСервере
Функция ПрочитатьJSONИзФайла(пСтрокаJSON) Экспорт
    
    ЧтениеJSON = Новый ЧтениеJSON;
    ЧтениеJSON.УстановитьСтроку(пСтрокаJSON);
    
    РезультатЧтения = Неопределено;
    СформироватьДерево(ЧтениеJSON, РезультатЧтения);
    
    ЧтениеJSON.Закрыть();    
    
    Возврат РезультатЧтения;
    
КонецФункции

&НаСервере
Процедура СформироватьДерево(ЧтениеJSON, Дерево)
    
    ИмяСвойства = Неопределено;
    
    Пока ЧтениеJSON.Прочитать() Цикл
        TипJSON = ЧтениеJSON.ТипТекущегоЗначения;
        
        Если TипJSON = ТипЗначенияJSON.НачалоОбъекта
        ИЛИ TипJSON = ТипЗначенияJSON.НачалоМассива Тогда
            НовыйОбъект = ?(TипJSON = ТипЗначенияJSON.НачалоОбъекта, Новый Соответствие, Новый Массив);
            
            Если ТипЗнч(Дерево) = Тип("Массив") Тогда
                Дерево.Добавить(НовыйОбъект);
            ИначеЕсли ТипЗнч(Дерево) = Тип("Соответствие") И ЗначениеЗаполнено(ИмяСвойства) Тогда
                Дерево.Вставить(ИмяСвойства, НовыйОбъект);
            КонецЕсли;
            
            СформироватьДерево(ЧтениеJSON, НовыйОбъект);
            
            Если Дерево = Неопределено Тогда
                Дерево = НовыйОбъект;
            КонецЕсли;
        ИначеЕсли TипJSON = ТипЗначенияJSON.ИмяСвойства Тогда
            ИмяСвойства = ЧтениеJSON.ТекущееЗначение;
        ИначеЕсли TипJSON = ТипЗначенияJSON.Число
        ИЛИ TипJSON = ТипЗначенияJSON.Строка
        ИЛИ TипJSON = ТипЗначенияJSON.Булево
        ИЛИ TипJSON = ТипЗначенияJSON.Null Тогда
            Если ТипЗнч(Дерево) = Тип("Массив") Тогда
                Дерево.Добавить(ЧтениеJSON.ТекущееЗначение);
            ИначеЕсли ТипЗнч(Дерево) = Тип("Соответствие") Тогда
                Дерево.Вставить(ИмяСвойства, ЧтениеJSON.ТекущееЗначение);
            КонецЕсли;
        Иначе
            Возврат;
        КонецЕсли;
    КонецЦикла;
    
КонецПроцедуры

#EndRegion

(38) Не всегда срабатывает, если честно. Мне пришлось этот метод использовать.

(40) ну-ну, скажи еще быстрее работает и двойные кавычки в поле обрабатывает

(41) Напиши лучше.

(41) Как мне нужно было так и писалось.

(42) ПрочитатьJSON же

де-то было, ща погодь

на, держи, эти трое преобразовывают структуру в текст JSON. Унутре структуры могут быть другие структуры и массивы. А вот, чо будет, если там таблица окажется или еще что-то - не помню. Наверное всё это дружно скопытится.



// жаль, что нет штатного способа получить из структуры/соответствия текст в формате JSON

Функция ПараметрыЗапросаПреобразоватьСтруктуруВТекст(ПараметрыЗапроса)

    ПараметрыЗапросаТекст = "{ ";
    Для каждого КлючЗначение Из ПараметрыЗапроса Цикл
        
        ТекущийПараметрТекст = """"+КлючЗначение.Ключ+"""";
        
        ЗначениеJSON = ПараметрыЗапросаПреобразоватьЗначениеВТекст(КлючЗначение.Значение);
        
        ПараметрыЗапросаТекст = ПараметрыЗапросаТекст + ТекущийПараметрТекст + " : "+ ЗначениеJSON + Символы.ПС;
        
    КонецЦикла;
    
    ПараметрыЗапросаТекст = СтрЗаменить(СокрЛП(ПараметрыЗапросаТекст), Символы.ПС, ", ");
    
    ПараметрыЗапросаТекст = ПараметрыЗапросаТекст + " }";

    Возврат ПараметрыЗапросаТекст;
    
КонецФункции

Функция ПараметрыЗапросаПреобразоватьЗначениеВТекст(Значение)

    ЗначениеJSON = "null";
    
    ТипЗначения = ТипЗнч(Значение);
    
    Если ТипЗначения = ТИп("Структура") Тогда
        ЗначениеJSON = ПараметрыЗапросаПреобразоватьСтруктуруВТекст(Значение);
    ИначеЕсли ТипЗначения = ТИп("Массив") Тогда
        ЗначениеJSON = ПараметрыЗапросаПреобразоватьМассивВТекст(Значение);
    ИначеЕсли Значение = Неопределено Тогда
        ЗначениеJSON = "null";
    Иначе
        // дату и строку - в кавычки, остальное - нет
        ЗначениеJSON = Формат(Значение, "ЧГ=0; ДФ=yyyy-MM-ddThh:mm:ss; ДП=null; БЛ=false; БИ=true");
        
        ЗавернутьВКавычки = Ложь;
        Если ТипЗначения = Тип("Дата") Тогда
            Если не ЗначениеЗаполнено(Значение) Тогда
                ЗначениеJSON = "null";
            Иначе
                ЗавернутьВКавычки = Истина;
            КонецЕсли;
        ИначеЕсли ТипЗначения = ТИп("Строка") Тогда
            ЗавернутьВКавычки = Истина;
        КонецЕсли;
        
        Если ЗавернутьВКавычки Тогда
            ЗначениеJSON = """"+ЗначениеJSON+"""";
        КонецЕсли;
        
    КонецЕсли;
    
    Возврат ЗначениеJSON;
    
КонецФункции

Функция ПараметрыЗапросаПреобразоватьМассивВТекст(Значение)

    ПараметрыЗапросаТекст = "[ ";
    Для каждого Элемент Из Значение Цикл
        
        ЭлементJSON = ПараметрыЗапроса_ПреобразоватьЗначениеВТекст(Элемент);
        
        ПараметрыЗапросаТекст = ПараметрыЗапросаТекст + ЭлементJSON + Символы.ПС;
        
    КонецЦикла;
    
    ПараметрыЗапросаТекст = СтрЗаменить(СокрЛП(ПараметрыЗапросаТекст), Символы.ПС, ", ");
    
    ПараметрыЗапросаТекст = ПараметрыЗапросаТекст + " ]";

    Возврат ПараметрыЗапросаТекст;    

КонецФункции



А, использовать так:

ТекстЖСОН = ПараметрыЗапросаПреобразоватьСтруктуруВТекст(КакаяТоСтруктураСПотрохами);