возможностьчтенияxml » Поиск

Результаты по ключевому слову: возможностьчтенияxml

Планы обмена и их использование Категория: Конвертация данных, Обмен, Перенос

Как из одной базы перенести документ в другую базу через XML файл?

Нужно документ РеализацияТоваровУслуг (ссылка на который выбирается в диалоге создаваемой обработки) перенести в другую базу данных. Структура конфигураций идентична. Справочники (и другие сопутствующие объекты) синхронизированы по значениям внутренних идентификаторов.
Для выгрузки потребуется выполнить следующий фрагмент кода:

Код 1C v 8.х

 // Выгрузить в файл xml.

ЗаписьXML = Новый ЗаписьXML();



ЗаписьXML.ОткрытьФайл("c:\doc.xml");

ЗаписьXML.ЗаписатьНачалоЭлемента("Root");



// Получить объект по ссылке.

ВыгружаемыйОбъект = Документ.ПолучитьОбъект();



// С помощью средств сериализации записать объект в файл.

ЗаписатьXML(ЗаписьXML,ВыгружаемыйОбъект);

	

ЗаписьXML.ЗаписатьКонецЭлемента();



ЗаписьXML.Закрыть();

При выгрузке создаем элемент Root исходя из соображений, что в XML-документе должен быть только один корневой узел, а в общем случае (но не в нашем) выгружаться может не один объект.
Для загрузки выгруженного значения используем следующий фрагмент кода:

Код 1C v 8.х

 ЧтениеXML = Новый ЧтениеXML();



ЧтениеXML.ОткрытьФайл("c:\doc.xml");

// Текущим становится элемент Root.

ЧтениеXML.Прочитать();



// Текущим становится элемент с документом.

ЧтениеXML.Прочитать();



// Проверить, сможет ли с данным значением "справиться" система сериализации в данной базе.

Если ВозможностьЧтенияXML(ЧтениеXML) Тогда

	// Получить ДокументОбъект.РеализацияТоваровУслуг.

	ЗагружаемыйОбъект = ПрочитатьXML(ЧтениеXML);

	ЗагружаемыйОбъект.Записать();

КонецЕсли;	



ЧтениеXML.Закрыть();

Категория: XML, DBF, TXT, CSV

Как организовать обмен данными между произвольными конфигурациями?

Код 1C v 8.х

 Процедура Выгрузка(Элемент) 



	Путь = "c:\"; //реальный путь к каталогу, в котором создаются файлы 



	ЗаписьXML = Новый ЗаписьXML(); 

	ЗаписьXML.ОткрытьФайл(Путь + "выгрузка.xml"); 

	Узел = ПланыОбмена.Поставка.НайтиПоКоду("Маг1"); 



	ЗапСообщения = ПланыОбмена.СоздатьЗаписьСообщения(); 

	ЗапСообщения.НачатьЗапись(ЗаписьXML, Узел); 



	Выборка = ПланыОбмена.ВыбратьИзменения(Узел, ЗапСообщения.НомерСообщения); 



	Пока Выборка.Следующий() Цикл 

		Данные = Выборка.Получить(); 



		Если ТипЗнч(Данные) = Тип("ДокументОбъект.РеализацияТоваров") Тогда 

			ВыгрузкаРеализации(ЗаписьXML, Данные); 

	

		Иначе // все остальные объекты 

			ЗаписатьXML(ЗаписьXML, Данные); 

		КонецЕсли; 

	КонецЦикла; 



	ЗапСообщения.ЗакончитьЗапись(); 

	ЗаписьXML.Закрыть(); 



КонецПроцедуры 





Процедура ВыгрузкаРеализации(ЗаписьXML, Документ) 



	ЗаписьXML.ЗаписатьНачалоЭлемента("DocumentObject.ПередачаТовара"); 



	ЗаписатьXML(ЗаписьXML, Документ.Ссылка.УникальныйИдентификатор(), "Ref", НазначениеТипаXML.Явное); 

	ЗаписатьXML(ЗаписьXML, Документ.ПометкаУдаления, "DeletionMark", НазначениеТипаXML.Явное); 

	ЗаписатьXML(ЗаписьXML, Документ.ВалютаДокумента, "ВалютаДокумента", НазначениеТипаXML.Явное); 



	// Остальные свойства документа. 



	// Табличная часть. 

	ЗаписьXML.ЗаписатьНачалоЭлемента("Товары"); 



	Для Каждого ТекСтрока Из Документ.Товары Цикл

		ЗаписьXML.ЗаписатьНачалоЭлемента("Row"); 



		ЗаписатьXML(ЗаписьXML, ТекСтрока.Номенклатура, "Номенклатура", НазначениеТипаXML.Явное); 

		ЗаписатьXML(ЗаписьXML, ТекСтрока.Количество, "Количество", НазначениеТипаXML.Явное); 



		// Остальные реквизиты табличной части. 



		ЗаписьXML.ЗаписатьКонецЭлемента(); 

	КонецЦикла; 



	ЗаписьXML.ЗаписатьКонецЭлемента(); 

	ЗаписьXML.ЗаписатьКонецЭлемента(); 



