Domino 9 und frühere Versionen > Entwicklung

Versionsverwaltung von Dokumenten

<< < (2/2)

vossi:
Also mein Code sieht folgend aus:

Function deleteAntwort(doc As NotesDocument)
   
   Dim res As NotesDocumentCollection
   Dim resdoc As NotesDocument
   Dim nxtdoc As NotesDocument
   
   Set res = doc.Responses
   Set resdoc = res.GetFirstDocument
   While Not (resdoc Is Nothing)
      Set nxtdoc = resdoc.Responses.GetNextDocument(resdoc)
      Call deleteAntwort(nxtdoc)
      resdoc.Remove True
      Set resdoc = nxtdoc
   Wend   
   
End Function

Diese Funktion soll alle Antwortdokumente löschen. Das Problem besteht an der stelle
"Set res = doc.Responses". Hier ist die Collection "res" nach dem Aufruf leer, obwohl es
Antwort-Dokumente gibt. Also im Hauptdokument finde ich keine Verknüpfung zu den Antworten.
Da ich die Antwortdokumente nicht selber erzeuge, sondern die automatische Versioniereung in
Notes nutze, wird wohl eher das Problem in Notes liegen oder?

koehlerbv:
Ich habe Deinen Code mit R5.0.8 und 5.0.11 getestet: Ich bekomme brav eine DocumentCollection, insofern ich auf dem Hauptdokument stehe und es zu diesem Versionen gibt. Solange Du in den Versions-Dokumenten ein Item "$Ref" hast und dieses brav auf das Hauptdokument verweist, ist Dokumenten-seitig auch alles im grünen Bereich.

Nur sicherheitshalber: Du fragst auch wirklich vom aktuellen Hauptdokument aus die Versionen ab?

Bernhard

vossi:
Eeigentlich sollte der Code auch funktioniere. Bei manuell erzeugten Antwortdokumenten funktioniert der bei mir auch. Und ich stehe auch wirklich auf dem Hauptdokument.

Ich denke mal das es an der Versionierung von Notes liegt. Hat da schon jemand Erfahrung mit gemacht?
Nur wenn Notes hier eine Antwortdokument erstellt (call uidoc.SaveNewVersion), dann
habe ich das Problem.

Ich habe in der Maske folgendes eingestellt Dokument->Eigentschaften->Versionskontrolle->"Frühere Vers. werden Antworten"
und ->Version erstellen->"Manuell - Datei, Neue Version"

Navigation

[0] Themen-Index

[*] Vorherige Sete