Создание JSON строки в 1С программно

&НаСервереБезКонтекста
 
Сообщение = Новый СообщениеПользователю;
 
 // Создать объект записи и записать строковое значение в строку JSON.
Запись = Новый ЗаписьJSON;
Запись.УстановитьСтроку();

    // Выполнить запись значений с помощью объекта записи (Запись).
	//	Записать	начало	корневого	объекта.
	Запись.ЗаписатьНачалоОбъекта();
	//	Записать	имя	свойства	корневого	объекта.
       Запись.ЗаписатьИмяСвойства("Контрагент");
 
          // Записать начало нашего объекта.
          Запись.ЗаписатьНачалоОбъекта();
 
          // Заполнить свойство Код типа Строка.
          Запись.ЗаписатьИмяСвойства("Код");
          Запись.ЗаписатьЗначение("000000013");
 
          // Заполнить свойство Наименование типа Строка.
          Запись.ЗаписатьИмяСвойства("Наименование");
          Запись.ЗаписатьЗначение("ОАО Род");
 
          // Заполнить свойство Телефоны типа Массив.
          // Поэтому после имени свойтва записываем массив, состоящий из значений – строк.
          Запись.ЗаписатьИмяСвойства("Телефоны");
          Запись.ЗаписатьНачалоМассива();
             Запись.ЗаписатьЗначение("8-999-777-55-38");
             Запись.ЗаписатьЗначение("+71112223349");
          Запись.ЗаписатьКонецМассива();
 
          // Заполнить свойство ОбъемПродаж типа Число.
          Запись.ЗаписатьИмяСвойства("ОбъемПродаж");
          Запись.ЗаписатьЗначение(5000);
 
          // Заполнить свойство Поставщик? типа Булево.
          Запись.ЗаписатьИмяСвойства("Поставщик?");
          Запись.ЗаписатьЗначение(Ложь);
 
       // Записать конец нашего объекта.
       Запись.ЗаписатьКонецОбъекта();
 
	//	Записать	конец	корневого	объекта.
	Запись.ЗаписатьКонецОбъекта();
 // Завершить работу с файлом.
СтрокаJSON	=	Запись.Закрыть();

 // Показать результат.
Сообщение.Текст = СтрокаJSON;
Сообщение.Сообщить();

КонецПроцедуры