Hi an alle. Als ich verzweifelte habe ich mir gedacht einen Agenten zu schreiben, der die Dokumente rausprintend. Der Code steht unten. Was kann der Code ? Auf Basis des Beispiels (Link von Axel) wird jetzt eine Navigation aufgebaut und die Dokumente werden verlinkt. Gut. Was geht noch nicht ?
1. Mein Beispiel kann bisher nur eine Antwort generieren und ein Kommentar erstellen. --- weil ---- getChild kann nur eine Antwort (die erste Antwort) holen. Ein Schleife durch die Antworten habe ich noch nicht gefunden.
----> Eine Lösung hierfür wäre schon mal super.
2. Bei meinem Beispiel sind alle Einträge aufgeklappt. (viel zu hoch) und nimmt sehr viel Platz weg. --> Komisch auch, das selbst die Einträge ohne Antworten (nur Hauptdokument) sich auch aufklappen lassen.
----> Ein Lösung hierfür wären sehr klasse
3. Ich glaube das Lösungssciript, welches in den JSHeader kopiert wird ist so nicht in der Lage einen reinen Baum anzuzeigen. Ab der zweiten Ebene wird eine leere Zwischenebene benutzt. Siehe Beispiel hier.
http://www.dynamicdrive.com/dynamicindex1/navigate1.htmWenn Ihr genau hinsieht, dann ist der dritte Eintrag ein leerer Ordner und macht wiederholt wieder die Struktur.
Ich persönlich finde Axels Ansatz in der Ansichtspalte am besten nur wird vielleicht auch hier der JS-code nicht ausreichen.
Help-----
------------------------------------------
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim v As Notesview
Dim doc As NotesDocument
Dim stringvarend As String
Dim navdoc As NotesDocument
Dim response As NotesDocument
Dim responseCC As NotesDocument
Dim area As String
Dim konfview As NotesView
Dim konfdoc As NotesDocument
Dim col As NotesDocumentCollection
Dim i As Integer
Set db = s.CurrentDatabase
Set v = db.GetView("content")
Set doc = v.GetFirstDocument
Set konfview = db.GetView("konfnav")
Set konfdoc = konfview.GetFirstDocument
If Not (konfdoc Is Nothing) Then
Call konfdoc.Remove(True)
End If
While Not (doc Is Nothing)
If doc.form(0)="area" Then
stringvar = stringvar + {<li id="foldheader"><a href="
http://spsrv1/igusIntranet80_b.nsf/content/} & doc.uniqueid(0) & {?Opendocument" target="content">} & doc.a_area(0) & {</a></li>}
Set response = v.getchild(doc)
If Not (response Is Nothing) Then
stringvar = stringvar + {<ul id="foldinglist"><li><a href="
http://spsrv1/igusIntranet80_b.nsf/content/} & response.uniqueid(0) & {?Opendocument" target="content">} & response.CSubject(0) & {</a></li>}
Else
stringvar = stringvar + {</ul>}
Goto weiter
End If
Set responseCC = v.getchild(response)
If Not (responseCC Is Nothing) Then
stringvar = stringvar + {<ul id="foldinglist"><li><a href="
http://spsrv1/igusIntranet80_b.nsf/content/} & responseCC.uniqueid(0) & {?Opendocument" target="content">} & responseCC.CCSubject(0) & {</a></li></ul>}
End If
Else
stringvar = stringvar + {</ul>}
End If
weiter:
stringvarend = stringvarend + stringvar
stringvar=""
Set doc = v.GetNextDocument(doc)
Wend
Set navdoc = db.CreateDocument
navdoc.form = "konfnav"
navdoc.label = stringvarend
Call navdoc.save(True,True)
End Sub
