Sub ActiveReport_ReportStart
		Dim useTheme As Boolean = True
		Dim useThemeParam As Object = ReportUtilities.ReturnParameterValue("UseTheme")
		If Not useThemeParam Is Nothing Then
			If Not Boolean.TryParse(useThemeParam.ToString, useTheme) Then
				useTheme = False
			End If
		End If

		If (useTheme) Then
			Dim CurrentTheme As ReportTheme = ReportUtilities.GetReportTheme()
			If (CurrentTheme IsNot Nothing) Then
				ReportUtilities.SetControlForeColor(laborLabel, CurrentTheme.SummaryDetailtextForeColor)
				ReportUtilities.SetControlForeColor(txtAggLaborPrice, CurrentTheme.SummaryDetailtextForeColor)
			End If
		End If

		Dim showLaborHrsSummaryParam As Object = ReportUtilities.ReturnParameterValue("ShowLaborHoursInSummary")
		If Not showLaborHrsSummaryParam Is Nothing Then
			If Not Boolean.TryParse(showLaborHrsSummaryParam.ToString, showLaborHrsSummary) Then
				showLaborHrsSummary = False
			End If
		End If
		Dim isShowAdjustmentParam As Object = ReportUtilities.ReturnParameterValue("ShowAdjustment")
		If Not isShowAdjustmentParam Is Nothing Then
			If Not Boolean.TryParse(isShowAdjustmentParam.ToString, isShowAdjustment) Then
				isShowAdjustment = False
			End If
		End If
		laborDesc = ReportUtilities.LaborDescription
		'ReportUtilities.SetOptionalLaborTypeSummary(rpt, includeNonOptional, includeOptional)
		If IsItOptionalSummary() Then
			ReportUtilities.SetOptionalLaborTypeSummary(rpt, True, True)
		Else
			ReportUtilities.SetOptionalLaborTypeSummary(rpt, True, False)
		End If
End Sub