Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Martin W am 11.07.03 - 14:04:59

Titel: Archivierung
Beitrag von: Martin W am 11.07.03 - 14:04:59

Ich habe folgendes Problem:

Ich möchte bei der Neuerstellung eines Dokuments einen Radio Button zur Auswahl bereitstellen. Wird dieser ausgewählt, so muß nach dem speichern des Dokuments ein Agent anlaufen, der dieses archiviert! Wäre für jede Hilfe dankbar !!!

Titel: Re:Archivierung
Beitrag von: bob am 11.07.03 - 14:09:56

hier gibt's so was ähnliches:
http://www.atnotes.de/index.php?board=9;action=display;threadid=9083 (http://www.atnotes.de/index.php?board=9;action=display;threadid=9083)

Ist bestimmt leicht auf Deine Bedürfnisse anzupassen.

Bob

Titel: Re:Archivierung
Beitrag von: Axel am 11.07.03 - 14:12:46

Hi,

könnt' ich mir im QuerySave-Event in etwa so vorstellen:

Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent

...
Set db = s.CurrentDatabase
Set agent = db.GetAgent("Agent to be run LotusScript")

...
If doc.RadioButton(0) = "1" Then
  If agent.Run = 0 Then
        Messagebox "Agent ran",, "Success"
  Else
        Messagebox "Agent did not run",, "Failure"
  End If
End If
...

Das Radio-Button-Feld heißt in diesem Beispiel RadioButton und als Wert wurde ein Text mit einem Alias angenommen z.B.

Dokument soll archiviert werden|1

Axel