OR THIS ONE
//--- Report Summary --- //
Begin ReportSummary
ReportType = reporttypeSales
ReportTitle = "Sales By Hour Report"
PageOrientation = pageorientationPortrait
OutLineMode = True
Groups = 1
GroupDescription = ""
DisplayLogo = True
LogoFileName = "MyLogo.bmp"
ProcedureCall = ""
TablesQueried = <BEGIN>
FROM [Transaction] WITH(NOLOCK)
<END>
SelCriteria = ""
GroupBy = ""
SortOrder = ""
End ReportSummary
//--- Title Rows ---//
Begin TitleRow
Text = "<Store Name>"
Font = "Arial"
FontBold = True
FontSize = 16
Color = "Blue"
End TitleRow
Begin TitleRow
Text = "<Report Title>"
Font = "Arial"
FontBold = True
FontSize = 12
Color = "Black"
End TitleRow
Begin TitleRow
Text = "Generated On <Report Date>"
Font = "Arial"
FontBold = True
FontSize = 10
Color = "Black"
End TitleRow
//--- Filters ---//
Begin Filter
FieldName = "[Transaction].Time"
FilterOp = reportfilteropBetween
FilterLoLim = "<Today>"
FilterHilim = "<Today>"
End Filter
//--- Columns ---//
Begin Column
FieldName = "[Transaction].Time"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "TransDate"
VBDataType = vbDate
Formula = ""
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1800
GroupMethod = groupmethodNone
ColFormat = "mm/dd/yyyy"
End Column
Begin Column
FieldName = "[transaction].Total"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "Total Sale"
VBDataType = vbCurrency
Formula = ""
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1800
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "Midnight"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "Midnight"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 0 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "OneAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "1:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 1 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "TwoAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "2:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 2 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "ThreeAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "3:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 3 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "FourAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "4:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 4 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "FiveAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "5:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 5 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "SixAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "6:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 6 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "SevenAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "7:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 7 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "EightAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "8:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 8 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "NineAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "9:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 9 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "TenAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "10:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 10 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "ElevenAM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "11:00AM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 11 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "Noon"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "Noon"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 12 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "OnePM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "1:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 13 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "TwoPM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "2:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 14 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "ThreePM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "3:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 15 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "FourPM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "4:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 16 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "FivePM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "5:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 17 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "SixPM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "6:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 18 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "SevenPM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "7:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 19 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "EightPM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "8:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 20 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "NinePM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "9:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 21 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "TenPM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "10:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 22 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column
Begin Column
FieldName = "ElevenPM"
DrillDownFieldName = ""
DrillDownReportName = ""
Title = "11:00PM"
VBDataType = vbCurrency
Formula = "case when datepart(hour, [transaction].time) = 23 then [transaction].total else 0 end "
ColHidden = False
ColNotDisplayable = False
FilterDisabled = False
ColWidth = 1200
GroupMethod = groupmethodSum
ColFormat = ""
End Column