ReportName = Units Attachments List ReportGroup = Maintenance object ppReport1: TppReport AutoStop = False DataPipeline = daADOQueryDataView1.UnitAttachments 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 Attachments List' Template.DatabaseSettings.NameField = 'ReportName' Template.DatabaseSettings.TemplateField = 'NewDef' Template.FileName = 'Units Attachments List.rtm' Template.SaveTo = stDatabase Template.Format = ftASCII AllowPrintToFile = True DeviceType = 'Screen' OutlineSettings.CreateNode = True OutlineSettings.CreatePageNodes = True OutlineSettings.Enabled = False OutlineSettings.Visible = True PreviewFormSettings.ZoomSetting = zs100Percent TextSearchSettings.DefaultString = '' TextSearchSettings.Enabled = True Left = 218 Top = 155 Version = '7.03' mmColumnWidth = 0 DataPipelineName = 'UnitAttachments' object ppTitleBand1: TppTitleBand mmBottomOffset = 0 mmHeight = 15081 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 = 'Unit Attachments List' 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 = 2381 mmWidth = 51012 BandType = 1 end object ppDBText7: TppDBText UserName = 'DBText7' 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 = 2381 mmWidth = 35010 BandType = 1 end object ppLabel12: TppLabel UserName = 'Params' Caption = 'UnitNumber: 2' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'TIMES NEW ROMAN' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4149 mmLeft = 1323 mmTop = 10054 mmWidth = 21336 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 = 2117 mmLeft = 1323 mmTop = 6350 mmWidth = 200555 BandType = 0 end object ppLine2: TppLine UserName = 'Line2' Pen.Color = clNavy Pen.Width = 2 Weight = 1.5 mmHeight = 3175 mmLeft = 1323 mmTop = 529 mmWidth = 200555 BandType = 0 end object ppLabel2: TppLabel UserName = 'Label2' AutoSize = False Caption = 'Attached Item' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 14817 mmTop = 1323 mmWidth = 71702 BandType = 0 end object ppLabel3: TppLabel UserName = 'Label3' AutoSize = False Caption = 'Type' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 88636 mmTop = 1323 mmWidth = 25400 BandType = 0 end object ppLabel4: TppLabel UserName = 'Label4' AutoSize = False Caption = '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 = 116417 mmTop = 1323 mmWidth = 27252 BandType = 0 end object ppLabel5: TppLabel UserName = 'Label5' AutoSize = False Caption = 'Make' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 145521 mmTop = 1323 mmWidth = 27252 BandType = 0 end object ppLabel6: TppLabel UserName = 'Label6' AutoSize = False Caption = 'Model' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 174096 mmTop = 1323 mmWidth = 27252 BandType = 0 end end object ppDetailBand1: TppDetailBand mmBottomOffset = 0 mmHeight = 4233 mmPrintPosition = 0 object ppDBText2: TppDBText UserName = 'DBText2' DataField = 'Reference' DataPipeline = daADOQueryDataView1.UnitAttachments Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'UnitAttachments' mmHeight = 3175 mmLeft = 14817 mmTop = 529 mmWidth = 71967 BandType = 4 end object ppDBText3: TppDBText UserName = 'DBText3' DataField = 'Code' DataPipeline = daADOQueryDataView1.UnitAttachments Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'UnitAttachments' mmHeight = 3175 mmLeft = 88636 mmTop = 529 mmWidth = 26723 BandType = 4 end object ppDBText4: TppDBText UserName = 'DBText4' DataField = 'Unit' DataPipeline = daADOQueryDataView2.Units2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Units2' mmHeight = 3260 mmLeft = 116417 mmTop = 529 mmWidth = 27252 BandType = 4 end object ppDBText5: TppDBText UserName = 'DBText5' DataField = 'Make' DataPipeline = daADOQueryDataView2.Units2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Units2' mmHeight = 3260 mmLeft = 145521 mmTop = 529 mmWidth = 27252 BandType = 4 end object ppDBText6: TppDBText UserName = 'DBText6' DataField = 'Model' DataPipeline = daADOQueryDataView2.Units2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Units2' mmHeight = 3260 mmLeft = 174096 mmTop = 529 mmWidth = 27252 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 = 6879 mmPrintPosition = 0 object ppDBCalc2: TppDBCalc UserName = 'DBCalc2' AutoSize = True DataField = 'Name_2' DataPipeline = daADOQueryDataView1.UnitAttachments DisplayFormat = 'Total Attachments: ######0' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 10 Font.Style = [] Transparent = True DBCalcType = dcCount DataPipelineName = 'UnitAttachments' mmHeight = 4149 mmLeft = 1323 mmTop = 1588 mmWidth = 22818 BandType = 7 end end object ppGroup1: TppGroup BreakName = 'Name' DataPipeline = daADOQueryDataView1.UnitAttachments OutlineSettings.CreateNode = True UserName = 'Group1' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'UnitAttachments' object ppGroupHeaderBand1: TppGroupHeaderBand mmBottomOffset = 0 mmHeight = 6350 mmPrintPosition = 0 object ppDBText1: TppDBText UserName = 'DBText1' DataField = 'Name' DataPipeline = daADOQueryDataView1.UnitAttachments Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 10 Font.Style = [fsBold, fsItalic] Transparent = True DataPipelineName = 'UnitAttachments' mmHeight = 4106 mmLeft = 1323 mmTop = 1852 mmWidth = 128059 BandType = 3 GroupNo = 0 end end object ppGroupFooterBand1: TppGroupFooterBand mmBottomOffset = 0 mmHeight = 6350 mmPrintPosition = 0 object ppDBCalc1: TppDBCalc UserName = 'DBCalc1' AutoSize = True DataField = 'Name_2' DataPipeline = daADOQueryDataView1.UnitAttachments DisplayFormat = 'Attachments This Unit: ######0' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 10 Font.Style = [] ResetGroup = ppGroup1 Transparent = True DBCalcType = dcCount DataPipelineName = 'UnitAttachments' mmHeight = 4149 mmLeft = 1323 mmTop = 1058 mmWidth = 22818 BandType = 5 GroupNo = 0 end end end object daDataModule1: TdaDataModule object daADOQueryDataView1: TdaADOQueryDataView UserName = 'Query_UnitAttachments' Height = 215 Left = 10 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 10 TypeColumnWidth = 52 Width = 297 AutoSearchTabOrder = 0 object UnitAttachments: TppChildDBPipeline AutoCreateFields = False UserName = 'UnitAttachments' object ppField1: TppField FieldAlias = 'Code' FieldName = 'Code' FieldLength = 25 DisplayWidth = 25 Position = 0 TableName = 'UnitAttachments' end object ppField2: TppField FieldAlias = 'Type' FieldName = 'Type' FieldLength = 4 DisplayWidth = 4 Position = 1 TableName = 'UnitAttachments' end object ppField3: TppField FieldAlias = 'Reference' FieldName = 'Reference' FieldLength = 250 DisplayWidth = 250 Position = 2 TableName = 'UnitAttachments' end object ppField4: TppField FieldAlias = 'AttachedUnit' FieldName = 'AttachedUnit' FieldLength = 0 DataType = dtDouble DisplayWidth = 0 Position = 3 TableName = 'UnitAttachments' end object ppField5: TppField FieldAlias = 'Name' FieldName = 'Name' FieldLength = 80 IsDetail = True DisplayWidth = 80 Position = 4 TableName = 'Units' end object ppField6: TppField FieldAlias = 'Unit' FieldName = 'Unit' FieldLength = 25 IsDetail = True DisplayWidth = 25 Position = 5 TableName = 'Units' end end object daSQL1: TdaSQL DatabaseName = 'ADO1' DatabaseType = dtMSSQLServer DataPipelineName = 'UnitAttachments' LinkColor = clMaroon MaxSQLFieldAliasLength = 25 SQLText.Strings = ( 'SELECT UnitAttachments.Code, ' ' UnitAttachments.Type, ' ' UnitAttachments.Reference, ' ' UnitAttachments.AttachedUnit, Units.Name, ' ' Units.Unit' 'FROM UnitAttachments UnitAttachments' ' INNER JOIN Units Units ON ' ' (Units.RecordNumber = UnitAttachments.UnitNumber)' 'ORDER BY Units.Name, UnitAttachments.Type, ' ' UnitAttachments.Reference') SQLType = sqSQL2 object daField1: TdaField Alias = 'Code' DisplayWidth = 25 FieldAlias = 'Code' FieldLength = 25 FieldName = 'Code' SQLFieldName = 'Code' TableAlias = 'UnitAttachments' TableName = 'UnitAttachments' TableSQLAlias = 'UnitAttachments' end object daField2: TdaField Alias = 'Type' DisplayWidth = 4 FieldAlias = 'Type' FieldLength = 4 FieldName = 'Type' SQLFieldName = 'Type' TableAlias = 'UnitAttachments' TableName = 'UnitAttachments' TableSQLAlias = 'UnitAttachments' end object daField3: TdaField Alias = 'Reference' DisplayWidth = 250 FieldAlias = 'Reference' FieldLength = 250 FieldName = 'Reference' SQLFieldName = 'Reference' TableAlias = 'UnitAttachments' TableName = 'UnitAttachments' TableSQLAlias = 'UnitAttachments' end object daField4: TdaField Alias = 'AttachedUnit' DataType = dtDouble DisplayWidth = 0 FieldAlias = 'AttachedUnit' FieldLength = 0 FieldName = 'AttachedUnit' SQLFieldName = 'AttachedUnit' TableAlias = 'UnitAttachments' TableName = 'UnitAttachments' TableSQLAlias = 'UnitAttachments' end object daField5: TdaField Alias = 'Name' DisplayWidth = 80 FieldAlias = 'Name' FieldLength = 80 FieldName = 'Name' IsDetail = True SQLFieldName = 'Name' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField6: TdaField Alias = 'Unit' DisplayWidth = 25 FieldAlias = 'Unit' FieldLength = 25 FieldName = 'Unit' IsDetail = True SQLFieldName = 'Unit' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField7: TdaField ChildType = 2 Alias = 'Name' DisplayWidth = 80 FieldAlias = 'Name' FieldLength = 80 FieldName = 'Name' SQLFieldName = 'Name' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField8: TdaField ChildType = 2 Alias = 'Type' DisplayWidth = 4 FieldAlias = 'Type' FieldLength = 4 FieldName = 'Type' SQLFieldName = 'Type' TableAlias = 'UnitAttachments' TableName = 'UnitAttachments' TableSQLAlias = 'UnitAttachments' end object daField9: TdaField ChildType = 2 Alias = 'Reference' DisplayWidth = 250 FieldAlias = 'Reference' FieldLength = 250 FieldName = 'Reference' SQLFieldName = 'Reference' TableAlias = 'UnitAttachments' TableName = 'UnitAttachments' TableSQLAlias = 'UnitAttachments' end object daTable1: TdaTable ChildType = 5 Alias = 'UnitAttachments' JoinType = dajtNone SQLAlias = 'UnitAttachments' TableAlias = 'UnitAttachments' TableName = 'UnitAttachments' end object daTable2: TdaTable ChildType = 5 Alias = 'Units' SQLAlias = 'Units' TableAlias = 'Units' TableName = 'Units' object daTableJoin1: TdaTableJoin ChildType = 6 object daField11: TdaField ChildType = 3 Alias = 'RecordNumber' DataType = dtDouble DisplayWidth = 0 FieldAlias = 'RecordNumber' FieldLength = 0 FieldName = 'RecordNumber' SQLFieldName = 'RecordNumber' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField10: TdaField ChildType = 4 Alias = 'UnitNumber' DataType = dtDouble DisplayWidth = 0 FieldAlias = 'UnitNumber' FieldLength = 0 FieldName = 'UnitNumber' SQLFieldName = 'UnitNumber' TableAlias = 'UnitAttachments' TableName = 'UnitAttachments' TableSQLAlias = 'UnitAttachments' end end end end end object daADOQueryDataView2: TdaADOQueryDataView UserName = 'Query_Units2' Height = 215 Left = 333 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 13 TypeColumnWidth = 52 Width = 200 AutoSearchTabOrder = 0 MasterDataViewUserName = 'Query_UnitAttachments' object Units2: TppChildDBPipeline AutoCreateFields = False SkipWhenNoRecords = False UserName = 'Units2' MasterDataPipelineName = 'UnitAttachments' 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 = 'RecordNumber' FieldName = 'RecordNumber' FieldLength = 0 DataType = dtDouble DisplayWidth = 0 Position = 2 TableName = 'Units' end object ppField4: TppField FieldAlias = 'Make' FieldName = 'Make' FieldLength = 25 DisplayWidth = 25 Position = 3 TableName = 'Units' end object ppField5: TppField FieldAlias = 'Model' FieldName = 'Model' FieldLength = 25 DisplayWidth = 25 Position = 4 TableName = 'Units' end object ppField6: TppField FieldAlias = 'Type' FieldName = 'Type' FieldLength = 25 DisplayWidth = 25 Position = 5 TableName = 'Units' end object TppMasterFieldLink MasterFieldName = 'Name' DetailFieldName = 'Name_2' DetailSortOrder = soAscending end object TppMasterFieldLink MasterFieldName = 'Type' DetailFieldName = 'Type_2' DetailSortOrder = soAscending end object TppMasterFieldLink MasterFieldName = 'Reference' DetailFieldName = 'Reference' DetailSortOrder = soAscending end object TppMasterFieldLink MasterFieldName = 'AttachedUnit' DetailFieldName = 'RecordNumber' DetailSortOrder = soAscending end end object daSQL2: TdaSQL DatabaseName = 'ADO1' DatabaseType = dtMSSQLServer DataPipelineName = 'Units2' LinkColor = clNavy MaxSQLFieldAliasLength = 25 SkipWhenNoRecords = False SQLText.Strings = ( 'SELECT Units.Name, Units.Unit, ' ' Units.RecordNumber, Units.Make, ' ' Units.Model, Units.Type' 'FROM Units Units' 'ORDER BY Units.RecordNumber') SQLType = sqSQL2 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 = 'RecordNumber' DataType = dtDouble DisplayWidth = 0 FieldAlias = 'RecordNumber' FieldLength = 0 FieldName = 'RecordNumber' SQLFieldName = 'RecordNumber' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField4: TdaField Alias = 'Make' DisplayWidth = 25 FieldAlias = 'Make' FieldLength = 25 FieldName = 'Make' SQLFieldName = 'Make' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField5: TdaField Alias = 'Model' DisplayWidth = 25 FieldAlias = 'Model' FieldLength = 25 FieldName = 'Model' SQLFieldName = 'Model' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField6: TdaField Alias = 'Type' DisplayWidth = 25 FieldAlias = 'Type' FieldLength = 25 FieldName = 'Type' SQLFieldName = 'Type' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField7: TdaField ChildType = 2 Alias = 'RecordNumber' DataType = dtDouble DisplayWidth = 0 FieldAlias = 'RecordNumber' FieldLength = 0 FieldName = 'RecordNumber' SQLFieldName = 'RecordNumber' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daTable1: TdaTable ChildType = 5 Alias = 'Units' JoinType = dajtNone SQLAlias = 'Units' TableAlias = 'Units' TableName = 'Units' end object TdaSQLLink ChildType = 9 object daField8: TdaField ChildType = 10 Alias = 'AttachedUnit' DataType = dtDouble DisplayWidth = 0 FieldAlias = 'AttachedUnit' FieldLength = 0 FieldName = 'AttachedUnit' IsDetail = True SQLFieldName = 'AttachedUnit' TableAlias = 'UnitAttachments' TableName = 'UnitAttachments' TableSQLAlias = 'UnitAttachments' end object daField9: TdaField ChildType = 11 Alias = 'RecordNumber' DataType = dtDouble DisplayWidth = 0 FieldAlias = 'RecordNumber' FieldLength = 0 FieldName = 'RecordNumber' SQLFieldName = 'RecordNumber' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end end end end end object ppParameterList1: TppParameterList end end