OpenNTF.org - VIC CRM for Notes
VIC CRM for NotesOpenDocument[/Projects/pmt.nsf/ProjectView?ReadForm&Query=]

My Links (Not logged in)
User Name Password
Hosted by Prominic.NET

   Project: VIC CRM for Notes (Managed by Dave Leigh)
Actions:
RSS  



Subject
 Cleanup journal's private views...
Categories
 Feedback
Posted by
 Rob Breault on 11/20/2004 at 03:53 PM
Details

I've added the following code to the Journal DB's Database QueryClose event to clean up the private views during development and testing:

Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
Dim views As Variant
Dim view As NotesView
Dim doc As NotesDocument
Dim item As NotesItem
Print "Checking for private views..."
views = this_db.Views
Forall v In views
Set view = v
Set doc = this_db.GetDocumentByUNID(view.UniversalID)
If Not doc Is Nothing Then
Set item = doc.GetFirstItem("$Flags")
If Instr(item.Values(0),"V") Then
Print "Removing private view: " & view.Name
Call view.Remove
End If
End If
End Forall
Print ""
End Sub
Modification history
Entered 20-Nov-2004 15:53 by Rob Breault. Last Modified <none> by <none>.
Feedback

Hide details for I've added the following code to th... (Rob Breault on 11/20/2004 03:53:04 PM )I've added the following code to th... (Rob Breault on 11/20/2004 03:53:04 PM )
Hide details for . . It's going in CratchitCommonLi... (Dave Leigh on 11/20/2004 05:10:13 PM ). . It's going in CratchitCommonLi... (Dave Leigh on 11/20/2004 05:10:13 PM )
Hide details for . . . . Versioning... (Rob Breault on 11/21/2004 02:45:45 PM ). . . . Versioning... (Rob Breault on 11/21/2004 02:45:45 PM )
. . . . . . Versioning and Form Methods (Dave Leigh on 11/21/2004 03:48:52 PM )
Check out other projects


Anonymous