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

⇒ 1С ⇐

CISCO

Voice(Asterisk\Cisco)

Microsoft

Powershell

Python

SQL\T-SQL

FreeBSD and Nix

Общая

WEB Разработка

ORACLE SQL \ JAVA

Мото

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

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

1с 8, обмен данными с помощью XML (регистры)

В продолжении статьи 1c_obmen_xml приведем перенос из 1с данных регистра с помощью XML:

ЗаписьXML = Новый ЗаписьXML(); ЗаписьXML.ОткрытьФайл("c:\xml\obmen.xml"); ЗаписьXML.ЗаписатьНачалоЭлемента("Registry"); ЗаписьXML.ЗаписатьНачалоЭлемента("КонтактнаяИнформация"); НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей(); НаборЗаписей.Прочитать(); ЗаписатьXML(ЗаписьXML, НаборЗаписей); ЗаписьXML.ЗаписатьКонецЭлемента(); ЗаписьXML.ЗаписатьКонецЭлемента(); ЗаписьXML.Закрыть();

Импорт осуществляется как и со справочниками:

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

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