DominoArea.org [Archive]

Code pour détecter l'utilisation des vues.

Dans la section (Options) de la vue
Use "ViewUsage"

Dans le PostOpen de la vue

Code : Tout sélectionner

Sub Postopen(Source As Notesuiview)

Call CollectUse(source)
End Sub



Créér une bibliothèque de scripts nommée ViewUsage

Sub CollectUse(OpenedView As NotesUIView)
'************************************************************************************************************************
'* DESCRIPTION: Ce script permet de journaliser les accès effectuer aux vues passées en paramètre
'* Ces vues sont supposées êtres inutilisées mais par précaution, une dernière valdiation a lieu avant de les supprimer

'* MODIFICATIONS:
'************************************************************************************************************************
Dim session As New NotesSession
Dim Currentdb As NotesDatabase
Dim CurrentView As NotesView
Dim CurrentViewName As Variant
Dim CurrentDbName As Variant
Dim UserName As Variant
Dim WhenUsed As String

Dim TrackingDb As New NotesDatabase( "", "" )
Dim TrackingDoc As NotesDocument

Set Currentdb = session.CurrentDatabase
Set CurrentView = OpenedView.View

CurrentDbName = Currentdb.Title
CurrentViewName = CurrentView.Name
UserName = session.CommonUsername
WhenUsed$ = Today()

Call TrackingDb.Open( session.currentdatabase.server, "MaBaseCourante.nsf" )
Set TrackingDoc = New NotesDocument( TrackingDb )
TrackingDoc.Db = CurrentDbName
TrackingDoc.View = CurrentViewName
TrackingDoc.User = UserName
TrackingDoc.WhenUsed = WhenUsed
TrackingDoc.Form = "UseTracker"
Call TrackingDoc.Save(True, False)

End Sub

Laisser ce code quelques semaines.
Si la base est inutilisée, utiliser un produit comme TeamStudio pour déterminer si une vue est appelée par du code script dans la base.

Pour ceux qui ne veulent pas dépenser :
http://www-10.lotus.com/ldd/bpmpblog.ns ... ent-finder

Par la suite, détruire la vue (Gardez en une copie pour vos précieux souvenirs)


JYR