Domino 9 und frühere Versionen > Entwicklung

ParentDocumentUNID findet parent obwohl nicht vorhanden

<< < (2/5) > >>

AC:

--- Zitat von: Glombi am 08.01.04 - 15:47:21 ---Vielleicht wird ja auch das Deletion Stub für das Elterndokument gefunden.

Andreas


--- Ende Zitat ---

Neee, kanns nicht sein.
Ich hab mir extra zum testen und nachforschen eine neue TestDB gebaut.
Dort erzeuge ich die Dokumente im Backend via script (Siehe Antwort an Semea)

Das Elterrndokument wird erzeugt (noch nicht gespeichert), anschliessend ein oder auch mehrere Antwortdokument (werden gespeichert).

Wenn das Elterndokument nicht gespeichert wird tritt das Phänomen auf. (Auch schön im Debugger nachzuverfolgen)

In der DB habe ich nur alleinig die Antwortdokumente.
Aber via
Set parent = db.GetDocumentByUNID( doc.ParentDocumentUNID )

bekomme ich eben das "geisterdokument"

Habe mir jetzt grade aus der Sandbox das NotesPeek gezogen.

Holcomb


 Grüße, Holcomb

 

AC:
@glombi

Zur Info
Ich hab Deinen Tip in meinen code eingebaut
ich bekomme für das gefundene parent bei isdeleted ein false zurück.

Kann keine Löschmarkierung sein, weil ich auch außerdem nichts gelöscht habe.

(Ich habe nur vorhin _zusätzlich_ aus Neugierde mal getestet, was passiert, wenn man die Dokumente vpon Hand erzeugt und das elternteil  von Hand wieder löscht .)
 

Holcomb

Glombi:
Ich habe das reproduziert. Offenbar legt Notes intern irgendein obskures Dokument an, indem es aber keine Items gibt. Das ganze geht nur, wenn man es über das Backend macht, so wie Du es beschrieben hast.

Man kann das dann wie folgt abfangen:

Dim session As New NotesSession
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase
   Dim dc As NotesDocumentCollection
   Set dc = db.UnprocessedDocuments
   Dim doc As NotesDocument
   Set doc = dc.GetFirstDocument
   Dim pdoc As NotesDocument
   Set pdoc = db.GetDocumentByUNID( doc.ParentDocumentUNID )
   
   Dim x As Variant
   x = pdoc.Items
   
   If Isempty(x) Then
      Print "Elterndokument nicht gefunden"
   Else
      Print "Alles ok"
   End If

Semeaphoros:
Kann man nur sagen: "Huch ...."

AC:
NotesPeek findet keine deletionstubs (habe neue DB zum test herangezogen) und nur die richtige Anzahl von Antwortdokumenten.


Mein
Set parent = db.GetDocumentByUNID( doc.ParentDocumentUNID )

findet aber ein Dokument  :-/ für parent.

<grübel>
Bug ? Ich zu dämlich ;-)   ?
Hab Dt Version 5.0.10

Holcomb

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete