vizlipuzli
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: Для Каждого ТекВидДокумента Из Метаданные.Документы Цикл
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТекВидДокумента.Ссылка Как Ссылка
|ИЗ
| Документ."+ТекВидДокумента.Имя+" КАК ТекВидДокумента
|ГДЕ
| ТекВидДокумента.ПометкаУдаления = ЛОЖЬ";
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
ОбработкаПрерыванияПользователя();
Попытка
ДокОбъект = Выборка.Ссылка.ПолучитьОбъект();
ДокОбъект.УстановитьПометкуУдаления(Истина);
Сообщить("Установлена пометка удаления "+Выборка.Ссылка);
Исключение
Сообщить("Не установлена пометка удаления "+Выборка.Ссылка, СтатусСообщения.ОченьВажное);
КонецПопытки;
КонецЦикла;
КонецЦикла; |
|
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 05:57 02-06-2011 | Исправлено: vizlipuzli, 05:58 02-06-2011 |
|
