Как создать функцию для формирования JSON из табличной части 1С Управление торго

[Odineski]

1с Конфигурация Управление торговлей 10.3 На основании табличной части Товары документа РеализацияТоваровУслуг создать функцию формирующую файл формата json следующего образца{
«OrderNum»:»S128-1-markType»,
«OrderDate»:»2024-06-16T15:08:56″,
«OrderState»:»open»,
«OrderType»:»sale»,
«OrderDesc»:»Адрес, дата\время, тел.»,
«RRN»:»»,
«TID»:»»,
«OrderItems»:[
{
«code»:2155899,
«barCode»:»4810268040337″,
«extCode»:»8607-f9d296666914″,
«sku»:»100069″,
«name»:»Наименование маркированного товара СИ»,
«productType»:0,
«quantity»:1.0,
«value»:20.00,
«discount»:0.00,
«markType»:1,
«tax»:{
«taxRate»:20.00
}
}
],
«prepaymentAmount»:10.00,
«prepPmtDetail»:[
{
«PrepDetailAmount»:10.00,
«PrepDetailMethod»:»Кредит/Рассрочка»
}
],
«currency»:»BYN»,
«totalAmount»:20.00
}

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

Вот пример функции на 1С (Управление торговлей 10.3), которая формирует JSON в нужном формате на основании табличной части Товары документа РеализацияТоваровУслуг.

Функция использует стандартный объект ЗаписьJSON для формирования строки JSON.

1С (Код)

Функция СформироватьJSONПоРеализации(ДокументРеализация) // Создаем объект для записи JSON Запись = Новый ЗаписьJSON; Запись.ЗаписатьНачалоОбъекта(); // Записываем основные поля заказа Запись.ЗаписатьИмя("OrderNum"); Запись.ЗаписатьЗначение(ДокументРеализация.Номер + "-markType"); Запись.ЗаписатьИмя("OrderDate"); // Форматируем дату в ISO 8601 с временем Запись.ЗаписатьЗначение(Формат(ДокументРеализация.Дата, "ДФ=yyyy-MM-ddTHH:mm:ss")); Запись.ЗаписатьИмя("OrderState"); Запись.ЗаписатьЗначение("open"); Запись.ЗаписатьИмя("OrderType"); Запись.ЗаписатьЗначение("sale"); Запись.ЗаписатьИмя("OrderDesc"); // Здесь можно подставить нужное описание, например, адрес и телефон из реквизитов документа Запись.ЗаписатьЗначение("Адрес, дата\время, тел."); Запись.ЗаписатьИмя("RRN"); Запись.ЗаписатьЗначение(""); Запись.ЗаписатьИмя("TID"); Запись.ЗаписатьЗначение(""); // Записываем массив OrderItems Запись.ЗаписатьИмя("OrderItems"); Запись.ЗаписатьНачалоМассива(); Для Каждого СтрокаТовара Из ДокументРеализация.Товары Цикл Запись.ЗаписатьНачалоОбъекта(); // Пример заполнения полей, подставьте свои реквизиты и логику Запись.ЗаписатьИмя("code"); Запись.ЗаписатьЗначение(СтрокаТовара.Номенклатура.Код); // или другой уникальный код Запись.ЗаписатьИмя("barCode"); Запись.ЗаписатьЗначение(СтрокаТовара.Номенклатура.Штрихкод); // если есть Запись.ЗаписатьИмя("extCode"); Запись.ЗаписатьЗначение(""); // если есть внешний код, иначе пусто Запись.ЗаписатьИмя("sku"); Запись.ЗаписатьЗначение(СтрокаТовара.Номенклатура.Код); // или другой идентификатор Запись.ЗаписатьИмя("name"); Запись.ЗаписатьЗначение(СтрокаТовара.Номенклатура.Наименование); Запись.ЗаписатьИмя("productType"); Запись.ЗаписатьЗначение(0); // если есть тип, подставьте Запись.ЗаписатьИмя("quantity"); Запись.ЗаписатьЗначение(СтрокаТовара.Количество); Запись.ЗаписатьИмя("value"); Запись.ЗаписатьЗначение(СтрокаТовара.Сумма / СтрокаТовара.Количество); // цена за единицу Запись.ЗаписатьИмя("discount"); Запись.ЗаписатьЗначение(0.00); // если есть скидка, подставьте Запись.ЗаписатьИмя("markType"); Запись.ЗаписатьЗначение(1); // если есть тип маркировки, подставьте // Вложенный объект tax Запись.ЗаписатьИмя("tax"); Запись.ЗаписатьНачалоОбъекта(); Запись.ЗаписатьИмя("taxRate"); Запись.ЗаписатьЗначение(СтрокаТовара.СтавкаНДС * 100); // например 0.2 -> 20.00 Запись.ЗаписатьКонецОбъекта(); Запись.ЗаписатьКонецОбъекта(); КонецЦикла; Запись.ЗаписатьКонецМассива(); // Преплата Запись.ЗаписатьИмя("prepaymentAmount"); // Пример: сумма предоплаты, можно брать из документа или параметров Запись.ЗаписатьЗначение(10.00); // Массив prepPmtDetail Запись.ЗаписатьИмя("prepPmtDetail"); Запись.ЗаписатьНачалоМассива(); Запись.ЗаписатьНачалоОбъекта(); Запись.ЗаписатьИмя("PrepDetailAmount"); Запись.ЗаписатьЗначение(10.00); Запись.ЗаписатьИмя("PrepDetailMethod"); Запись.ЗаписатьЗначение("Кредит/Рассрочка"); Запись.ЗаписатьКонецОбъекта(); Запись.ЗаписатьКонецМассива(); Запись.ЗаписатьИмя("currency"); Запись.ЗаписатьЗначение("BYN"); // валюта Запись.ЗаписатьИмя("totalAmount"); Запись.ЗаписатьЗначение(ДокументРеализация.СуммаДокумента); Запись.ЗаписатьКонецОбъекта(); Возврат Запись.Закрыть(); КонецФункции

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 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107

