XML JSON преобразователь

11.10.17

Интеграция - Файловый обмен (TXT, XML, DBF), FTP

+19 –1
>
  • Преобразователь.png
  • Настройки.png
Обработка демонстрирует возможность программного преобразования XML в JSON и обратно без подключения внешних модулей.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
XML <-> JSON преобразователь:
.epf 10,50Kb
139 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

Преобразование выполняется полностью средствами 1С, при помощи объектов ЧтениеXML, ЗаписьXML, ЧтениеJSON и ЗаписьJSON, без подключения внешних библиотек. Преобразование учитывает возможность наличия в JSON массивов, значений типа Число, Строка, Булево и возможность наличия атрибутов в XML. Эти параметры настраиваются, все видно на скриншотах.

Все процедуры написаны с инструкцией &НаКлиентеНаСервереБезКонтекста, что позволит использовать их как на клиентской так и на серверной стороне, в общих модулях и на формах. Код открыт.

Обработка не претендует на учет всех возможных случаев и в некоторых сложных ситуациях может приводить к невоспроизводимому результату (преобразование XML->JSON->XML не вернет исходный текст) или приводить к исключению, но все случаи встречавшиеся мне на практике обрабатывает успешно.

Платформа 8.3.9.2233.

Вступайте в нашу телеграмм-группу Инфостарт

+19 –1

См. также

Перенос данных из УПП 1.3 / КА 1.1 в БП 3. Переносятся документы, справочники и начальные остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

50050 руб.

25.02.2015    192613    384    296    

436

SALE! 10%

ED для ERP 2, КА 2, УТ 11, БП 3.0, Розница, УНФ. Новые

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, ERP 2.6, КА 2.5, КА 2.6, УТ 11.5, УТ 11.6, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27633 руб.

12.06.2017    165163    1009    329    

493
Перенос данных и обмен из УТ 10.3 в УТ 11 / КА 2 / ERP 2. Переносятся документы, справочники и остатки

Перенос данных 1C Взаиморасчеты Оптовая торговля Логистика, склад и ТМЦ Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Управленческий учет Платные (руб)

Можно проверить до покупки, оставьте заявку! Воспользовались более 268 компаний! Перенос данных из УТ 10.3 в УТ 11 | из УТ 10.3 в КА 2 | из УТ 10.3 в ERP. Решение для перехода с УТ 10.3. Можно перенести начальные остатки, нормативно-справочную информацию и все возможные документы. При выгрузке можно установить отбор по периоду, организациям и складам.

50200 руб.

24.04.2015    211499    186    254    

303

SALE! 10%

Перенос данных из 1С:УПП 1.3 в ERP 2.6, КА 2.6. Переносятся документы (обороты за период), справочная информация и остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Разработчик 1С:Предприятие 8 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 Бухгалтерский учет Управленческий учет Платные (руб)

Переносите справочную информацию, остатки и документы из УПП 1.3 в ERP 2.6 и КА 2.6 с помощью готовых правил. Переносится более 60 видов документов. Простой интерфейс и понятные настройки.

42000 37800 руб.

24.06.2020    73248    108    35    

113

SALE! 10%

Перенос данных 1С из УПП 1.3 в Бухгалтерию 3.0

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Переносите справочную информацию, остатки и документы из УПП 1.3 в Бухгалтерию 3.0 с помощью готовых правил. Переносится более 50 видов документов. Простой интерфейс и понятные настройки.

42000 37800 руб.

15.12.2021    37179    269    68    

204
Загрузка ГТД в 1С из файлов XML (грузовых таможенных деклараций) из файлов ФТС (Альта софт, Сигма софт, Декларант +)

Операции по ВЭД Файловый обмен (TXT, XML, DBF), FTP Разработчик Бухгалтер 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Россия Бухгалтерский учет Платные (руб)

Федеральная таможенная служба России давно поддерживает унифицированный формат электронных документов для обмена с информационными системами предприятий. xmlns="urn:customs.ru:Information:ExchangeDocuments:". Структура, утвержденная комиссией Таможенного союза. Осталось только сделать загрузку в 1С из этого формата. На выходе - два документа ГТД по импорту и Поступление (акты, накладные) Обработка актуализирована на начало 2026 года (ставка НДС 22%)

24400 руб.

09.08.2016    97905    381    379    

126
ED для УПП, КА 1.1, УТ 10.3

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Россия Платные (руб)

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 3, УНФ 3 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

27572 руб.

18.02.2016    209364    686    559    

566
Перенос данных из УПП 1.3 в ЗУП 3.1 или из КА 1.1 в ЗУП 3.1. Переносятся начальные остатки, обороты и справочная информация

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Разработчик 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Платные (руб)

Правила переноса кадровых и расчетных данных и справочной информации из "1С:УПП1.3" или "1С:КА 1.1" в "1С:ЗУП 3.1 | Разработан в формате КД 2 (правила конвертации данных) | При выгрузке есть фильтр по организациям | Обновляется при выходе новых релизов 1С | Развитие алгоритмов | Расчетные документы переносятся в документ "Перенос данных" | Создаются документы "Начальная штатная расстановка" и "Начальная задолженность по зарплате", переносятся кадровые документы

58000 руб.

29.10.2018    64510    86    137    

