Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Gerhard am 02.07.09 - 11:04:55

Titel: Reopen Dokument
Beitrag von: Gerhard am 02.07.09 - 11:04:55

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.

Titel: Re: ropen Dokument
Beitrag von: eknori am 02.07.09 - 11:07:00

Schematisch etwa so:

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

Titel: Re: ropen Dokument
Beitrag von: Axel am 02.07.09 - 12:51:21

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

Titel: Re: ropen Dokument
Beitrag von: Gerhard am 02.07.09 - 12:56:11

Ok, danke vielmals für den Ansatz !

Titel: Re: ropen Dokument
Beitrag von: Gerhard am 02.07.09 - 14:56:31

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

Titel: Re: ropen Dokument
Beitrag von: klaussal am 02.07.09 - 15:04:09

Vielleicht hier:

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

Titel: Re: ropen Dokument
Beitrag von: klaussal am 02.07.09 - 15:09:03

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