Пример записи JSON-документа в 1С программно.
&НаСервереБезКонтекстаПроцедура ПотоковаяЗаписьНаСервере()// Создать объект записи и открыть файл, в который будет выполняться запись. Запись =Новый ЗаписьJSON; Запись.ОткрытьФайл(″c:\temp\streamWrite_2.json″,,,Новый ПараметрыЗаписиJSON(, Символы.Таб));// Выполнить запись значений с помощью объекта записи (Запись).// Записать начало корневого объекта. Запись.ЗаписатьНачалоОбъекта();// Записать имя свойства корневого объекта. Запись.ЗаписатьИмяСвойства(″Контрагент″); // Записать начало нашего объекта. Запись.ЗаписатьНачалоОбъекта(); // Заполнить свойство Код типа Строка. Запись.ЗаписатьИмяСвойства("Код"); Запись.ЗаписатьЗначение("000000018"); // Заполнить свойство Наименование типа Строка. Запись.ЗаписатьИмяСвойства(″Наименование″); Запись.ЗаписатьЗначение("ОАО Родж"); // Заполнить свойство Телефоны типа Массив. // Поэтому после имени свойства записываем массив, состоящий из значений – строк. Запись.ЗаписатьИмяСвойства("Телефоны"); Запись.ЗаписатьНачалоМассива(); Запись.ЗаписатьЗначение("8-999-777-55-66"); Запись.ЗаписатьЗначение("+71112223347"); Запись.ЗаписатьКонецМассива(); // Заполнить свойство ОбъемПродаж типа Число. Запись.ЗаписатьИмяСвойства("ОбъемПродаж"); Запись.ЗаписатьЗначение(50000); // Заполнить свойство Поставщик? типа Булево. Запись.ЗаписатьИмяСвойства(″Поставщик?″); Запись.ЗаписатьЗначение(Ложь); // Записать конец нашего объекта. Запись.ЗаписатьКонецОбъекта();// Записать конец корневого объекта. Запись.ЗаписатьКонецОбъекта();// Завершить работу с файлом. Запись.Закрыть();КонецПроцедуры
Результат:
{
″Контрагент″: {
″Код″: ″000000018″,
″Наименование″: ″ОАО Родж″,
″Телефоны″: [
″8-999-777-55-66″,
″+71112223347″
],
″ОбъемПродаж″: 50000,
″Поставщик?″: false
}
}