'Следующие строки будут отображать 
'коллекцию документов и объект документа.
Dim symDocuments As SymphonyDocuments
Dim symDocument As SymphonyDocument

'Следующая строка создает дескриптор 
'коллекции документов Symphony, а также
'новый документ
Set symDocuments = symphony.Documents
Set symDocument = symDocuments.AddDocument()

(Options)
%Include "symphonylsx.lss"

Dim symphony As New SymphonyApplication
Dim symSheeets As SymphonySpreadsheets
Dim symSheet As SymphonySpreadsheet

Set symSheets = symphony.Spreadsheets()
Set symSheet = symDocuments.AddSpreadsheet()

Dim symphony As New SymphonyApplication
Dim symDocuments As SymphonyDocuments
Dim symDocument As SymphonyDocument

Set symDocuments = symphony.Documents
Set symDocument = symDocuments.AddDocument()

Dim txtRange As SymphonyTextRange
Set txtRange = symDocument.Selection.Range
txtRange.Text = "This is my first Symphony document!"
txtRange.Font.Bold = True
Set txtRange = symDocument.Paragraphs.Item(2).Range
txtRange.Font.Bold = False
txtRange.Text = "This is great!"

%REM
	Agent 3) Sample Document Report
	Created Jul 23, 2009 by Symphony Developer/Symphony Developer
	Description: Comments for Agent
