Hallöchen,
ich habe nun ein Code via Notes Script gebastelt, orientiert an einen anderen aus der Designer-Hilfe.
Diesen Code habe ich im Initialize-Objekt meiner Test-Ansicht in der DB geschrieben.
Beim Debuggen bleibt er kurz bei Set Session = New NotesSession stehen.
Jedoch ohne Fehlermeldung.
Danach arbeitet er weiter.
Aber das Feld $Ref wird beim jeweiligen Antwort-Dokument ohne Hauptdokument nicht "geleert".
Vielleicht verstehe ich ja den Befehl
DocUNID = doc.ParentDocumentUNID
Set Parent = db.GetDocumentByUNID(DocUNID)
falsch.
Die verwaisten Dokumente haben zwar eine Parent-Unid, aber diese ist in der DB nicht vorhanden.
Kann mir bitte jemand einen Tipp geben, wie ich das prüfe?
Hier mein bisheriger Code:
Sub Initialize
Dim Session As NotesSession
Dim db As NotesDatabase
Dim Ansicht As NotesView
Dim Doc As NotesDocument
Dim Parent As NotesDocument
Dim DocUNID As String
Set Session = New NotesSession
Set db = Session.Currentdatabase
Set Ansicht = db.GetView("Test")
Set doc = Ansicht.GetFirstDocument
While Not Doc Is Nothing
If Doc.Form(0) = "Memo" Then
DocUNID = doc.ParentDocumentUNID
Set Parent = db.GetDocumentByUNID(DocUNID)
If Parent Is Nothing Then
Call doc.RemoveItem( "$Ref" )
Call doc.Save( True, True )
End If
Else
If Doc.Form(0) = "Reply" Then
DocUNID = doc.ParentDocumentUNID
Set Parent = db.GetDocumentByUNID(DocUNID)
If Parent Is Nothing Then
Call doc.RemoveItem( "$Ref" )
Call doc.Save( True, True )
End If
End If
End If
Set Doc = Ansicht.GetNextDocument(doc)
Wend
End Sub
Über eine Kollektion habe ich es nicht gelöst, da ich bereits einen Filter auf alle Dokumente mit $Ref habe.
Habt riesen Dank!!
Thema: Prüfung auf "Dokument verwaist" und dessen Umwandlung in Hauptdokument (Gelesen 7625 mal)