EditDocument und QueryClose-Event

[Katja_S]

Hallo zusammen,

folgendes Problem: ich erstelle über eine Aktion ein neues Dokument über db.CreateDocument und setze dann auch gleich die enstprechende Form. Anschließend öffne ich das Dokument über ws.EditDocument...

Code

Set newDoc = db.CreateDocument
newDoc.Form = "Dienstreiseantrag"
Set uiDoc =  ws.EditDocument(True, newDoc)

Funktioniert auch soweit. Wenn ich jetzt dieses Dokument einfach schließen möchte, dann möchte Notes eine Mail verschicken. Diese Senden der Email ist im QueryClose-Event enthalten. Allerdings frag ich dort vorher ab, ob 's ein neues Dok ist und wenn das so ist, soll er keine Mail rausschicken. Dennoch will er es...

Code

'wenn Abbrechen, Mail nicht senden
If Source.IsNewDoc Then
	Exit Sub
End If

Zusätzlich ist mir aufgefallen, dass Notes in diesem Fall nicht einmal debuggt. Öffne ich diese Maske ganz normal aus dem Designer raus, funktioniert alles und der Debugger läuft auch, und die Mail wird nicht versandt.

Habt ihr eine Idee?

Danke und Gruß
Katja

[Untitled]

Dieses Phänomen habe ich auch schon beobachtet. Sobald man im Backend das Dokument mit Script erstellt hat, funktioniert auch @IsNewDoc nicht mehr und gibt an, das Dokument sei nicht mehr neu.

Da musst du wohl ein Flag setzen um eine zusätzliche Überprüfung zu ermöglichen.

Warum der Debugger nicht anspringt, kann ich mir auch nicht erklären...

Grüsse
Moritz

[Glombi]

versuch mal

set newDoc = db.CreateDocument
newDoc.Form = "Dienstreiseantrag"
newDoc.MailOptions="0"
Set uiDoc =  ws.EditDocument(True, newDoc)

call uiDoc.Document.RemoveItem("MailOptions") 

ODER

uidoc.Document.MailOptions = "1"


je nach dem wie es in der Maske definiert ist

[Katja_S]

der Dienstreiseantrag an sich soll ja nicht verschickt werden, sondern es soll dann eine neues Memo rausgeschickt werden. Das mit den Mail-Options klappt also nicht. Und das mit dem Flag hab ich auch ausprobiert, so richtig klappt das auch nicht...Was mich halt echt verwundert ist, dass der Debugger nicht anspringt...

[Untitled]

Das mit dem Flag sollte etwa so aussehen:

Code

Set newDoc = db.CreateDocument
newDoc.Form = "Dienstreiseantrag"
newDoc.DontSend = "1"
Set uiDoc =  ws.EditDocument(True, newDoc)

Code

'wenn Abbrechen, Mail nicht senden
If Source.IsNewDoc or Source.DontSend(0) = "1" Then
	Exit Sub
End If

Dann aber beim ersten Speichern nicht vergessen

Code

Source.RemoveItem("DontSend") 

Was hat denn daran genau nicht geklappt? Code?

Wo springt denn der Debugger nicht an? Beim QueryClose oder bei der Aktion? Sind zufälligerweise Dialogboxen im Spiel?

[Axel]

Diese Problematik, dass notesuidocument.IsNewDoc bei einem neuen Dokument, welches über das Backend generiert, nicht funktioniert habe ich auch schon beobachtet.

So solltest du dir helfen können:

'wenn Abbrechen, Mail nicht senden
If Source.Document.IsNewNote Then
   Exit Sub
End If

Warum der Debugger hier rumzickt kann ich dir auch nicht sagen, aber ich habe das bei mir auch schon gehabt, dass er Code im QueryClose ignoriert. Du müsstest dir aber mit Breakpoints in diesem Event helfen können.


Axel

[Katja_S]

Danke Axel für deinen Tipp. Das hat funktioniert.

Gruß
Katja