P
phantom76
Необходимо добавлять комментарии к доку без перевода его в режим редактирования пользователем, через Action с панели.
после внесения изменений хотелось бы сделать рефреш открытого документа, но появляется ошибка - говорящая о том что нельзя использовать эту команду..
вариант типа:
Call w.EditDocument(True)
.....................................
Call uidoc.save
Call w.EditDocument(False)
как-то не очень кажется "красивым" , что можно придумать?
Код:
Sub Click(Source As Button)
On Error Goto handler
Dim w As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim subdoc As NotesDocument
Dim docChanged As Boolean
Dim db2 As NotesDatabase
Dim ses As New NotesSession
Set db2= ses.CurrentDatabase
Set w = New NotesUIWorkspace
Set uidoc = w.CurrentDocument
uidoc.AutoReload = False
Set doc = uidoc.document
Set subdoc = New NotesDocument(db2)
'Call w.EditDocument(True)
docChanged = w.DialogBox("(comments)", True, True, False, False, False, False, "Введите комментарии", subdoc,False,False)
If docChanged Then
If subdoc Is Nothing Then
' ничего
Msgbox "Empty"
Else
Call doc.ReplaceItemValue("sub_com",subdoc.GetItemValue("sub_com2")(0))
Call doc.Save (True, True)
'Call uidoc.save
'Call w.EditDocument(False)
Call uidoc.refresh
'Call uidoc.Reload
End If
End If
Exit Sub
handler:
Messagebox "Ошибка :" & Error & " в строке " & Cstr(Erl()),16, "Ошибка"
Exit Sub
End Sub
после внесения изменений хотелось бы сделать рефреш открытого документа, но появляется ошибка - говорящая о том что нельзя использовать эту команду..
вариант типа:
Call w.EditDocument(True)
.....................................
Call uidoc.save
Call w.EditDocument(False)
как-то не очень кажется "красивым" , что можно придумать?