Пример программного заполнения дерева метаданных обработки "Выгрузка / загрузка данных XML"

30.10.15

Интеграция - Файловый обмен (TXT, XML, DBF), FTP

Обработка ВыгрузкаЗагрузкаДанныхXML - часто используемая палочка-выручалочка при обмене объектами по заданному отбору.
При этом можно облегчить себе жизнь, заполняя дерево метаданных необходимыми отборами программно.
В статье приведен пример заполнения дерева измененными документами по выбранной организации за указанный период (анализ изменений за период проводится по журналу регистрации).

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
ВыгрузкаЗагрузкаДанныхXML82_ИС.epf
.epf 77,66Kb
23 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Приступим...

Снимем все флаги с дерева метаданных:

	Для Каждого СтрокаУровень1 Из ДеревоМетаданных.Строки Цикл
		Для Каждого СтрокаУровень2 Из СтрокаУровень1.Строки Цикл
			Для Каждого СтрокаУровень3 Из СтрокаУровень2.Строки Цикл
				СтрокаУровень3.Выгружать = Ложь;
			КонецЦикла;
		КонецЦикла;
	КонецЦикла;

Создадим параметры для выборки изменений по журналу регистрации и выгрузим изменения в таблицу значений:

    ТабЖур = Новый ТаблицаЗначений;
    Фильтр = Новый Структура;
    // ограничение по датам
    Фильтр.Вставить("ДатаНачала", ДатаНачалаИзменений);
    Фильтр.Вставить("ДатаОкончания", ДатаОкончанияИзменений);
    // ограничение событиями, относящимися только к документам
    МассивСобытий = Новый Массив;
    МассивСобытий.Добавить("_$Data$_.Delete");
    МассивСобытий.Добавить("_$Data$_.New");
    МассивСобытий.Добавить("_$Data$_.Post");
    МассивСобытий.Добавить("_$Data$_.Unpost");    
    МассивСобытий.Добавить("_$Data$_.Update");
    Фильтр.Вставить("Событие", МассивСобытий);
    // список колонок
    КолонкиСтрокой = "Метаданные, Данные";

    ВыгрузитьЖурналРегистрации(ТабЖур, Фильтр, КолонкиСтрокой, , );

Обработаем полученную таблицу значений. Найденные документы поместим в таблицу значений с двумя колонками (имя метаданного, ссылка на объект):

	ТаблицаОтчета = Новый ТаблицаЗначений;
	ТаблицаОтчета.Колонки.Добавить("Метаданные");
	ТаблицаОтчета.Колонки.Добавить("Данные");

	Для Каждого СтрокаТЖ Из ТабЖур Цикл
		ТекстМетаданные = Строка(СтрокаТЖ.Метаданные);
		ТекстМетаданныеБезДокумента = СтрЗаменить(ТекстМетаданные, "Документ.", "");
		Данные = СтрокаТЖ.Данные;
		Если Найти(ТекстМетаданные, "Документ.") > 0 Тогда
			Если Данные.Метаданные().Реквизиты.Найти("Организация") <> Неопределено Тогда
				Если ЗначениеЗаполнено(Организация) И Данные.Организация <> Организация Тогда
					Продолжить;
				Иначе
					СтрокаТО = ТаблицаОтчета.Добавить();
					СтрокаТО.Метаданные = ТекстМетаданныеБезДокумента;
					СтрокаТО.Данные = Данные;
				КонецЕсли;
			КонецЕсли;
		Иначе
			Продолжить;
		КонецЕсли;
	КонецЦикла;

И дальше заполняем строки дерева, формируя списки по группам метаданных:

        ТаблицаОтчетаМетаданные = ТаблицаОтчета.Скопировать();
        ТаблицаОтчетаМетаданные.Свернуть("Метаданные");
	Для Каждого СтрокаТОМ Из ТаблицаОтчетаМетаданные Цикл
		СтруктураОтбора = Новый Структура;
		СтруктураОтбора.Вставить("Метаданные", СтрокаТОМ.Метаданные);
		СтрокиТО = ТаблицаОтчета.НайтиСтроки(СтруктураОтбора);
		СписокСсылок = Новый СписокЗначений;
		Для Каждого СтрокаТО Из СтрокиТО Цикл
			СписокСсылок.Добавить(СтрокаТО.Данные);
		КонецЦикла;
		ЗаполнитьДеревоНастроекОтборамиДокументов(СтрокаТОМ.Метаданные, СписокСсылок);
	КонецЦикла;

