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 = СтрокаДляОтвета;
|
|
4
Chameleon1980
25.04.19
✎
07:59
|
МСтруктур=Новый Массив;
для каждого Анализы из мЗаказ.МедицинскиеУслуги цикл
мДата = новый Структура;
мДата.Вставить("data", мЗаказ.Ответственный.Наименование);
//Данные из табличной части
мДата.Вставить("analys_code",Анализы.Номенклатура.Артикул);
МСтруктур.Добавить(мДата);
КонецЦикла;
ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
ЗаписатьJSON(ЗаписьJSON, МСтруктур);
|
|