Сообщение:
Всё-таки запарили бока, которые иногда вылазили...
%REM
Sub GotoDocument
Description: Переводит фокус в документ уже открытый на экране, если он не открыт - открывает по NotesURL
%END REM
Sub GotoDocument(ND As NotesDocument)
Dim URL As String
On Error Goto ErrH
URL = GetNotesURL(ND)
Dim NUIWS_Temp As New NotesUIWorkspace
Call NUIWS_Temp.URLOpen(URL)
On Error Goto 0
Exit Sub
ErrH:
Resume Next
End Sub
Public Function GetNotesURL(Obj As Variant) As String
'Формирование NotesURL переданного объекта
Dim NDB As NotesDatabase
Dim NN As NotesName
Select Case Typename(Obj)
Case "NOTESDOCUMENT": 'Ссылка на документ
Set NDB = Obj.ParentDatabase
Set NN = New NotesName(NDB.Server)
GetNotesURL = {Notes://} + NN.Common + {/} + NDB.ReplicaID + {//} + Obj.UniversalID
Case "NOTESVIEW": 'Ссылка на вьюху
Set NDB = Obj.Parent
Set NN = New NotesName(NDB.Server)
GetNotesURL = {Notes://} + NN.Common + {/} + NDB.ReplicaID + {/} + Obj.UniversalID
Case "NOTESDATABASE": 'Ссылка на базу
Set NDB = Obj
Set NN = New NotesName(NDB.Server)
GetNotesURL = {Notes://} + NN.Common + {/} + NDB.ReplicaID
End Select
End Function Иерархия документов данной дискуссии: Параметр [newInstance] в notesUIWorkspace.EditDocument (Vlad Sh) (05.10.2006 20:04:28) .... Это уже не паттерны, это намного круче! :) (-) (Gennadiy I. Zalutskiy) (06.10.2006 15:13:25) ........ Чувствую, как народ карячит свои системы :) Я этим вчера до ночи занимался :))) (-) (Vlad Sh) (06.10.2006 18:14:20) .... правильно ли я понял ? (Mitka Akulov) (06.10.2006 7:57:50) ........ Так точно! (-) (Vlad Sh) (06.10.2006 11:30:17) ............ мощь, спасибо! (Mitka Akulov) (06.10.2006 13:34:44) .... Решение проблемы для LN 6.5.x (+) (Vlad Sh) (09.10.2006 19:49:57) .... Финальная версия (для истории) )) (Vlad Sh) (19.10.2010 11:20:46) ........ А почему просто obj.NotesURL не подходит? (Rinat N. Karimov; SrvNotes) (22.10.2010 15:27:13)
