Editdocument (true) Для Класса Notesdocument ?!

Тема в разделе "Lotus - Программирование", создана пользователем Mitya, 7 июл 2012.

  1. Mitya

    Mitya Well-Known Member

    Регистрация:
    13 июн 2012
    Сообщения:
    111
    Симпатии:
    0
    Добрый день.
    Подскажите, как мне открыть все выделенные документы из вида в режиме "редактируемый" и потом, просто сохранить.
    Как-то так:
    Sub Click(Source As Button)

    Dim ws As New NotesUIWorkspace
    Dim uiview As NotesUIView
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument

    Set uiview = ws.CurrentView
    Set dc = uiview.Documents
    Set doc = dc.GetFirstDocument
    While Not (doc Is Nothing)
    ?? вот как doc - открыть как редактируемый режиме? нашел только метод для NotesUIWorkspace - >EditDocument (True) - Не то =(
    Call doc.Save(False,False)
    Set doc = dc.GetNextDocument(doc)
    Wend
    End Sub
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Mitya
    Если надо пересохранить, то используйте ComputeWithForm
     
  3. Mitya

    Mitya Well-Known Member

    Регистрация:
    13 июн 2012
    Сообщения:
    111
    Симпатии:
    0
    :)
    Делаю так:
    Sub Click(Source As Button)

    Dim ws As New NotesUIWorkspace
    Dim uiview As NotesUIView
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument

    Set uiview = ws.CurrentView
    Set dc = uiview.Documents
    Set doc = dc.GetFirstDocument
    While Not (doc Is Nothing)
    If doc.ComputeWithForm(False, False) Then
    Call doc.Save(True,True)
    End If
    Set doc = dc.GetNextDocument(doc)
    Wend
    End Sub

    НЕ выходит.

    У меня ситуация, что я представление нацепил на Xpage.
    В клиенте в этом виде я вижу 4269, а вот через Xpage я вижу 4269.0.
    Как только я захожу в этот документ в режиме "редактирования" и нажимаю на кнопку : @Command([FileSave]);
    @Command([CloseWindow])
    Xpage покзывает 4269!
    Вот как решить данный вопрос, как обработать все документы в виде?
     
  4. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Попробуй @Command([ToolsRefreshAllDocs]).
     
Загрузка...
Похожие Темы - Editdocument (true) Для
  1. yerke
    Ответов:
    7
    Просмотров:
    3.112
  2. alb
    Ответов:
    2
    Просмотров:
    2.498

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