83
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. m-rv 987 11.10.17 17:39 Сейчас в теме
Если будут встречаться ошибки преобразования и вы ими захотите поделиться - доводите пжста текст XML/JSON до минимально необходимого для воспроизведения объема перед отправкой, а также указывайте значения настроек при которых они возникли. Не гарантирую, что отвечу всем, но в целом я заинтересован в том, чтобы этот инструмент работал на как можно лучше.
Designer1C; +1 – Ответить
2. kuzyara 2276 18.10.17 13:34 Сейчас в теме 
&НаКлиенте
Функция ПрочитатьXML_(XML)	
	Ветка = Новый Соответствие;
	Значение = "";
	
	Пока XML.Прочитать() Цикл
		ТипУзла = XML.ТипУзла;
		Если ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
			Имя = XML.Имя;
			Временно = Ветка.Получить(Имя);
			Если Временно = Неопределено Тогда
				Ветка.Вставить(Имя, ПрочитатьXML_(XML));
			Иначе
				Если ТипЗнч(Временно) <> Тип("Массив") Тогда
					нз = новый Массив;
					нз.Добавить(Временно);
					Временно = нз;
					нз = "";
					Ветка.Удалить(Имя);
					Ветка.Вставить(Имя, Временно);
				КонецЕсли;
				Временно.Добавить(ПрочитатьXML_(XML));
			КонецЕсли;
		ИначеЕсли ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
			Возврат ?(ЗначениеЗаполнено(Ветка), Ветка, Значение);
		ИначеЕсли ТипУзла = ТипУзлаXML.Текст Тогда
			Значение = Значение + XML.Значение;
			XML.Прочитать(); //Вычитка закрывающего тега
			Возврат Значение;
		КонецЕсли;
	КонецЦикла;
	
	Возврат Ветка;
КонецФункции
Показать


&НаКлиенте
Функция json(Объект)

    Тип = ТипЗнч(Объект);

    Если
                    Тип = Тип("Массив")
            ИЛИ Тип = Тип("СписокЗначений")

            Тогда

            Количество = Объект.Количество();
            Результат = "[";

            Для н = 0 ПО Количество - 1 Цикл
                    Результат = Результат + json(Объект[н]) + ?(н < Количество - 1, ", ", "");
            КонецЦикла;

            Результат = Результат + "]";
            Возврат Результат;

    ИначеЕсли
                    Тип = Тип("Структура")
            ИЛИ Тип = Тип("Соответствие") Тогда
            н = 0;
            Количество = Объект.Количество();
            Результат = "{";

            Для Каждого Пара Из Объект Цикл
                    Результат = Результат + json(Пара.Ключ) + ": " + json(Пара.Значение) + ?(н < Количество - 1, ", ", "");
                    н = н + 1;
            КонецЦикла;
            Результат = Результат + "}";
            Возврат Результат;

    ИначеЕсли Тип = Тип("ЭлементСпискаЗначений") Тогда
            Возврат json(Объект.Значение);

    ИначеЕсли Тип = Тип("Строка") Тогда
            Результат = Объект;

            Результат = СтрЗаменить(Результат, "\",          "\\");
            Результат = СтрЗаменить(Результат, "/",          "\/");
            Результат = СтрЗаменить(Результат, """",         "\""");
            Результат = СтрЗаменить(Результат, Символы.ВК,   "\r");
            Результат = СтрЗаменить(Результат, Символы.Таб,  "\t");
            Результат = СтрЗаменить(Результат, Символы.ПС,   "\n");

            Возврат """" + Результат + """";

    ИначеЕсли Тип = Тип("Число") Тогда
            Возврат Формат(Объект, "ЧРД=.; ЧН=0; ЧГ=0");

    ИначеЕсли Тип = Тип("Булево") Тогда
            Возврат Формат(Объект, "БЛ=false; БИ=true");

    ИначеЕсли Тип = Тип("Дата") Тогда
            Возврат json(Формат(Объект, "ДФ=yyyy-MM-ddThh:mm:ss"));

    ИначеЕсли
                    Объект = Неопределено
            ИЛИ Объект = Null

            Тогда Возврат "null";

    Иначе
            Возврат json(Строка(Объект));

    КонецЕсли;
КонецФункции
Показать


		ЧтениеXML = Новый ЧтениеXML;
		ЧтениеXML.УстановитьСтроку(ТекстXML);
		СоответствиеXML = ПрочитатьXML_(ЧтениеXML);
		
		ТекстJson = json(СоответствиеXML);
bds22; freegman74; vers139; +3 – Ответить
3. Zazamuh 23.07.19 18:16 Сейчас в теме
(2)
СоответствиеXML = ПрочитатьXML_(ЧтениеXML);

ТекстJson = json(СоответствиеXML);


Спасибо дружище!
+ – Ответить
4. agdam_m 6 19.12.19 09:05 Сейчас в теме
Штатными средствами:

ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
ЗаписатьJSON(ЗаписьJSON, СоответствиеXML);
ТекстJson = ЗаписьJSON.Закрыть();
+ – Ответить
5. samoswork 30.03.21 14:54 Сейчас в теме
Вот из-за таких ошибок спутники с орбит сходят... 

Возврат json(Формат(Объект, "ДФ=yyyy-MM-ddThh:mm:ss"));


Переведите региональные установки на 12-часовой формат (AM/PM) и удивитесь результату :)

Чтобы не копать далеко, сразу говорю... не "hh", а "HH"
bds22; Fruktoved; Eillecho; +3 – Ответить
6. MaxS 3151 02.12.22 08:30 Сейчас в теме
Что-то пока не разобрался куда копать
Выгрузил документ 1С в JSON и пытаюсь преобразовать в xml. Обратное преобразование из xml не нужно.
Начало json выглядит так:
{
"#type": "jcfg:DocumentObject.АвансовыйОтчет",
"#value": {
"Ref": "91f310ae-ecd0-11e4-92f1-0050568b35ac",
"DeletionMark": false,
"Date": "2017-04-27T15:28:48",
"Number": "ТД00-000001",

Данная обработка не может это разобрать.
+ – Ответить
7. KPOXOTO3ABP 7 18.06.25 09:49 Сейчас в теме
(6) Уберите символ # из названия тегов
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация