Datumszuweisung im Agent erzeugt Fehlermeldung auf Server

[Marshuhn]

Hallo,

ich habe mal wieder ein Problem. Wir haben aus der Raumreservierung einen Agenten individuell angepasst. Wir haben drei Server-Ebenen. Entwicklung, Test und Produktion.
Der Agent läuft in der Entwicklungsumgebung problemslos durch und ändert Werte in der Maske.
Das Template haben wir auf die Raumreservierungsdatenbank in der Test-Umgebung eingespielt. Hier erzeugte der Agent die Fehlermeldung:

 AMgr: Agent (Wert ersetzen(Automat.)' in 'Apps\raumres.nsf') error message: Date value not initialized

Wir hatten dann in der Zeile

   Dim purgedate As  New NotesDateTime   ("Heute")

dann geändert auf

   Dim purgedate As  New NotesDateTime   ("Today")

Danach lief der Agent ordnungsgemäß durch.

Hier ist das Script:

Code

Sub Initialize
	Dim s As New NotesSession
	Dim db As NotesDatabase	
	Dim dc As NotesDocumentCollection	
	Dim doc As NotesDocument	
	Dim nextdoc As Notesdocument
	Dim tmpdt As New NotesDateTime("")
	Dim purgedate As  New NotesDateTime	("Heute")
	Dim n As Integer	
	Dim StartDate As Variant
	Dim EndDate As Variant
	Dim OkToPurge As Integer
	Dim item As NotesItem
	Dim newItem As NotesItem
	Set db=s.CurrentDatabase
	Set dc=db.UnprocessedSearch("@Contains(Form;""Reservation"")", tmpdt,0)
	
	
	Call purgedate.AdjustDay (-2)
	Set doc=dc.GetFirstDocument
	
	
	While	Not (doc Is Nothing) 
		
		If doc.HasItem("$NoPurge") Then
			StartDate=doc.GetitemValue("$NoPurge")	
			
			
		Else
			StartDate=doc.GetitemValue("StartDateTime")	
		End If
		
		Forall eachstartdate In StartDate
			Dim tmpstartdate As New NotesDateTime(eachstartdate)
			If purgedate.TimeDifference(tmpstartdate)>0 Then
				
				OkToPurge=True
			Else
				
				OkToPurge=False	
				Goto DoNextDocument
			End If
			
		End Forall
		
		If OkToPurge Then	
			Set nextdoc=dc.GetNextDocument (doc)
			Zwischenwert2 = doc.GetitemValue("Form")
			
			If Zwischenwert2(0) ="Reservation" Then
				doc.Datum_Abgelaufen ="Ja"
				
				Call doc.Save(True, False)
			End If
		Else
			Call s.UpdateprocessedDoc(doc)
		End If		
		
DoNextDocument:		
		If doc Is Nothing Then
			Set doc=nextdoc			
		Else
			Set doc=dc.GetNextDocument (doc)		
		End If			
	Wend	
	
	
End Sub

Gibt es eine Möglichkeit das ganze mit

today()

zu lösen??

Gruß + Danke

Marshuhn

[dirk_2909]

Hallo

Warum verwendest Du nicht Date() , Format$( Date , "dd.mm.yyyy" ) , etc.

Dirk

[koehlerbv]

Format$ sehe ich in diesem Zusammenhang immer sehr kritisch, da diese von den OS settings abhängig sind. Ärger ist da faktisch vorprogrammiert.
Ebensowenig verstehe ich aber die weit verbreitete masochistische Ader, in LS DT-Operationen immer über die NotesDateTime class abfackeln zu wollen.
Dim vDT As Variant

vDT = Now (oder von mir aus auch Date oder Today)
Vorgestern ist jetzt simpel vDT - 2, denn vDT speichert in dieem Beispiel Datumsseriennummern, mit denen einfachst umgegangen werden kann und die zudem noch direkt und ohne Umwege in NotesItems gekippt werden können:
NotesDocument.TheDayBeforeYesterday = Today - 2

HTH,
Bernhard

[Marshuhn]

Hallo Dirk, hallo Bernhard,

vielen Dank für die Tipps.
@Bernhard: Besonders Deinen Tipp konnte ich nicht ganz nachvollziehen.
Habe daher selber noch ein bisschen getestet und habe die Variante

Dim purgedate As  New NotesDateTime (Today())

entscheiden.
Damit läuft alles.
Aber trotzdem noch einmal. Vielen Dank für EURE Hilfen.

Gruß

Marshuhn