Eine andere Variante um solche Ansichten zub bekommen, ist das Vergleichsdatum "statisch" in die Selection-Formel zu schreiben
z. B. so:
vToday := @Date(2005; 9; 9);
REM {END vToday};
SELECT @Cretaed >= @Adjust(vHeute; 0; 0; -7; 0; 0; 0)
z. B. so:
%REM
Beschreibung:
Dieser Agent ändert in allen Ansichten der Ansichtsauswahlformel mit "vToday :=" anfangen und
den Code "Rem 'END vToday';" enthalten den Code vor dem REM auf den aktuellen Tag.
Damit kann anschließend eine datumsabhängige Auswahl getroffen werden,
ohne dass der variable Teil der Selection-Formel durch den Agenten berührt wird.
%END REM
Dim session As New NotesSession
Dim db As NotesDatabase
Dim sel As String
Dim pos1 As Integer
Dim pos2 As Integer
Dim doc As NotesDocument
Dim tmpdoc As NotesDocument
Set db = session.CurrentDatabase
Forall view In db.Views
' Selection-Formel holen
sel = view.SelectionFormula
' auf betroffenen Code suchen
pos1 = Instr(sel, "vToday :=")
pos2 = Instr(sel, |REM {END vToday};|)
If pos1 = 1 And pos2 > 0 Then
' Feld mit der Hilfeformel in temporärem Dokument sichern
Set doc = db.GetDocumentByUNID(view.Universalid)
Set tmpdoc = db.CreateDocument
Call doc.CopyAllItems(tmpdoc, True)
Forall item In tmpdoc.Items
If item.name <> "$AppHelpFormula" And item.name <> "$FormFormula" Then
Call item.Remove()
End If
End Forall
Set doc = Nothing
' Selection-Formel korrigieren und zurückschreiben
sel = |vToday := @Date(| & Format(Today, "yyyy\; mm\; dd") & |);
| &Mid(sel, pos2 - 1)
view.SelectionFormula = sel
' Ansicht noch aktualisieren
view.Refresh
' Feld mit Hilfeformel aus temprärem Dokument zurückspielen (geht nur mit CopyAllItems, da ReplaceItemValue keine Felder vom Typ 1536 beherrscht)
Set doc = db.GetDocumentByUNID(view.Universalid)
Call tmpdoc.CopyAllItems(doc, False)
Call doc.Save(True, False)
Set doc = Nothing
Set tmpdoc = Nothing
End If
End Forall
Falls der Agent mal einen morgen nicht läuft, hat man zwar 8 und nicht 7 Tage, aber die Ansicht selbst arbeitet und das auch noch schnell.
Gruß
André