Domino 9 und frühere Versionen > ND6: Entwicklung

Parameter bei ws.EditDocument

(1/3) > >>

Bille:
Hallo!

Ich möchte abhängig von einem bestimmten Feldwert das Editieren von Dokumenten verhindern. Der Feldwert wird zuvor durch eine Änderung im Backend gesetzt.
Im Event "QueryModeChange" wird diese Änderung jedoch nicht gleich, sondern erst beim erneuten Öffnen des Dokumentes erkannt.

Ich hab also exakt das gleiche Problem wie Jerome in diesem Thread hier:
http://atnotes.de/index.php?topic=27666.0

Lt. Designer-Hilfe sollte mit
Call ws.Editdocument (True, doc,,,, False)
das Dokument im Edit-Mode ohne neues Fenster geöffnet werden.

Leider ist das bei mir nicht der Fall. Es wird zwar kein neues Fenster geöffnet, das Dokument ist aber leider nicht im Edit-Mode.

Stimmt evtl. ein Parameter nicht?

Gruß
Bille

Axel:
Soweit ich das sehe, sind die Parameter in Ordnung. Ich denke mal in irgendeinem Masken - Event wird der Edit - Modus wieder zurückgesetzt.


Axel

Bille:
Ich hab jetzt nochmal geguckt, finde aber nirgends den Fehler.
Hier mein Code, der das Dokument in den Bearbeitungsmodus setzen soll:

--- Code: ---...
doc.EditFlag = "1"
Call doc.Save(True, True)
Call ws.Editdocument (True, doc,,,, False)
...

--- Ende Code ---

Masken-Events:

--- Code: ---Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If Not Isnewdoc Then 
If Source.Document.EditFlag(0) = "0" And Mode Then
Messagebox "Ein nachträgliches Verändern des Dokuments ist nicht möglich!!!", 48, "FEHLER"
Continue = False
End If
End If
End Sub

--- Ende Code ---


--- Code: ---Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
If Source.Document.EditFlag(0) = "0" Then
Messagebox "Ein nachträgliches Verändern des Dokuments ist nicht möglich!" , 48, "FEHLER"
Continue = False
End If
End Sub
--- Ende Code ---


--- Code: ---Sub Postmodechange(Source As Notesuidocument)
Call Source.Fieldsettext("SaveFlag","0")
End Sub
--- Ende Code ---


--- Code: ---Sub Querysave(Source As Notesuidocument, Continue As Variant)
If source.fieldgettext("SaveFlag") = "0" Then
Continue = False
Msgbox "Bitte Dokument über Button speichern. Danke!", 64, "Hinweis zum Speichern"
End If
End Sub
--- Ende Code ---

Weiß jemand einen Rat?

Bille

Axel:
Das scheint ein Cache-Problem zu sein. Was soll denn das werden? Vielleicht gibt's noch einen anderen Weg.


Axel

klaussal:
Vielleicht hilft auch ein reload des Dokuments.

Navigation

[0] Themen-Index

[#] Nächste Seite