8.х перебор документов

Хелп, однако!
Имеется:
довольно обширная база с кучей документов.
Требуется:
снести все документы.
То есть мне видится программое установления флажка "пометить на удаление" всем документам.
Как программно перебрать все документы?
Или дайте рецепт....

---
меня наглухо заклинило и я не могу никак сообразить.
Назревает грандиозный чендж с конкурентами: пустая конфигурация на кое-какое оборудование.
---
тема поднималась, но я ничего не понял.

Код:

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

Работает!
огромное человеческое спасибо!

Дык пустую конфигурацию проще сделать через .cf

Я бы просто воспользовался типовой групповой обработкой справочников и документов. Но можно и перебор написать (как было предложено) - он даже побыстрее будет.

Интересно что вы имели в виду под:
"меня наглухо заклинило и я не могу никак сообразить.
Назревает грандиозный чендж с конкурентами: пустая конфигурация на кое-какое оборудование."

Отличная процедурка...всегда пригодится..при удалении старый документов (за прошлый год к примеру)

Для удаления старых документов лучше используйте 1С-вскую типовую свертку базы =) Гораздо лучше.

Нужно заполнить колонку табличного поля значениями ПД или КД в зависимости от значения реквизита документа. Делаю это в процедуре ПриВыводеСтроки. Не работает, то есть он заполняет, но не все ячейки и не правильно.

Код:

Выборка = Документы.АБ_СМК_КорректирующееДействие.Выбрать();
Пока  Выборка.Следующий() Цикл
Если Выборка.ПредупреждающееКД = Истина Тогда
ОформлениеСтроки.Ячейки.Вид.Значение = "ПД"
Иначе  ОформлениеСтроки.Ячейки.Вид.Значение = "КД";
КонецЕсли;
КонецЦикла;    

Разобралась. Сделала по-другому, новый реквизит добавила документу, тем более что по нему еще отбор нужен.

Код:

Выборка = Документы.АБ_СМК_КорректирующееДействие.Выбрать();
Пока  Выборка.Следующий() Цикл
ДокОбъект = Выборка.ПолучитьОбъект();
Если Выборка.ПредупреждающееКД = Истина Тогда
ДокОбъект.Вид = "ПД";	  
Иначе ДокОбъект.Вид = "КД";  
КонецЕсли;  
ДокОбъект.Записать();
КонецЦикла;