Образовательный проект «SnakeProject» Михаила Козлова

⇒ 1С ⇐

CISCO

Voice(Asterisk\Cisco)

Microsoft

Powershell

Python

SQL\T-SQL

FreeBSD and Nix

Общая

WEB Разработка

ORACLE SQL \ JAVA

Мото

Стрельба, пневматика, оружие

Саморазвитие и психология

1с 8, обмен данными с помощью XML

Задача была перенести данные 1с одного справочника из одной базы в другую.

Вариант был выбран с помощью XML.

Создаем в конфигураторах две обработки.

Выгрузка:

Процедура КнопкаВыполнитьНажатие(Кнопка) ЗаписьXML = Новый ЗаписьXML(); ЗаписьXML.ОткрытьФайл("c:\xml\obmen.xml"); ЗаписьXML.ЗаписатьНачалоЭлемента("Spravohniki"); ЗаписьXML.ЗаписатьНачалоЭлемента("Валюты"); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Валюты.Ссылка |ИЗ | Справочник.Валюты КАК Валюты"; РезультатЗапроса = Запрос.Выполнить(); Выборка = РезультатЗапроса.Выбрать(); Пока Выборка.Следующий() Цикл ТекущийСправочник = Выборка.Ссылка.ПолучитьОбъект(); ЗаписатьXML(ЗаписьXML,ТекущийСправочник); КонецЦикла; ЗаписьXML.ЗаписатьКонецЭлемента(); ЗаписьXML.ЗаписатьКонецЭлемента(); ЗаписьXML.Закрыть(); КонецПроцедуры

Загрузка:

Процедура КнопкаВыполнитьНажатие(Кнопка) ЧтениеXML = Новый ЧтениеXML(); ЧтениеXML.ОткрытьФайл("c:\xml\obmen.xml"); Пока ЧтениеXML.Прочитать() Цикл Пока ВозможностьЧтенияXML(ЧтениеXML) Цикл Попытка ТекущийОбъект = ПрочитатьXML(ЧтениеXML); ТекущийОбъект.Записать(); Исключение ТекстОшибки = ОписаниеОшибки(); КонецПопытки КонецЦикла; КонецЦикла; ЧтениеXML.Закрыть(); КонецПроцедуры

В загрузке была использована возможность перехвата исключений, т.к. в моем случае коды справочников были не уникальны.

Комментарии пользователей