%END REM
Option Public
Option Declare
%Include "symphonylsx.lss"
Sub Initialize()
	'Declare the Notes object variables
	Dim sess As New NotesSession
	Dim db As NotesDatabase
	Dim v As NotesView
	Dim vnav As NotesViewNavigator
	Dim entry As NotesViewEntry
	Dim doc As NotesDocument
	Dim colCosts As NotesDocumentCollection
	Dim cost As NotesDocument
	Dim mgr As String
	Dim planned As Currency
	Dim actual As Currency
	Dim variance As Currency
	Dim cuser As NotesName
	
	Set db = sess.Currentdatabase
	Set v = db.GetView("All Projects")
	Set vnav = v.Createviewnav()
	Set entry = vnav.Getfirstdocument()
	
	If entry Is Nothing Then
		MsgBox "No documents found", , "Exiting"
		Exit sub
	End If
	
	'Declare the Symphony object variables
	Dim symphony As New SymphonyApplication
	Dim rptDoc As SymphonyDocument
	
	%REM
	Generally, I would create the document in "invisible" mode. To
	see this is action, uncomment the following line and comment the 
	line after the next REM block.
	%END REM
	'Set rptDoc = symphony.Documents.AddDocument("", False, False)
	
	%REM
	I typically use the following line during development/debugging,
	then switch to the line above for production.
	%END REMП
	Set rptDoc = symphony.Documents.AddDocument()
	
	Dim txtRange As SymphonyTextRange
	Set txtRange = rptDoc.Selection.Range
	txtRange.Text = "Project Summary Report"
	txtRange.Horialignment = SYMPHONY_TEXT_HORI_ALIGN_CENTER
	txtRange.Font.Bold = True
	txtRange.Font.Height = 16 
	Call txtRange.InsertBreak(txtRange.End, SYMPHONY_TEXT_BREAK_PARAGRAPH)
	Set txtRange = rptDoc.Paragraphs.Item(2).Range
	txtRange.Text = "prepared " & CStr(Today)
	Call txtRange.InsertBreak(txtRange.End, SYMPHONY_TEXT_BREAK_APPEND_PARAGRAPH)
	Set txtRange = rptDoc.Paragraphs.Item(3).Range
	Set cuser = New NotesName(sess.Commonusername)
	txtRange.Text = "by " & cuser.Common
	Call txtRange.InsertBreak(txtRange.End, SYMPHONY_TEXT_BREAK_APPEND_PARAGRAPH)
	Call txtRange.InsertBreak(txtRange.End, SYMPHONY_TEXT_BREAK_APPEND_PARAGRAPH)
	
	Set txtRange = rptDoc.Paragraphs.Item(5).Range
	txtRange.Horialignment = SYMPHONY_TEXT_HORI_ALIGN_LEFT
	txtRange.Font.Bold = False
	txtRange.Font.Height = 12
	
	'Begin walking the documents in the view, and passing the
	'values into the Symphony document.
	Do Until entry Is Nothing
	 Set doc = entry.Document
	 Set txtRange = rptDoc.Paragraphs.Item(rptDoc.Paragraphs.Count).Range.End

	 Select Case doc.Form(0)
	 Case "ProjectSummary"
	 'Print desired information for Project documents
	 If (mgr = "") Or (mgr <> doc.PrjMgr(0)) Then
	 mgr = doc.PrjMgr(0)
	 Call txtRange.InsertBreak(txtRange.End, _
	 SYMPHONY_TEXT_BREAK_APPEND_PARAGRAPH)
	 Set txtRange = rptDoc.Paragraphs.Item(rptDoc.Paragraphs.Count).Range.End
	 txtRange.Text = "Projects managed by " & mgr
	 Call txtRange.InsertBreak(txtRange.End, _
	 SYMPHONY_TEXT_BREAK_APPEND_PARAGRAPH)
	 txtRange.Font.Bold = True
	 End If
	 Call txtRange.InsertBreak(txtRange.End, _
	 SYMPHONY_TEXT_BREAK_APPEND_PARAGRAPH)
	 Set txtRange = rptDoc.Paragraphs.Item(rptDoc.Paragraphs.Count).Range.End
	 txtRange.Text = doc.PrjName(0) & " – " & doc.PrjStatus(0)
	 Call txtRange.InsertBreak(txtRange.End, _
	 SYMPHONY_TEXT_BREAK_APPEND_PARAGRAPH)
	 txtRange.Font.Italic = True
	 

	 
	 Case "Task"
	 'Print desired information for Task documents
	 Set txtRange = rptDoc.Paragraphs.Item(rptDoc.Paragraphs.Count).Range.End
	 txtRange.Text = "- " & doc.TaskDesc(0)
	 Call txtRange.InsertBreak(txtRange.End, _
	 SYMPHONY_TEXT_BREAK_APPEND_PARAGRAPH)
	 'Calculate and print desired information for Cost documents
	 planned = 0
	 actual = 0
	 variance = 0
	 Set colCosts = doc.Responses()
	 If colCosts.Count > 0 Then
	 Set cost = colCosts.Getfirstdocument()
	 Do Until cost Is Nothing
	 If IsNumeric(cost.CapPln(0)) Then
	  planned = planned + cost.CapPln(0)
	 End If
	 If IsNumeric(cost.ExpPln(0)) Then
	  planned = planned + cost.ExpPln(0)
	 End If
	 If IsNumeric(cost.CapAct(0)) Then
	  actual = actual + cost.CapAct(0)
	 End If
	 If IsNumeric(cost.ExpAct(0)) Then
	  actual = actual + cost.ExpAct(0)
	 End If
	 Set cost = colCosts.Getnextdocument(cost)
	 Loop
	 variance = planned – actual
	 End If
	 Set txtRange = rptDoc.Paragraphs.Item(rptDoc.Paragraphs.Count).Range.End
	 txtRange.Text = " Planned: " & Format$(planned, "$#,##0") & _
	 " Actual: " & Format$(actual, "$#,##0") & _
	 " Variance: " & Format$(variance, "$#,##0")
	 Call txtRange.InsertBreak(txtRange.End, _
	 SYMPHONY_TEXT_BREAK_APPEND_PARAGRAPH)
	 End Select
	 Set entry = vnav.Getnextdocument(entry)
	Loop
	
	'Clean up
	Print "Cleaning up..."
	Set txtRange = Nothing
	Set rptDoc = Nothing
	Set symphony = Nothing
	Set cost = Nothing
	Set colCosts = Nothing
	Set doc = Nothing
	Set entry = Nothing
	Set vnav = Nothing
	Set v = Nothing
	Set db = Nothing
	Set sess = Nothing
	
	MsgBox "Complete", , "You report is now complete."
End Sub
 

%REM
	Agent 4) Sample Spreadsheet Report
	Created Jul 23, 2009 by Symphony Developer/Symphony Developer
	Description: Comments for Agent
