Domino 9 und frühere Versionen > ND6: Entwicklung
LS: Übergeordnete Kategorie Wert zurückgeben
jo@chim:
Hmmm ... ja: danke für den Tipp Tode, das klingt vielversprechend. Werde mir das mal ansehen & den Code dann hier posten, falls es klappt.
jo@chim:
Negativ: entry.NoteID gibt bei Kategorien einen Leerstring zurück, ich kann also nicht mit uiview.CaretNoteID vergleichen ...
... Bluadige Hennakröpf!
Fedaykin:
Diese Funktion gibt dir das darauffolgende Dokument zurück wenn Du Kategorie markiert hast. Hoffe hilft und ist sicher noch optimierungsfähig. Aber jetzt erst mal Feierabend und Bierchen trinken. ;D
Function NextDocInUIView(db As NotesDatabase,UIView As NotesUIView) As NotesDocument
Dim vwnav As NotesViewNavigator
Dim vwEntry As NotesViewEntry
Dim Found As Boolean
Found=False
Set vwnav=UIView.View.CreateViewNav
Set NextDocInUIView=db.GetDocumentByID(UIView.CaretNoteID)
If NextDocInUIView Is Nothing Then
Set vwEntry=vwnav.GetFirst
Do Until vwEntry Is Nothing
If vwEntry.IsCategory Then
If vwEntry.ColumnValues(vwEntry.IndentLevel) =uiview.CaretCategory Then
Found=True
End If
Else
If Found Then
Set NextDocInUIView=db.GetDocumentByID(vwEntry.NoteID)
Exit Do
End If
End If
Set vwEntry=vwnav.GetNext(vwEntry)
Loop
End If
End Function
jo@chim:
Dankeschön! Hoffe, das Bier hat geschmeckt :-)
Nachdem ich in Deiner Funktione den NotesView ausdrücklich deklariere
Set view=uiview.View
Set vwnav=view.CreateViewNav
läuft es (vorher gabs ne Object variable not set).
Allerdings auch nur bei maximal zwei Kategorienebenen (eine Haupt-, eine Unterkategorie) - bei einer tieferen Hierachie gibt die Funktion falsche Ergebnisse oder ebenfalls ovns zurück.
Es bleibt also spannend ...
Tode:
Die Funktion von Fedaykin fällt dummerweise schon bei diesem Konstrukt auf die Nase:
HauptKat 1
Unterpunkt
HauptKat 2
Unterpuinkt
Wenn der Cursor also auf "Unterpunkt" auf Hauptkat 2 steht, es aber unter Hauptkat 1 schon einen Unterpunkt mit gleichem Namen gibt...
So einfach geht das nicht...
Tode
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln