gifts2017

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

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

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

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

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

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

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

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

См. также

Подписаться Добавить вознаграждение

Комментарии

1. MikaelW (MikaelW) 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)
3. Саид Абушев (Абушев) 26.02.09 23:00
Это при каких обстоятельствах вышло сообщение?
4. rasswet (rasswet) 27.02.09 08:25
у меня нечто подобное вывалилось с ошибкой. в базе 5000 помеченых, колбасило долго. минут 10. потом проверяло по %, а потом вывалилось. незачет.
5. Саид Абушев (Абушев) 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. Саид Абушев (Абушев) 29.09.11 18:49
(7) evg300183, У меня это ощибка не выходила.
12. Саид Абушев (Абушев) 29.09.11 18:49
(9) evg300183, Обработка работает аналогично типовой с разницей что не монопольно!
13. Саид Абушев (Абушев) 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) 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. Саид Абушев (Абушев) 05.05.14 23:25
25. Саид Абушев (Абушев) 05.05.14 23:25
(23) Tatar_Ed, Скорей всего, надо смотреть.
26. Эд Хз (Tatar_Ed) 10.05.14 20:34
(25) А можно каким нибудь способом ограничить пользователей и не давать им править удаленные документы? Ну т.е. если по какой то причине документ был удален, то все в его никто не может открыть редактировать и т.д.
27. Саид Абушев (Абушев) 15.05.14 13:01
(26) Tatar_Ed, Для этих случай монопольный режим.
28. Дмитрий (Senator_I) 27.06.14 07:28
(25) Абушев,
А можно каким нибудь способом ограничить пользователей и не давать им править удаленные документы?

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