Json 1c

#Область ОбработчикиКомандФормы
 
&НаКлиенте
Процедура Запрос(Команда)
    ОтветОтСервера = ЗапросКСервисуНаСервере("Организация", "Дата", "НачалоДня", "КонецДня");
КонецПроцедуры
 
#КонецОбласти
 
#Область Сериализация
 
&НаСервереБезКонтекста
Функция СформироватьJSON(Знач Данные)
    ЗаписьJSON = Новый ЗаписьJSON;
    ЗаписьJSON.УстановитьСтроку();
 
    ЗаписатьJSON(ЗаписьJSON, Данные);
 
    Возврат ЗаписьJSON.Закрыть();
КонецФункции
 
#КонецОбласти
 
 
&НаСервереБезКонтекста
Функция ЗапросКСервисуНаСервере(Знач org, Знач Дата, Знач НачалоДня, Знач КонецДня)
    Попытка
        HTTPСоединение = Новый HTTPСоединение("127.0.0.1", 8000,,,, 30);
 
        Заголовки = Новый Соответствие;
        Заголовки.Вставить("Content-Type", "application/json");
 
        HTTPЗапрос = Новый HTTPЗапрос("/tbt/", Заголовки);
        
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ТиповойОстаткиИОбороты.Организация КАК Организация,
        |   ТиповойОстаткиИОбороты.Субконто1 КАК Номенклатура,
        |   ТиповойОстаткиИОбороты.КоличествоНачальныйОстаток КАК КоличествоНачальныйОстаток,
        |   ТиповойОстаткиИОбороты.КоличествоКонечныйОстаток КАК КоличествоКонечныйОстаток,
        |   ТиповойОстаткиИОбороты.СуммаНачальныйОстаток КАК СуммаНачальныйОстаток,
        |   ТиповойОстаткиИОбороты.СуммаКонечныйОстаток КАК СуммаКонечныйОстаток,
        |   ТиповойОстаткиИОбороты.Счет КАК Счет
        |ИЗ
        |   РегистрБухгалтерии.Типовой.ОстаткиИОбороты(&НачалоПериода, &КонецПериода, Период, , Счет = ЗНАЧЕНИЕ(ПланСчетов.Типовой.Товары), , ) КАК ТиповойОстаткиИОбороты";
    
    
            Запрос.УстановитьПараметр("НачалоПериода", НачалоДня(ТекущаяДата()));
            Запрос.УстановитьПараметр("КонецПериода", КонецДня(ТекущаяДата()));
            Запрос.УстановитьПараметр("Период", Дата);
            Результат = Запрос.Выполнить().Выбрать();
            
 
        ДанныеДляОтправки = Новый Массив; // Определение массива
 
        Пока Результат.Следующий() Цикл
            Данные = Новый Структура;
            Данные.Вставить("org",Результат.Организация.Наименование);
            Данные.Вставить("nom",Результат.Номенклатура.Наименование);
            Данные.Вставить("qi_rem",Результат.КоличествоНачальныйОстаток);
            Данные.Вставить("qf_rem",Результат.КоличествоКонечныйОстаток);      
            Данные.Вставить("ai_bal",Результат.СуммаНачальныйОстаток);
            Данные.Вставить("af_bal",Результат.СуммаКонечныйОстаток);
            Данные.Вставить("data", Результат.Дата);
            ДанныеДляОтправки.Добавить(Данные);
        КонецЦикла;
 
        ДанныеJSON = СформироватьJSON(ДанныеДляОтправки);
        HTTPЗапрос.УстановитьТелоИзСтроки(ДанныеJSON, КодировкаТекста.UTF8);
        HTTPОтветОтСервера = HTTPСоединение.ВызватьHTTPМетод("POST", HTTPЗапрос);
        Возврат HTTPОтветОтСервера.ПолучитьТелоКакСтроку();
 
    Исключение
        ЗаписьЖурналаРегистрации("FastAPI", УровеньЖурналаРегистрации.Ошибка,,, ОписаниеОшибки());
    КонецПопытки;
    Возврат Неопределено;
КонецФункции