Domino 9 und frühere Versionen > Entwicklung

QueryModeChange

(1/1)

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

--- Ende Code ---

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.

Navigation

[0] Themen-Index