ReportName = Units Associated Parts ReportGroup = Maintenance object ppReport1: TppReport AutoStop = False DataPipeline = daADOQueryDataView1.Units NoDataBehaviors = [ndBlankReport] PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Report' 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 = 'Units Associated Parts' Template.DatabaseSettings.NameField = 'ReportName' Template.DatabaseSettings.TemplateField = 'NewDef' Template.FileName = 'Units Associated Parts.rtm' Template.SaveTo = stDatabase Template.Format = ftASCII AllowPrintToFile = True DeviceType = 'Screen' OutlineSettings.CreateNode = True OutlineSettings.CreatePageNodes = True OutlineSettings.Enabled = True OutlineSettings.Visible = True PreviewFormSettings.ZoomSetting = zs100Percent TextSearchSettings.DefaultString = '' TextSearchSettings.Enabled = True Left = 218 Top = 155 Version = '7.03' mmColumnWidth = 0 DataPipelineName = 'Units' object ppTitleBand1: TppTitleBand mmBottomOffset = 0 mmHeight = 13229 mmPrintPosition = 0 object ppLine1: TppLine UserName = 'Line1' Pen.Color = clNavy Pen.Width = 2 Weight = 1.5 mmHeight = 3969 mmLeft = 1323 mmTop = 1323 mmWidth = 200555 BandType = 1 end object ppLabel1: TppLabel UserName = 'Label1' Caption = 'Units With Part Associations' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 16 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 6562 mmLeft = 1323 mmTop = 1852 mmWidth = 67225 BandType = 1 end object ppDBText5: TppDBText UserName = 'DBText5' AutoSize = True DataField = 'CompanyName' DataPipeline = dpCompanyInfo Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 16 Font.Style = [fsBold, fsItalic] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'dpCompanyInfo' mmHeight = 6562 mmLeft = 166338 mmTop = 1852 mmWidth = 35010 BandType = 1 end object ppLabel12: TppLabel UserName = 'Params' Caption = 'RecordNumber: 1' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4149 mmLeft = 1323 mmTop = 8996 mmWidth = 25315 BandType = 1 end end object ppHeaderBand1: TppHeaderBand mmBottomOffset = 0 mmHeight = 7408 mmPrintPosition = 0 object ppLine3: TppLine UserName = 'Line3' Pen.Color = clNavy Pen.Width = 2 Weight = 1.5 mmHeight = 3969 mmLeft = 1323 mmTop = 6085 mmWidth = 200555 BandType = 0 end object ppLine2: TppLine UserName = 'Line2' Pen.Color = clNavy Pen.Width = 2 Weight = 1.5 mmHeight = 3969 mmLeft = 1323 mmTop = 1323 mmWidth = 200555 BandType = 0 end object ppLabel2: TppLabel UserName = 'Label2' AutoSize = False Caption = 'Unit Name & Number' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 1323 mmTop = 1323 mmWidth = 63500 BandType = 0 end object ppLabel3: TppLabel UserName = 'Label3' AutoSize = False Caption = 'Part Description' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 66146 mmTop = 1323 mmWidth = 101071 BandType = 0 end object ppLabel4: TppLabel UserName = 'Label4' AutoSize = False Caption = 'Part Number' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 168540 mmTop = 1323 mmWidth = 32015 BandType = 0 end end object ppDetailBand1: TppDetailBand mmBottomOffset = 0 mmHeight = 4233 mmPrintPosition = 0 object ppDBText3: TppDBText UserName = 'DBText3' DataField = 'Description' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Units' mmHeight = 3260 mmLeft = 66146 mmTop = 529 mmWidth = 101071 BandType = 4 end object ppDBText4: TppDBText UserName = 'DBText4' DataField = 'Numbered' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Units' mmHeight = 3260 mmLeft = 168540 mmTop = 529 mmWidth = 32015 BandType = 4 end end object ppFooterBand1: TppFooterBand mmBottomOffset = 0 mmHeight = 7144 mmPrintPosition = 0 object ppLine4: TppLine UserName = 'Line4' Pen.Color = clGray Pen.Width = 2 Weight = 1.5 mmHeight = 3969 mmLeft = 1323 mmTop = 5821 mmWidth = 200555 BandType = 8 end object ppSystemVariable1: TppSystemVariable UserName = 'SystemVariable1' VarType = vtPrintDateTime Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [] Transparent = True mmHeight = 4487 mmLeft = 1323 mmTop = 1323 mmWidth = 17187 BandType = 8 end object ppSystemVariable2: TppSystemVariable UserName = 'SystemVariable2' VarType = vtPageNoDesc Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 4487 mmLeft = 184680 mmTop = 1323 mmWidth = 17187 BandType = 8 end end object ppSummaryBand1: TppSummaryBand mmBottomOffset = 0 mmHeight = 6615 mmPrintPosition = 0 object ppDBCalc1: TppDBCalc UserName = 'DBCalc1' AutoSize = True DataField = 'Description' DataPipeline = daADOQueryDataView1.Units DisplayFormat = 'Total Number of Records: #####0' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 8 Font.Style = [] Transparent = True DBCalcType = dcCount DataPipelineName = 'Units' mmHeight = 3344 mmLeft = 2381 mmTop = 2381 mmWidth = 22098 BandType = 7 end end object ppGroup2: TppGroup BreakName = 'Name' DataPipeline = daADOQueryDataView1.Units OutlineSettings.CreateNode = True UserName = 'Group2' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Units' object ppGroupHeaderBand2: TppGroupHeaderBand mmBottomOffset = 0 mmHeight = 5821 mmPrintPosition = 0 object ppDBText1: TppDBText UserName = 'DBText1' AutoSize = True DataField = 'Name' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold, fsItalic] Transparent = True DataPipelineName = 'Units' mmHeight = 3704 mmLeft = 1323 mmTop = 1852 mmWidth = 44450 BandType = 3 GroupNo = 0 end object ppDBText2: TppDBText UserName = 'DBText2' AutoSize = True DataField = 'Unit' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [fsBold, fsItalic] Transparent = True DataPipelineName = 'Units' mmHeight = 3704 mmLeft = 47096 mmTop = 1852 mmWidth = 6350 BandType = 3 GroupNo = 0 end end object ppGroupFooterBand2: TppGroupFooterBand mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end end object daDataModule1: TdaDataModule object daADOQueryDataView1: TdaADOQueryDataView UserName = 'Query_Units' Height = 239 Left = 10 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 10 TypeColumnWidth = 52 Width = 216 AutoSearchTabOrder = 0 object Units: TppChildDBPipeline AutoCreateFields = False UserName = 'Units' object ppField1: TppField FieldAlias = 'Name' FieldName = 'Name' FieldLength = 80 DisplayWidth = 80 Position = 0 TableName = 'Units' end object ppField2: TppField FieldAlias = 'Unit' FieldName = 'Unit' FieldLength = 25 DisplayWidth = 25 Position = 1 TableName = 'Units' end object ppField3: TppField FieldAlias = 'Description' FieldName = 'Description' FieldLength = 60 IsDetail = True DisplayWidth = 60 Position = 2 TableName = 'Parts' end object ppField4: TppField FieldAlias = 'Numbered' FieldName = 'Numbered' FieldLength = 50 IsDetail = True DisplayWidth = 50 Position = 3 TableName = 'Parts' end end object daSQL1: TdaSQL DatabaseName = 'ADO1' DatabaseType = dtMSSQLServer DataPipelineName = 'Units' LinkColor = clMaroon MaxSQLFieldAliasLength = 25 SQLText.Strings = ( 'SELECT Units.Name, Units.Unit, Parts.Description, ' ' Parts.Numbered' 'FROM Units Units' ' INNER JOIN UnitParts UnitParts ON ' ' (UnitParts.UnitRecord = Units.RecordNumber)' ' INNER JOIN Parts Parts ON ' ' (Parts.RecordNumber = UnitParts.PartRecord)' 'WHERE ( Units.RecordNumber = 1 )' 'ORDER BY Units.Name, Parts.Description') SQLType = sqSQL2 object TdaCriteria ChildType = 7 Level = 0 Value = '1' object TdaField Alias = 'RecordNumber' AutoSearch = True DataType = dtDouble DisplayWidth = 0 FieldAlias = 'RecordNumber' FieldLength = 0 FieldName = 'RecordNumber' SQLFieldName = 'RecordNumber' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object TdaNumericValue Value = 1 end end object daField1: TdaField Alias = 'Name' DisplayWidth = 80 FieldAlias = 'Name' FieldLength = 80 FieldName = 'Name' SQLFieldName = 'Name' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField2: TdaField Alias = 'Unit' DisplayWidth = 25 FieldAlias = 'Unit' FieldLength = 25 FieldName = 'Unit' SQLFieldName = 'Unit' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField3: TdaField Alias = 'Description' DisplayWidth = 60 FieldAlias = 'Description' FieldLength = 60 FieldName = 'Description' IsDetail = True SQLFieldName = 'Description' TableAlias = 'Parts' TableName = 'Parts' TableSQLAlias = 'Parts' end object daField4: TdaField Alias = 'Numbered' DisplayWidth = 50 FieldAlias = 'Numbered' FieldLength = 50 FieldName = 'Numbered' IsDetail = True SQLFieldName = 'Numbered' TableAlias = 'Parts' TableName = 'Parts' TableSQLAlias = 'Parts' end object daField5: TdaField ChildType = 2 Alias = 'Name' DisplayWidth = 80 FieldAlias = 'Name' FieldLength = 80 FieldName = 'Name' SQLFieldName = 'Name' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField6: TdaField ChildType = 2 Alias = 'Description' DisplayWidth = 60 FieldAlias = 'Description' FieldLength = 60 FieldName = 'Description' SQLFieldName = 'Description' TableAlias = 'Parts' TableName = 'Parts' TableSQLAlias = 'Parts' end object daTable1: TdaTable ChildType = 5 Alias = 'Units' JoinType = dajtNone SQLAlias = 'Units' TableAlias = 'Units' TableName = 'Units' end object daTable2: TdaTable ChildType = 5 Alias = 'UnitParts' SQLAlias = 'UnitParts' TableAlias = 'UnitParts' TableName = 'UnitParts' object daTableJoin1: TdaTableJoin ChildType = 6 object daField8: TdaField ChildType = 3 Alias = 'UnitRecord' DataType = dtDouble DisplayWidth = 2 FieldAlias = 'UnitRecord' FieldLength = 2 FieldName = 'UnitRecord' SQLFieldName = 'UnitRecord' TableAlias = 'UnitParts' TableName = 'UnitParts' TableSQLAlias = 'UnitParts' end object daField7: TdaField ChildType = 4 Alias = 'RecordNumber' DataType = dtDouble DisplayWidth = 0 FieldAlias = 'RecordNumber' FieldLength = 0 FieldName = 'RecordNumber' SQLFieldName = 'RecordNumber' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end end end object daTable3: TdaTable ChildType = 5 Alias = 'Parts' SQLAlias = 'Parts' TableAlias = 'Parts' TableName = 'Parts' object daTableJoin2: TdaTableJoin ChildType = 6 object daField10: TdaField ChildType = 3 Alias = 'RecordNumber' DataType = dtDouble DisplayWidth = 0 FieldAlias = 'RecordNumber' FieldLength = 0 FieldName = 'RecordNumber' SQLFieldName = 'RecordNumber' TableAlias = 'Parts' TableName = 'Parts' TableSQLAlias = 'Parts' end object daField9: TdaField ChildType = 4 Alias = 'PartRecord' DataType = dtDouble DisplayWidth = 2 FieldAlias = 'PartRecord' FieldLength = 2 FieldName = 'PartRecord' SQLFieldName = 'PartRecord' TableAlias = 'UnitParts' TableName = 'UnitParts' TableSQLAlias = 'UnitParts' end end end end end end object ppParameterList1: TppParameterList end end