'-- Assign the populated datasource from the Dialog Browser to the Report Manager Object.
ReportManagerObject.DataSources.Item(reportDataSourceName) = Me.DataSource
ReportManagerObject.DataSources.Item(reportApplianceDataSourceName) = Me.DataSource.SourceBO.SC_Appliances
'-- Prepare Report to run
ReportManagerObject.Reports(Me.PerpetuumSoftReportName).Prepare()

Public Shared Function RunReport(ByVal ReportName As FixTrackReports, _
ByVal ReportManagerObject As PerpetuumSoft.Reporting.Components.ReportManager, _
Optional ByVal tBDStringValue As String = "", _
Optional ByVal tEmployeePK As Int64 = 0) As Boolean
     Dim reportDataSourceObject As IReportDataSource
     '-- Get the data source for the report
     reportDataSourceObject = GetReportDataSource(ReportName)
     '-- Populate the data source
     If reportDataSourceObject.PopulateDataSource(ReportManagerObject, tBDStringValue, tEmployeePK) Then
          Dim f As New ReportViewerDialog()
          '-- Set the Report Viewer source with the Report to be used.
          f.rptViewer.Source = ReportManagerObject.Reports(reportDataSourceObject.PerpetuumSoftReportName)
          f.Title = MicroFour.StrataFrame.Tools.Common.GetEnumDisplayValue(ReportName)
          f.TitleDetailText = ""
          f.ShowDialog()
          Return True
     Else
          MicroFour.StrataFrame.Messaging.MessageForm.ShowMessageByKey("NoDataForReport")
          Return False
     End If
End Function