Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: rar am 18.02.04 - 15:53:54
-
Hi Ihr!
Ist es möglich den Text des "Wollen Sie Ihre Änderungen speichern?"-Dialoges zu ändern?
Abhängig von einem Feld im Dokument.
-rar
-
Hi,
ich glaube nicht, dass sowas geht. Das ist in Notes fest verdrahtet.
Axel
-
Nicht gut...
Und wie schauts mit verbergen aus?
-
Du könntest mit dem SaveOptions-Feld hantieren und darauf basierend einen eigenen Speichern-Dialog einbauen. Ist aber recht umständlich, wenns nur um den Text geht.
-
Habs übrigens geschafft, falls es jemanden interessiert.
Ich hab die Meldung ändern müssen, wenn ein Feld im Doc einen bestimmten Wert hat.
Ich hab dann im QueryOpen auf den Wert abgefragt und dann die SaveOptions auf "0" gesetzt und im QueryClose die geänderte Meldung ausgegeben und je nach Aktion gespeichert, nicht gespeichert oder abgebrochen und die Saveoptions wieder gelöscht.
lg
-
... dann stell doch mal das teil hier rein :)
-
Habs übrigens geschafft, falls es jemanden interessiert.
Ich hab die Meldung ändern müssen, wenn ein Feld im Doc einen bestimmten Wert hat.
Ich hab dann im QueryOpen auf den Wert abgefragt und dann die SaveOptions auf "0" gesetzt und im QueryClose die geänderte Meldung ausgegeben und je nach Aktion gespeichert, nicht gespeichert oder abgebrochen und die Saveoptions wieder gelöscht.
lg
sehr schön. was mich interessieren würde ist der Hintergrund der Geschichte.
Warum musste da ne andere Meldung in? Unter welcher Bedingung? Wie sieht die alternative Meldung aus?
Danke für die Info
-
Bidde sehr...
Einfach in der Maske folgende Codes eingeben!
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Dim doc As NotesDocument
Set doc = Source.Document
If doc.Status(0) = "Anderer Speicherdialog" Then
doc.SaveOptions = "0"
End If
End Sub
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If Source.EditMode = True Then
Dim doc As NotesDocument
Set doc = Source.Document
If doc.HasItem("SaveOptions") Then
Dim strMeldung As String
Dim i As Integer
i = 0
i = Msgbox("Meldungstext.",35,"Überschrift")
If i = 7 Then
'Raus ohne Speichern
Exit Sub
Elseif i = 2 Then
'Abrechen
continue = False
Exit Sub
Else
'Speichern
Call MeineAktionDieBeimSpeichernDurchgeführtWerdenMuss(doc)
End If
Dim item As NotesItem
Set item = doc.GetFirstItem("SaveOptions")
If Not item Is Nothing Call item.Remove()
Call Source.Save()
Call Source.Close()
End If
End If
End Sub
Das einzige Problem dabei ist nur, daß die Meldung auch dann kommt, wenn keine Änderung im Dokument vorgenommen worden ist. Wie man das Prüfen kann, weiß ich leider nicht.
-
@Thomas...
Wenn ein Dokument angelegt wird, sollten beim speichern Einige Personen informiert werden und der User kann das Dokument nacher nicht mehr ändern. Deshalb soll statt dem "Wollen Sie die Änderungen speichern" der alternative Text
"Soll die Reklamation weitergeleitet werden? Mit 'Nein' wird niemand über die Reklamation informiert und die erfassten Daten werden gelöscht."
erscheinen.
Einfach halt eine Zusatzinformation.
lG