Domino 9 und frühere Versionen > ND6: Entwicklung

NotesNavigator eine Kategorie durchgehen

<< < (2/4) > >>

Axel:
Hi,

das Ergebnis würde mich interessieren.


Axel

Marinero Atlántico:
NotesDocumentCollection ist nicht sortiert.

Alternative:
Falls es in der Ansicht durch die du iterieren möchtest möglich ist, das Dokument per key (ggbfls mehrere Spalten) in der View zu finden, dann geht einfach view.getNextDocument (doc).

 

TomLudwig:
Ich hab es jetzt mit folgendem Code gemacht. Funktioniert eigentlich einwandfrei. Oder hat noch jemand was dran auszusetzten?

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase   
   Dim doc As NotesDocument
   Dim item As NotesItem
   Dim view As NotesView
   Dim col As NotesDocumentCollection
   Dim FirstDoc As NotesDocument
   Dim ThisDoc As NotesDocument
   Dim LastDoc As NotesDocument
   Dim TempDoc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set doc = session.DocumentContext
   
   If doc.IsNewNote Then Exit Sub                        
   Set view = db.GetView("view")
   Set col = view.GetAllDocumentsByKey("MeineKategorie",True)
   Set FirstDoc = col.GetFirstDocument            
   Set LastDoc = col.GetLastDocument            
   Set ThisDoc = FirstDoc                  Do While doc.UniversalID <> ThisDoc.UniversalID   
      Set ThisDoc = col.GetNextDocument(ThisDoc)
   Loop
   
   Set item = doc.GetFirstItem("NsfName")
   
   If ThisDoc.UniversalID = FirstDoc.UniversalID Then
      Call doc.ReplaceItemValue( "PrevDocLink", "<span class=""grey"">None Found</span>")
   Else
      Set TempDoc = col.GetPrevDocument(ThisDoc)
      Call doc.ReplaceItemValue( "PrevDocLink", "<a href=""" + item.Text + "/0/" + TempDoc.UniversalID & "?OpenDocument"">Vorheriges Dokument</a>")      
   End If
   
   If ThisDoc.UniversalID = LastDoc.UniversalID Then
      Call doc.ReplaceItemValue( "NextDocLink", "<span class=""grey"">None Found</span>")
   Else
      Set TempDoc = col.GetNextDocument(ThisDoc)
      Call doc.ReplaceItemValue( "NextDocLink", "<a href=""" + item.Text + "/0/" + TempDoc.UniversalID & "?OpenDocument"">Nächstes Dokument</a>")      
   End If
End Sub

Marinero Atlántico:
ist es nicht effizienter, das mit einer Single Category View zu machen ?
v.a. für die runtime.
NotesCollections sind nicht sortiert.

TomLudwig:
Single Category View geht aus dem Grund nicht, da ich unzählig viele Views bräuchte.
So habe ich nur einen View in dem alle Kategorien drin sind.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete