узле » Поиск

Результаты по ключевому слову: узле

Полная регистрация изменений для узла

Код 1C v 8.х

 Процедура ПолнаяРегистрацияДанныхПоУзлу(Узел, РегистрироватьВсе) Экспорт

 

// Регистрация изменений всех данных для узла производится в случае

// значения параметра РегистрироватьВсе = Истина или

// значение склада в узле не установлено

Сообщение = Новый СообщениеПользователю();

Если РегистрироватьВсе Или Узел.Склад.Пустая() Тогда

Сообщение.Текст = "Регистрация всех данных по узлу " + Узел;

Сообщение.Сообщить();

ПланыОбмена.ЗарегистрироватьИзменения(Узел);  

Иначе

Сообщение.Текст = "Регистрация данных по узлу " + Узел + " -----------";

Сообщение.Сообщить();

ПланОбмена = Узел.Метаданные();

Состав = ПланОбмена.Состав;

Для Каждого ЭлементСостава Из Состав Цикл

Сообщение.Текст = "   Регистрация данных " + ЭлементСостава.Метаданные + " по узлу " + Узел;

Сообщение.Сообщить();

Если ЭлементСостава.Метаданные = Метаданные.Документы.РасходнаяНакладная Тогда

 

// Для документов РасходнаяНакладная регистрация изменений 

// для узла производится только при совпадении складов узла и накладной

// Выбираем документы РасходнаяНакладная по складу узла

Запрос = Новый Запрос("ВЫБРАТЬ 

|Ссылка 

|ИЗ 

|Документ.РасходнаяНакладная

|ГДЕ 

|Склад = &Склад");

Запрос.УстановитьПараметр("Склад", Узел.Склад);

Выборка = Запрос.Выполнить().Выбрать();

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

 

// регистрируем изменение документа для узла

ПланыОбмена.ЗарегистрироватьИзменения(Узел, Выборка.Ссылка);  

КонецЦикла;

ИначеЕсли ЭлементСостава.Метаданные = Метаданные.РегистрыНакопления.УчетНоменклатуры Тогда

 

// Выбираем всех различных регистраторов регистра

Запрос = Новый Запрос("ВЫБРАТЬ РАЗЛИЧНЫЕ 

|Регистратор 

|ИЗ 

|РегистрНакопления.УчетНоменклатуры

|ГДЕ 

|Склад = &Склад");

Запрос.УстановитьПараметр("Склад", Узел.Склад);

Выборка = Запрос.Выполнить().Выбрать();

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

 

// Создаем набор записей регистра с отбором по регистратору

НаборЗаписей = РегистрыНакопления.УчетНоменклатуры.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

 

// регистрируем изменения набора записей для узла

ПланыОбмена.ЗарегистрироватьИзменения(Узел, НаборЗаписей);

КонецЦикла;

Иначе

 

// Регистрация изменений всех данных объекта для узла

ПланыОбмена.ЗарегистрироватьИзменения(Узел, ЭлементСостава.Метаданные);  

КонецЕсли;

КонецЦикла; // обход состава плана обмена

КонецЕсли;

 

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

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

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

Обработка Универсальный обмен данными в формате XML Категория: Обработки

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

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

Код 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.Прочитать(); 



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



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





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



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



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

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



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

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

			КонецЕсли; 

		КонецЕсли; 

	КонецЕсли; 



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



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

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