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

ИмяДокумента = "РеализацияТоваровУслуг";

МетаданныеДокумента = Метаданные.Документы[ИмяДокумента];

Запрос = Новый Запрос;

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