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

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

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

