How do you go to the last document in a category using Lotuscript?

You can also use the routine below to move onto the next category by moving to the last document in a specified category, then using view.GetNextDocument to move to the next category. Call the routine below as follows:

notesBackendDoc = GoToLastDocInCategory(StartDoc, View, FieldName, CategoryValue)

where:

StartDoc

- a NotesDocument in the category that you want to start out the search from.

View

- a NotesView that you will be searching.

FieldName

- a String containing the name of the item that holds the Category value.

CategoryValue

- a String containing what category value to check for.

Function GoToLastDocInCategory(StartDoc As NotesDocument, CheckView As
NotesView, ItemName As String, CategoryValue As String) As NotesDocument
  Dim PreviousDoc As NotesDocument
  Dim NextDoc As NotesDocument
  Dim CategoryItem As NotesItem
  Dim ThisDocCategoryValue As String
  Set NextDoc = StartDoc
  Set PreviousDoc = StartDoc
  Set CategoryItem = StartDoc.GetFirstItem(ItemName)
  ThisDocCategoryValue = CategoryItem.Text
  Do While Not(NextDoc Is Nothing) And (CategoryValue = ThisDocCategoryValue)
    Set PreviousDoc = NextDoc
    Set NextDoc = CheckView.GetNextDocument(NextDoc)
    If NextDoc Is Nothing Then Exit Do
    Set CategoryItem = NextDoc.GetFirstItem(ItemName)
    ThisDocCategoryValue = CategoryItem.Text
  Loop
  Set GoToLastDocInCategory = PreviousDoc
End Function

How do you go to the last document in a category using Lotuscript?

Applies to Notes Versions: 4 4.5 4.6 5 Last Modified: January 23, 1997Home Notes R3 Notes R4 Notes/Domino 4.5 Notes/Domino 4.6 Notes/Domino R5

Applies to Notes Versions: 4 4.5 4.6 5
Last Modified: January 23, 1997
Home Notes R3 Notes R4 Notes/Domino 4.5 Notes/Domino 4.6 Notes/Domino R5