QueryModeChange

[Gruenkohl]

Guten Morgen,

ich wollte folgendes Script im QueryModeChange ausfühern lassen,
aber es wird nicht berücksichtigt. Der Debugger springt auch nicht dort hin. Das Dokument wird ganz normal geöffnet.

Code

If source.IsNewDoc = False Then
		If Not ( source.EditMode ) Then
			Dim s As New NotesSession
			Dim db As NotesDatabase
			Dim dbDoc As NotesDocument
			Dim dateCheck As NotesDateTime
			
			Set db = s.CurrentDatabase
			Set dbDoc =db.GetProfileDocument("frmdbProfil")
			If dbDoc.txtdbProfilTagesFrist(0) <> "" Then
				Frist = Cint(dbDoc.txtdbProfilTagesFrist(0))
			Else
				Frist = 0
			End If
			
			Erstellt = source.FieldGetText("datErgebnisErfassung")
			
			Set dateCheck = New NotesDateTime(Erstellt)
			Call dateCheck.adjustDay(Frist)
			Stop
			If Today > dateCheck.LocalTime Then continue = False : Msgbox "Sie dürfen das Dokument nicht mehr ändern."
		End If
	End If

Hat jemand ne Ahnung, warum es nicht greift?

Danke und Gruss
Andreas

[koehlerbv]

Ausführliche Erläuterungen gibt es hier:
http://www.atnotes.de/index.php?topic=20455.0

Bernhard

[Gruenkohl]

 
Sorry, hab grad gesehen dass unten diese Frage schon mal gestellt wurde.