Gestaltungsupdate bei privaten Ansicht auf dem Server

[berti@web]

Hallo zusammen,

ich habe in einer Datenbank ein Script eingefügt, das nach dem Öffnen prüft, ob private Ansichten zur Speicherung auf dem Server in einer neueren Version vorliegen. Falls ja soll die private Ansicht gelöscht werden. Danach schließt das Script die Datenbank. Bisher funktionierte das wunderbar. In letzter Zeit wurden allerdings keine Updates vorgenommen. Nun kam es wieder zu einem Gestaltungsupdate. Mittlerweile ist Notes 8.5 installiert.

Wird das Script nun ausgeführt und der Benutzer öffnet die Datenbank erneut, so kann er für eine Weile die Ansicht nicht aufrufen. Sie scheint erst zu einem späteren Zeitpunkt wieder hergestellt zu werden.

Weiß jemand, woran das liegt?



Ich knüpfe damit nochmals an diesen Eintrag an:
http://atnotes.de/index.php/topic,53358.0.html

        Dim session AsNewNotesSession
        dimdb AsNotesDatabase
        Setdb = session.currentdatabase
        Dimvdoc,vdoc2 AsNotesDocument
        Dimdelview AsNotesView
        Dimws AsNewNotesUIWorkspace
        Dimuiview AsNotesUIView
        Setuiview= ws.Currentview               
        count=0
        Forallv1 Indb.views
                IfInStr(v1.name,"PCLeiter")=1OrInStr(v1.name,"Berater")=1Then
                        Stop
                        Setvdoc = db.Getdocumentbyunid(v1.universalid)
                        IfNotvdoc IsNothingThen
                                Ifvdoc.hasitem("$Flags") Then
                                        Ifvdoc.~$flags(0)="pPYV"Then
                                                ForAllv2 Indb.Views
                                                        Ifv1.name=v2.name Then
                                                                stop
                                                                Setvdoc2=db.Getdocumentbyunid(v2.universalID)
                                                                IfNotvdoc2 IsNothingThen
                                                                        Ifvdoc2.hasitem("$Flags") Then
                                                                                Ifvdoc2.~$flags(0)="pPY"Andv2.lastmodified>v1.lastmodified Then
                                                                                        Setdelview = v1
                                                                                        Calldelview.remove
                                                                                        count=count+1
                                                                                EndIf       
                                                                        EndIf
                                                                EndIf                                       
                                                        EndIf
                                                        Ifv1 IsNothingThenExitforall
                                                EndForAll                                       
                                        EndIf       
                                EndIf
                        EndIf
                EndIf
        EndForAll
        Ifcount>0Then
                MessageBox"Eine Wartungsmaßnahme wurde durchgeführt. " & Trim$(Str$(count)) & " veraltete persönliche Ansichten wurden aktualisiert."& Chr(10) & "Damit die Änderungen wirksam werden, wird die Datenbank nun verlassen.",64,"Wartung durchgeführt"
                Calluiview.Close()
        EndIf
 

[berti@web]

Hallo zusammen,

kennt das Problem tatsächlich niemand. Ich habe auch schon statt mit uiview.close mit ws.currentdatabase.close gearbeitet. Es bleibt aber dabei: Einige Nutzer erhalten die Meldung, die Datenbank schließt sich, sie öffnen diese wieder und versuchen eine mit dem Script gelöschte Ansicht aufzurufen und dann passiert einfach nichts. Es wird keine Ansicht geöffnet. Ein paar Stunden später kann die Ansicht wieder aufgerufen werden.

Hat jemand eine Idee?   

[Jens Winkelmann]

Ist eventuell Soft Deletion aktiv?

Versuche doch mal das Design Dokument mit vdoc2.RemovePermanently( True ) statt der Ansicht zu löschen.