Выбрать все документы за период

ТекстЗапросаПоДокументу = "
|ВЫБРАТЬ 
| Документ.Ссылка
|ИЗ
|  Документ.ТипДокумента КАК Документ
|ГДЕ
|  Документ.Дата МЕЖДУ &ДатаНач И &ДатаКон
|";

ТекстЗапроса = "";
Для Каждого Документ Из Метаданные.Документы Цикл
    	ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", "
	|ОБЪЕДИНИТЬ ВСЕ
	|") 
	+ СтрЗаменить(ТекстЗапросаПоДокументу, "ТипДокумента", Документ.Имя);
КонецЦикла; 

Запрос = Новый Запрос;
Запрос.Текст = ТекстЗапроса;
Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
Запрос.УстановитьПараметр("ДатаКон", ДатаКон);

результат = Запрос.Выполнить();

ИмяВыходногоФайла = ПолучитьИмяВременногоФайла(".xml");
	Фильтр = Новый Структура;
	
	Фильтр.Вставить("ДатаНачала", НачалоДня(НачПериода));
	Фильтр.Вставить("ДатаОкончания", КонецДня(КонПериода));
	
	МассивСобытий = Новый Массив;
	МассивСобытий.Добавить("_$Data$_.New");
	Фильтр.Вставить("Событие", МассивСобытий);
	
	МассивМетаданных = Новый Массив;
	МассивМетаданных.Добавить(Метаданные.Справочники.Контрагенты);
	Фильтр.Вставить("Метаданные", МассивМетаданных);

	СтрокаКолонокЖурналаРегистрации = "Дата, ИмяПользователя, Компьютер, Данные";
	ВыгрузитьЖурналРегистрации(ИмяВыходногоФайла, Фильтр, СтрокаКолонокЖурналаРегистрации);
	
	МассивТиповДанных = Новый Массив;
	Для Каждого МетаданныеДанных Из МассивМетаданных Цикл
		МассивТиповДанных.Добавить(Тип("СправочникСсылка." + МетаданныеДанных.Имя));
	КонецЦикла;
	
	ТаблицаСобытий = Новый ТаблицаЗначений;
	ТаблицаСобытий.Колонки.Добавить("Data", Новый ОписаниеТипов(МассивТиповДанных));
	
	ЗагрузитьЖурналРегистрацииВТаблицу(ИмяВыходногоФайла, ТаблицаСобытий, СтрокаКолонокЖурналаРегистрации);
	УдалитьФайлы(ИмяВыходногоФайла);
	
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("ТаблицаСобытий", ТаблицаСобытий);
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ВЫРАЗИТЬ(т.Данные КАК Справочник.Контрагенты) КАК Контрагент,
	|	т.Дата,
	|	т.ИмяПользователя КАК Пользователь,
	|	т.Компьютер
	|ПОМЕСТИТЬ втТаблицаСобытий
	|ИЗ
	|	&ТаблицаСобытий КАК т
	|;
	|
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ
	|	т.Контрагент,
	|	т.Контрагент.Представление,
	|	т.Дата,
	|	т.Пользователь,
	|	т.Компьютер
	|ИЗ
	|	втТаблицаСобытий КАК т";
	Результат = Запрос.Выполнить();
	
	ТабДок = ЭлементыФормы.ТабДок;

Д1 = '20240220';
Д2 = '20240331';
ТекПодразделение = Получить.ЭтотУзел().Подразделение();
Сообщить(ТекПодразделение);
Для каждого МД из Метаданные.Документы Цикл
	Если МД.Реквизиты.Найти("Подразделение") = Неопределено Тогда
		Продолжить;
	КонецЕсли;
	Выборка = Документы[МД.Имя].Выбрать(Д1, Д2);
	Пока Выборка.Следующий() Цикл
		ОбрабатываемыйОбъект = Выборка.Ссылка.ПолучитьОбъект();
		Если ОбрабатываемыйОбъект.Подразделение <> ТекПодразделение Тогда
			Продолжить;
		КонецЕсли;
		Сообщить(ОбрабатываемыйОбъект);
		ОбрабатываемыйОбъект.Записать();
		Для Каждого НЗ ИЗ ОбрабатываемыйОбъект.Движения Цикл
			НЗ.Прочитать();
			Сообщить("  " + НЗ + ": " + НЗ.Количество());
			НЗ.Записать();
		КонецЦикла;
	КонецЦикла;
КонецЦикла;