Помогите написать обработку пометка на удаление

[Pavel779]

Хочу написать обработку пометка на удаление с помощью запроса.
Запрос составил правильно. Но все равно не работает помогите разобраться:

Код Выделить Развернуть


&НаКлиенте
Процедура Пометка(Команда)

ПометкаНаУдалениеНаСервере();

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


&НаСервереБезКонтекста
Процедура ПометкаНаУдалениеНаСервере()



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

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

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ВыборкаДетальныеЗаписи.Получить();

ВыборкаДетальныеЗаписи.УстановитьПометкуУдаления(Истина);



КонецЦикла;




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



[sadovod]

С помощью запросов можно только читать данные, а вот модифицировать нельзя...
Нужно сделать примерно так:

Код Выделить Развернуть


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


PS. А ведь иногда не хватает в языке запросов 1С секции UPDATE, не правда ли?

[sadovod]

Или лучше вместо моего фрагмента

Код Выделить Развернуть


   спрОбъект.ПометкаУдаления = Истина;
   спрОбъект.Записать();

сделать как у вас с помощью метода УстановитьПометкуУдаления(<ПометкаУдаления>, <ВключаяПодчиненные>)

Код Выделить Развернуть


   спрОбъект.УстановитьПометкуУдаления(Истина,Истина);


[Pavel779]

Я так полагаю, что с помощью запроса это сделать нельзя?

[Dethmontt]

С помощью запроса можно только получить список который бы будешь обходить в цикле и помечать на удаление....

[Pavel779]

А можете мой запрос доделать. Почему он не работает.

[Dethmontt]

Тебе же написали почему!
Потому что нужно получатьОбъект!!
Заменить ----
ВыборкаДетальныеЗаписи.Получить();
ВыборкаДетальныеЗаписи.УстановитьПометкуУдаления(Истина);
\НА вот так
ВыборкаДетальныеЗаписи.Номенклатура.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);

[Pavel779]

И последний вопрос.
Почему когда ставишь "." подсказка то вылезает то нет.

[Dethmontt]

Фиг знает, да и не нужно это.....

[Pavel779]

Просто с подсказкой легче. сразу знаешь, что можно использовать а что нет....