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

Тема в разделе "Lotus - Программирование", создана пользователем fedotxxl, 13 окт 2009.

  1. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Пытался написать функцию... так и не получилось ничего нормального. Может у кого есть наработки?
     
  2. allex

    allex Гость

    Код (Text):
    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()
     
  3. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

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

    как по мне это самый правильный ход
     
Загрузка...

Поделиться этой страницей