Лучшие комментарии
Остальные комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
На что готовы люди, только лишь бы не читать справку, вот же давно (с 8.3.7) имеется из коробки это вот все.
Если что, СериализаторXDTO - не то что от вас будут ожидать в большинстве случаев.
Если с кемт интегрируетесь, лучше действовать через стандартную сериализацию, а для ссылок и сложных объектов там в конструкторе можно указать функцию преобразования в примитивы.
Если с кемт интегрируетесь, лучше действовать через стандартную сериализацию, а для ссылок и сложных объектов там в конструкторе можно указать функцию преобразования в примитивы.
(6)
Вот вам пример)
Вот вам пример)
Функция СериализоватьJSON(Данные, ФункцияПреобразования = "БыстроJSON") Экспорт
ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
НастройкиСериализации = Новый НастройкиСериализацииJSON();
НастройкиСериализации.СериализовыватьМассивыКакОбъекты = Ложь;
НастройкиСериализации.ФорматСериализацииДаты = ФорматДатыJSON.ISO;
НастройкиСериализации.ВариантЗаписиДаты = ВариантЗаписиДатыJSON.ЛокальнаяДата; // ВариантЗаписиДатыJSON.ЛокальнаяДатаСоСмещением;
ЗаписатьJSON(ЗаписьJSON, Данные, НастройкиСериализации, ФункцияПреобразования, веб_сериализация);
Возврат ЗаписьJSON.Закрыть();
КонецФункции // СериализоватьJSON()
//************************************************************
Функция БыстроJSON(Знач Свойство, Значение, ДополнительныеПараметры, Отказ) Экспорт
// Таблица значений
Если ТипЗнч(Значение) = Тип("ТаблицаЗначений") Тогда
/// TODO: преобразовывать ссылки из таблицы значений одним запросом, чтоб снизить количество обращений к базе данных.
/// ...
// Переведем названия колонок на латиницу
Для Каждого Колонка Из Значение.Колонки Цикл
matchingFieldNames = веб_заявки_повт.matchingFieldNames(, Истина);
ИмяЛат = matchingFieldNames[НРег(Колонка.Имя)];
Колонка.Имя = ?(ИмяЛат=Неопределено, Колонка.Имя, ИмяЛат);
КонецЦикла;
// Преобразуем в массив структур
Возврат ОбщегоНазначения.ТаблицаЗначенийВМассив(Значение);
КонецЕсли;
Возврат XMLСтрока(Значение);
КонецФункции // БыстроJSON()
Показать
(9) нужна была выгрузка на сайт.
1) Принимающая сторона из всех вариантов выбрала мой. Через получение структуры документов и сериализации каждого реквизита отдельно. Да в 99% случаев такой способ менее подходит чем типовые.
2) В процессе гуглинга и поиске на инфостарте про JSON маловато информации. Хотелось запустить тему, устроить holywar. Что бы новички натыкались на эту тему, и черпали для себя новую полезную информацию, в т. ч. и я.
1) Принимающая сторона из всех вариантов выбрала мой. Через получение структуры документов и сериализации каждого реквизита отдельно. Да в 99% случаев такой способ менее подходит чем типовые.
2) В процессе гуглинга и поиске на инфостарте про JSON маловато информации. Хотелось запустить тему, устроить holywar. Что бы новички натыкались на эту тему, и черпали для себя новую полезную информацию, в т. ч. и я.
Табличную часть структуры по другому лучше формировать, н-р:
ТаблицаЗнач = Объект[ТабличнаяЧасть.Имя].Выгрузить();
МассивТабЧасти = Новый Массив;
Для Каждого СтрТЗ Из ТаблицаЗнач Цикл
СтруктураСтр = Новый Структура;
Для Каждого Колонка Из ТаблицаЗнач.Колонки Цикл
Если ТипЗнч(СтрТЗ[Колонка.Имя]) = тип("Число") ИЛИ ТипЗнч(СтрТЗ[Колонка.Имя]) = тип("Дата") ИЛИ ТипЗнч(СтрТЗ[Колонка.Имя]) = тип("Булево") тогда
СтруктураСтр.Вставить(Колонка.Имя, СтрТЗ[Колонка.Имя]);
Иначе
СтруктураСтр.Вставить(Колонка.Имя, Строка(СтрТЗ[Колонка.Имя]));
КонецЕсли;
Если НЕ СтрТЗ[Колонка.Имя] = Неопределено и Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(СтрТЗ[Колонка.Имя])) тогда
СтруктураСтр.Вставить(Колонка.Имя+"Код", СтрТЗ[Колонка.Имя].Код);
ИначеЕсли НЕ СтрТЗ[Колонка.Имя] = Неопределено и Документы.ТипВсеСсылки().СодержитТип(ТипЗнч(СтрТЗ[Колонка.Имя])) тогда
СтруктураСтр.Вставить(Колонка.Имя+"Номер", СтрТЗ[Колонка.Имя].Номер);
КонецЕсли;
КонецЦикла;
МассивТабЧасти.Добавить(СтруктураСтр);
КонецЦикла;
Структура.Вставить(ТабличнаяЧасть.Имя, МассивТабЧасти); Показать
Если нужно выгрузить не только идентификаторы объектов, а дополнительную информацию:
Универсальная функция сериализации:
Кусок результата:
[
{
"Ссылка": {
"Идентификатор": "74dfa437-9eb9-11eb-a2a1-ac1f6b67576f",
"ИмяТипа": "Документ.ВедомостьНаВыплатуЗарплатыВБанк",
"Представление": "Ведомость в банк 0006-000228 от 16.04.2021",
"Дата": "2021-04-16T16:41:34",
"Номер": "0006-000228"
},
"ВерсияДанных": "AAAABAAAAAA=",
"ПометкаУдаления": false,
"Номер": "0006-000228",
"Дата": "2021-04-16T16:41:34",
"Проведен": true,
"ПериодРегистрации": "2021-04-01T00:00:00",
Запрос=Новый Запрос("ВЫБРАТЬ * ИЗ Документ."+СсылкаНаДокумент.Метаданные().Имя+" ГДЕ Ссылка=&Ссылка";
Запрос.УстановитьПараметр("Ссылка", СсылкаНаДокумент);
JSON=ОбъектВСтрокуJSON(ОбщегоНазначения.ТаблицаЗначенийВМассив(Запрос.Выполнить().Выгрузить()));
Универсальная функция сериализации:
Функция ОбъектВСтрокуJSON(Объект) |
|---|
Функция ОбъектВСтрокуJSON(Объект) Экспорт
ЗаписьJSON=Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
ЗаписатьJSON(ЗаписьJSON, Объект,, "ПреобразоватьJSON", ЭТОТМОДУЛЬ);
Возврат ЗаписьJSON.Закрыть()
КонецФункции
Функция ПреобразоватьJSON(Свойство, Значение, ДополнительныеПараметры, Отказ) Экспорт
ТипЗначения=ТипЗнч(Значение);
Если ТипЗначения=Тип("ТаблицаЗначений") Тогда
//Для таблицы значений нужно обратное преобразование с рекурсией
ЗаписьJSON=Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
МассивСтрок=ОбщегоНазначения.ТаблицаЗначенийВМассив(Значение);
ЗаписатьJSON(ЗаписьJSON, МассивСтрок, , "ПреобразоватьJSON", );
ТекстJSON=ЗаписьJSON.Закрыть();
//Преобразуем его обратно в типы 1С
ЧтениеJSON=Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(ТекстJSON);
Возврат ПрочитатьJSON(ЧтениеJSON, Ложь);
ИначеЕсли ТипЗначения=Тип("УникальныйИдентификатор") Тогда
Возврат СокрЛП(Значение);
КонецЕсли;
МдОбъекта=Метаданные.НайтиПоТипу(ТипЗначения);
Если МдОбъекта=Неопределено Тогда
//Это объект простого типа, обработка не требуется
Возврат Значение;
КонецЕсли;
Если Метаданные.Справочники.Содержит(МдОбъекта) Тогда
СтрОбъекта=Новый Структура("Идентификатор,ИмяТипа", СокрЛП(Значение.УникальныйИдентификатор()),МдОбъекта.ПолноеИмя());
Если МдОбъекта.ДлинаКода>0 Тогда
СтрОбъекта.Вставить("Код", Значение.Код);
КонецЕсли;
Если МдОбъекта.ДлинаНаименования>0 Тогда
СтрОбъекта.Вставить("Наименование", Значение.Наименование);
КонецЕсли;
Если МдОбъекта.Иерархический>0 Тогда
СтрОбъекта.Вставить("Родитель", СокрЛП(Значение.Родитель.УникальныйИдентификатор()));
КонецЕсли;
Если МдОбъекта.Владельцы.Количество() и ЗначениеЗаполнено(Значение.Владелец) Тогда
СтрОбъекта.Вставить("Владелец", СокрЛП(Значение.Владелец.УникальныйИдентификатор()));
КонецЕсли;
Возврат СтрОбъекта;
ИначеЕсли Метаданные.Документы.Содержит(МдОбъекта) Тогда
Возврат Новый Структура("Идентификатор,ИмяТипа,Представление,Дата,Номер", СокрЛП(Значение.УникальныйИдентификатор()), МдОбъекта.ПолноеИмя(), СокрЛП(Значение), Значение.Дата, Значение.Номер);
ИначеЕсли Метаданные.Перечисления.Содержит(МдОбъекта) Тогда
//Перечисления в виде имён значений
Если Значение.Пустая() Тогда
Возврат "";
Иначе
Возврат ОбщегоНазначения.ИмяЗначенияПеречисления(Значение);
КонецЕсли;
КонецЕсли;
//Строковое представление и всё
Возврат СокрЛП(Значение);
КонецФункции
Показать |
Кусок результата:
[
{
"Ссылка": {
"Идентификатор": "74dfa437-9eb9-11eb-a2a1-ac1f6b67576f",
"ИмяТипа": "Документ.ВедомостьНаВыплатуЗарплатыВБанк",
"Представление": "Ведомость в банк 0006-000228 от 16.04.2021",
"Дата": "2021-04-16T16:41:34",
"Номер": "0006-000228"
},
"ВерсияДанных": "AAAABAAAAAA=",
"ПометкаУдаления": false,
"Номер": "0006-000228",
"Дата": "2021-04-16T16:41:34",
"Проведен": true,
"ПериодРегистрации": "2021-04-01T00:00:00",
Если уж делать свой велосипед по выгрузке, то стоит учесть:
1) реквизиты составных типов;
2) реквизиты типа перечисления, бизнес-процессы, задачи и ПВХ.
Ну и код причесать, установку значения в структуре вынести в отдельную процедуру
1) реквизиты составных типов;
2) реквизиты типа перечисления, бизнес-процессы, задачи и ПВХ.
Ну и код причесать, установку значения в структуре вынести в отдельную процедуру
Пупупупу... хотел устроить нетиповой обмен между нетиповой бухой и нетиповой зарплатой на Json, но глянул... по трудоемкости то же самое что пилить свой с нуля, или освоить КД, переработав стандартные правила... Доки содержат ссылочные типы, те, в свою очередь, ТЧ, в которых еще типы, еще ТЧ, вложенность многоуровневейшая... А тащить нужно не как здесь - только названия, а вообще все - все - все и на конце преобразовывать в типы базы приемника, проверять анализировать, есть ли такие объекты уже, не поменялись ли свойства этих объектов, принимать решение о замене объектов или свойств объектов... короче, сэкономить не выйдет)))