NextSibling bricht ab

[botschi]

Aus der Hilfe habe ich folgenden Code (leicht abgewandelt):

Code

Dim parentDoc As NotesDocument
		Dim responseDoc As NotesDocument
		
		Set parentDoc = view.GetFirstDocument     
'   Visit each main document in the view
		While Not ( parentDoc Is Nothing )
			
			Set responseDoc = view.GetChild( parentDoc )
  '   Visit each of the parent's response documents
			While Not ( responseDoc Is Nothing )
				responseDoc.ExpireDate = Cdat(askme)
				Call responseDoc.Save(True, False)
				Set responseDoc = view.GetNextSibling( responseDoc )
			Wend
  '   Put the new total onto the parent document
			doc.ExpireDate = Cdat(askme)
			Call parentDoc.Save( True, False )
			Set parentDoc = view.GetNextSibling( parentDoc )
		Wend

Bei

Code

Set parentDoc = view.GetNextSibling( parentDoc )

bricht der Agent mit "Eintrag im Index nicht gefunden" ab.
In der Hilfe steht dazu:

If the specified view is different from the current view, the GetNextSibling method returns the following error: "Document not found in <view>." That is, you can only navigate using the Document parameters that are from the same view in which you are navigating.

Ich hab doch nur 1 View, es gibt keine andere in diesem Agenten. Auch wenn ich die angegebene View as Default kennzeichne, bricht der Agent da ab.

Kann mir jemand helfen?

Matthias

[ata]

Hallo Matthias,

... ich arbeite nicht mit Siblings, sondern mit Responses. Über Responses.Count hast du die Gewissheit, daß es keine gibt - ansonsten eben mit GetFirstDocument und GeNextDocument laufen...

Toni

[botschi]

OK, dann bastel ich das mal um und probier.
Dennoch macht mich das nicht restlos glücklich, die Lösung fand ich eigentlich ziemlich gut...

Matthias

[botschi]

Der Code bricht mit dem selben Fehler bei "view.getnextdocument(doc)" ab

Code

Set doc = view.GetFirstDocument
	If Not doc Is Nothing Then
		
'%REM
		Dim parentDoc As NotesDocument
		Dim responsecoll As NotesDocumentcollection
		
		Set parentDoc = view.GetFirstDocument     
'   Visit each main document in the view
		While Not ( parentDoc Is Nothing )
			
			Set responsecoll = parentDoc.Responses
			If Not responsecoll.Count = 0 Then
				Call responsecoll.StampAll("ExpireDate",Cdat(askme))
			End If
			
			doc.ExpireDate = Cdat(askme)
			Call parentDoc.Save( True, False )
			Set parentDoc = view.GetNextDocument(parentDoc)
		Wend

Liegt es an meiner Ansicht? Die erste Spalte ist sortiert, keine Kategorie...

Matthias

[m3]

"doc.ExpireDate = Cdat(askme)"
Sollte das nicht "parentdoc" sein?

[diali]

das doc scheinst Du nicht aus der Ansicht zu holen. In der Zeile
Set parentDoc = view.GetNextDocument(doc)
muss es dort nicht view.GetNextDocument(parentdoc) lauten?

[botschi]

Richtig, und es muss auch

Code

Set parentDoc = view.GetNextDocument(parentDoc)

heissen.

Trotzdem bricht der Kram ab!

Matthias

[diali]

werden die Dokumente nach dem Speichern in der Ansicht anders sortiert? Dann arbeite lieber mit eine Collection.

[botschi]

Das war der richtige Schubser!
Das ist meine Ansichtsauswahl

Code

SELECT (Form = "Ticket") & (status = "geschlossen" | status = "verworfen" & @Adjust(closedatum;4;0;0;0;0;0) < @Date(2008;1;31) & ExpireDate = "") & (!@IsResponseDoc)

Wenn ich ExpireDate fülle, fliegt das doc ja aus der Ansicht!

Traumhaft, ich bin so bescheuert!
Danke für die Hilfe!

Matthias

[ata]

... deine Deklarationen...

      
Dim parentDoc As NotesDocument
Dim responsecoll As NotesDocumentcollection

... würde ich nach oben setzen.

Ändert sich die View durch das setzen des Feldes?

Toni

[ata]

... sorry - hat sich überschnitten...

Toni