ReportName = Demo Calc Fields Bands & Format ReportGroup = Maintenance object ppReport1: TppReport AutoStop = False DataPipeline = daADOQueryDataView1.WorkOrders NoDataBehaviors = [ndBlankReport] PassSetting = psTwoPass PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Demo Bands & Format' PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279401 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 1 SaveAsTemplate = True Template.DatabaseSettings.DataPipeline = dpReports Template.DatabaseSettings.Name = 'Demo Calc Fields Bands & Format' Template.DatabaseSettings.NameField = 'ReportName' Template.DatabaseSettings.TemplateField = 'NewDef' Template.FileName = 'Demo Bands & Format.rtm' Template.SaveTo = stDatabase Template.Format = ftASCII AllowPrintToFile = True DeviceType = 'Screen' EmailSettings.ReportFormat = 'PDF' EmailSettings.Enabled = True EmailSettings.PreviewInEmailClient = False EmailSettings.ShowEmailDialog = True OutlineSettings.CreateNode = True OutlineSettings.CreatePageNodes = True OutlineSettings.Enabled = False OutlineSettings.Visible = True PreviewFormSettings.ZoomSetting = zs100Percent SavePrinterSetup = True ShowAutoSearchDialog = True TextSearchSettings.DefaultString = '' TextSearchSettings.Enabled = True Left = 218 Top = 155 Version = '10.04' mmColumnWidth = 0 DataPipelineName = 'WorkOrders' object ppHeaderBand1: TppHeaderBand PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 26988 mmPrintPosition = 0 object ppLabel1: TppLabel UserName = 'Label1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Number' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold, fsUnderline] Transparent = True mmHeight = 3704 mmLeft = 42333 mmTop = 22490 mmWidth = 11113 BandType = 0 end object ppLabel2: TppLabel UserName = 'Label2' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Days To Complete' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold, fsUnderline] Transparent = True mmHeight = 3704 mmLeft = 165100 mmTop = 22490 mmWidth = 24871 BandType = 0 end object ppLabel3: TppLabel UserName = 'Label3' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Unit' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold, fsUnderline] Transparent = True mmHeight = 3704 mmLeft = 57150 mmTop = 22490 mmWidth = 6085 BandType = 0 end object ppLabel4: TppLabel UserName = 'Label4' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Scheduled' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold, fsUnderline] TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 114300 mmTop = 22490 mmWidth = 13758 BandType = 0 end object ppLabel5: TppLabel UserName = 'Label5' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Completed' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold, fsUnderline] TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 148167 mmTop = 22490 mmWidth = 14552 BandType = 0 end object ppLabel6: TppLabel UserName = 'Label6' Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Mo / Year' Color = clActiveBorder Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold, fsUnderline] Transparent = True mmHeight = 3704 mmLeft = 12700 mmTop = 22490 mmWidth = 13758 BandType = 0 end object ppLabel9: TppLabel UserName = 'Label9' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Work Orders By Month / Year' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'ARIAL' Font.Size = 10 Font.Style = [fsBold] Transparent = True mmHeight = 4191 mmLeft = 4233 mmTop = 2117 mmWidth = 48895 BandType = 0 end object ppRichText1: TppRichText UserName = 'RichText1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'RichText1' RichText = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcha' + 'rset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#13#10'\viewkind4\uc1\' + 'pard\f0\fs16 This report demonstrates the ability to sort and gr' + 'oup data by month / year. Note the calculated fields and sortin' + 'g in the Data tab. \par'#13#10'Also note the gouping in the Design ta' + 'b under Report / Group. Finally, note the use of formatting bor' + 'ders and shading in the Design tab.\f1\par'#13#10'}'#13#10 mmHeight = 10848 mmLeft = 4233 mmTop = 7938 mmWidth = 186532 BandType = 0 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 end end object ppDetailBand1: TppDetailBand PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 6615 mmPrintPosition = 0 object ppDBText2: TppDBText UserName = 'DBText2' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Numbered' DataPipeline = daADOQueryDataView1.WorkOrders Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [] Transparent = True DataPipelineName = 'WorkOrders' mmHeight = 3704 mmLeft = 42333 mmTop = 1588 mmWidth = 17198 BandType = 4 end object ppDBText3: TppDBText UserName = 'DBText3' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'DATEDIFF_day_WoMaster_Sch' DataPipeline = daADOQueryDataView1.WorkOrders Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'WorkOrders' mmHeight = 3725 mmLeft = 165100 mmTop = 1588 mmWidth = 17198 BandType = 4 end object ppDBText4: TppDBText UserName = 'DBText4' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'UnitName' DataPipeline = daADOQueryDataView1.WorkOrders Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [] Transparent = True DataPipelineName = 'WorkOrders' mmHeight = 3704 mmLeft = 61383 mmTop = 1588 mmWidth = 38365 BandType = 4 end object ppDBText5: TppDBText UserName = 'DBText5' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'ScheduledDate' DataPipeline = daADOQueryDataView1.WorkOrders DisplayFormat = 'mm/dd/yyyy' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'WorkOrders' mmHeight = 3704 mmLeft = 103717 mmTop = 1588 mmWidth = 24342 BandType = 4 end object ppDBText6: TppDBText UserName = 'DBText6' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'CompletedDate' DataPipeline = daADOQueryDataView1.WorkOrders DisplayFormat = 'mm/dd/yyyy' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'WorkOrders' mmHeight = 3704 mmLeft = 131234 mmTop = 1588 mmWidth = 31485 BandType = 4 end end object ppFooterBand1: TppFooterBand mmBottomOffset = 0 mmHeight = 8996 mmPrintPosition = 0 object ppLabel8: TppLabel UserName = 'Label8' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'this is the footer band' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 3704 mmLeft = 67733 mmTop = 4233 mmWidth = 28575 BandType = 8 end object ppSystemVariable1: TppSystemVariable UserName = 'SystemVariable1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False VarType = vtPageSetDesc Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold] Transparent = True mmHeight = 3704 mmLeft = 2117 mmTop = 4233 mmWidth = 14817 BandType = 8 end object ppLine1: TppLine UserName = 'Line1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Weight = 0.750000000000000000 mmHeight = 2381 mmLeft = 2117 mmTop = 2117 mmWidth = 182298 BandType = 8 end end object ppSummaryBand1: TppSummaryBand mmBottomOffset = 0 mmHeight = 11642 mmPrintPosition = 0 object ppLabel10: TppLabel UserName = 'Label10' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'this is the summary band' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 3683 mmLeft = 67469 mmTop = 3969 mmWidth = 33909 BandType = 7 end object ppLabel7: TppLabel UserName = 'Label7' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Total Work Orders:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold] Transparent = True mmHeight = 3704 mmLeft = 16404 mmTop = 4233 mmWidth = 27252 BandType = 7 end object ppDBCalc1: TppDBCalc UserName = 'DBCalc1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Numbered' DataPipeline = daADOQueryDataView1.WorkOrders Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold] Transparent = True DBCalcType = dcCount DataPipelineName = 'WorkOrders' mmHeight = 3704 mmLeft = 44450 mmTop = 4233 mmWidth = 17198 BandType = 7 end end object ppGroup2: TppGroup BreakName = 'Cast_Month_ScheduledDate' DataPipeline = daADOQueryDataView1.WorkOrders KeepTogether = True OutlineSettings.CreateNode = True UserName = 'Group2' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'WorkOrders' object ppGroupHeaderBand2: TppGroupHeaderBand mmBottomOffset = 0 mmHeight = 4763 mmPrintPosition = 0 object ppDBText1: TppDBText UserName = 'DBText1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Color = clSilver DataField = 'Cast_Month_ScheduledDate' DataPipeline = daADOQueryDataView1.WorkOrders Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 10 Font.Style = [fsBold] TextAlignment = taCentered DataPipelineName = 'WorkOrders' mmHeight = 4233 mmLeft = 13758 mmTop = 0 mmWidth = 11906 BandType = 3 GroupNo = 0 end end object ppGroupFooterBand2: TppGroupFooterBand PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 529 mmPrintPosition = 0 end end object daDataModule1: TdaDataModule object daADOQueryDataView1: TdaADOQueryDataView UserName = 'Query_WorkOrders' Height = 277 Left = 10 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 10 TypeColumnWidth = 52 Width = 200 AutoSearchTabOrder = 0 object WorkOrders: TppChildDBPipeline AutoCreateFields = False UserName = 'WorkOrders' object ppField1: TppField FieldAlias = 'Numbered' FieldName = 'Numbered' FieldLength = 0 DataType = dtDouble DisplayWidth = 0 Position = 0 TableName = 'WoMaster' end object ppField2: TppField FieldAlias = 'UnitName' FieldName = 'UnitName' FieldLength = 80 DisplayWidth = 80 Position = 1 TableName = 'WoMaster' end object ppField3: TppField FieldAlias = 'Employee' FieldName = 'Employee' FieldLength = 35 DisplayWidth = 35 Position = 2 TableName = 'WoMaster' end object ppField4: TppField FieldAlias = 'Company' FieldName = 'Company' FieldLength = 50 DisplayWidth = 50 Position = 3 TableName = 'WoMaster' end object ppField5: TppField FieldAlias = 'Site' FieldName = 'Site' FieldLength = 25 DisplayWidth = 25 Position = 4 TableName = 'WoMaster' end object ppField6: TppField FieldAlias = 'ScheduledDate' FieldName = 'ScheduledDate' FieldLength = 0 DataType = dtDateTime DisplayWidth = 0 Position = 5 TableName = 'WoMaster' end object ppField7: TppField FieldAlias = 'CompletedDate' FieldName = 'CompletedDate' FieldLength = 0 DataType = dtDateTime DisplayWidth = 0 Position = 6 TableName = 'WoMaster' end object ppField8: TppField FieldAlias = 'WOCategoryID' FieldName = 'WOCategoryID' FieldLength = 25 DisplayWidth = 25 Position = 7 TableName = 'WoMaster' end object ppField9: TppField FieldAlias = 'DaysDiff ' FieldName = 'DATEDIFF_day_WoMaster_Sch' FieldLength = 0 Linkable = False DataType = dtInteger DisplayWidth = 0 Position = 8 TableName = 'WoMaster' end object ppField10: TppField FieldAlias = 'MoYr' FieldName = 'Cast_Month_ScheduledDate' FieldLength = 0 Linkable = False DisplayWidth = 0 Position = 9 TableName = 'WoMaster' end end object daSQL1: TdaSQL GuidCollationType = gcMSSQLServer DatabaseName = 'ADO1' DatabaseType = dtMSSQLServer DataPipelineName = 'WorkOrders' LinkColor = clMaroon MaxSQLFieldAliasLength = 25 SQLText.Strings = ( 'SELECT WoMaster.Numbered, WoMaster.UnitName, ' ' WoMaster.Employee, WoMaster.Company, ' ' WoMaster.Site, WoMaster.ScheduledDate, ' ' WoMaster.CompletedDate, ' ' WoMaster.WOCategoryID, ' ' DATEDIFF(day, WoMaster.ScheduledDate, WoMaster.CompletedD' + 'ate) DATEDIFF_day_WoMaster_Sch, ' ' Cast(Month(ScheduledDate) As varchar (2))+'#39'/'#39'+Cast(Year(S' + 'cheduledDate) As varchar (4)) Cast_Month_ScheduledDate' 'FROM WoMaster WoMaster' 'WHERE ' ' ( WoMaster.CompletedDate BETWEEN CONVERT(DATETIME,'#39'2000-09' + '-28 00:00:00'#39',120) AND CONVERT(DATETIME,'#39'2006-09-28 23:59:59'#39',12' + '0) )' 'ORDER BY WoMaster.ScheduledDate, 10') SQLType = sqSQL2 object daCalculation1: TdaCalculation ChildType = 8 Alias = 'DaysDiff ' DataType = dtInteger DisplayWidth = 0 FieldAlias = 'CompletedDate' FieldLength = 0 FieldName = 'CompletedDate' Linkable = False SQLFieldName = 'DATEDIFF_day_WoMaster_Sch' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' CalcType = dacaExpression Expression = 'DATEDIFF(day, WoMaster.ScheduledDate, WoMaster.CompletedDate) ' end object daCalculation2: TdaCalculation ChildType = 8 Alias = 'MoYr' DisplayWidth = 0 FieldAlias = 'ScheduledDate' FieldLength = 0 FieldName = 'ScheduledDate' Linkable = False SQLFieldName = 'Cast_Month_ScheduledDate' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' CalcType = dacaExpression Expression = 'Cast(Month(ScheduledDate) As varchar (2))+'#39'/'#39'+Cast(Year(Schedule' + 'dDate) As varchar (4))' end object daCriteria1: TdaCriteria ChildType = 7 Level = 0 Operator = dacoBetween Value = '"9/28/2000 12:00:00 AM"," 9/28/2006 11:59:59 PM"' object TdaField Alias = 'CompletedDate' AutoSearch = True DataType = dtDateTime DisplayWidth = 0 FieldAlias = 'CompletedDate' FieldLength = 0 FieldName = 'CompletedDate' SQLFieldName = 'CompletedDate' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' end object TdaNumericValue Value = 36797.000000000000000000 end object TdaNumericValue Value = 38988.999988425920000000 end end object daField1: TdaField Alias = 'Numbered' DataType = dtDouble DisplayWidth = 0 FieldAlias = 'Numbered' FieldLength = 0 FieldName = 'Numbered' SQLFieldName = 'Numbered' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' end object daField2: TdaField Alias = 'UnitName' DisplayWidth = 80 FieldAlias = 'UnitName' FieldLength = 80 FieldName = 'UnitName' SQLFieldName = 'UnitName' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' end object daField3: TdaField Alias = 'Employee' DisplayWidth = 35 FieldAlias = 'Employee' FieldLength = 35 FieldName = 'Employee' SQLFieldName = 'Employee' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' end object daField4: TdaField Alias = 'Company' DisplayWidth = 50 FieldAlias = 'Company' FieldLength = 50 FieldName = 'Company' SQLFieldName = 'Company' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' end object daField5: TdaField Alias = 'Site' DisplayWidth = 25 FieldAlias = 'Site' FieldLength = 25 FieldName = 'Site' SQLFieldName = 'Site' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' end object daField6: TdaField Alias = 'ScheduledDate' DataType = dtDateTime DisplayWidth = 0 FieldAlias = 'ScheduledDate' FieldLength = 0 FieldName = 'ScheduledDate' SQLFieldName = 'ScheduledDate' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' end object daField7: TdaField Alias = 'CompletedDate' DataType = dtDateTime DisplayWidth = 0 FieldAlias = 'CompletedDate' FieldLength = 0 FieldName = 'CompletedDate' SQLFieldName = 'CompletedDate' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' end object daField8: TdaField Alias = 'WOCategoryID' DisplayWidth = 25 FieldAlias = 'WOCategoryID' FieldLength = 25 FieldName = 'WOCategoryID' SQLFieldName = 'WOCategoryID' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' end object daField9: TdaField ChildType = 2 Alias = 'ScheduledDate' DataType = dtDateTime DisplayWidth = 0 FieldAlias = 'ScheduledDate' FieldLength = 0 FieldName = 'ScheduledDate' SQLFieldName = 'ScheduledDate' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' end object daCalculation3: TdaCalculation ChildType = 2 Alias = 'MoYr' DisplayWidth = 0 FieldAlias = 'ScheduledDate' FieldLength = 0 FieldName = 'ScheduledDate' Linkable = False SQLFieldName = 'Cast_Month_ScheduledDate' TableAlias = 'WoMaster' TableName = 'WoMaster' TableSQLAlias = 'WoMaster' CalcType = dacaExpression Expression = 'Cast(Month(ScheduledDate) As varchar (2))+'#39' '#39'+Cast(Year(Schedule' + 'dDate) As varchar (4))' end object daTable1: TdaTable ChildType = 5 Alias = 'WoMaster' JoinType = dajtNone SQLAlias = 'WoMaster' TableAlias = 'WoMaster' TableName = 'WoMaster' end end end end object ppParameterList1: TppParameterList end end