Imports DTools.SystemIntegrator.Common.Scheduling
Sub ActiveReport_ReportStart
If ReportUtilities.ServiceOrder IsNot Nothing AndAlso ReportUtilities.ServiceOrder.Resources IsNot Nothing Then
Dim emails As String = String.Empty
'Iterate through Resource list of Service Order
For each res As IResource in ReportUtilities.ServiceOrder.Resources
'Get the email of the service order resource
emails = emails + " " + res.Email
Next
emails = emails.Trim()
'Assign the email list to the appropriate control of the custom report.
ReportUtilities.SetTextBoxValue(rpt, "grpCompany", "txtEmail", emails)
End If
End Sub |