Имя: Пароль:
1C
 
Отправить JSON из табличной части
0 ra_
 
25.04.19
07:17
Здравствуйте всем, я хотел бы отправить данные на сайт из документа "Заказ", а в документе есть табличная часть, в одной табличной части документа может быть несколько строк, так вот когда я отправляю данные, то при преобразовании в JSON попадает только первая строка табличной части, как можно сделать так, чтобы каждую строку отправлять по отдельности как новый? помогите пожалуйста.
вот код:

мЗаказ = Заказ.ПолучитьОбъект();
        
    мДата = новый Структура;        
    для каждого Анализы из мЗаказ.МедицинскиеУслуги цикл
        
        мДата.Вставить("data", мЗаказ.Ответственный.Наименование);
        //Данные из табличной части
        мДата.Вставить("analys_code",Анализы.Номенклатура.Артикул);
    КонецЦикла;    
        
    ЗаписьJSON = Новый ЗаписьJSON;
    ЗаписьJSON.УстановитьСтроку();    
    ЗаписатьJSON(ЗаписьJSON, мДата);    
    СтрокаДляОтвета = ЗаписьJSON.Закрыть();
    
   Заголовки = Новый Соответствие;
   Заголовки.Вставить("Content-type", "application/json" );

    Соединение = Новый HTTPСоединение("АДРЕС САЙТА",,,,,,);
    
    
    Запрос = Новый HTTPЗапрос("/TODO",Заголовки);
    Запрос.УстановитьТелоИзСтроки(СтрокаДляОтвета,"CESU-8");    
    Соединение.ОтправитьДляОбработки(Запрос);    
    
    Результат = Соединение.Получить(Запрос);
    КодСостояния = Результат.КодСостояния;
    Реквизит1 = Результат.ПолучитьТелоКакСтроку("CESU-8");
    ТекстJSON = СтрокаДляОтвета;
1 Здравый_смысл
 
25.04.19
07:22
Ты посмотри, что со структурой делаешь. Тупо её в цикле перезаписываешь.
2 Здравый_смысл
 
25.04.19
07:23
Сделай массив структур, его и отправляй.
3 ra_
 
25.04.19
07:29
(2) не могли бы примерно написать пожалуйста
4 Chameleon1980
 
25.04.19
07:59
МСтруктур=Новый Массив;

    для каждого Анализы из мЗаказ.МедицинскиеУслуги цикл
        мДата = новый Структура;        
        мДата.Вставить("data", мЗаказ.Ответственный.Наименование);
        //Данные из табличной части
        мДата.Вставить("analys_code",Анализы.Номенклатура.Артикул);
        МСтруктур.Добавить(мДата);
    КонецЦикла;    

    ЗаписьJSON = Новый ЗаписьJSON;
    ЗаписьJSON.УстановитьСтроку();    
    ЗаписатьJSON(ЗаписьJSON, МСтруктур);
Закон Брукера: Даже маленькая практика стоит большой теории.