КонецПроцедуры 





Процедура Загрузка(Элемент) 



	Путь = "c:\"; //реальный путь к каталогу, в котором создаются файлы 



	ЧтениеXML = Новый ЧтениеXML(); 

	ЧтениеXML.ОткрытьФайл(Путь + "выгрузка.xml"); 

	

	ЧтСообщения = ПланыОбмена.СоздатьЧтениеСообщения(); 

	ЧтСообщения.НачатьЧтение(ЧтениеXML); 



	ПланыОбмена.УдалитьРегистрациюИзменений(ЧтСообщения.Отправитель, ЧтСообщения.НомерСообщения); 



	Пока ВозможностьЧтенияДанных(ЧтениеXML) Цикл 

		Данные = ПрочитатьДанные(ЧтениеXML); 

		

		Если РазрешениеКоллизий(Данные) Тогда 

			Данные.ОбменДанными.Отправитель = ЧтСообщения.Отправитель; 

			Данные.ОбменДанными.Загрузка = Истина; 

			Данные.Записать(); 

		КонецЕсли; 

	КонецЦикла; 



	ЧтСообщения.ЗакончитьЧтение(); 

	ЧтениеXML.Закрыть(); 



КонецПроцедуры 





Функция ВозможностьЧтенияДанных(ЧтениеXML) 



	ТипXML = ПолучитьXMLТип(ЧтениеXML); 



	Если ТипXML = Неопределено Тогда 

		Возврат Ложь; 

	КонецЕсли; 



	Если ТипXML.ИмяТипа = "DocumentObject.ПередачаТовара" И ТипXML.URIПространстваИмен = "" Тогда 

		Возврат Истина; 

	КонецЕсли; 



	Возврат ВозможностьЧтенияXML(ЧтениеXML); 



КонецФункции 





Функция ПрочитатьДанные(ЧтениеXML) 



	ТипXML = ПолучитьXMLТип(ЧтениеXML); 

	

	Если ТипXML.ИмяТипа = "DocumentObject.ПередачаТовара" И ТипXML.URIПространстваИмен = "" Тогда 

		Возврат ЧтениеРеализации(ЧтениеXML); 

	КонецЕсли; 



	Возврат ПрочитатьXML(ЧтениеXML); 



КонецФункции 





Функция ЧтениеРеализации(ЧтениеXML) 



	ЧтениеXML.Прочитать(); 



	// Работа со ссылкой документа. 

	ПолученнаяСсылка = ПрочитатьXML(ЧтениеXML); 

	Док = Документы.ПоступлениеТоваров.ПолучитьСсылку(Новый УникальныйИдентификатор(ПолученнаяСсылка)); 



	Документ = Док.ПолучитьОбъект(); 



	Если Документ = Неопределено Тогда 

		Документ = Документы.ПоступлениеТоваров.СоздатьДокумент(); 

		Документ.УстановитьСсылкуНового(Док);

		Документ.Дата = ТекущаяДата; 

		Документ.УстановитьНовыйНомер(); 

	КонецЕсли; 



	Документ.ПометкаУдаления = ПрочитатьXML(ЧтениеXML); 

	Документ.ВалютаДокумента = ПрочитатьXML(ЧтениеXML); 



	// Табличная часть "Товары. 

	// Построчное чтение. 

	ЧтениеXML.Прочитать(); 

	Документ.Товары.Очистить(); 



	Пока ЧтениеXML.Имя = "Row" Цикл 



		// Позиционируемся на узле с номенклатурой. 

		ЧтениеXML.Прочитать(); 

		НоваяСтрока = Документ.Товары.Добавить(); 

		НоваяСтрока.Номенклатура = ПрочитатьXML(ЧтениеXML); 

		НоваяСтрока.Количество = ПрочитатьXML(ЧтениеXML); 



		// Читаем конец узла Row. 

		ЧтениеXML.Прочитать(); 

	КонецЦикла; 



	// Читаем конец табличной части. 

	ЧтениеXML.Прочитать(); 



	// Читаем конец документа. 

	ЧтениеXML.Прочитать(); 



	Возврат(Документ); 