Функция СформироватьJSONПоРеализации(ДокументРеализация) // Создаем объект для записи JSON Запись = Новый ЗаписьJSON; Запись.ЗаписатьНачалоОбъекта(); // Записываем основные поля заказа Запись.ЗаписатьИмя("OrderNum"); Запись.ЗаписатьЗначение(ДокументРеализация.Номер + "-markType"); Запись.ЗаписатьИмя("OrderDate"); // Форматируем дату в ISO 8601 с временем Запись.ЗаписатьЗначение(Формат(ДокументРеализация.Дата, "ДФ=yyyy-MM-ddTHH:mm:ss")); Запись.ЗаписатьИмя("OrderState"); Запись.ЗаписатьЗначение("open"); Запись.ЗаписатьИмя("OrderType"); Запись.ЗаписатьЗначение("sale"); Запись.ЗаписатьИмя("OrderDesc"); // Здесь можно подставить нужное описание, например, адрес и телефон из реквизитов документа Запись.ЗаписатьЗначение("Адрес, дата\время, тел."); Запись.ЗаписатьИмя("RRN"); Запись.ЗаписатьЗначение(""); Запись.ЗаписатьИмя("TID"); Запись.ЗаписатьЗначение(""); // Записываем массив OrderItems Запись.ЗаписатьИмя("OrderItems"); Запись.ЗаписатьНачалоМассива(); Для Каждого СтрокаТовара Из ДокументРеализация.Товары Цикл Запись.ЗаписатьНачалоОбъекта(); // Пример заполнения полей, подставьте свои реквизиты и логику Запись.ЗаписатьИмя("code"); Запись.ЗаписатьЗначение(СтрокаТовара.Номенклатура.Код); // или другой уникальный код Запись.ЗаписатьИмя("barCode"); Запись.ЗаписатьЗначение(СтрокаТовара.Номенклатура.Штрихкод); // если есть Запись.ЗаписатьИмя("extCode"); Запись.ЗаписатьЗначение(""); // если есть внешний код, иначе пусто Запись.ЗаписатьИмя("sku"); Запись.ЗаписатьЗначение(СтрокаТовара.Номенклатура.Код); // или другой идентификатор Запись.ЗаписатьИмя("name"); Запись.ЗаписатьЗначение(СтрокаТовара.Номенклатура.Наименование); Запись.ЗаписатьИмя("productType"); Запись.ЗаписатьЗначение(0); // если есть тип, подставьте Запись.ЗаписатьИмя("quantity"); Запись.ЗаписатьЗначение(СтрокаТовара.Количество); Запись.ЗаписатьИмя("value"); Запись.ЗаписатьЗначение(СтрокаТовара.Сумма / СтрокаТовара.Количество); // цена за единицу Запись.ЗаписатьИмя("discount"); Запись.ЗаписатьЗначение(0.00); // если есть скидка, подставьте Запись.ЗаписатьИмя("markType"); Запись.ЗаписатьЗначение(1); // если есть тип маркировки, подставьте // Вложенный объект tax Запись.ЗаписатьИмя("tax"); Запись.ЗаписатьНачалоОбъекта(); Запись.ЗаписатьИмя("taxRate"); Запись.ЗаписатьЗначение(СтрокаТовара.СтавкаНДС * 100); // например 0.2 -> 20.00 Запись.ЗаписатьКонецОбъекта(); Запись.ЗаписатьКонецОбъекта(); КонецЦикла; Запись.ЗаписатьКонецМассива(); // Преплата Запись.ЗаписатьИмя("prepaymentAmount"); // Пример: сумма предоплаты, можно брать из документа или параметров Запись.ЗаписатьЗначение(10.00); // Массив prepPmtDetail Запись.ЗаписатьИмя("prepPmtDetail"); Запись.ЗаписатьНачалоМассива(); Запись.ЗаписатьНачалоОбъекта(); Запись.ЗаписатьИмя("PrepDetailAmount"); Запись.ЗаписатьЗначение(10.00); Запись.ЗаписатьИмя("PrepDetailMethod"); Запись.ЗаписатьЗначение("Кредит/Рассрочка"); Запись.ЗаписатьКонецОбъекта(); Запись.ЗаписатьКонецМассива(); Запись.ЗаписатьИмя("currency"); Запись.ЗаписатьЗначение("BYN"); // валюта Запись.ЗаписатьИмя("totalAmount"); Запись.ЗаписатьЗначение(ДокументРеализация.СуммаДокумента); Запись.ЗаписатьКонецОбъекта(); Возврат Запись.Закрыть(); КонецФункции

Как использовать:

1С (Код)

Документ = Документы.РеализацияТоваровУслуг.НайтиПоНомеру("S128-1", ТекущаяДата()); Если Документ <> Неопределено Тогда JSONСтрока = СформироватьJSONПоРеализации(Документ); // Записать JSONСтрока в файл или использовать по назначению КонецЕсли;

1 2 3 4 5

Документ = Документы.РеализацияТоваровУслуг.НайтиПоНомеру("S128-1", ТекущаяДата()); Если Документ <> Неопределено Тогда     JSONСтрока = СформироватьJSONПоРеализации(Документ);     // Записать JSONСтрока в файл или использовать по назначению КонецЕсли;

—

Объяснение:

— В JSON формируется объект с нужными полями.
— Табличная часть Товары перебирается циклом, для каждой строки формируется объект с нужными полями.
— Для полей, которых нет в типовой конфигурации (например, extCode, markType), нужно подставить свои данные или оставить пустыми.
— Даты форматируются в ISO 8601.
— Суммы и цены берутся из реквизитов строки табличной части.
— Для записи JSON используется стандартный объект ЗаписьJSON, который корректно формирует структуру.

Если нужно, могу помочь адаптировать под конкретные реквизиты вашей конфигурации.

[Автор]

Сообщения