HauptDoc schreibt in QuerrySave an alle AntwortDoc. AntwortDoc teilweise in Bear

[Klaas]

Hallo,

ich bins mal wieder.
Ich habe ein Hauptdokument.
Das Hauptdokument schreibt beim Speichern 3 Felder in alle Antwortdokumente.
Manchmal sind die Antwortdokumente noch im Bearbeitungsmodus. Des selben Users.
Ich habe nun diesen Artikel hier gefunden:
http://atnotes.de/index.php/topic,29937.0.html
Diese Funktion habe ich nun Probeweise in das QuerySave eingebaut.
Es funktioniert aber nicht. Funktioniert doc.IsUIDocOpen auch bei QuerySave nicht?
Gibt es vielleicht eine Alternative?

Code

Sub Querysave(Source As Notesuidocument, Continue As Variant)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	Dim doc As NotesDocument
	'Test Variabelen
	Dim tmpDc As NotesDocumentCollection
	Dim tmpDoc As NotesDocument
	
	Set db 								= session.CurrentDatabase
	
	If Source.IsNewDoc Then Exit Sub 										'Wenn UIDoc neu ist dann verlasse Script
	Set doc 								=Source.Document 				'UIDoc zu Backend-doc
	Set tmpdc 								= db.Search( |@False|,Nothing, 0 )	
	Set dc 								= doc.Responses					'alle Antwortdocs des Backend-Docs werden in die Collection aufgenommen
	Set tmpdoc								= dc.GetFirstDocument
	While Not tmpDoc Is Nothing
		If tmpDoc.IsUIDocOpen Then											' tmpDoc wird Überprüft, das momentan Bearbeitete Doc wird aber nicht übersprungen
			Set tmpDoc						= dc.GetNextDocument(tmpDoc)
		Else
			Call tmpDc.AddDocument(tmpDoc)
			Set tmpDoc						= dc.GetNextDocument(tmpDoc)
		End If
	Wend
   'Setze alle Felder der Collection, gespeichert wird automatisch   
	Call tmpDc.StampAll( "DeletStatusKind" , doc.DeletStatusVater )
End Sub