Sub Click(Source As Button)
   Dim docDetail As NotesDocument      
   Dim viewForRefresh As NotesView
   Dim view2 As NotesView      
   Dim strPos As String   
   Dim coll As NotesDocumentCollection
   Dim vOK As Variant
   
   Set viewForRefresh = db.GetView( "(LieferPositionen)" )
   Set view2 = db.GetView( "(BestellPositionenByKey)")
   Call view2.Refresh()
   Set coll = view2.GetAllDocumentsByKey(thisDoc.UniversalID)
   
   Select Case coll.Count
   Case 0:
      Msgbox "Keine Position vorhanden.", 48, db.title   
   Case 1:   
      Set docDetail = coll.GetFirstDocument
   Case Else:
      strPos = Inputbox$( "Welche Position bearbeiten?", "Position bearbeiten", "1" )
      If strPos = "" Then Exit Sub
      Set docDetail = view2.GetDocumentByKey( thisDoc.UniversalID + "-" + strPos )
      If docDetail Is Nothing Then
         Messagebox( "Position nicht vorhanden." )
         Exit Sub
      End If
   End Select
   
   vOK = ws.Dialogbox( "LieferPosEdit", True, True, False, False, False, False, "Bestellposition bearbeiten", docDetail )
   
   If vOK = True Then
      Call docDetail.Save( True, True )
      Call viewForRefresh.Refresh()
      Call uiDoc.Refresh()
   End If
   
End Sub