Reopen Dokument

[Gerhard]

Hallo zusammen !
Bitte einen Ansatz (Lotus Script) für folgendes Problem:
Im Dokument wird vor dem Speichern die zugrundeliegende Maske geändert (Feld form neu gesetzt) und das Dokument dann gespeichert.
Ich möchte gleich darauf das Dokument wieder neu öffnen (via Code), damit es mit der neuen Maske automatisch dargestellt wird (das Dok in den edit Modus zu bringen zeit hier keinen Erfolg).

Danke für Anregungen.

[eknori]

Schematisch etwa so:

DocID in Variable merken
Änderung der Maske durchführen
Dok speichern + schliessen
Doc über die gemerkte DocID suchen und öffnen

[Axel]

Suche hier im Forum mal nach Reopen. Da findest du jede Menge Info. Außerdem hat unser Forenmitglied ata mal eine entsprechende Funktion geschrieben.

Axel

[Gerhard]

Ok, danke vielmals für den Ansatz !

[Gerhard]

Kann mir wer sagen wie/wo ich diesen Post von ata finde ?

[klaussal]

Vielleicht hier:

http://www.anton-tauscher.de/LotusScript/startdyn.htm

[klaussal]

Habe da noch was gefunden:

Code

 REM Das aktuelle Dokument schließen und wieder öffnen...... 
    Function ReOpen(docThis As NotesDocument) As Integer 
        Dim ws As New NotesUIWorkspace 
        Dim uidoc As NotesUIDocument 
        Dim dbThis As NotesDatabase 
        Dim unid As String 
 
        ReOpen = 0 
        Set dbThis = docThis.ParentDatabase 
        Call docThis.Save(True , True) 
        unid = docThis.UniversalID 
        docThis.SaveOptions = "0" ' # ... Speicherabfrage vermeiden 
        Set uidoc = ws.CurrentDocument 
        Call uidoc.Close 
        Set docThis = dbThis.GetDocumentByUNID(unid) 
        Set uidoc = ws.EditDocument(True , docThis) 
        Set docThis = uidoc.Document 
        If docThis.HasItem("SaveOptions") Then  
            ' # ... das Feld SaveOptions wieder entfernen... 
            docThis.RemoveItem("SaveOptions") 
            Call docThis.Save( True , True ) 
        End If 
        ReOpen = 1 
        Print "Das Dokument wurde erneut geöffnet" 
    End Function