Domino 9 und frühere Versionen > Entwicklung

Geht das? Wenn Dok älter als 1 Monat dann nicht mehr bearbeitbar.

<< < (2/2)

Axel:
Hi,

ich hab mal so was ähnliches gemacht. In meinem Fall läuft der Agent täglich und überprüft das Feld GueltigBis. Wenn es in der Vergangenheit liegt, wird das Dokument gelöscht.

Hier ist der Code:


--- Zitat ---   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim collection As NotesDocumentCollection   
   Dim dateTime As New NotesDateTime("12/01/94")
   Dim idx As Integer
   
   Set db = session.Currentdatabase
   
   'Suche nach abgelaufenen Dokumenten
   searchFormula$ = "GueltigBis < @Today"
   Set collection = db.Search(searchFormula$,dateTime,0)    
   
   'Löschen der Dokumente
   Call collection.RemoveAll(True)


--- Ende Zitat ---


Axel

Tino:
Ok Danke euch  beiden.....

Werde mir das mal anschauen und dann werde ich das schon hoffentlich irgendwie hinbekommen.....



DANKE!!!!! :)

Navigation

[0] Themen-Index

[*] Vorherige Sete