Hallo,
wenn ein Dokument Response ist, setze ich im Postave ein Flag im Parent Dokument.
Set session = New notessession
Set workspace = New NotesUIWorkspace
Set db = session.CurrentDatabase
Set doc = source.Document
'set the flag in in parent doc, if there is one
If doc.IsResponse Then
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Set agent = db.GetAgent("(SetParentFlag")
Call agent.RunOnServer (doc.NoteID)
Call doc.replaceitemvalue ( "SetParentFlag", 1 )
Call doc.Save (True, False)
End If
Leider ist die NoteID bei neuen Dokumenten 0. Obwohl das Dokument ja schon gespeichert ist (PostSave).
Ich habe auch schon source.Reload versucht. Ohne Erfolg.
Kennt jemand das Problem?
Grüße
Sebastian