Процедура заполнения дерева:

Процедура ЗаполнитьДеревоНастроекОтборамиДокументов(ИмяМетаданного = "", СписокСсылок = "") Экспорт
		
	// выгрузка документов
	Для Каждого СтрокаУровень1 Из ДеревоМетаданных.Строки Цикл
			
		// уровень заголовка единственный
		БылиВВеткеДокументов = Ложь;
		Для Каждого СтрокаУровень2 Из СтрокаУровень1.Строки Цикл
			Если СтрокаУровень2.Метаданные <> "Документы" И НЕ БылиВВеткеДокументов Тогда
				Продолжить;
			Иначе
				Если НЕ БылиВВеткеДокументов Тогда
					БылиВВеткеДокументов = Истина;
					СтрокаУровень2.Выгружать = 1;					
					Для Каждого СтрокаУровень3 Из СтрокаУровень2.Строки Цикл
						Если СтрокаУровень3.Метаданные.Имя <> ИмяМетаданного Тогда
							Продолжить;
						КонецЕсли;				
						Сообщить("Заполнили флаги по " + ИмяМетаданного);
						СтрокаУровень3.Выгружать = 1;
						СтрокаУровень3.ИспользоватьОтбор = Истина;
						СтрокаУровень3.НастройкиПостроителя = УстановитьНастройкиПостроителяОтчетаДляСтроки(СтрокаУровень3, СписокСсылок);
					КонецЦикла;				
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
			
	КонецЦикла;		
	// конец обхода дерева
КонецПроцедуры

И самая главная процедура)

Функция УстановитьНастройкиПостроителяОтчетаДляСтроки(СтрокаДереваМетаданных, СписокКодов)
	
	ИтоговыйТекстЗапроса = ПолучитьТекстЗапросаПоСтроке(СтрокаДереваМетаданных, ЛОЖЬ, "");
	
	ПостроительОтчета = Новый ПостроительОтчета;
	
	ПостроительОтчета.Текст = ИтоговыйТекстЗапроса;
	
	ПостроительОтчета.ЗаполнитьНастройки();
	
	ПостроительОтчета.Отбор.Сбросить();	
	
	Отбор = ПостроительОтчета.Отбор.Добавить("Ссылка");
	Отбор.ВидСравнения = ВидСравнения.ВСписке;
	Отбор.Использование = Истина;
	Отбор.Значение = СписокКодов;
	
	Возврат ПостроительОтчета.ПолучитьНастройки();
	
КонецФункции

В прикрепленном файле обработка с вышеописанным кодом, отбор по организации и периоду вынесен на отдельную вкладку "Дополнительные настройки".

Вкладка настроек выглядит так:

Дополнительные настройки

А результат работы кода вот так:

Заполненное дерево настроек

То есть, все измененные типы объектов помечены к выгрузке, в отборах - списки ссылок.

P.S. И еще несколько простых и полезных программных приемов: //infostart.ru/public/399922/

Вступайте в нашу телеграмм-группу Инфостарт

выгрузказагрузкаданныхxml программное заполнение дерева метаданных анализ изменений по журналу регистрации

См. также

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.267.x) и БП 3.0 (3.0.194.x). Правила подходят для версии ПРОФ и КОРП.

38000 34200 руб.

15.12.2021    33562    250    64    

190

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

50050 руб.

25.02.2015    187567    356    288    

416

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27633 руб.

12.06.2017    159751    959    317    

480

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Платные (руб)

Правила переноса кадровых и расчетных данных и справочной информации из "1С:УПП1.3" или "1С:КА 1.1" в "1С:ЗУП 3.1 | Разработан в формате КД 2 (правила конвертации данных) | При выгрузке есть фильтр по организациям | Обновляется при выходе новых релизов 1С | Развитие алгоритмов | Расчетные документы переносятся в документ "Перенос данных" | Создаются документы "Начальная штатная расстановка" и "Начальная задолженность по зарплате", переносятся кадровые документы

58000 руб.

29.10.2018    62419    80    131    

78

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Управление торговлей 10 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.88.x) и УТ 11.5 (11.5.25.x).

38000 34200 руб.

23.07.2020    67470    313    94    

251

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой

58000 руб.

15.04.2019    83305    222    174    

161

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Россия Платные (руб)

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 3, УНФ 3 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

16531 руб.

18.02.2016    202212    671    543    

562
Для отправки сообщения требуется регистрация/авторизация