Обмен ›
Универсальная выгрузка данных из 1С 7.7 в JSON ›
#5
10.10.19 9:30
(1)
Грузить своей обработкой. Если кратко, то процесс такой:
&НаКлиенте
Процедура Загрузитьjson(Команда)
ЧтениеJSON = Новый ЧтениеJSON();
ЧтениеJSON.ОткрытьФайл(ЭтаФорма.Объект.файлЗагрузки, "windows-1251");
таб = ПрочитатьJSON(ЧтениеJSON);
ЧтениеJSON.Закрыть();
ЗагрузитьНаСервере (таб);
КонецПроцедуры
&Насервере
процедура ЗагрузитьНаСервере (таб)
Для каждого стр из таб Цикл
если стр.свойство("ссылка") тогда // справочники
если стр.ссылка.TYPE="СправочникСсылка.НормыСписания" тогда
ЗагрузитьНормыСписанияСервер(стр);
иначеесли стр.ссылка.TYPE="СправочникСсылка.Местахранения" тогда
ЗагрузитьМестаХраненияСервер(стр);
//и т.д. для каждого вида, либо если только код+наименование +родитель - одной процедурой
конецесли;
иначеесли стр.свойство("TYPE") тогда // документы
если стр.TYPE="ДокументСсылка.ПриходнаяНакладная" тогда
ЗагрузитьДокументПриходнаяНакладная(стр, "ПриходнаяНакладная");
иначеесли стр.TYPE="ДокументСсылка.РасходнаяНакладная" тогда
// и т.д.
конецесли;
конеццикла;
конецпроцедуры
&Насервере
процедура ЗагрузитьДокументПриходнаяНакладная(стр, вид)
док="";
если не НайтиИЗаполнитьДокумент(стр, вид, док) тогда возврат; конецесли; // тут поиск. По номеру/уиду/как угодно.
шапка = стр.шапка[0];
док.Склад = Справочники.МестаХранения.НайтиПоКоду(шапка.Склад.код);
док.Клиент = Справочники.Контрагенты.НайтиПоКоду(шапка.клиент.код);
док.товары.очистить();
для каждого строка из стр.табличнаячасть цикл
товары = док.товары.Добавить();
товары.товар = справочники.Номенклатура.НайтиПоКоду(строка.Товар.код);
товары.Количество = строка.Количество;
товары.Цена = строка.цена;
товары.Сумма = строка.Сумма;
товары.НДС = строка.НДС;
конеццикла;
ЗаписатьДокумент(стр, док);
конецпроцедуры