Пример 1
&НаСервере Процедура ОтправитьДанныеООтмеченныхВхНДПоЗаказам(массивЗаказовСОтметкамиНДВх = Неопределено) МассивЗначений = Новый Массив; Для каждого Заказ Из массивЗаказовСОтметкамиНДВх Цикл МассивЗначений.Добавить(XMLСтрока(Заказ)); КонецЦикла; ЗначениеДляЗаписи = Новый ФиксированныйМассив(МассивЗначений); ЗаписьJSON = Новый ЗаписьJSON; ЗаписьJSON.УстановитьСтроку(); ЗаписатьJSON(ЗаписьJSON, ЗначениеДляЗаписи); СтрокаJSON = ЗаписьJSON.Закрыть(); Данные = Доработки_Сервер.ОтправитьPostЗапросJSON(СтрокаJSON, "incomingndcopyorder"); КонецПроцедуры
Пример 2
Функция allemployeПолучитьВсехСотрудников(Запрос)
Ответ = Новый HTTPСервисОтвет(200);
УстановитьПривилегированныйРежим(Истина);
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ФизическиеЛица.Код КАК FizCode1C,
| ФизическиеЛица.Наименование КАК FizName,
| ФизическиеЛица.ДатаРождения КАК FizBirthday,
| ЛОЖЬ КАК isEmployee,
| ФизическиеЛица.Ссылка КАК FizLink
|ИЗ
| Справочник.ФизическиеЛица КАК ФизическиеЛица
|ГДЕ
| НЕ ФизическиеЛица.ЭтоГруппа
| И НЕ ФизическиеЛица.ПометкаУдаления";
ТЗ = Запрос.Выполнить().Выгрузить();
УстановитьПривилегированныйРежим(Ложь);
массивОбектов = Новый Массив;
Для Каждого Стр Из ТЗ Цикл
структураСтроки = Новый Структура;
структураСтроки.Вставить("FizCode1C");
структураСтроки.Вставить("FizName");
структураСтроки.Вставить("FizBirthday");
структураСтроки.Вставить("isEmployee");
ЗаполнитьЗначенияСвойств(структураСтроки,стр);
массивОбектов.Добавить(структураСтроки);
КонецЦикла;
ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
ЗаписатьJSON(ЗаписьJSON, Новый ФиксированныйМассив(массивОбектов));
СтрокаДляЗапроса = ЗаписьJSON.Закрыть();
Ответ.УстановитьТелоИзСтроки(СтрокаДляЗапроса, КодировкаТекста.UTF8);
Возврат Ответ;
КонецФункции