mit Aktionsbutton Dokument schließen und wieder öffnen

[Christian97]

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]

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]

sorry, aber mit welcher intention ?

gruss

[Christian97]

@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]

Hi,

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

Überprüfe deinen Code nochmal.

Axel

[Christian97]

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]

Hi,

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



Axel

[klaussal]

... alles ins "initialize" rein..

[klaussal]

@axel,

du warst um 5 sec schneller  

[Christian97]

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

[Axel]

@klaussal

Schneller tippen, oder schnellerer Internetzugang    

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

Axel

[Axel]

Hi,

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

Set uidoc = workspace.Editdocument(true, doc)


Axel

[Christian97]

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

[Axel]

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]

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]

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]

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]

@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]

Hi,

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

   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]

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.