View Selection Formulas

Application performance in Notes and Domino can greatly vary depending on the number of views and the view selection formulas you use. When inheriting ~~databases~~ applications for maintainance there is no real easy way to get an overview what view selection formulas have been used. So I did write myself a function that creates a document with such an overview table.See the function below. To test it I simply copy it into an agent and call it for the current database.
Of course you could think of running it against multiple databases or altering the html with some Ajax stuff to make it sortable. Here is my test agent:

 

  Option
  
  Public

  Option
  
  Declare

  Sub
  
  Initialize

  Dim s
  
  As
  
  New
  
  NotesSession

  Dim db
  
  As
  
  NotesDatabase

  Dim doc
  
  As
  
  NotesDocument

  Set db
  
  = s
  
  .CurrentDatabase

  Set doc
  
  = db
  
  .CreateDocument

  Call ReportViewSelectionFormulas
  
  (db
  
  , doc
  
  )

  Call doc
  
  .send
  
  (
  
  False
  
  ,s
  
  .UserName
  
  )

  End
  
  Sub

This LotusScript was converted to HTML using the ls2html routine,
provided by Julian Robichaux at nsftools.com.

Update: Sorry folks, got the wrong code in the core functionsm fixed now. Enjoy!and here the core function:

 

Sub ReportViewSelectionFormulas

(db

As

NotesDatabase

, doc

As

NotesDocument

)

Dim s

As

New

NotesSession

Dim v

As

NotesView

Dim out

As

NotesStream

Dim mime

As

NotesMimeEntity

Dim header

As

NotesMimeHeader

Dim body

As

NotesMimeEntity

Dim oddRow

As

Boolean
s

.ConvertMIME

=

False

' Do not convert MIME to rich text

Call doc

.ReplaceItemValue

(

"Form"

,

"Memo"

)

Set mime

= doc

.CreateMIMEEntity

Set header

= mime

.CreateHeader

(

"Subject"

)

Set body

= mime

.CreateChildEntity

Call header

.SetHeaderVal

(

"View selection formula report for "

+db

.Title

)

Set header

= mime

.CreateHeader

(

"SendTo"

)

Call header

.SetHeaderVal

(s

.UserName

)

Set out

= s

.CreateStream
oddRow

=

True
out

.WriteText

(

|<style>|

)
out

.WriteText

(

|table {width : 100%; padding : 3px; border-left : 1px solid gray; border-top : 1px solid gray} |

)
out

.WriteText

(

|body, th, td {text-align : left, font-family : Verdana, Arial, sans-serif} |

)
out

.WriteText

(

|th {background-color : #FFCCCC} |

)
out

.WriteText

(

|h1 {background-color : #FF9999; border-bottom : 2px black; font-family : Arial, sans-serif; font-size : large} |

)
out

.WriteText

(

|td, th { border-bottom : 1px solid gray; border-right : 1px solid gray} |

)
out

.WriteText

(

|</style>|

)
out

.WriteText

(

|<h1>|

)
out

.WriteText

(db

.Title

)
out

.WriteText

(

|</h1>|

)
out

.WriteText

(

|<table width="100%"><tr><th>View</th><th>Alias</th><th>Selection Formula</th></tr>|

)

Forall curView In db

.Views

Set v

= curView

If oddRow

Then
out

.WriteText

(

|<tr><td>|

)
oddRow

=

False

Else
out

.WriteText

(

|<tr style="background-color : #EEEEEE"><td>|

)
oddRow

=

True

End

If
out

.WriteText

(v

.

Name

)
out

.WriteText

(

|</td><td>|

)

'The view alias

If

Isempty

(v

.Aliases

)

Then
out

.Writetext

(

|./.|

)

Else

Forall curAlias In v

.Aliases
out

.WriteText

(curAlias

)
out

.WriteText

(

" "

)

End

Forall

End

If
out

.WriteText

(

|</td><td>|

)
out

.WriteText

(v

.SelectionFormula

)
out

.WriteText

(

|</td></tr>|

)

End

Forall
out

.Position

= 0
out

.WriteText

(

"</table>"

)

Call body

.SetContentFromText

(out

,

"text/html; charset=UTF-8"

, ENC_IDENTITY_7BIT

)
s

.ConvertMIME

=

True

' Restore conversion

End

Sub

This LotusScript was converted to HTML using the ls2html routine,
provided by Julian Robichaux at nsftools.com.

Posted by Stephan H Wissel on 04 April 2008 | Comments (5) | categories: Show-N-Tell Thursday

posted by Giuseppe on Saturday 05 April 2008 AD:
something wrong with the "core function" ?

posted by tom on Saturday 05 April 2008 AD:
I concur with #1. Methinks there was a cut/paste malfunction. Emoticon biggrin.gif

posted by Thomas BAhn on Thursday 10 April 2008 AD:
Hi Stephan,

for the fast overview the Design Synopsis could be sufficient. Just deactivate everything in the details for views, but the selection formula, and add all views to the synopsis.

It not nice, but fast, and works without design modifications.

Thomas

posted by Stephan H. Wissel on Thursday 10 April 2008 AD:
@Thomas,

you are right, Synopsis would work. My example code however is taken out of context. I added the sub initialize for illustration only. The full code actually lives in a utility database, that scans the design of external databases, so I actually don't change the design either. It is one part of a "brute force" view tuning tool. Stay tuned for more on that.

posted by Eric Yan on Thursday 17 December 2009 AD:
Set header = mime.CreateHeader("Subject")
Call header.SetHeaderVal( subject )

if subject to be chinese characters,there maybe some wrong.
many "!!" have being added to the subject.