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

  • Автор темы Mitya
  • Дата начала
M

Mitya

#1
Добрый день.
Подскажите, как мне открыть все выделенные документы из вида в режиме "редактируемый" и потом, просто сохранить.
Как-то так:
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
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Mitya
Если надо пересохранить, то используйте ComputeWithForm
 
M

Mitya

#3
Mitya
Если надо пересохранить, то используйте ComputeWithForm
:)
Делаю так:
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!
Вот как решить данный вопрос, как обработать все документы в виде?