Shared, desktop private-on-first-use views von DB löschen?

[LisaS]

Hallo,
ich benutze für einige wenige Ansichten Views die mit
"Shared, desktop private-on-first-use views" erstellt wurden.
Um diese aus der desktop6.ndk zu löschen benutze ich im DB QueryClose:

Code

Dim  ddb As New Notesdatabase("","desktop6.ndk")
Forall v In ddb.Views
If v.Name="Private Ansicht xy" Then
Print "Lösche:" & v.Name
	Call v.Remove
		End If
End Forall

Klappt auf gut, aber auf dem Server liegen auch noch Views die gelöscht werden müssten, damit die Views
sich beim nächsten öffnen der Datenbank richtig erstellen.
Mein Problem ich bekomme die Teile einfach nicht gelöscht.
Mit den Routinen habe ich schon getestet, ohne Erfolg:

Code

Forall v2 In Db.Views  
			Set  ndd = db.getdocumentbyunid(v2.universalid)
			If ndd.hasitem("$Flags")  Then    
				If ndd.~$flags(0) = "poY" Then 
					Set view = v2
				Print "Lösche:" & v2.name
					Call view.Remove  
				End If
			End If
		End Forall

Wenn ich die mit dem Designer lösche ist alles super, allerdings nur für mich.
Die anderen User haben noch Ihre Views auf dem Server, ich sehe die ja nicht.
Hat jemand eine Idee?
Grüße
Lisa

[MadMetzger]

Da die Views "Private" sind, wirst du die auch nicht zu Gesicht bekommen. Daher müsste jeder Benutzer, der eine dieser Views hat, dieses Skript selbst ausführen.

[jr]

Hallo,

es gibt die Möglichkeit eine solche Funktion in das PostOpen-Event des Datenbankscripts zu schreiben. Das wird dann beim Öffnen der Datenbank ausgeführt und er findet dann immer die Privaten Ansichten des aktuellen Benutzers.

Bist Du sicher, dass die Flag-Abfrage so korrekt ist? Soweit ich mich erinnere ist nur ein Buchstabe für die Privaten Views relevant (glaube das Y, bin mir aber nicht sicher). Eventuell findest Du dann nicht alles.

Gruß,

Joachim