Процедура ПерепровестиВсеДокументыСБонусамиНажатие

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