Now the fun begins, we'll need to put some code in the PostOpen event of the GoogleCharts form. Be sure to change the URL to point to your server and wherever you placed the demo database.

Sub Postopen(Source As Notesuidocument)
	Dim w As New NotesUIWorkspace		
	Dim tmpDoc As NotesDocument	
	Dim HTML As String
	Dim browser As Variant
	Dim luUNID As String, url As String
	
	Set db = w.CurrentDatabase.Database
		
	HTML = |<center><h1>Google Dashboard</h1></center><table width="100%"><tr>|
	
	HTML = HTML + |<td><img src="| + getChart("Totals") + |" alt="Goolge Chart">|
	HTML = HTML + |</br><center>Totals By Company</center></td>|
	HTML = HTML + |</tr></table>|	
	
	Set tmpDoc = New NotesDocument(db)
	tmpDoc.Form = "HTML"
	tmpDoc.googleHTML = HTML
	Call tmpDoc.Save(True,False)
	luUNID = tmpDoc.UniversalID
	
	Set browser = Source.GetObject("Browser")
	url = "http://www.yourdomain.com/thisdb.nsf/HTML/" + luUNID + "?OpenDocument"
	browser.Navigate(url)
End Sub

And here's the function that gets called:

Function getChart(dataSel As String) As String
	Dim luDataView As NotesView
	Dim luCatView As NotesView
	Dim doc As NotesDocument
	Dim luDocCol As NotesDocumentCollection
	Dim gc As GoogleChart
	Dim i As Integer
	Dim gcDataList List As String
	Set gc = New GoogleChart
	Set luCatView = db.GetView("(luGoogleCategoryName)")
	Set luDataView = db.GetView("(luGoogleTotals)")
	For i = 1 To 10
		Set doc = luCatView.GetNthDocument(i)
		Set luDocCol = luDataView.GetAllDocumentsByKey(doc.coName(0),True)
		If luDocCol.Count > 0 Then
			gcDataList(doc.coName(0)) = Cstr(luDocCol.Count)
		End If
	Next
	gc.ChartData = gcDataList
	gc.ChartSize = "450x150"
	gc.ChartType = "p3"
	getChart = gc.ChartURL
End Function

I made a big assumption on how your views are formatted and how many category items you might want to get. I guess the best thing would be to use the EntryCount property of the category view, but you should get the idea of how all of this works, it's pretty straight forward.

• First, we get the NotesDatabase and then start building our html.
• The getChart function just loops through each category and then gets all the corresponding category names from the data view and records the count from a document collection gotten from the data view. This gets recorded in a list formatted like "gcDataList("categoryName") = 20". Of course you can get as complicated or as simple as you like, but we must spit out a list with the listTag being a lable which will show up on the chart and the number being the number that corresponds, in this case, to the piece of the pie for this category.
• We then pass this list to the GoogleChart ChartData property, which gets used to build the URL.
• We then use the GoogleChart ChartSize property to set the size of the chart. The width should be 2.5 times larger than the height so that the labels will fit properly.
• Then, we define the chart type we want to return, in this case we're using a 3d pie chart which corresponds to "p3"
• And then we get the url using the GoogleChart property ChartURL.
• The url gets returned to the PostOpen event that then gets put into an img tag.
• Once all of this is done, we populate the GoogleHTML field in the HTML form, save it and then navigate our browser to the HTML document we just created.

If all of this is clear as mud, which it just might be, I've included a sample database so you can see all of this in action. You can get the sample database over there on the left in the downloads section. The only thing you should need to change is the url to your server in the getChart function. Hopefully you'll get some mileage out of this handy little class and demo.