Function MyGetMainDoc(UN As String) As NotesDocument
Dim ws As New NotesUIWorkspace
Dim parent As NotesDocument
Dim db As New NotesDatabase("","")
Dim view As NotesView
On Error Goto Errhandle
If Not db.OpenWithFailover( MyGetServer("DBDocs"),MyGetDB("DBDocs")) Then
Messagebox "Документ не найден, возможно он был удален, или БД временно не доступна!"
Exit Function
End If
Set view = db.GetView("($UN)")
Set parent = view.GetDocumentByKey(UN)
If Not (parent Is Nothing) Then
Set MyGetMainDoc = parent
Else
If Not db.OpenWithFailover( MyGetServer("DBArchive"),MyGetDB("DBArchive")) Then
Messagebox "Документ не найден, возможно он был удален, или БД временно не доступна!"
Exit Function
End If
Set view = db.GetView("($UN)")
Set parent = view.GetDocumentByKey(UN)
If Not (parent Is Nothing) Then
Set MyGetMainDoc = parent
Else
If Not db.OpenWithFailover(MyGetServer("DBTrash"),MyGetDB("DBTrash")) Then
Messagebox "Документ не найден, возможно он был удален, или БД временно не доступна!"
Exit Function
End If
Set view = db.GetView("($UN)")
Set parent = view.GetDocumentByKey(UN)
If Not (parent Is Nothing) Then
Set MyGetMainDoc = parent
Else
Set MyGetMainDoc = Nothing
End If
End If
End If
Exit Function
Errhandle:
Messagebox "Error on MyGetMainDoc" & Str(Err) & ": " & Error$+"on line" & Cstr(Erl)
Exit Function
End Function