КонецФункции 





Функция РазрешениеКоллизий(Данные) 



	Если ТипЗнч(Данные) = Тип("ДокументОбъект.ПоступлениеТоваров") Тогда 



		Если Не Данные.ЭтоНовый() Тогда 

			СсылкаНаУзел = ПланыОбмена.Поставка.НайтиПоКоду("Опт"); 



			Если ПланыОбмена.ИзменениеЗарегистрировано(СсылкаНаУзел, Данные) Тогда 

				Возврат(Ложь); 

			КонецЕсли; 

		КонецЕсли; 

	КонецЕсли; 



	Возврат(Истина); 



КонецФункции

Категория: Конвертация данных, Обмен, Перенос

Как можно обмениваться данными, используя XML-сериализацию через файлы других форматов?

Под XML-сериализацией понимается возможность записи или чтения данных из 1С:Предприятия 8 в (из) XML-документ.
Но фактически при выгрузке данных выгружаемое значение агрегатного типа можно посредством сериализации преобразовывать в фрагмент XML и сохранять в файлах произвольных форматов как строковое.
Необходимо выгрузить экземпляр документа, ссылка на который находится в переменной СсылкаНаДокумент, в текстовый файл:

Код 1C v 8.х

 ЗаписьXML = Новый ЗаписьXML();

ЗаписьXML.УстановитьСтроку();	

Данные = СсылкаНаДокумент.ПолучитьОбъект();

ЗаписатьXML(ЗаписьXML, Данные);

ТекстСообщения = ЗаписьXML.Закрыть();



Текст = Новый ТекстовыйДокумент;

Текст.УстановитьТекст(ТекстСообщения);

Текст.Записать(ПутьКФайлу);

Метод УстановитьСтроку() устанавливает режим вывода данных не в XML-файл, а в строку (строка возвращается при выполнении метода Закрыть()).
В другой базе необходимо загрузить данные из полученного текстового файла:

Код 1C v 8.х

 Текст = Новый ТекстовыйДокумент;

Текст.Прочитать(ПутьКФайлу);



ЧтениеXML = Новый ЧтениеXML();

ЧтениеXML.УстановитьСтроку(Текст.ПолучитьТекст());

Если ВозможностьЧтенияXML(ЧтениеXML) Тогда

	Данные = ПрочитатьXML(ЧтениеXML);

	Данные.Записать();

КонецЕсли;

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

Категория: XML, DBF, TXT, CSV

Как организовать обмен данными между одинаковыми, идеинтичными конфигурациями?

Код 1C v 8.х

 // Выгрузить в файл xml.

ЗаписьXML = Новый ЗаписьXML();



ЗаписьXML.ОткрытьФайл("c:\doc.xml");

ЗаписьXML.ЗаписатьНачалоЭлемента("Root");



// Получить объект по ссылке.

ВыгружаемыйОбъект = Документ.ПолучитьОбъект();



// С помощью средств сериализации записать объект в файл.

ЗаписатьXML(ЗаписьXML,ВыгружаемыйОбъект);

	

ЗаписьXML.ЗаписатьКонецЭлемента();



ЗаписьXML.Закрыть();

Код 1C v 8.х

 ЧтениеXML = Новый ЧтениеXML();



ЧтениеXML.ОткрытьФайл("c:\doc.xml");

// Текущим становится элемент Root.

ЧтениеXML.Прочитать();



// Текущим становится элемент с документом.

ЧтениеXML.Прочитать();



// Проверить, сможет ли с данным значением "справиться" система сериализации в данной базе.

Если ВозможностьЧтенияXML(ЧтениеXML) Тогда

	// Получить ДокументОбъект.РеализацияТоваровУслуг.

	ЗагружаемыйОбъект = ПрочитатьXML(ЧтениеXML);

	ЗагружаемыйОбъект.Записать();

КонецЕсли;	



ЧтениеXML.Закрыть();

Категория: Конвертация данных, Обмен, Перенос