Замечание к документу "Финальная версия (для истории) ))"   >>>

Тема: А почему просто obj.NotesURL не подходит?

А почему просто obj.NotesURL не подходит?

19.10.2010 12:20:46 Vlad Sh написал:

> Всё-таки запарили бока, которые иногда вылазили...

> %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