gifts2017

Выгрузка данных из 1C 7.7 в JSON

Опубликовал vpaoli в раздел Обмен - Обмен с другими системами

Платформа  1С Предприятие 7.7, несмотря на ее  кажущуюся архаичность, все еще широко используется, и  подчас возникает необходимость ее связи с  самым различным  ПО  с использованием самых разнообразных методов передачи информации. Недавно меня попросили из 1С 7.7  отдать данные в формате JSON.  Я  поискал  подобные решения и ничего не нашел. Имеющиеся решения  http://infostart.ru/public/198619/  , http://infostart.ru/public/252791/  решают другую задачу -  задачу разбора имеющихся JSON-данных, а все остальное посвящено платформе 1С Предприятие 8.  Поэтому, в этой статье я  предлагаю простую обработку по формированию файлов JSON  для платформы  1С Предприятие 7.7  .

Выгрузка  данных  1С 7.7  в  JSON  реализована в виде обработки, которая запускается из любого кода 1С 7.7 строкой

ОткрытьФорму("Обработка.ВыгрузкаВJSON",ИсходныеДанные)  

В этой обработке в   процедуре ПриОткрытии()  собственно  и формируется  файл JSON в отдельной директории "ВыгрузкиJSON"  каталога информационной базы.

Как показывает практика,  для выгрузки   из 1С 7.7  любых исходных данных достаточно  небольшого числа типов данных таких как   ТаблицаЗначений, Строка, Число, Дата.  Даже сложные вложенные структуры данных   всегда можно представить с помощью одной единственной ТаблицыЗначений.  Ниже представлен простой пример формирования исходных данных для выгрузки в JSON.

ИсходныеДанные = СоздатьОбъект("ТаблицаЗначений"); 
ИсходныеДанные.НоваяКолонка("Ид","Строка",9);
ИсходныеДанные.НоваяКолонка("Наименование,"Строка",100); 
ИсходныеДанные.НоваяКолонка("Детали");
Детали = СоздатьОбъект("ТаблицаЗначений"); 
Детали.НоваяКолонка("ДеталиИд","Строка",9);
Детали.НоваяКолонка("ДеталиНаименование","Строка",25); 
Детали.НоваяКолонка("ДеталиНомер","Строка",9);
// заполнение ИсходныеДанные
ИсходныеДанные.НоваяСтрока();
ИсходныеДанные.Ид = " 78Ц ";
ИсходныеДанные.Наименование = "Велосипед";

Детали.НоваяСтрока(); 
Детали.ДеталиИд = " CWЦ "; 
Детали.ДеталиНаименование = "Колесо переднее"; 
Детали.ДеталиНомер = "N12345";
ИсходныеДанные.Детали.Загрузить(Детали);

 

 

Скачать файлы

Наименование Файл Версия Размер
Выгрузка из 1С 7.7 в JSON 17
.ert 23,00Kb
09.09.15
17
.ert 1.0 23,00Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Андрей М (_Z1) 11.09.15 07:34
(0) vpaoli
Скажите а может есть какой либо небольшой пример реального применения subj
2. vpaoli 11.09.15 09:15
Небольшой пример уже представлен в статье - на сайт, написанный к примеру на php ( интернет магазин) выгружается велосипед и его переднее колесо ...
3. Евгений Стоянов (quick) 11.09.15 12:27
(2) vpaoli, у меня работает связка 1с с веб сервисами, правда сайт на python, есть рабочая версия с json классом, есть с get / table.
если будет инетесно, могу выслать. Постить на инфостарте некогда, пока что руки не дошли.
4. vpaoli 11.09.15 16:40
(2) vpaoli, (3) quick, премного благодарен конечно! сейчас наверно не стоит, занят другими делами. но буду помнить и если когда нибудь понадобится , я конечно обращусь ...