Sorry da hatte ich wohl überlesen, dass die Eltern-Dokumente schon gelöscht sind. Aber für diesn Fall habe ich auch einen Code-Schnipsel.
' doc_res ... irgend ein Kind-Dokument
dim item as NotesItem
set item = doc_res.GetFirstItem("$REF") ' in $REF steht die UID des Eltern-Dokuments
if Not item is Nothing then ' falls es doch kein Kind-Dokument ist wir hier abgebrochen
set doc = db.GetDocumentByUNID(item.Values(0)) ' suche nach dem Eltern-Dokument
If doc is Nothing then ' falls es nicht vorhanden ist ...
call doc_res.Remove(True) ' ... Kind-Dokument löschen
end if
end if
Gruß
Dirk