Autor Thema: mit Aktionsbutton Dokument schließen und wieder öffnen (Gelesen 6776 mal)

Christian97 · « **am:** 04.06.03 - 10:39:39 »

Hallo,

ich möchte gern über einen Aktionbutton das gerade geöffnete Dokument schließen und wieder öffnen. Mir fällt aber keine Idee ein, wie ich den Link des Dokumentes wieder öffnen kann?

Danke
Christian

Axel · « **Antwort #1 am:** 04.06.03 - 10:52:29 »

Hi,

versuch mal folgendes:

Erstelle dir einen Agenten mit folgendem Code:

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document

Call uidoc.Close

Set uidoc = workspace.Editdocument(true, doc)

Diesen Agent läßt du über den Aktions-Button ausführen.

Ich weiß allerdings nicht ob's funktioniert, hab' nicht probiert.

Axel

Till_21 · « **Antwort #2 am:** 04.06.03 - 10:52:37 »

sorry, aber mit welcher intention ?

gruss

Christian97 · « **Antwort #3 am:** 04.06.03 - 11:06:22 »

@Axel:
Hab's so eingefügt, aber es kommt die Fehlermeldung: "Reference appears before declaration: UIDOC"
Was muß ich da noch machen?

@Till_21:
Das soll ein Workaround zu meiner Frage von letzter Woche werden.
http://www.atnotes.de/index.php?board=7;action=display;threadid=8559

Axel · « **Antwort #4 am:** 04.06.03 - 11:27:55 »

Hi,

ich hab's mal probiert. Bei mir kommt keine Fehlermeldung.

Überprüfe deinen Code nochmal.

Axel

Christian97 · « **Antwort #5 am:** 04.06.03 - 11:33:39 »

hmm, will immer noch nicht. Ich hab den Agenten erstellt:
- Gemeinsam nutzen
- Option: Manuell aus dem Menü "Aktionen"
- Einmal ausführen
dann das LotusScript eingefügt. Die zwei Dim uidoc und Dim doc Zeilen tut er in die (Declarations), den Rest bei (Options) rein. Und dann kommen die Fehlermeldungen...
Wie hast Du's gemacht, daß es funktioniert?

Axel · « **Antwort #6 am:** 04.06.03 - 11:36:00 »

Hi,

ich hab den gesamten Code in den Initialize-Teil eingefügt.

Axel

klaussal · « **Antwort #7 am:** 04.06.03 - 11:36:05 »

... alles ins "initialize" rein..

klaussal · « **Antwort #8 am:** 04.06.03 - 11:37:05 »

@axel,

du warst um 5 sec schneller

Christian97 · « **Antwort #9 am:** 04.06.03 - 11:41:59 »

Danke, der Agent funktioniert, aber nun kommt die Fehlermeldung bei der Ausführung: "Document Command is not available"

Axel · « **Antwort #10 am:** 04.06.03 - 11:43:47 »

@klaussal

Schneller tippen, oder schnellerer Internetzugang

Mach dir nix draus, beim nächsten Mal bist du schneller

Axel

Axel · « **Antwort #11 am:** 04.06.03 - 11:45:35 »

Hi,

lass mal den Debugger drüber laufen, wo er aussteigt. Ich befürchte hier:

Set uidoc = workspace.Editdocument(true, doc)

Axel

Christian97 · « **Antwort #12 am:** 04.06.03 - 15:41:44 »

Ja, Du hast recht. Ich hab auch mal die Zeile weggelassen, dann geht's. Gibt's evtl. ne Möglichkeit, daß das geht?

Axel · « **Antwort #13 am:** 04.06.03 - 15:50:12 »

Hi,

ins Blaue hinein gedacht, hab ich noch folgende Idee.

Der Agent schreibt zuerst die ID des Dokuments in die Ini-Datei und schließt das Dokument dann. Anschließend wird die ID ausgelesen, das zugehörige Dokument in der Datenbank gesucht und dann geöffnet.

Code dafür hab ich im Moment leider nicht parat, aber ich denke du solltest anhand der Beschreibung den Agenten erstellen können.

Axel

Axel_Janssen · « **Antwort #14 am:** 04.06.03 - 15:56:37 »

tun den code nicht in den Agenten, sondern direkt hinter die Aktionsschaltfläche.

Im Agenten hast du -falls mich meine Erinnerung nicht in Stich lässt - keinen Zugriff auf die UI-Klassen.

Christian97 · « **Antwort #15 am:** 04.06.03 - 15:58:13 »

danke für die Beschreibung. Die Idee mit der notes.ini und der ID dadrin hatte ich mir auch überlegt, aber hab von LotusScript absolut keine Ahnung.

Falls Du also doch noch eine Lösung zaubern könntest, würde ich mich sehr freuen. Ich versuch aber auch mal ne Formellösung.

Danke
Christian

Axel · « **Antwort #16 am:** 04.06.03 - 16:13:25 »

Zitat von: Axel_Janssen am 04.06.03 - 15:56:37

Im Agenten hast du -falls mich meine Erinnerung nicht in Stich lässt - keinen Zugriff auf die UI-Klassen.

In den Agenten hast du sehr wohl Zugriff auf die UI-Klassen, allerdings nur, wenn es sich nicht um getriggerte Agenten handelt.

@Christian
Gib mir einen Moment Zeit.

Axel

Christian97 · « **Antwort #17 am:** 04.06.03 - 16:19:55 »

@Axel_Janssen:
Die Idee mit dem Agenten muß aber auch sein, denn in dem Button steht bestimmt schon ne halbe Seite Formel-Code drin. Der Action Button nur mit dem Auf-Zu-Script hätte ja sonst gar keinen Sinn.

Axel · « **Antwort #18 am:** 04.06.03 - 16:24:50 »

Hi,

versuch's mal damit. Hab ich eben mit heisser Nadel gestrickt.

Zitat

   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim strDocID

   Set db = session.CurrentDatabase
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document

   'Document-ID in ini-Datei schreiben
   Call session.SetEnvironmentVar( "DokID", doc.UniversalID)

   'Dokument schließen
   Call uidoc.Close

   'Auslesen der ID aus der ini-Datei
   strDocID = session.GetEnvironmentString( "DokID" )
   'Suchen des Dokuments in der Datenbank
   Set doc = db.GetDocumentByUNID(strDocID )
   'Öffnen des Dokuments
   Set uidoc = workspace.Editdocument(True, doc1)

Kopier den Code in den Initialize-Abschnitt des Agenten.

Axel

Christian97 · « **Antwort #19 am:** 04.06.03 - 16:38:04 »

Es stoppt leider immer noch an der selben Stelle mit der selben Fehlermeldung "Document command is not available"
Allerdings hatte ich auch einen Fehler in deinem Script in der letzten Zeile bemerkt, da die Variable nicht "doc1", sondern nur "doc" heißt. Da kam erst eine andere Fehlermeldung, dann die obige.