Domino 9 und frühere Versionen > ND6: Entwicklung

EditDocument und QueryClose-Event

(1/2) > >>

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)

--- Ende Code ---

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

--- Ende Code ---

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)

--- Ende Code ---


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

--- Ende Code ---

Dann aber beim ersten Speichern nicht vergessen

--- Code: ---Source.RemoveItem("DontSend")
--- Ende Code ---

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?

Navigation

[0] Themen-Index

[#] Nächste Seite