In Lotus Notes 8.5.1 komt de Lotus Script toolkit voor Lotus Symphony beschikbaar. Vanuit e-office nemen we deel aan het design partner review en daarom kunnen we al in een heel vroeg stadium werken met nieuwe functionaliteit. Eén van de nieuwe functionaliteiten is de Lotus Script toolkit voor Lotus Symphony. Deze toolkit is door IBM aangekondigd voor Lotus Notes 8.5.1.
In feite verzorgt deze toolkit een uitbreiding op het Lotus Notes class model waarmee Symphony documenten worden aangestuurd. De classes zijn eenvoudig te begrijpen en komen in een zekere mate overeen met de classes welke gebruikt kunnen worden om MS Office documenten aan te sturen met behulp van COM. Het grote voordeel van Symphony is dat dit binnen je Lotus Notes 8 client draait en dat dit op alle platformen waarop de Lotus Notes client draait zal werken. Dus dit werkt ook op de MAC of een Linux installatie.
Om een voorbeeld te geven, de topclass is:
| Dim application As New SymphonyApplication |
Vervolgens heb je een handle Symphony en kun je de verschillende documenttypen aansturen.
Set document = application.Documents.AddDocument(tempfile,True,True)
call document.SaveAsDocument(newfile) |
of
Set spreadsheet = application.Spreadsheets.AddSpreadsheet("",False,True)
Set sheet = spreadsheet.ActiveSheet |
Op deze manier kunt u bijvoorbeeld een rapportage tool maken met grafieken en dergelijke. Vanuit een view kunt u met een Action button Lotus Symphony spreadsheet opstarten, en vervolgens data uit de Lotus Notes view in de spreadsheet plaatsen. Daarna kunt u op basis van deze spreadsheetdata een grafiek maken. Hieronder nog wat voorbeeldcode:
stop een Lotus Notes veldwaarde in een SymphonyTextField
Dim userfield As SymphonyTextfield
Set userfield = getFieldByName("PONumber")
userfield.Content = purchaseorder.getfirstitem("PONumber").text |
Maak een SymphonyTextTable en vul deze met data:
Dim table As SymphonyTextTable
Set table = document.Tables.Item(3)
Call table.Rows.Add
Call table.Rows.Remove
table.Cell(rowIndex,1).Text = item.getItemNumber
table.Cell(rowIndex,2).Text = item.getDescription
table.Cell(rowIndex,3).Text = item.getQuantity
table.Cell(rowIndex,4).Text = item.getUnitPrice |
Of wanneer u een grafiek wilt toevoegen in een spreadsheet:
Dim range As SymphonyRange
Dim chartobject As SymphonyChartObject
Set chartobject = sheet.ChartObjects.Add("Total Report",6000,8000,8000,6000)
Call chartobject.Chart.ChartWizard(range,SYMPHONY_CHART_PIEDIAGRAM,
SYMPHONY_CHART_PLOTBY_COLUMNS,"total",False) |
