Prüfung: "Feld geändert?"

[SaSaWu]

Ich suche nach einer einfachen Möglichkeit, beim Schließen bzw. Speichern eines Dokuments ein bestimmtes Feld daraufhin zu prüfen, ob es zuvor geändert wurde.

[koehlerbv]

Globale Variable in den Declarations der Maske erstellen.
Im PostOpen diese Variable mit dem aktuellen Wert des gewünschten Items belegen.
Im PostSave die globale Variable mit dem jetzigen Inhalt des Items vergleichen.

Ist also kein Hexenwerk.

Bernhard

[SaSaWu]

Danke, Bernhard!

Werd's probieren!

[LN4ever]

Wenn es etwas mehr sein darf/soll, dann scheu einmnal hier:

http://sw-guide.de/lotus-notes-domino/lotusscript-history/

Gruß

Norbert

[SaSaWu]

Tja, wer kein Script kann, ist hier wohl aufgeschmissen, gell? Oder gibt es eine Lösung via @Funktionen?

[ata]

... den Wert in ein Profildokument schreiben und damit überprüfen. Damit er dann nicht durcheinander kommet die DocID berücksichtigen...

Toni

[SaSaWu]

Mir würde es schon reichen, wenn beim Speichern auf den aktuellen Wert des Feldes (hier: IVStatus) hingewiesen wird mit der Möglichkeit fortzufahren oder abzubrechen.

Wenn ich im Querysave folgendes hinterlege

@If(@Prompt([YESNO];"Achtung!"; "Der Verkaufsstatus dieses Dokuments lautet: \'" + IVStatus + "\'. Wollen Sie dieses Dokument wirklich speichern?");"";@Return(""))

kommt die Abfrage auch ganz artig, aber entscheidet der User 'NO' wird das Dokument dennoch gespeichert. Kann ich @Return nicht im Querysave verwenden oder ist meine Formel fehlerhaft?

[DAU-in]

ich verstehe deine Formel nicht.

Du gibst in beiden Fällen einen Leerstring zurück, daher sollte ja auch die Reaktion von Notes dieselbe sein, oder sehe ich das verkehrt?

grüsse

Dau-in

[Axel]

Du brichst mit deiner Formel das Speichern nicht ab. Ich würde hier Script empfehlen. Damit kannst du nämlich das Speichern sauber abbrechen.


Sub Querysave(Source As Notesuidocument, Continue As Variant)

  Dim workspace As New NotesUIWorkspace
  Dim doc As NotesDocument

  Set doc = Source.Document

  If workspace.Prompt(2, "Achtung!", "Der Verkaufsstatus dieses Dokuments lautet: " & doc.IVStatus(0) & " Wollen Sie dieses Dokument wirklich speichern?") = 0 Then
    Continue = False  'Speichern abbrechen
    Exit Sub
  End If
End Sub

Axel

[SaSaWu]

Danke, Axel!

Das Script funktioniert prima!

Ich glaube, ich muss endlich mal ins Thema "Script" einsteigen! Gibt es da empfehlenswerte Literatur für Einsteiger?

[Axel]

Zum Beispiel:

Lotus Notes and Domino 6 Programming Bible

Axel

[ata]

... die Unterlagen vom Herdt-VErlag kann ich auch empfehlen - es lohnt sich aber auf jeden Fall in LS einzusteigen - ohne geht nicht...

Toni

[SaSaWu]

Danke für die Infos!

Ja, ohne geht wirklich nicht. Merke ich immer wieder....

[Schrammi]

Die Lernbücher von Herdt sind sehr empfehlenswert. Sie sind verständlich und praxisnah geschrieben.
Hab bis jetzt fast nur gute Erfahrungen damit gemacht.
Aber schau einfach mal selbst -> http://www.herdt4you.de Leseproben sind dort vorhanden zum reinschnuppern.


Gruß Christian

[SaSaWu]

Danke für Eure Tipps! Ich werde da wohl mal investieren....