Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: muenzpraeger am 20.01.04 - 17:40:42
-
Hallo!
Ich "hänge" an folgender Stelle. Beim öffnen einer DB soll ein bestimmtes Dokument geöffnet und anschließend die DB geschlossen werden (Doc soll offen bleiben).
Das Doc hole ich mir im DB-Script und öffne es mit editDocument. Aber wie kann ich jetzt die DB schließen?
Alles unter R4.5.7
Thx,
Münzpräger
-
Mit Notes-Bordmitteln ist dies nicht zu bewerkstelligen. Du müsstest da mal in Richtung WinAPI forschen (DB-Fenster schliessen).
Bernhard
-
Ich habe hier eine DB (Demo) in der so etwas (wie auch immer) bewerkstelligt wurde.
Da es (auch) unter OS/2 läuft/laufen muss, kommt WinAPI nicht in Frage.
Gruß,
Münzpräger
-
OS/2 bietet ja auch 'ne API, und vielleicht geht auch was mit der Notes-API. Interessanterweise sind mir aus dem Netz immer nur Lösungen aufgefallen, die letztendlich auf die WinAPI hinauslaufen.
@eknori:
Weisst Du da was ?
Bernhard
-
Das dürfte unter OS/2 ganz ähnlich wie unter Win aussehen
-
Richtig - das könnte durchaus noch auf gemeinsamen Code von MS und IBM aufbauen ;-)
Bernhard
-
Es geht wie folgt - allerdings ohne Script:
In das "Über die Datenbank" ein Doklink auf das Dokument einfügen und dann als Startoption der Datenbank festlegen: "Erste Dokum.-Verknüpfung in Über die Datenbank starten".
Vielleicht ist das ja so in Deiner Demo-DB gemacht worden.
Andreas
-
Schliesst das das DB-Hauptfenster?
-
Irgendwie ein wenig undynamisch, oder ? Kann man natürlich machen - muss man aber nicht.
Es mag aber durchaus Fälle geben können, in denen die DB wirklich nur aus einem einzigen Dokument (wenn nicht sogar schon das "HelpAbout"-Dokument ausreicht) besteht, von dem aus dann weitere Aktionen ausgelöst werden.
Bernhard
-
Jetzt hab ich es: Ist ganz einfach ;D
Postopen der DB irgendwie so - das hat Münzpräger ja bereits:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("test")
Set doc = view.GetFirstDocument
Set uidoc = ws.EditDocument(False,doc)
Der Witz ist dann im Postopen der Maske. Dort:
@Command([OpenView];@ViewTitle);
@Command([FileCloseWindow])
Dadurch wird die aktuell geöffnete View geschlossen. Und es ist nur noch das Dokument offen.
Das DB-Hauptfenster ist ebenfalls zu.
Andreas
-
Super, trickreich, aber sowas ähnliches hatte ich schon fast vermutet ...
-
Cool, Andreas ;-)
-
@Glombi: Super, allerherzlichsten Dank!