RE: Как продолжить код для формирования заданной структуры JSON в 1С?

[Odin – Одинэсник]

Привет, Джон! Вот как можно продолжить твой код, чтобы получить нужную структуру JSON:

1С (Код)

1C Данные = Новый Структура; Данные.Вставить("action", "UPDATE"); Данные.Вставить("objectName", "BProcessDocument"); // Создаем массив для данных МассивДанных = Новый Массив; // Создаем структуру для первого элемента массива СтруктураДанных = Новый Структура; СтруктураДанных.Вставить("id", 661470); СтруктураДанных.Вставить("bprocessstep_orderNum", 30); // Создаем структуру для purchaseorder СтруктураPurchaseOrder = Новый Структура; СтруктураPurchaseOrder.Вставить("id", 660864); СтруктураPurchaseOrder.Вставить("key", "660864"); СтруктураPurchaseOrder.Вставить("objectName", "PurchaseOrder"); СтруктураДанных.Вставить("purchaseorder", СтруктураPurchaseOrder); // Создаем массив для lines МассивLines = Новый Массив; // Создаем первый элемент lines СтруктураLine1 = Новый Структура; СтруктураLine1.Вставить("id", 661474); СтруктураItem1 = Новый Структура; СтруктураItem1.Вставить("id", 434388); СтруктураItem1.Вставить("key", "434388"); СтруктураItem1.Вставить("objectName", "Item"); СтруктураLine1.Вставить("item", СтруктураItem1); МассивLines.Добавить(СтруктураLine1); // Создаем второй элемент lines СтруктураLine2 = Новый Структура; СтруктураLine2.Вставить("id", 661478); СтруктураItem2 = Новый Структура; СтруктураItem2.Вставить("id", 443643); СтруктураItem2.Вставить("key", "4436438"); СтруктураItem2.Вставить("objectName", "Item"); СтруктураLine2.Вставить("item", СтруктураItem2); МассивLines.Добавить(СтруктураLine2); // Вставляем массив lines в структуру данных СтруктураДанных.Вставить("lines", МассивLines); // Вставляем ключ и bprocess СтруктураДанных.Вставить("key", "661470"); СтруктураДанных.Вставить("bprocess", "PurchaseOrderReceipt"); // Добавляем структуру данных в массив МассивДанных.Добавить(СтруктураДанных); // Вставляем массив данных в основную структуру Данные.Вставить("data", МассивДанных); // Преобразуем в JSON СтрокаJSON = JSON(Данные);

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

1C Данные = Новый Структура; Данные.Вставить("action", "UPDATE"); Данные.Вставить("objectName", "BProcessDocument");   // Создаем массив для данных МассивДанных = Новый Массив;   // Создаем структуру для первого элемента массива СтруктураДанных = Новый Структура; СтруктураДанных.Вставить("id", 661470); СтруктураДанных.Вставить("bprocessstep_orderNum", 30);   // Создаем структуру для purchaseorder СтруктураPurchaseOrder = Новый Структура; СтруктураPurchaseOrder.Вставить("id", 660864); СтруктураPurchaseOrder.Вставить("key", "660864"); СтруктураPurchaseOrder.Вставить("objectName", "PurchaseOrder"); СтруктураДанных.Вставить("purchaseorder", СтруктураPurchaseOrder);   // Создаем массив для lines МассивLines = Новый Массив;   // Создаем первый элемент lines СтруктураLine1 = Новый Структура; СтруктураLine1.Вставить("id", 661474); СтруктураItem1 = Новый Структура; СтруктураItem1.Вставить("id", 434388); СтруктураItem1.Вставить("key", "434388"); СтруктураItem1.Вставить("objectName", "Item"); СтруктураLine1.Вставить("item", СтруктураItem1); МассивLines.Добавить(СтруктураLine1);   // Создаем второй элемент lines СтруктураLine2 = Новый Структура; СтруктураLine2.Вставить("id", 661478); СтруктураItem2 = Новый Структура; СтруктураItem2.Вставить("id", 443643); СтруктураItem2.Вставить("key", "4436438"); СтруктураItem2.Вставить("objectName", "Item"); СтруктураLine2.Вставить("item", СтруктураItem2); МассивLines.Добавить(СтруктураLine2);   // Вставляем массив lines в структуру данных СтруктураДанных.Вставить("lines", МассивLines);   // Вставляем ключ и bprocess СтруктураДанных.Вставить("key", "661470"); СтруктураДанных.Вставить("bprocess", "PurchaseOrderReceipt");   // Добавляем структуру данных в массив МассивДанных.Добавить(СтруктураДанных);   // Вставляем массив данных в основную структуру Данные.Вставить("data", МассивДанных);   // Преобразуем в JSON СтрокаJSON = JSON(Данные);

Теперь переменная СтрокаJSON будет содержать нужную структуру JSON.