Удалить строки из ТЧ документа по условию

Question

Здраствуйте! Учусь программировать в 1с. Подскажите пожалуйста, мне нужно удалить строки из документа УстановкаКурсаВалют те строки, где нет предопределенных валют. Я сделал выборку этих строк, осталось только удалить. Код привожу ниже
[1C-CODE]Процедура УдалитьСтрокиНаСервере()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
|	УстановкаКурсаВалют.Ссылка КАК Ссылка1,
|	УстановкаКурсаВалют.ПометкаУдаления КАК ПометкаУдаления1,
|	УстановкаКурсаВалют.Номер КАК Номер,
|	УстановкаКурсаВалют.Дата КАК Дата,
|	УстановкаКурсаВалют.Проведен КАК Проведен,
|	УстановкаКурсаВалют.Курсы.(
|		Ссылка КАК СсылкаТЧ,
|		НомерСтроки КАК НомерСтрокиТЧ,
|		Валюта КАК ВалютаТЧ,
|		Курс КАК КурсТЧ,
|		Символ КАК Символ) КАК Курсы
|ИЗ
|	Документ.УстановкаКурсаВалют КАК УстановкаКурсаВалют";


ВыборкаДокумент = Запрос.Выполнить().Выбрать();

УдалитьТП=Новый Массив;

Пока ВыборкаДокумент.Следующий() Цикл ;
ВыборкаНоменклатурныйСостав = ВыборкаДокумент.Курсы.Выбрать();


	Пока ВыборкаНоменклатурныйСостав.Следующий() Цикл
         ИмяПредопрЭлемента = Справочники.Валюты.ПолучитьИмяПредопределенного(ВыборкаНоменклатурныйСостав.ВалютаТЧ);
		 Строка = ВыборкаНоменклатурныйСостав.ВалютаТЧ.Наименование;
		 СсылкаСтроки = ВыборкаНоменклатурныйСостав.ВалютаТЧ.Ссылка;
		 Если СокрЛП(ВРег(ИмяПредопрЭлемента)) <> СокрЛП(ВРег(Строка)) Или СсылкаСтроки.Пустая()  Тогда
			
			УдалитьТП.Добавить(Строка); // Тут в массив пишу строки для удаления;
		Иначе
			
		КонецЕсли;
		
	КонецЦикла;  
КонецЦикла;


КонецПроцедуры
[/1C-CODE]

Accepted Answer

(1)Почувствуйте разницу, таксскать:

[CODE]Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
|    УстановкаКурсаВалют.Ссылка КАК Ссылка
|    УстановкаКурсаВалют.НомерСтроки КАК НомерСтроки
|ИЗ
|    Документ.УстановкаКурсаВалют.Курсы КАК УстановкаКурсаВалют
|ГДЕ
|    НЕ УстановкаКурсаВалют.Валюта.Предопределенный
|ИТОГИ ПО
|     Ccылка";

ВыборкаДокумент = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаДокумент.Следующий() Цикл ;
    ДокОбъект = ВыборкаДокумент.Ссылка.ПолучитьОбъект();
    ТЗ = ДокументОбъект.Курсы.Выгрузить();
    ТЗ.Индексы.Добавить("НомерСтроки");
    ВыборкаНоменклатурныйСостав = ВыборкаДокумент.Выбрать();
    Пока ВыборкаНоменклатурныйСостав.Следующий() Цикл
           Строка = ТЗ.Найти(ВыборкаНоменклатурныйСостав.НомерСтроки, "НомерСтроки");
           ТЗ.Удалить(Строка);
    КонецЦикла;  
    ДокОбъект.Загрузить(ТЗ);
    ДокОбъект.Записать(?(ДокОбъект.Проведен, РежимЗаписиДокумента.Проведение, РежимЗаписиДокумента.Запись));
КонецЦикла;[/CODE]