Diskussions Forum

[chock]

Hallo,

ich versuche unser Diskussionsforum so anzupassen, das User auch ihre Disskussionen abschließen können.
Im Hauptdokument habe ich ein Feld zum eingebaut mit dem sie Benutzer die Diskussion auf "abgeschlossen" stellen können und somit in einen andere Ansicht verschoben werden.
Im Query Save – Event in der Hauptdokument-Maske habe ich folgendes Script eingetragen :

  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
 
  If Source.IsNewDoc Then Exit Sub
 
  Set doc = Source.Document
 
  Set dc = doc.Responses
  Call dc.StampAll( "status" , doc.status(0) )
 
Mein Problem ist jetzt, das alle Antwortdokumente zum Hauptdokument gesetzt werden, aber bei den Antwort zur Antwort Dokumenten passiert nichts.
Ist es Möglich Änderungen vom Hauptdokument in Antwort zur Antwort Dokumente zu übertragen?

[Driri]

Da müßtest Du wohl ein Schleifenkonstrukt bauen, um diese Dokumente auch mit zu erwischen.

Ich meine, dazu gabs hier im Forum schon mal nen Codebeispiel, benutz mal die Suche.

[Semeaphoros]

Und für das Arbeiten mit Haupt- und Andwortdokumenten gibt es einen Best Practices Artikel:

http://www.atnotes.de/index.php?board=26;action=display;threadid=13984

Hab jetzt nicht nachgeschaut, ob dafür eine Lösung drin ist, könnte aber sein.

[chock]

Aus diesem Artikel habe ich schon ein paar Informationen entnommen, z.B den Query Save Event.

Dieser bearbeitet aber leider nicht die Antwort zu Antwort Dokumente

[Semeaphoros]

Da musst Du rekursiv durchgehen, sprich, überprüfen, ob die Antworten selber Responses besitzen und dann diese Dokumente genauso bearbeiten.

[TMC]

Genau das sagt übrigens auch die Designerhelp zu der Responses Property, bitte auch immer regelmäßig die Hilfe benutzen:

Responses-to-Responses
This property returns only immediate responses to a document, but you can write a recursive sub or function to access all the descendants of a particular document. A recursive sub calls itself, the same way that a non-recursive sub calls any other sub or function.

Ein Beispiel ist dort auch vorhanden.