Function DDGetReferencedDoc(DDocID As String, DDLIBRARY As Variant) As Notesdocument
On Error Goto errorhandler
Dim ReferencedDDoc As Variant
Set DDGetReferencedDoc = Nothing
'Get Domino.Doc Reference using ID
Set ReferencedDDoc = DDLIBRARY.GetDocumentByID (DDocID) 'DocumentID(0))
Set DDGetReferencedDoc = DDGetReferencedDocForDDoc(ReferencedDDoc)
Exit Function
errorhandler:
Select Case Err
Case 213:
Error 21043, gWFSession.GetText("DDDocDocNA")'"The referenced Domino.doc document cannot be located"
Case Else
Error Err, Error$
End Select
Exit Function
End Function
Function DDGetReferencedDocForDDoc(DDoc As Variant) As Notesdocument
Dim docUnID As String
Dim cabinet As Variant
'CabinetDb is defined globally, otherwise the document referrence retrieved from this objekt will deleted this function terminates
Dim DBReplicaID As String
Dim binder As Variant
Dim serverName As String
'get DocumentUniqueID
DocUnID = DDoc.UniversalId
'get DatabaseReplicaID
Set binder = DDoc.Binder 'get parent binder
DbReplicaID = binder.DocumentDatabase ' get replica ID of database
'get ServerName
Set cabinet = binder.cabinet ' get parent cabinet
ServerName = cabinet.NotesServer ' get cannonical Name of the server
'get the referenced document
Set cabinetDB = New Notesdatabase("","")
Call cabinetdb.OpenByReplicaID( ServerName, DBReplicaID )
Set DDGetReferencedDocForDDoc = cabinetdb.GetDocumentByUNID(DocUnID )
End Function
