Вот я, наконец, добрался до давно мучившей меня проблемы - как реализовать Удаление помеченных объектов следующим образом:
а) не монопольно - многие пользователи и Склад работают допоздна, так что выгнать их нет никакой возможности;
б) автоматически, чтобы запустилось Фоновое Задание и удалило весь накопившийся "мусор".
Перелопатив большое количество материала, который нашел на Инфостарте и в сети, пришел к неутешительным выводам - эти варианты мне не подходят, придется обходиться своими силами....
Да и радости не прибавлял тот факт, что в 18-ой платформе была всё таки исправлена древняя ошибка № 20013012, теперь установить Монопольный режим при запуске Удаления помеченных объектов стало практически невозможно.....
Возник вопрос - что удалить, а что оставить? Решили, если есть ссылки на Справочники или Документы - оставляем, а Регистрами Сведений решили пожертвовать (даже если будет урон, то незначительный).
Вот что в результате получилось:
Процедура УдалениеПомеченныхОбъектов() Экспорт
УстановитьПривилегированныйРежим(Истина);
Попытка
ПомеченныеОбъекты = НайтиПомеченныеНаУдаление();
ТабСсылок = НайтиПоСсылкам(ПомеченныеОбъекты);
МассивКУдалению = Новый Массив;
ТабНеУдаляемых = ТабСсылок.СкопироватьКолонки();
Для Каждого Элемент из ПомеченныеОбъекты Цикл
СтрокиСсылки = ТабСсылок.НайтиСтроки(Новый Структура("Ссылка", Элемент));
Если СтрокиСсылки.Количество() > 0 Тогда
Если СтрокиСсылки.Количество() = 1 Тогда
Если Лев(СтрокиСсылки[0].Метаданные.ПолноеИмя(),15) = "РегистрСведений" Тогда
МассивКУдалению.Добавить(Элемент); // Если ссылка на РегистрСведений, то удалять
Продолжить;
КонецЕсли;
Если СтрокиСсылки[0].Данные <> Элемент Тогда
НоваяСтрока = ТабНеУдаляемых.Добавить();
НоваяСтрока.Ссылка = СтрокиСсылки[0].Ссылка;
НоваяСтрока.Данные = СтрокиСсылки[0].Данные;
НоваяСтрока.Метаданные = СтрокиСсылки[0].Метаданные;
Продолжить;
Иначе
МассивКУдалению.Добавить(Элемент);
Продолжить;
КонецЕсли;
КонецЕсли;
Если СтрокиСсылки.Количество() > 1 Тогда // Надо проверить!!!
// Может там ссылка на справочник, или документ, или регистр сведений???
НеУдалять = Ложь;
Для й = 0 По СтрокиСсылки.Количество()-1 Цикл
// Проверим метаданные, если ссылка на РегистрСведений, тогда удалять
Если Лев(СтрокиСсылки[й].Метаданные.ПолноеИмя(),15) = "РегистрСведений" Тогда
Продолжить;
КонецЕсли;
Если СтрокиСсылки[й].Данные <> Элемент Тогда
НеУдалять = Истина; Прервать;
КонецЕсли;
КонецЦикла;
й = ?(й = Неопределено, 0, й);
Если НеУдалять Тогда
НоваяСтрока = ТабНеУдаляемых.Добавить();
НоваяСтрока.Ссылка = СтрокиСсылки[й].Ссылка;
НоваяСтрока.Данные = СтрокиСсылки[й].Данные;
НоваяСтрока.Метаданные = СтрокиСсылки[й].Метаданные;
Иначе
МассивКУдалению.Добавить(Элемент);
КонецЕсли;
КонецЕсли;
Иначе
МассивКУдалению.Добавить(Элемент); // Ссылка вообще не найдена....
КонецЕсли;
КонецЦикла;
Для Каждого Элемент из МассивКУдалению Цикл
Ссылка = Элемент.Ссылка;
Объект = Ссылка.ПолучитьОбъект();
Попытка
Если Не Объект = Неопределено Тогда
Объект.Удалить();
КонецЕсли;
Исключение
ЗаписьЖурналаРегистрации("Удаление помеченных объектов.",
УровеньЖурналаРегистрации.Информация, , ,
"Не могу удалить объект " + Объект);
КонецПопытки;
КонецЦикла;
// Информацию о неудаляемых ссылках сбросим в текстовый файл
ТекстДок = Новый ТекстовыйДокумент;
Для каждого Ссылка из ТабНеУдаляемых Цикл
СтрСообщения = "Объект не удален: " + СокрЛП(Ссылка[0]);
СтрСсылка = ", используется в " + СокрЛП(Ссылка[1]);
ТекстДок.ДобавитьСтроку(СтрСообщения + СтрСсылка);
КонецЦикла;
ТекстДок.Записать(КаталогВременныхФайлов() + "Undelete.txt");
Исключение
ЗаписьЖурналаРегистрации("Удаление помеченных объектов.",
УровеньЖурналаРегистрации.Информация, , , "Не могу удалить выбранные объекты: " + ОписаниеОшибки());
Возврат;
КонецПопытки;
КонецПроцедуры
Не забывайте важные нюансы:
а) ничего не должно мешать выполнению Фонового Задания, проверяйте Модули объекта справочников и документов на предмет неинициализированных значений переменных (они могут быть определены в Толстом клиенте);
б) запускаться Фоновое задание должно под Полными правами (ну можно ещё сделать Роль "Программист" и наделить её всеми возможными галками);
в) желательно не ограничивать Фоновое Задание временем выполнения, если большая база, то поиск ссылок на удаляемый объект займет большое количество времени.
Пробуйте, ищите и у вас обязательно всё получится.....
