Sortierung nach Datum fehlerhaft

[Piranha]

Das u.a. Script nimmt aus einer Ansicht das älteste Dokument und aktualisiert das Datum im Feld "fld_Zitat_Datum" auf das Datum des neuesten Dokuments + 1. Somit sollte das nun aktualisierte Dokument (eigentlich) an erster Stelle stehen, da die Ansicht nach diesem Datum sortiert.

Das Dokument landet jedoch immer an zweiter Stelle. Sowohl eine Index-Aktualisierung als auch

Code:

@Command([ToolsRefreshSelectedDocs])

bringen keinen Erfolg.

Für etwas Hilfe wäre ich dankbar.

Hier mal das Script:

Code:

Sub Initialize

Dim oSession As New NotesSession
Dim oWorkspace As New NotesUIWorkspace
Dim oDb As NotesDatabase
Dim oView As NotesView
Dim oDocFirst As NotesDocument 'Erstes Dokument der Ansicht
Dim oDocLast As NotesDocument 'Letztes Dokument der Ansicht
Dim vReturn As Variant
Dim vNewDate As Variant

Set oDb = oSession.CurrentDatabase
Set oView = oDb.GetView("vwZitateall")
Set oDocFirst = oView.GetFirstDocument

vReturn = oDocFirst.GetItemValue("fld_Zitat_Datum")
vNewDate = vReturn(0)+1

Set oDocLast = oView.GetLastDocument

Call oDocLast.ReplaceItemValue("fld_Zitat_Datum",vNewDate)
Call oDocLast.Save(True,False,False)

Call oView.Refresh
Call oWorkspace.ViewRefresh

End Sub

Interessant ist, dass es mit +2 keine Probleme gibt. Dann habe ich zwar ein Dokument, was zwei Tage vor dem aktuellen Dokument liegt, allerdings fehlt mir dann natürlich das Dokument dazwischen.

Gruß
Ronny

[Driri]

Ich habe das mal nachgestellt. Das Problem scheint zu sein, daß beim Speichern aus dem Datum ein Datum/Zeit-Wert wird. Irgendwie gerät da die Sortierung durcheinander.

Versuch mal mit NotesDateTime zu arbeiten, z.B. so :

Dim oSession As New NotesSession
Dim oWorkspace As New NotesUIWorkspace
Dim oDb As NotesDatabase
Dim oView As NotesView
Dim oDocFirst As NotesDocument   'Erstes Dokument der Ansicht
Dim oDocLast As NotesDocument   'Letztes Dokument der Ansicht
Dim vDate As NotesDateTime

Set oDb = oSession.CurrentDatabase
Set oView = oDb.GetView("vwZitateall")
Set oDocFirst = oView.GetFirstDocument
   
Set vDate = New NotesDateTime(oDocFirst.GetItemValue("fld_Zitat_Datum")(0))
Call vDate.AdjustDay(1)
   
Set oDocLast = oView.GetLastDocument
   
Call oDocLast.ReplaceItemValue("Date1",vDate.DateOnly)
Call oDocLast.Save(True,False,False)
   
Call oView.Refresh
Call oWorkspace.ViewRefresh