%END REM
Option Public
Option Declare
%Include "symphonylsx.lss"
Sub Initialize()
	'Declare the Notes object variables
	Dim sess As New NotesSession
	Dim db As NotesDatabase
	Dim v As NotesView
	Dim vnav As NotesViewNavigator
	Dim entry As NotesViewEntry
	Dim row As long
	
	'These lines obtain a handle to the 'Orders' view,
	'and the first entry in it.
	Set db = sess.Currentdatabase
	Set v = db.GetView("Orders")
	Set vnav = v.Createviewnav()
	Set entry = vnav.Getfirstdocument()
	
	If entry Is Nothing Then
		MsgBox "No documents found", , "Exiting"
		Exit Sub
	End If
	
	'Declare the Symphony object variables
	Dim symphony As New SymphonyApplication
	Dim rptSht As SymphonySpreadsheet
	Dim dataSheet As Symphonysheet
	Dim dpSheet As Symphonysheet
	
	'Variables below are for the DataPilot
	Dim dataPilotTables As SymphonyDataPilotTables
	Dim dataPilotTable As SymphonyDataPilotTable
	Dim src As SymphonyRange
	Dim dst As SymphonyRange
	

	%REM
	Generally, I would create the document in "invisible" mode. To
	see this is action, uncomment the following line and comment the 
	line after the next REM block.
	%END REM
	'Set rptSht = symphony.Spreadsheets.AddSpreadsheet("", False, False)
	
	%REM
	I typically use the following line during development/debugging,
	then switch to the line above for production.
	%END REM
	Set rptSht = symphony.Spreadsheets.Addspreadsheet("")
	
	%REM
	The next few lines of code create and name 2 sheets. The first sheet
	is called 'Data' and will contain the actual data used as the source for
	the second sheet.
	
	The second sheet will be used to display and manipulate the DataPilot. 
	%END REM
	Set dataSheet = rptSht.Activesheet
	dataSheet.Name = "Data"
	Call rptSht.Sheets.Addto(dataSheet, 1, False)
	Set dpSheet = rptSht.Sheets.Item(2)
	dpSheet.Name = "DataPilot"
	
	'The following lines create the header row in the source table.
	With dataSheet
		.Cells(1, 1).Text = "Rep"
		.Cells(1, 2).Text = "Customer"
		.Cells(1, 3).Text = "Region"
		.Cells(1, 4).Text = "Product"
		.Cells(1, 5).Text = "Num Units"
		.Cells(1, 6).Text = "Price"
		.Cells(1, 7).Text = "Total"
		.Range("A1:G1").Font.Bold = True
	End With
	
	' The next lines pass the data from Notes into the spreadsheet.
	row = 1
	Do Until entry Is Nothing
		row = row + 1
		dataSheet.Cells(row, 1).Text = entry.Columnvalues(0)
		dataSheet.Cells(row, 2).Text = entry.Columnvalues(1)
		dataSheet.Cells(row, 3).Text = entry.Columnvalues(2)
		dataSheet.Cells(row, 4).Text = entry.Columnvalues(3)
		dataSheet.Cells(row, 5).Value = entry.Columnvalues(4)
		dataSheet.Cells(row, 6).Value = entry.Columnvalues(5)
		dataSheet.Cells(row, 7).Value = entry.Columnvalues(6)
		Set entry = vnav.Getnextdocument(entry)
	Loop
	
	'Finally, these lines create the DataPilot.
	Set dataPilotTables = dpSheet.DataPilotTables
	Set src = dataSheet.Range("A1:G" & CStr(row))
	Set dst = dpSheet.Cells(1, 1)
	Set dataPilotTable = dataPilotTables.Add(src,"DPT_ORDERS",dst)
	Dim rowFieldsString(0) As String
	rowFieldsString(0) = "Rep"
	Dim colFieldsString(0) As String
	colFieldsString(0) = "Region"
	Dim dataFieldsString(0) As String
	dataFieldsString(0) = "Total"
	Dim pageFieldsString(0) As String
	pageFieldsString(0) = "Product"
	Call dataPilotTable.AddFields(rowFieldsString, colFieldsString, _
		dataFieldsString, pageFieldsString, SYMPHONY_GENERAL_FUNCTION_SUM)
End Sub