Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: MiMueller am 20.05.03 - 16:17:23

Titel: Persönliche Ansichten R5
Beitrag von: MiMueller am 20.05.03 - 16:17:23

Hallo Notes-Experten,

ich habe in meinen Notes-Datenbanken "persönliche Ansichten", (Gemeinsam, privat bei Erstbenutzung) im Einsatz.

Wenn ich eine "persönliche Ansicht" in meiner Schablone ändern muss, werden die Änderungen bei der Aktualisierung der Gestaltung nicht auf die persönlichen Ansichten in der Produktiv-Datenbank übernommen. Es ist bei >600 Mitarbeitern etwas kompliziert, jedesmal die DB vom LotusNotes-Desktop zu löschen und neu zu öffnen.  

Kennt jemand eine Lösung zu diesem Problem ?????

Titel: Re:Persönliche Ansichten R5
Beitrag von: Joe am 20.05.03 - 16:24:33

Setze einfach dieses Script in das Queryclose des Datenbank-Scripts. Dann werden jedesmal beim Verlassen der Datenbank die persönlichen Ansichten gelöscht und beim Neuaufruf neu erstellt. Schon haste damit keine Probleme mehr.

Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
     Dim session As New notessession
     Dim db As notesdatabase
     Dim counter As Integer
     
     Set db = source.database
     
     Forall v In db.views
          If Not Isempty(v.readers) Then
               Forall r In v.readers
                    If r = session.username Then
                         Call v.remove
                         counter = counter + 1
                    End If
               End Forall
          End If
     End Forall
     
     Print Cstr(counter) & " persönliche Ansicht(en) gelöscht"
End Sub

Titel: Re:Persönliche Ansichten R5
Beitrag von: MiMueller am 20.05.03 - 16:32:13

Vielen Dank, für die schnelle Hilfe, das ist die Lösung!!!!!!!!!!!! ;D