Сообщение:
... выдет для всех представлений (даже оригиналов) True. решил так:
Dim doc As NotesDocument
' Удаление приватных вьюх
Forall view In Database.Views
If view.IsPrivate Then
Set doc = Database.GetDocumentByUNID(view.UniversalID)
If Lcase$(Right$(doc.GetItemValue("$Flags")(0), 1)) = "v" Then
Call view.remove
End If
End If
End Forall
---
Может кому пригодится... Иерархия документов данной дискуссии: DominoPower Tip - A WAY TO MANAGE THE DESIGN OF PRIVATE VIEWS (Dmitry Kovalev; Heineken) (09.12.2000 10:55:23) .... Я что-то не понял... (Kostya V. Levkin) (09.12.2000 11:41:47) ........ Очень полезная фича. (Ivan Tsibanenko; MoscowHub) (14.12.2000 15:20:19) .... столкнулся с тем, что isPrivate... (+) (Viktor Vladimirovich Alenkov) (03.04.2007 10:42:15) ........ замечание... (Artem S Moiseenko) (03.04.2007 12:17:27) ............ Насчет $readers каюсь.... (Artem S Moiseenko) (03.04.2007 12:21:52) ................ да нет.. .вместо $Readers можно использовать $Authors... (+) (Viktor Vladimirovich Alenkov) (03.04.2007 12:42:22)
