Как правильно удалять документы

@fydotxxt · Регистрация: 19.10.2005

Пытался написать функцию... так и не получилось ничего нормального. Может у кого есть наработки?

@ottyx · 12.10.2009, 12:22

Код

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As NotesView
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Call doc.RemovePermanently(True)
Call doc.Remove(True)
Set uiview = ws.CurrentView
Set view = uiview.View
Call ws.viewrefresh()

@ToxoRot · 12.10.2009, 12:28

fedotxxl
правильно не удалять:
1) любое действие на удаление блокируй как в ACL так и срииптом
2) позволяй только менять документ по флагу ложи в Корзину
3) И только из корзины админ или агент может дейтвительно удалить док из базы

как по мне это самый правильный ход

@fydotxxt 0 / 0 / 0 Регистрация: 19.10.2005 Сообщений: 603
		1
	Как правильно удалять документы 12.10.2009, 12:16. Просмотров 8719. Ответов 2 Метки нет (Все метки) Пытался написать функцию... так и не получилось ничего нормального. Может у кого есть наработки? 0

@ToxoRot 0 / 0 / 0 Регистрация: 04.11.2007 Сообщений: 3,019
	12.10.2009, 12:28	3
	fedotxxl правильно не удалять: 1) любое действие на удаление блокируй как в ACL так и срииптом 2) позволяй только менять документ по флагу ложи в Корзину 3) И только из корзины админ или агент может дейтвительно удалить док из базы как по мне это самый правильный ход 0

Опции темы