title image


Smiley Tip:
Dieser Code muss mit der ID jedes Users durchgeführt werden:

Initialize()



count=0

privateviewtext=""

tot = Ubound(db.views) + 1

Forall v In db.views

count=count+1

Print "Checking for outdated personal views " & count & " out of " & tot & "..."

If v.IsPrivate Then

Set masterView = getMasterView(v) '...get the shared view on which this personal view is based

If Not(masterView Is Nothing) Then

If v.Created < masterView.LastModified Then '...if the shared view design was updated after the private view was created...

'...then remove the private view

privateviewtext=privateviewtext & Chr(10) & v.name

v.remove

End If

End If

End If

End Forall



Print ""



End Sub



Function getMasterView(pView As NotesView) As NotesView

Set db = pView.parent

viewList = db.views

Dim view As NotesView

Forall v In viewList

If v.Name = pView.Name Then

Set view = v

If Not view.isprivate Then

Set getmasterView = v '...get the shared view on which this personal view is based

Exit Function

End If

End If

End Forall

Set getMasterView = Nothing

Print "Shared copy of view '" & pView.name & "' can not be found."

End Function



Dazu musst du jetzt nur noch einen Schalter basteln der beim Starten der DB nachschaut ob es eine Aktion gibt die Private Views zu löschen und ob die Person die die Datenbank startet diese Aktion bereits durchgeführt hat. Ich würde mal sagen das kannst du mit Profildokumenten machen.

In dem Code ist zwar die Sicherheit eingebaut, das du diese Aktion nur dann durchführst, wenn du tatsächlich was geändert hast, so das du eigentlich die oben beschriebene zusätzliche Sicherung eigentlich nicht bräuchtest, wenn du das aber so ins Queryopen der DB einbaust, dann wird das bei jedem Aufruf der DB einmal durchlaufen. Dann dauert das Aufrufen der DB etwas (unter Umständen sehr viel) länger als üblich, abhängig von der Anzahl deiner Views.





Thomas
Notes und Exchange, das ist wie Ferrari und Lada. Dreimal darfst du raten was der Ferrari ist.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: