Удаление помеченных объектов в 7.7 (не монопольно) - v3

Опубликовал Саид Абушев (Абушев) в раздел Администрирование - Чистка базы

Удаление помеченных объектов в 7.7 - аналог типовой обработки

Аналог стандартного удаления объектов с разницей в том, что можно и не монопольно удалять. 

Изменения в новой версии по сравнению с предыдущими:

  1. При проверки контроля если у объекта есть ссылки и эти ссылки тоже помечены на удаления и они же в списке отмечены галочкой, и так же если можно удалить и эти объекты то в этом случае объекты можно удалять.
  2. При попытки снятия на галочек то они возвращаются на место, да и при удаление если каким то методом галочки изменили, то все равно будут удаляться те объекты вне зависимости
  3. При нажатии на кнопку удалить будет производиться удаление без повторного проверки на ссылочный контроль.
P.S. Спасибо Abadonna за «как красиво сделать, чтобы не заставлять пользователя лупиться на отсутствующую форму во время поиска»

Скачать файлы

Наименование Файл Версия Размер
UdelenieObiekti_2
.1225451061 16,97Kb
14.08.14
1046
.1225451061 16,97Kb 1046 Скачать

См. также

Комментарии
1. MikaelW (MikaelW) 19 11.11.08 00:05 Сейчас в теме
Continue;EndIf; Ссылка = TZSsilki.Ссылка;If Ссылка.DeleteMark() = 0 Then Return 0; Else НайтиВСписке = ValueList1.FindValue(Ссылка);
{C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\DESKTOP\06-11\UDELENIEOBIEKTI\UDELENIEOBIEKTI.ERT(22)}: Значение не представляет агрегатный объект (DeleteMark)
2. Аркадий Кучер (Abadonna) 3659 11.11.08 03:24 Сейчас в теме
3. Саид Абушев (Абушев) 127 26.02.09 23:00 Сейчас в теме
Это при каких обстоятельствах вышло сообщение?
4. rasswet (rasswet) 80 27.02.09 08:25 Сейчас в теме
у меня нечто подобное вывалилось с ошибкой. в базе 5000 помеченых, колбасило долго. минут 10. потом проверяло по %, а потом вывалилось. незачет.
5. Саид Абушев (Абушев) 127 27.02.09 15:17 Сейчас в теме
Это и некоторые другие выявленные мною ошибки я уже вчера подорвали и выложил второй вариант
6. Дмитрий (Senator_I) 19.09.11 14:53 Сейчас в теме
Хорошая обработка, особенно радует, что не нужно заходить монопольно.
7. Евген (evg300183) 27.09.11 14:49 Сейчас в теме
Continue;EndIf; Ссылка = TZSsilki.Ссылка;If Ссылка.DeleteMark() = 0 Then Return 0; Else НайтиВСписке = ValueList1.FindValue(Ссылка);
{C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\DESKTOP\06-11\UDELENIEOBIEKTI\UDELENIEOBIEKTI.ERT(22)}: Значение не представляет агрегатный объект (DeleteMark) - такая же ошибка
8. Евген (evg300183) 27.09.11 14:50 Сейчас в теме
а ссылки удаляются или нет?
9. Евген (evg300183) 27.09.11 14:51 Сейчас в теме
если после свертки wrap запустить вашу - ссылки удалятся?
10. Ирина Нечаева (Arin) 29.09.11 18:36 Сейчас в теме
11. Саид Абушев (Абушев) 127 29.09.11 18:49 Сейчас в теме
(7) evg300183, У меня это ощибка не выходила.
12. Саид Абушев (Абушев) 127 29.09.11 18:49 Сейчас в теме
(9) evg300183, Обработка работает аналогично типовой с разницей что не монопольно!
13. Саид Абушев (Абушев) 127 29.09.11 18:50 Сейчас в теме
14. Сергей Мурзинов (Sergey_Murzinov) 04.10.11 23:05 Сейчас в теме
Отлично, класс что юзверей не надо выгонять
15. Aleks Aleks (Aleks_PV) 24.10.11 10:55 Сейчас в теме
16. Дмитрий Русских (dimon_tb) 28.10.11 12:28 Сейчас в теме
Ага, то что не требует монопольный доступ это большой плюс!
17. Эд Хз (Tatar_Ed) 19.01.12 11:01 Сейчас в теме
Автору спасибо. Удаление без монопольного режима это то что нужно, а то не дождешься пока все "выйдут", хть после работы не оставайся.
18. nelse (nelse) 26.01.12 00:52 Сейчас в теме
Сыровато. Да и не все меры "предохранения" соблюдены.
19. Александр Петров (danya1606) 25 02.08.12 10:42 Сейчас в теме
If SsiLkA.DeleteMark() = 0 Then
{C:\USERS\PETAL\DOWNLOADS\UDELENIEOBIEKTI_2\UDELENIEOBIEKTI_2.ERT(120)}: Значение не представляет агрегатный объект (DeleteMark)
Пишет ошибку
20. Alex Steiner (OrsoBear) 03.10.13 14:49 Сейчас в теме
Назад в прошлое.. после перехода на восьмерку подумал обработки для 7.7 не понадобятся.. ан нет.. иногда приходится.. спасибо, скачал, заработала.. свои функции выполнила.
21. Arikite (ArikiteSun) 25.02.14 11:38 Сейчас в теме
Полезная обработка. Огромный плюс обработки в том, что она не требует выгонять юзеров из базы. Спасибо.
22. Эд Хз (Tatar_Ed) 30.04.14 19:13 Сейчас в теме
А что произойдет если во время удаления узер попытается токумент снять с удаления и перпровести его скажем на другую дату? Список документов котырые будут удалены формируется и сразу удаляются документы?
23. Эд Хз (Tatar_Ed) 30.04.14 19:16 Сейчас в теме
Во время удааления иногда выскакивает ошибка. я так понимаю как раз в это врямя кто-то обращется к удаляемому документу. Бывает правда очень редко.
24. Саид Абушев (Абушев) 127 05.05.14 23:25 Сейчас в теме
25. Саид Абушев (Абушев) 127 05.05.14 23:25 Сейчас в теме
(23) Tatar_Ed, Скорей всего, надо смотреть.
26. Эд Хз (Tatar_Ed) 10.05.14 20:34 Сейчас в теме
(25) А можно каким нибудь способом ограничить пользователей и не давать им править удаленные документы? Ну т.е. если по какой то причине документ был удален, то все в его никто не может открыть редактировать и т.д.
27. Саид Абушев (Абушев) 127 15.05.14 13:01 Сейчас в теме
(26) Tatar_Ed, Для этих случай монопольный режим.
28. Дмитрий (Senator_I) 27.06.14 07:28 Сейчас в теме
(25) Абушев,
А можно каким нибудь способом ограничить пользователей и не давать им править удаленные документы?

В смысле, помеченные на удаление? В конфигураторе выставьте права, там широкие возможности, можно поставить галочку только на пометку удаления и не ставить на отмену пометки, тогда пользователь не сможет отменить пометку удаления и что-либо сделать с документом.