Sub phaseItemSummaryGroupHeader_BeforePrint() Dim phaseName As String = ReportUtilities.ReturnTextboxValue(rpt, "phaseItemSummaryGroupHeader", "txtPhaseLabor") Dim laborHrsString As String = "" If showLaborHrsSummary Then Dim labHrs As Decimal = 0 Dim laborTypes As List(Of LaborType) = Nothing If IsItOptionalSummary() Then laborTypes = ReportUtilities.GetLaborTypeSummaries(True, True) Else laborTypes = ReportUtilities.GetLaborTypeSummaries(True, False) End If If laborTypes IsNot Nothing Then labHrs = laborTypes.Where(Function(l) l.Name = phaseName).Sum(Function(l) l.AggregatedLaborHours) End If If labHrs <> 0 Then laborHrsString = String.Format(" ({0} hrs)", ReportUtilities.ToDecimalPlaces2or4(labHrs)) End If End If If (Not String.IsNullOrEmpty(laborDesc)) Then ReportUtilities.SetLabelValue(rpt, "phaseItemSummaryGroupHeader", "laborLabel", phaseName & " " & laborDesc & laborHrsString & ":") Else ReportUtilities.SetLabelValue(rpt, "phaseItemSummaryGroupHeader", "laborLabel", phaseName & " Labor" & laborHrsString & ":") End If End Sub