Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Perry am 20.04.06 - 19:33:16

Titel: GetNextDocument liefert gleiches Dokument nochmals
Beitrag von: Perry am 20.04.06 - 19:33:16

Hallo !

Ich schreibe einen Agenten der alle Dokumente in einem aufsteigend sortierten Folder durchlaufen soll.
Ich hole mir also mit GetFirstDocument das erste Dokument aus diesem Folder, verarbeite es und möchte dann mit GetNextDocument zum nächsten springen und das vorherige Dokument löschen, sofern es meinen Kriterien entspricht.
Leider bekomme ich das gleiche Dokument, welches ich schon mit GetFirstDocument bekommen habe, nochmal zurückgeliefert.
Beim nächsten Durchgang ist das Objekt leer.

Hat einer einen Plan ?  :)
Danke schon im Voraus !

Gruss, Perry

Auszug aus meinem Agenten:

If objFolders.IsFolder Then
  If objFolders.Name = "(DisplayPrices)" Then
    objFolders.AutoUpdate = False
    Set objFolder =objFolders
    Set objDoc = objFolder.GetFirstDocument
                     
    Do While Not(objDoc Is Nothing)
      strDocDate = objDoc.AdrDate(0)   
      arrSplitDocDate = SplitString(strDocDate, "/")
                        
      Set objTempDoc =  objFolder.GetNextDocument(objDoc)
      If arrSplitDocDate(2) <> objConfigDoc.fldParameters(0) Then
        objDoc.Remove(True)
      End If         
      Set objDoc = objTempDoc   
    Loop   
  End If
End If            

Titel: Re: GetNextDocument liefert gleiches Dokument nochmals
Beitrag von: Wirsing am 25.04.06 - 09:40:34

Hallo Perry,

ist Dein objFolders eigentlich eine Collection?
Siehe Hilfe --> "Set notesViewEntryCollection = notesView.AllEntries"

sollte also ungefähr so aussehen:

...
Dim objFolder as NotesViewEntryCollection
Dim objDocEntry as NotesViewEntry
...

...
Set objFolder = objFolders.AllEntries
Set objDocEntry = objFolder.GetFirstEntry

Do While Not(objDocFolder Is Nothing)
    Set objDoc = objDocEntry.Document
...

Und den Loop natürlich auch entprechend mit den ViewEntries anpassen...


Grüsse

Holger