object Report: TppReport AutoStop = False DataPipeline = daADOQueryDataView1.Behandlungen PassSetting = psTwoPass PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Rechnung' PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 12000 PrinterSetup.mmMarginLeft = 20000 PrinterSetup.mmMarginRight = 15000 PrinterSetup.mmMarginTop = 20000 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 Template.FileName = 'C:\Users\Anmeldung\Documents\SoliPrax\Reports\RG_ohne Fussnote_o' + 'hne Seitennummer.rtm' Template.Format = ftASCII Units = utMillimeters DeviceType = 'Screen' EmailSettings.ReportFormat = 'PDF' Icon.Data = { 0000010001002020000001002000A81000001600000028000000200000004000 000001002000000000008010000000000000000000000000000000000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFB2EB FFFF83DFFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDE FFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDE FFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDEFFFF7DDE FFFF7DDEFFFF83DFFFFFBAEDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDAF5 FFFF06C1FFFFE8F9FFFFECFAFFFFECFAFFFFECFAFFFFECFAFFFFECFAFFFFECFA FFFFECFAFFFFECFAFFFFECFAFFFFECFAFFFFECFAFFFFECFAFFFFECFAFFFFECFA FFFFECFAFFFFECFAFFFFECFAFFFFECFAFFFFECFAFFFFECFAFFFFECFAFFFFECFA FFFFE3F8FFFF00BEFFFFEAF9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF9DE6FFFF7DDEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAF9 F9FFF8F8F8FFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF50D3FFFFB3ECFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFE FFFFFFFFFFFF19C5FFFFCDF2FFFFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF888888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFFFFFFFFFFFF FFFFF9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFEFEFEFFFFFFFFFFFFFF FFFFFFFFFFFFF5FCFFFF23C7FFFFFFFFFFFFFFFFFFFFEEE7E6FF855149FF905F 57FFF8F6F5FF865148FF966962FFFDFCFCFF986B63FFC2A8A4FF9A6D65FFFDF9 F9FF747474FF666666FFC9C9C9FFDBDBDBFFB7B7B7FFFFFFFFFF7A7A7AFFA2A2 A2FF939393FF9B9B9BFFE8E8E8FF828282FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFEFEFFFFFFFFFFFF88E1FFFF5BD5FFFFFFFFFFFFFEFEFEFFEAE0DFFF8854 4BFFD6C6C3FFB69792FFDECFCDFFBEA29DFF9B7068FFF0E9E8FFBEA19DFFF2EC EBFF868686FFF3F3F3FF646464FFFEFEFEFF8F8F8FFFFFFFFFFF646464FFFFFF FFFF7E7E7EFFFDFDFDFF808080FFA6A6A6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFEFEFFFFFFFFFFFF38CDFFFFDEF6FFFFFFFFFFFF9D736BFFE5D9 D8FFFFFFFFFF976961FFDFD1CFFFA27973FFBB9E99FFD0BDB9FFD2BDBAFFC8B0 ACFFAAABABFFA2A2A2FF737373FFF6F6F6FF7B7B7BFFCECECEFF9C9C9CFFDFDF DFFF868686FFFFFFFFFF767676FF8B8B8BFFEDEDEDFFD3D3D3FFBDBDBDFFFFFF FFFFFFFFFFFFFFFFFFFFFEFEFFFFEAFAFFFF09C1FFFFFBFEFFFFE7DCDBFFA57E 77FFF6F2F1FFE7DCDAFFA78079FFF0EAE9FFE0D3D0FFB2918BFFBEA29DFFC3A9 A4FFDDDEDEFFBEBEBEFF9E9E9EFFFFFFFFFFD8D8D8FFC8C8C8FFFFFFFFFFA3A3 A3FFC6C6C6FFFEFEFEFFC3C3C3FFEDEDEDFFC2C2C2FFF3F3F3FFC3C3C3FFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9DE6FFFF77DDFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9A6D65FFFAF8F7FF834E 45FFF9F7F7FFFFFFFFFFFFFFFFFFFEFEFFFFFDFEFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFFFFFFFFFFFF2CCAFFFFC0EFFFFFFEFE FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFBFBFFFFFFFFFFF9F6 F6FFFFFFFFFFFFFFFFFFFFFFFFFF96E4FFFF53D3FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFFFFEDFAFFFF1CC6FFFFFFFF FFFFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFF7FCFFFF19C5FFFFFCFEFFFFFEFEFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9FE7FFFF57D5 FFFFFFFFFFFFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFEFEFFFFFFFFFFFF29C9FFFFD1F3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFFFFFFFFFFFF33CC FFFFD9F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFA5E8FFFF64D7FFFFFFFFFFFFFEFEFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1FB FFFF12C3FFFFF7FDFFFFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFE FFFFE1F7FFFF17C4FFFFFFFFFFFFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF98E5FFFF62D8FFFFFFFFFFFFFEFEFFFFFFFFFFFFFFFFFFFFFEFEFFFFFFFF FFFF2FCAFFFFCBF2FFFFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFE FFFFFFFFFFFF3DCEFFFFC0EFFFFFFFFFFFFFFFFFFFFFFEFEFFFFFFFFFFFF83E0 FFFF7BDEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFEFEFFFFF2FCFFFF0CC2FFFFFFFFFFFFFEFEFFFFFEFEFFFFEFFBFFFF18C5 FFFFFFFFFFFFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFB0EBFFFF53D4FFFFFFFFFFFFFFFFFFFF23C7FFFFE2F7 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF31CBFFFFC3F0FFFF83E0FFFF72DCFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFFFF1DC6FFFF35CCFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFFFFA2E7FFFFD7F5FFFFFEFEFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000} OutlineSettings.CreateNode = True OutlineSettings.CreatePageNodes = True OutlineSettings.Enabled = True OutlineSettings.Visible = True PDFSettings.EmbedFontOptions = [] PreviewFormSettings.ZoomSetting = zsPercentage TextSearchSettings.DefaultString = '' TextSearchSettings.Enabled = True Left = 184 Top = 232 Version = '11.08' mmColumnWidth = 170000 DataPipelineName = 'Behandlungen' object ppDetailBand: TppDetailBand PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 130175 mmPrintPosition = 0 object ppSubReport1: TppSubReport UserName = 'SubReport1' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ShiftRelativeTo = ppDBMemo1 TraverseAllData = False DataPipelineName = 'Behandlungsleistungen' mmHeight = 4498 mmLeft = 0 mmTop = 108744 mmWidth = 175000 BandType = 4 mmBottomOffset = 8000 mmOverFlowOffset = 0 mmStopPosition = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = daADOQueryDataView3.Behandlungsleistungen PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Rechnung' PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 12000 PrinterSetup.mmMarginLeft = 20000 PrinterSetup.mmMarginRight = 15000 PrinterSetup.mmMarginTop = 20000 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 Template.Format = ftASCII Units = utMillimeters Version = '11.08' mmColumnWidth = 0 DataPipelineName = 'Behandlungsleistungen' object ppTitleBand2: TppTitleBand mmBottomOffset = 0 mmHeight = 7408 mmPrintPosition = 0 object ppLine6: TppLine UserName = 'Line2' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False ParentWidth = True Weight = 0.750000000000000000 mmHeight = 529 mmLeft = 0 mmTop = 6879 mmWidth = 175000 BandType = 1 end object ppLabel12: TppLabel UserName = 'Label3' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Datum' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Transparent = True mmHeight = 3175 mmLeft = 0 mmTop = 2910 mmWidth = 7938 BandType = 1 end object ppLabel13: TppLabel UserName = 'lblGebuH' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Geb'#252'H' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Transparent = True mmHeight = 3175 mmLeft = 20638 mmTop = 2910 mmWidth = 8731 BandType = 1 end object ppLabel14: TppLabel UserName = 'Label5' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Leistung' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Transparent = True mmHeight = 3175 mmLeft = 36513 mmTop = 2910 mmWidth = 10319 BandType = 1 end object ppLabel15: TppLabel UserName = 'lblFaktor' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Anzahl' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Transparent = True mmHeight = 3302 mmLeft = 122502 mmTop = 2910 mmWidth = 8128 BandType = 1 end object ppLabel16: TppLabel UserName = 'lblHonorar' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Honorar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3302 mmLeft = 140282 mmTop = 2910 mmWidth = 9737 BandType = 1 end object ppLabel17: TppLabel UserName = 'lblGesHonorar' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'G.-Honorar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3175 mmLeft = 159544 mmTop = 2910 mmWidth = 13494 BandType = 1 end end object ppDetailBand3: TppDetailBand PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 3704 mmPrintPosition = 0 object ppDBText9: TppDBText UserName = 'DBText4' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Anzahl' DataPipeline = daADOQueryDataView3.Behandlungsleistungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Behandlungsleistungen' mmHeight = 3175 mmLeft = 122502 mmTop = 0 mmWidth = 7144 BandType = 4 end object ppDBText10: TppDBText UserName = 'DBText8' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Geb'#252'H' DataPipeline = daADOQueryDataView3.Behandlungsleistungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Behandlungsleistungen' mmHeight = 3175 mmLeft = 20373 mmTop = 0 mmWidth = 14023 BandType = 4 end object ppDBText11: TppDBText UserName = 'DBText10' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Honorar' DataPipeline = daADOQueryDataView3.Behandlungsleistungen DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Behandlungsleistungen' mmHeight = 3175 mmLeft = 132292 mmTop = 0 mmWidth = 17727 BandType = 4 end object ppDBText12: TppDBText UserName = 'DBText11' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'GesamtHonorar' DataPipeline = daADOQueryDataView3.Behandlungsleistungen DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Behandlungsleistungen' mmHeight = 3175 mmLeft = 153459 mmTop = 0 mmWidth = 19579 BandType = 4 end object ppDBText13: TppDBText UserName = 'DBText13' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Behandlungsdatum' DataPipeline = daADOQueryDataView3.Behandlungsleistungen DisplayFormat = 'dd.mm.yyyy' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] SuppressRepeatedValues = True Transparent = True DataPipelineName = 'Behandlungsleistungen' mmHeight = 3175 mmLeft = 0 mmTop = 0 mmWidth = 18256 BandType = 4 end object ppDBMemo6: TppDBMemo UserName = 'DBMemo6' SaveOrder = 0 Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False CharWrap = False DataField = 'Anmerkung' DataPipeline = daADOQueryDataView3.Behandlungsleistungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] ShiftRelativeTo = ppDBMemo7 Stretch = True Transparent = True DataPipelineName = 'Behandlungsleistungen' mmHeight = 529 mmLeft = 36513 mmTop = 3175 mmWidth = 80433 BandType = 4 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmLeading = 0 end object ppDBMemo7: TppDBMemo UserName = 'memLeistung' SaveOrder = 1 Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False CharWrap = False DataField = 'Leistung' DataPipeline = daADOQueryDataView3.Behandlungsleistungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Stretch = True Transparent = True DataPipelineName = 'Behandlungsleistungen' mmHeight = 3175 mmLeft = 36513 mmTop = 265 mmWidth = 82286 BandType = 4 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmLeading = 0 end end object ppFooterBand3: TppFooterBand Visible = False mmBottomOffset = 0 mmHeight = 7408 mmPrintPosition = 0 object ppDBCalc2: TppDBCalc UserName = 'DBCalc2' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'GesamtHonorar' DataPipeline = daADOQueryDataView3.Behandlungsleistungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Behandlungsleistungen' mmHeight = 4233 mmLeft = 147373 mmTop = 1588 mmWidth = 25665 BandType = 8 end end object ppSummaryBand2: TppSummaryBand AlignToBottom = False mmBottomOffset = 0 mmHeight = 15610 mmPrintPosition = 0 object ppDBCalc1: TppDBCalc UserName = 'DBCalc1' HyperlinkColor = clBlue Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom] Border.Color = clWindow Border.Style = psSolid Border.Visible = True DataField = 'GesamtHonorar' DataPipeline = daADOQueryDataView3.Behandlungsleistungen DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Behandlungsleistungen' mmHeight = 5027 mmLeft = 147373 mmTop = 1852 mmWidth = 25665 BandType = 7 end object ppLabel18: TppLabel UserName = 'Label9' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Gesamt' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] Transparent = True mmHeight = 4233 mmLeft = 125465 mmTop = 1852 mmWidth = 12954 BandType = 7 end object ppLine7: TppLine UserName = 'Line3' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False ParentWidth = True Weight = 0.750000000000000000 mmHeight = 1852 mmLeft = 0 mmTop = 529 mmWidth = 175000 BandType = 7 end object ppDBText14: TppDBText UserName = 'DBText9' HyperlinkColor = clBlue AutoSize = True Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'W'#228'hrung' DataPipeline = daADOQueryDataView5.Optionen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Optionen' mmHeight = 4233 mmLeft = 140229 mmTop = 1852 mmWidth = 15409 BandType = 7 end end object raCodeModule2: TraCodeModule ProgramStream = {00} end end end object ppDBMemo2: TppDBMemo UserName = 'memAusgangstext' SaveOrder = 0 Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False CharWrap = False DataField = 'Rechnungsausgangstext' DataPipeline = daADOQueryDataView1.Behandlungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False ShiftRelativeTo = ppDBMemo4 Stretch = True Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 5027 mmLeft = 0 mmTop = 116946 mmWidth = 133615 BandType = 4 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmLeading = 0 end object ppDBMemo4: TppDBMemo UserName = 'memAnmerkungen' SaveOrder = 1 Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False CharWrap = False DataField = 'Anmerkung' DataPipeline = daADOQueryDataView1.Behandlungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] ShiftRelativeTo = ppSubReport1 Stretch = True Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 3969 mmLeft = 0 mmTop = 113242 mmWidth = 133615 BandType = 4 mmBottomOffset = 2000 mmOverFlowOffset = 0 mmStopPosition = 0 mmLeading = 0 end object ppDBMemo1: TppDBMemo UserName = 'memEingangstext' SaveOrder = 2 Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False CharWrap = False DataField = 'Rechnungseingangstext' DataPipeline = daADOQueryDataView1.Behandlungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False ShiftRelativeTo = ppDBMemo3 Stretch = True Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 4763 mmLeft = 0 mmTop = 103981 mmWidth = 194469 BandType = 4 mmBottomOffset = 5000 mmOverFlowOffset = 0 mmStopPosition = 0 mmLeading = 0 end object ppDBMemo3: TppDBMemo UserName = 'memDiagnose' KeepTogether = True SaveOrder = 3 Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False CharWrap = False DataField = 'Diagnose' DataPipeline = daADOQueryDataView1.Behandlungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False ShiftRelativeTo = ppRegion2 Stretch = True Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 4498 mmLeft = 0 mmTop = 99748 mmWidth = 173302 BandType = 4 mmBottomOffset = 5000 mmOverFlowOffset = 0 mmStopPosition = 0 mmLeading = 0 end object ppDBText15: TppDBText UserName = 'DBText2' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Rechanrede' DataPipeline = daADOQueryDataView1.Behandlungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 4498 mmLeft = 0 mmTop = 35719 mmWidth = 21167 BandType = 4 end object ppDBText16: TppDBText UserName = 'DBText5' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Rechstrasse' DataPipeline = daADOQueryDataView1.Behandlungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 4498 mmLeft = 0 mmTop = 44186 mmWidth = 89165 BandType = 4 end object ppDBText17: TppDBText UserName = 'DBText6' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Rechplzort' DataPipeline = daADOQueryDataView1.Behandlungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 4498 mmLeft = 0 mmTop = 48419 mmWidth = 89165 BandType = 4 end object ppDBText18: TppDBText UserName = 'DBText3' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Patienten_Rechvorname_Pat' DataPipeline = daADOQueryDataView1.Behandlungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 4498 mmLeft = 0 mmTop = 39952 mmWidth = 88900 BandType = 4 end object ppDBText22: TppDBText UserName = 'txtAbsender' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Vorname_Name_Stra'#223'e_Ort' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Praxisdaten' mmHeight = 3969 mmLeft = 0 mmTop = 29633 mmWidth = 89165 BandType = 4 end object ppRegion1: TppRegion UserName = 'rgrInfo' Brush.Style = bsClear Caption = 'rgrInfo' Pen.Style = psClear Stretch = True Transparent = True mmHeight = 59267 mmLeft = 103452 mmTop = 0 mmWidth = 70644 BandType = 4 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 object ppDBText19: TppDBText UserName = 'DBText14' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Vorname_Name' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Praxisdaten' mmHeight = 4233 mmLeft = 104511 mmTop = 794 mmWidth = 69586 BandType = 4 end object ppDBText20: TppDBText UserName = 'DBText15' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Berufsbezeichnung' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Praxisdaten' mmHeight = 4763 mmLeft = 104511 mmTop = 4763 mmWidth = 69586 BandType = 4 end object ppDBText21: TppDBText UserName = 'DBText16' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Stra'#223'e' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Praxisdaten' mmHeight = 4064 mmLeft = 104511 mmTop = 19050 mmWidth = 69586 BandType = 4 end object ppDBText23: TppDBText UserName = 'DBText17' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Ort' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Praxisdaten' mmHeight = 4064 mmLeft = 104511 mmTop = 23019 mmWidth = 69586 BandType = 4 end object ppDBText24: TppDBText UserName = 'DBText18' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Tel1' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Praxisdaten' mmHeight = 4064 mmLeft = 104511 mmTop = 27517 mmWidth = 69586 BandType = 4 end object ppDBText25: TppDBText UserName = 'DBText19' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Tel2' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Praxisdaten' mmHeight = 4064 mmLeft = 104511 mmTop = 31221 mmWidth = 69586 BandType = 4 end object ppDBText26: TppDBText UserName = 'DBText20' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Fax' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Praxisdaten' mmHeight = 4064 mmLeft = 104511 mmTop = 34925 mmWidth = 69586 BandType = 4 end object ppDBText27: TppDBText UserName = 'DBText21' HyperlinkEnabled = False HyperlinkColor = clWindowText Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Email' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Praxisdaten' mmHeight = 4064 mmLeft = 104511 mmTop = 38629 mmWidth = 69586 BandType = 4 end object ppDBMemo5: TppDBMemo UserName = 'DBMemo1' SaveOrder = 4 Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False CharWrap = False DataField = 'Bank' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Stretch = True Transparent = True DataPipelineName = 'Praxisdaten' mmHeight = 12435 mmLeft = 104511 mmTop = 45773 mmWidth = 69586 BandType = 4 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmLeading = 0 end object ppDBText28: TppDBText UserName = 'DBText24' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Praxisname' DataPipeline = daADOQueryDataView4.Praxisdaten Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True WordWrap = True DataPipelineName = 'Praxisdaten' mmHeight = 10054 mmLeft = 104511 mmTop = 9260 mmWidth = 69586 BandType = 4 end end object ppRegion2: TppRegion UserName = 'Region1' Caption = 'Region1' ParentWidth = True Pen.Style = psClear Stretch = True mmHeight = 22490 mmLeft = 0 mmTop = 77523 mmWidth = 175000 BandType = 4 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 object ppDBText29: TppDBText UserName = 'DBText1' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Color = clWindow DataField = 'Datum' DataPipeline = daADOQueryDataView1.Behandlungen DisplayFormat = 'dd.mm.yyyy' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 4233 mmLeft = 104511 mmTop = 78052 mmWidth = 20373 BandType = 4 end object ppDBText30: TppDBText UserName = 'txtRNNr' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'RechnungsNr' DataPipeline = daADOQueryDataView1.Behandlungen DisplayFormat = '"Nr. "0' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 4233 mmLeft = 20638 mmTop = 78052 mmWidth = 30427 BandType = 4 end object ppLabel19: TppLabel UserName = 'Label1' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Patient(in)' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] Transparent = True mmHeight = 4233 mmLeft = 265 mmTop = 88636 mmWidth = 17463 BandType = 4 end object ppDBText31: TppDBText UserName = 'DBText12' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Patienten_Vorname_Patient' DataPipeline = daADOQueryDataView1.Behandlungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Behandlungen' mmHeight = 4498 mmLeft = 29369 mmTop = 89165 mmWidth = 95515 BandType = 4 end object ppLabel20: TppLabel UserName = 'Label2' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Diagnose(n):' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] Transparent = True mmHeight = 4233 mmLeft = 265 mmTop = 94986 mmWidth = 21696 BandType = 4 end object ppLabel21: TppLabel UserName = 'lblRechnung' HyperlinkColor = clBlue Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Rechnung' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] Transparent = True mmHeight = 4318 mmLeft = 0 mmTop = 78052 mmWidth = 17399 BandType = 4 end end end object ppFooterBand: TppFooterBand mmBottomOffset = 0 mmHeight = 5027 mmPrintPosition = 0 end object ppGroup2: TppGroup BreakName = 'Behandlungen_RechnungsNr' DataPipeline = daADOQueryDataView1.Behandlungen OutlineSettings.CreateNode = True NewPage = True NewFile = False ResetPageNo = True StartOnOddPage = False UserName = 'Group2' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Behandlungen' object ppGroupHeaderBand2: TppGroupHeaderBand mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroupFooterBand2: TppGroupFooterBand HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end end object daDataModule: TdaDataModule object daADOQueryDataView1: TdaADOQueryDataView UserName = 'Query_Behandlungen' Height = 533 Left = 10 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 10 TypeColumnWidth = 52 Width = 224 AutoSearchTabOrder = 0 object Behandlungen: TppChildDBPipeline AutoCreateFields = False UserName = 'Behandlungen' object ppField1: TppField FieldAlias = 'Id' FieldName = 'Id' FieldLength = 0 DataType = dtLongint DisplayWidth = 10 Position = 0 TableName = 'Behandlungen' end object ppField2: TppField FieldAlias = 'Datum' FieldName = 'Datum' FieldLength = 0 DataType = dtDateTime DisplayWidth = 18 Position = 1 TableName = 'Behandlungen' end object ppField3: TppField FieldAlias = 'Anmerkung' FieldName = 'Anmerkung' FieldLength = 0 Linkable = False DataType = dtMemo DisplayWidth = 10 Position = 2 TableName = 'Behandlungen' end object ppField4: TppField FieldAlias = 'RechnungsNr' FieldName = 'RechnungsNr' FieldLength = 0 DataType = dtInteger DisplayWidth = 10 Position = 3 TableName = 'Behandlungen' end object ppField5: TppField FieldAlias = 'Anrede' FieldName = 'Anrede' FieldLength = 20 IsDetail = True DisplayWidth = 20 Position = 4 TableName = 'Patienten' end object ppField6: TppField FieldAlias = 'Rechanrede' FieldName = 'Rechanrede' FieldLength = 20 IsDetail = True DisplayWidth = 20 Position = 5 TableName = 'Patienten' end object ppField7: TppField FieldAlias = 'Rechname' FieldName = 'Rechname' FieldLength = 50 IsDetail = True DisplayWidth = 50 Position = 6 TableName = 'Patienten' end object ppField8: TppField FieldAlias = 'Rechvorname' FieldName = 'Rechvorname' FieldLength = 50 IsDetail = True DisplayWidth = 50 Position = 7 TableName = 'Patienten' end object ppField9: TppField FieldAlias = 'Rechstrasse' FieldName = 'Rechstrasse' FieldLength = 80 IsDetail = True DisplayWidth = 80 Position = 8 TableName = 'Patienten' end object ppField10: TppField FieldAlias = 'Rechplzort' FieldName = 'Rechplzort' FieldLength = 60 IsDetail = True DisplayWidth = 60 Position = 9 TableName = 'Patienten' end object ppField11: TppField FieldAlias = 'Rechnungsausgangstext' FieldName = 'Rechnungsausgangstext' FieldLength = 255 IsDetail = True DisplayWidth = 255 Position = 10 TableName = 'Patienten' end object ppField12: TppField FieldAlias = 'Rechnungseingangstext' FieldName = 'Rechnungseingangstext' FieldLength = 255 IsDetail = True DisplayWidth = 255 Position = 11 TableName = 'Patienten' end object ppField13: TppField FieldAlias = 'Diagnose' FieldName = 'Diagnose' FieldLength = 0 Linkable = False DataType = dtMemo DisplayWidth = 10 Position = 12 TableName = 'Behandlungen' end object ppField14: TppField FieldAlias = 'Nr' FieldName = 'Nr' FieldLength = 0 IsDetail = True DataType = dtInteger DisplayWidth = 10 Position = 13 TableName = 'Kopien' end object ppField15: TppField FieldAlias = 'IdPatient' FieldName = 'Id_2' FieldLength = 0 IsDetail = True DataType = dtLongint DisplayWidth = 10 Position = 14 TableName = 'Patienten' end object ppField16: TppField FieldAlias = 'VollerName' FieldName = 'Patienten_Rechvorname_Pat' FieldLength = 50 DisplayWidth = 50 Position = 15 TableName = 'Patienten' end object ppField17: TppField FieldAlias = 'Patienten_Vorname_Patient' FieldName = 'Patienten_Vorname_Patient' FieldLength = 25 DisplayWidth = 25 Position = 16 TableName = 'Patienten' end object ppField18: TppField FieldAlias = 'Trennung' FieldName = 'Behandlungen_RechnungsNr' FieldLength = 0 DataType = dtInteger DisplayWidth = 10 Position = 17 TableName = 'Behandlungen' end end object daSQL1: TdaSQL GuidCollationType = gcMSAccess DatabaseName = 'ADOConnection' DatabaseType = dtMSAccess DataPipelineName = 'Behandlungen' IsCaseSensitive = True LinkColor = clMaroon LinkType = ltMagicSQL MaxSQLFieldAliasLength = 25 SQLText.Strings = ( 'SELECT Behandlungen.Id, Behandlungen.Datum, ' ' Behandlungen.Anmerkung, ' ' Behandlungen.RechnungsNr, ' ' Patienten.Anrede, Patienten.Rechanrede, ' ' Patienten.Rechname, Patienten.Rechvorname, ' ' Patienten.Rechstrasse, ' ' Patienten.Rechplzort, ' ' Patienten.Rechnungsausgangstext, ' ' Patienten.Rechnungseingangstext, ' ' Behandlungen.Diagnose, Kopien.Nr, ' ' Patienten.Id AS Id_2, ' ' Patienten.Rechvorname + '#39' '#39' + Patienten.RechName AS Patie' + 'nten_Rechvorname_Pat, ' ' Patienten.Vorname + '#39' '#39' + Patienten.Name & iif(Geburtstag' + ' is null,'#39#39', '#39', geb. '#39' & Geburtstag) AS Patienten_Vorname_Patie' + 'nt, ' ' Behandlungen.RechnungsNr * 10 + Kopien.Nr AS Behandlungen' + '_RechnungsNr' 'FROM ((Behandlungen Behandlungen' ' INNER JOIN Patienten Patienten ON ' ' (Patienten.Id = Behandlungen.Patient) )' ' INNER JOIN Kopien Kopien ON ' ' (Kopien.Anzahl = Patienten.Kopien) )' 'WHERE ('#39'c'#39' <> '#39'c'#39' ) AND (' ' ( Behandlungen.Auswahl = TRUE ))') SQLType = sqSQL2 object daCalculation1: TdaCalculation ChildType = 8 Alias = 'VollerName' DisplayWidth = 50 FieldAlias = 'Rechvorname' FieldLength = 50 FieldName = 'Rechvorname' SQLFieldName = 'Patienten_Rechvorname_Pat' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' CalcType = dacaExpression Expression = 'Patienten.Rechvorname + '#39' '#39' + Patienten.RechName' end object daCalculation2: TdaCalculation ChildType = 8 Alias = 'Patienten_Vorname_Patient' DisplayWidth = 25 FieldAlias = 'Vorname' FieldLength = 25 FieldName = 'Vorname' SQLFieldName = 'Patienten_Vorname_Patient' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' CalcType = dacaExpression Expression = 'Patienten.Vorname + '#39' '#39' + Patienten.Name & iif(Geburtstag is nul' + 'l,'#39#39', '#39', geb. '#39' & Geburtstag)' end object daCalculation3: TdaCalculation ChildType = 8 Alias = 'Trennung' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'RechnungsNr' FieldLength = 0 FieldName = 'RechnungsNr' SQLFieldName = 'Behandlungen_RechnungsNr' TableAlias = 'Behandlungen' TableName = 'Behandlungen' TableSQLAlias = 'Behandlungen' CalcType = dacaExpression Expression = 'Behandlungen.RechnungsNr * 10 + Kopien.Nr' end object daCriteria1: TdaCriteria ChildType = 7 Level = 0 Value = '1' object TdaField Alias = 'Auswahl' DataType = dtBoolean DisplayWidth = 6 FieldAlias = 'Auswahl' FieldLength = 0 FieldName = 'Auswahl' SQLFieldName = 'Auswahl' TableAlias = 'Behandlungen' TableName = 'Behandlungen' TableSQLAlias = 'Behandlungen' end end object daField1: TdaField Alias = 'Id' DataType = dtLongint DisplayWidth = 10 FieldAlias = 'Id' FieldLength = 0 FieldName = 'Id' SQLFieldName = 'Id' TableAlias = 'Behandlungen' TableName = 'Behandlungen' TableSQLAlias = 'Behandlungen' end object daField2: TdaField Alias = 'Datum' DataType = dtDateTime DisplayWidth = 18 FieldAlias = 'Datum' FieldLength = 0 FieldName = 'Datum' SQLFieldName = 'Datum' TableAlias = 'Behandlungen' TableName = 'Behandlungen' TableSQLAlias = 'Behandlungen' end object daField3: TdaField Alias = 'Anmerkung' DataType = dtMemo DisplayWidth = 10 FieldAlias = 'Anmerkung' FieldLength = 0 FieldName = 'Anmerkung' Linkable = False SQLFieldName = 'Anmerkung' TableAlias = 'Behandlungen' TableName = 'Behandlungen' TableSQLAlias = 'Behandlungen' end object daField4: TdaField Alias = 'RechnungsNr' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'RechnungsNr' FieldLength = 0 FieldName = 'RechnungsNr' SQLFieldName = 'RechnungsNr' TableAlias = 'Behandlungen' TableName = 'Behandlungen' TableSQLAlias = 'Behandlungen' end object daField5: TdaField Alias = 'Anrede' DisplayWidth = 20 FieldAlias = 'Anrede' FieldLength = 20 FieldName = 'Anrede' IsDetail = True SQLFieldName = 'Anrede' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end object daField6: TdaField Alias = 'Rechanrede' DisplayWidth = 20 FieldAlias = 'Rechanrede' FieldLength = 20 FieldName = 'Rechanrede' IsDetail = True SQLFieldName = 'Rechanrede' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end object daField7: TdaField Alias = 'Rechname' DisplayWidth = 50 FieldAlias = 'Rechname' FieldLength = 50 FieldName = 'Rechname' IsDetail = True SQLFieldName = 'Rechname' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end object daField8: TdaField Alias = 'Rechvorname' DisplayWidth = 50 FieldAlias = 'Rechvorname' FieldLength = 50 FieldName = 'Rechvorname' IsDetail = True SQLFieldName = 'Rechvorname' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end object daField9: TdaField Alias = 'Rechstrasse' DisplayWidth = 80 FieldAlias = 'Rechstrasse' FieldLength = 80 FieldName = 'Rechstrasse' IsDetail = True SQLFieldName = 'Rechstrasse' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end object daField10: TdaField Alias = 'Rechplzort' DisplayWidth = 60 FieldAlias = 'Rechplzort' FieldLength = 60 FieldName = 'Rechplzort' IsDetail = True SQLFieldName = 'Rechplzort' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end object daField11: TdaField Alias = 'Rechnungsausgangstext' DisplayWidth = 255 FieldAlias = 'Rechnungsausgangstext' FieldLength = 255 FieldName = 'Rechnungsausgangstext' IsDetail = True SQLFieldName = 'Rechnungsausgangstext' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end object daField12: TdaField Alias = 'Rechnungseingangstext' DisplayWidth = 255 FieldAlias = 'Rechnungseingangstext' FieldLength = 255 FieldName = 'Rechnungseingangstext' IsDetail = True SQLFieldName = 'Rechnungseingangstext' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end object daField13: TdaField Alias = 'Diagnose' DataType = dtMemo DisplayWidth = 10 FieldAlias = 'Diagnose' FieldLength = 0 FieldName = 'Diagnose' Linkable = False SQLFieldName = 'Diagnose' TableAlias = 'Behandlungen' TableName = 'Behandlungen' TableSQLAlias = 'Behandlungen' end object daField14: TdaField Alias = 'Nr' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'Nr' FieldLength = 0 FieldName = 'Nr' IsDetail = True SQLFieldName = 'Nr' TableAlias = 'Kopien' TableName = 'Kopien' TableSQLAlias = 'Kopien' end object daField15: TdaField Alias = 'IdPatient' DataType = dtLongint DisplayWidth = 10 FieldAlias = 'Id' FieldLength = 0 FieldName = 'Id' IsDetail = True SQLFieldName = 'Id_2' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end object daField16: TdaField ChildType = 2 Alias = 'RechnungsNr' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'RechnungsNr' FieldLength = 0 FieldName = 'RechnungsNr' SQLFieldName = 'RechnungsNr' TableAlias = 'Behandlungen' TableName = 'Behandlungen' TableSQLAlias = 'Behandlungen' end object daField17: TdaField ChildType = 2 Alias = 'Nr' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'Nr' FieldLength = 0 FieldName = 'Nr' SQLFieldName = 'Nr' TableAlias = 'Kopien' TableName = 'Kopien' TableSQLAlias = 'Kopien' end object daTable1: TdaTable ChildType = 5 Alias = 'Behandlungen' JoinType = dajtNone SQLAlias = 'Behandlungen' TableAlias = 'Behandlungen' TableName = 'Behandlungen' end object daTable2: TdaTable ChildType = 5 Alias = 'Patienten' SQLAlias = 'Patienten' TableAlias = 'Patienten' TableName = 'Patienten' object daTableJoin1: TdaTableJoin ChildType = 6 object daField19: TdaField ChildType = 3 Alias = 'Id' DataType = dtLongint DisplayWidth = 10 FieldAlias = 'Id' FieldLength = 0 FieldName = 'Id' SQLFieldName = 'Id' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end object daField18: TdaField ChildType = 4 Alias = 'Patient' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'Patient' FieldLength = 0 FieldName = 'Patient' SQLFieldName = 'Patient' TableAlias = 'Behandlungen' TableName = 'Behandlungen' TableSQLAlias = 'Behandlungen' end end end object daTable3: TdaTable ChildType = 5 Alias = 'Kopien' SQLAlias = 'Kopien' TableAlias = 'Kopien' TableName = 'Kopien' object daTableJoin2: TdaTableJoin ChildType = 6 object daField21: TdaField ChildType = 3 Alias = 'Anzahl' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'Anzahl' FieldLength = 0 FieldName = 'Anzahl' SQLFieldName = 'Anzahl' TableAlias = 'Kopien' TableName = 'Kopien' TableSQLAlias = 'Kopien' end object daField20: TdaField ChildType = 4 Alias = 'Kopien' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'Kopien' FieldLength = 0 FieldName = 'Kopien' SQLFieldName = 'Kopien' TableAlias = 'Patienten' TableName = 'Patienten' TableSQLAlias = 'Patienten' end end end end end object daADOQueryDataView3: TdaADOQueryDataView UserName = 'Query_Behandlungsleistungen' Height = 246 Left = 297 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 15 TypeColumnWidth = 52 Width = 224 AutoSearchTabOrder = 0 MasterDataViewUserName = 'Query_Behandlungen' object Behandlungsleistungen: TppChildDBPipeline AutoCreateFields = False UserName = 'Behandlungsleistungen' MasterDataPipelineName = 'Behandlungen' object ppField1: TppField FieldAlias = 'Id' FieldName = 'Id' FieldLength = 0 DataType = dtLongint DisplayWidth = 10 Position = 0 TableName = 'Behandlungsleistungen' end object ppField2: TppField FieldAlias = 'Behandlung' FieldName = 'Behandlung' FieldLength = 0 DataType = dtInteger DisplayWidth = 10 Position = 1 TableName = 'Behandlungsleistungen' end object ppField3: TppField FieldAlias = 'Behandlungsdatum' FieldName = 'Behandlungsdatum' FieldLength = 0 DataType = dtDateTime DisplayWidth = 18 Position = 2 TableName = 'Behandlungsleistungen' end object ppField4: TppField FieldAlias = 'Anzahl' FieldName = 'Anzahl' FieldLength = 0 DataType = dtDouble DisplayWidth = 10 Position = 3 TableName = 'Behandlungsleistungen' end object ppField5: TppField FieldAlias = 'Geb'#252'H' FieldName = 'Geb'#252'H' FieldLength = 10 DisplayWidth = 10 Position = 4 TableName = 'Behandlungsleistungen' end object ppField6: TppField FieldAlias = 'Leistung' FieldName = 'Leistung' FieldLength = 255 DisplayWidth = 255 Position = 5 TableName = 'Behandlungsleistungen' end object ppField7: TppField FieldAlias = 'Honorar' FieldName = 'Honorar' FieldLength = 0 DataType = dtDouble DisplayWidth = 10 Position = 6 TableName = 'Behandlungsleistungen' end object ppField8: TppField FieldAlias = 'GesamtHonorar' FieldName = 'GesamtHonorar' FieldLength = 0 DataType = dtDouble DisplayWidth = 10 Position = 7 TableName = 'Behandlungsleistungen' end object ppField9: TppField FieldAlias = 'Anmerkung' FieldName = 'Anmerkung' FieldLength = 0 Linkable = False DataType = dtMemo DisplayWidth = 10 Position = 8 TableName = 'Behandlungsleistungen' end object TppMasterFieldLink MasterFieldName = 'RechnungsNr' GuidCollationType = gcMSAccess DetailFieldName = 'RechnungsNr' DetailSortOrder = soAscending IsCaseSensitive = True end object TppMasterFieldLink MasterFieldName = 'Nr' GuidCollationType = gcMSAccess DetailFieldName = 'Nr' DetailSortOrder = soAscending IsCaseSensitive = True end object TppMasterFieldLink MasterFieldName = 'Id' GuidCollationType = gcMSAccess DetailFieldName = 'Behandlung' DetailSortOrder = soAscending IsCaseSensitive = True end end object daSQL2: TdaSQL GuidCollationType = gcMSAccess DatabaseName = 'ADOConnection' DatabaseType = dtMSAccess DataPipelineName = 'Behandlungsleistungen' IsCaseSensitive = True LinkColor = clNavy LinkType = ltMagicSQL MaxSQLFieldAliasLength = 25 SQLText.Strings = ( 'SELECT Behandlungsleistungen.Id, ' ' Behandlungsleistungen.Behandlung, ' ' Behandlungsleistungen.Behandlungsdatum, ' ' Behandlungsleistungen.Anzahl, ' ' Behandlungsleistungen.Geb'#252'H, ' ' Behandlungsleistungen.Leistung, ' ' Behandlungsleistungen.Honorar, ' ' Behandlungsleistungen.GesamtHonorar, ' ' Behandlungsleistungen.Anmerkung' 'FROM Behandlungsleistungen Behandlungsleistungen' 'WHERE ('#39'c'#39' <> '#39'c'#39' )') SQLType = sqSQL2 object daField1: TdaField Alias = 'Id' DataType = dtLongint DisplayWidth = 10 FieldAlias = 'Id' FieldLength = 0 FieldName = 'Id' SQLFieldName = 'Id' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daField2: TdaField Alias = 'Behandlung' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'Behandlung' FieldLength = 0 FieldName = 'Behandlung' SQLFieldName = 'Behandlung' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daField3: TdaField Alias = 'Behandlungsdatum' DataType = dtDateTime DisplayWidth = 18 FieldAlias = 'Behandlungsdatum' FieldLength = 0 FieldName = 'Behandlungsdatum' SQLFieldName = 'Behandlungsdatum' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daField4: TdaField Alias = 'Anzahl' DataType = dtDouble DisplayWidth = 10 FieldAlias = 'Anzahl' FieldLength = 0 FieldName = 'Anzahl' SQLFieldName = 'Anzahl' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daField5: TdaField Alias = 'Geb'#252'H' DisplayWidth = 10 FieldAlias = 'Geb'#252'H' FieldLength = 10 FieldName = 'Geb'#252'H' SQLFieldName = 'Geb'#252'H' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daField6: TdaField Alias = 'Leistung' DisplayWidth = 255 FieldAlias = 'Leistung' FieldLength = 255 FieldName = 'Leistung' SQLFieldName = 'Leistung' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daField7: TdaField Alias = 'Honorar' DataType = dtDouble DisplayWidth = 10 FieldAlias = 'Honorar' FieldLength = 0 FieldName = 'Honorar' SQLFieldName = 'Honorar' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daField8: TdaField Alias = 'GesamtHonorar' DataType = dtDouble DisplayWidth = 10 FieldAlias = 'GesamtHonorar' FieldLength = 0 FieldName = 'GesamtHonorar' SQLFieldName = 'GesamtHonorar' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daField9: TdaField Alias = 'Anmerkung' DataType = dtMemo DisplayWidth = 10 FieldAlias = 'Anmerkung' FieldLength = 0 FieldName = 'Anmerkung' Linkable = False SQLFieldName = 'Anmerkung' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daField10: TdaField ChildType = 2 Alias = 'Behandlungsdatum' DataType = dtDateTime DisplayWidth = 18 FieldAlias = 'Behandlungsdatum' FieldLength = 0 FieldName = 'Behandlungsdatum' SQLFieldName = 'Behandlungsdatum' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daField11: TdaField ChildType = 2 Alias = 'Geb'#252'H' DisplayWidth = 10 FieldAlias = 'Geb'#252'H' FieldLength = 10 FieldName = 'Geb'#252'H' SQLFieldName = 'Geb'#252'H' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end object daTable1: TdaTable ChildType = 5 Alias = 'Behandlungsleistungen' JoinType = dajtNone SQLAlias = 'Behandlungsleistungen' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' end object TdaSQLLink ChildType = 9 object daField12: TdaField ChildType = 10 Alias = 'Id' DataType = dtLongint DisplayWidth = 10 FieldAlias = 'Id' FieldLength = 0 FieldName = 'Id' SQLFieldName = 'Id' TableAlias = 'Behandlungen' TableName = 'Behandlungen' TableSQLAlias = 'Behandlungen' end object daField13: TdaField ChildType = 11 Alias = 'Behandlung' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'Behandlung' FieldLength = 0 FieldName = 'Behandlung' SQLFieldName = 'Behandlung' TableAlias = 'Behandlungsleistungen' TableName = 'Behandlungsleistungen' TableSQLAlias = 'Behandlungsleistungen' end end end end object daADOQueryDataView4: TdaADOQueryDataView UserName = 'Query_Praxisdaten2' Height = 301 Left = 571 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 10 TypeColumnWidth = 52 Width = 224 AutoSearchTabOrder = 0 object Praxisdaten: TppChildDBPipeline AutoCreateFields = False UserName = 'Praxisdaten' object ppField1: TppField FieldAlias = 'Stra'#223'e' FieldName = 'Stra'#223'e' FieldLength = 100 DisplayWidth = 100 Position = 0 TableName = 'Praxisdaten' end object ppField2: TppField FieldAlias = 'Ort' FieldName = 'Ort' FieldLength = 100 DisplayWidth = 100 Position = 1 TableName = 'Praxisdaten' end object ppField3: TppField FieldAlias = 'Bank' FieldName = 'Bank' FieldLength = 0 Linkable = False DataType = dtMemo DisplayWidth = 10 Position = 2 TableName = 'Praxisdaten' end object ppField4: TppField FieldAlias = 'Tel1' FieldName = 'Tel1' FieldLength = 50 DisplayWidth = 50 Position = 3 TableName = 'Praxisdaten' end object ppField5: TppField FieldAlias = 'Tel2' FieldName = 'Tel2' FieldLength = 50 DisplayWidth = 50 Position = 4 TableName = 'Praxisdaten' end object ppField6: TppField FieldAlias = 'Fax' FieldName = 'Fax' FieldLength = 50 DisplayWidth = 50 Position = 5 TableName = 'Praxisdaten' end object ppField7: TppField FieldAlias = 'Email' FieldName = 'Email' FieldLength = 50 DisplayWidth = 50 Position = 6 TableName = 'Praxisdaten' end object ppField8: TppField FieldAlias = 'Berufsbezeichnung' FieldName = 'Berufsbezeichnung' FieldLength = 50 DisplayWidth = 50 Position = 7 TableName = 'Praxisdaten' end object ppField9: TppField FieldAlias = 'Praxisname' FieldName = 'Praxisname' FieldLength = 100 DisplayWidth = 100 Position = 8 TableName = 'Praxisdaten' end object ppField10: TppField FieldAlias = 'VollerName' FieldName = 'Vorname_Name' FieldLength = 50 DisplayWidth = 50 Position = 9 TableName = 'Praxisdaten' end object ppField11: TppField FieldAlias = 'Absender' FieldName = 'Vorname_Name_Stra'#223'e_Ort' FieldLength = 50 DisplayWidth = 50 Position = 10 TableName = 'Praxisdaten' end end object daSQL3: TdaSQL GuidCollationType = gcMSAccess DatabaseName = 'ADOConnection' DatabaseType = dtMSAccess DataPipelineName = 'Praxisdaten' IsCaseSensitive = True LinkColor = clGreen LinkType = ltMagicSQL MaxSQLFieldAliasLength = 25 SQLText.Strings = ( 'SELECT Praxisdaten.Stra'#223'e, Praxisdaten.Ort, ' ' Praxisdaten.Bank, Praxisdaten.Tel1, ' ' Praxisdaten.Tel2, Praxisdaten.Fax, ' ' Praxisdaten.Email, ' ' Praxisdaten.Berufsbezeichnung, ' ' Praxisdaten.Praxisname, ' ' Vorname+'#39' '#39'+Name AS Vorname_Name, ' ' Vorname+'#39' '#39'+Name+'#39' '#39'+Stra'#223'e+'#39' '#39'+Ort AS Vorname_Name' + '_Stra'#223'e_Ort' 'FROM Praxisdaten Praxisdaten' 'WHERE ('#39'c'#39' <> '#39'c'#39' )') SQLType = sqSQL2 object daCalculation1: TdaCalculation ChildType = 8 Alias = 'VollerName' DisplayWidth = 50 FieldAlias = 'Name' FieldLength = 50 FieldName = 'Name' SQLFieldName = 'Vorname_Name' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' CalcType = dacaExpression Expression = 'Vorname+'#39' '#39'+Name' end object daCalculation2: TdaCalculation ChildType = 8 Alias = 'Absender' DisplayWidth = 50 FieldAlias = 'Vorname' FieldLength = 50 FieldName = 'Vorname' SQLFieldName = 'Vorname_Name_Stra'#223'e_Ort' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' CalcType = dacaExpression Expression = 'Vorname+'#39' '#39'+Name+'#39' '#39'+Stra'#223'e+'#39' '#39'+Ort' end object daField1: TdaField Alias = 'Stra'#223'e' DisplayWidth = 100 FieldAlias = 'Stra'#223'e' FieldLength = 100 FieldName = 'Stra'#223'e' SQLFieldName = 'Stra'#223'e' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' end object daField2: TdaField Alias = 'Ort' DisplayWidth = 100 FieldAlias = 'Ort' FieldLength = 100 FieldName = 'Ort' SQLFieldName = 'Ort' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' end object daField3: TdaField Alias = 'Bank' DataType = dtMemo DisplayWidth = 10 FieldAlias = 'Bank' FieldLength = 0 FieldName = 'Bank' Linkable = False SQLFieldName = 'Bank' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' end object daField4: TdaField Alias = 'Tel1' DisplayWidth = 50 FieldAlias = 'Tel1' FieldLength = 50 FieldName = 'Tel1' SQLFieldName = 'Tel1' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' end object daField5: TdaField Alias = 'Tel2' DisplayWidth = 50 FieldAlias = 'Tel2' FieldLength = 50 FieldName = 'Tel2' SQLFieldName = 'Tel2' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' end object daField6: TdaField Alias = 'Fax' DisplayWidth = 50 FieldAlias = 'Fax' FieldLength = 50 FieldName = 'Fax' SQLFieldName = 'Fax' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' end object daField7: TdaField Alias = 'Email' DisplayWidth = 50 FieldAlias = 'Email' FieldLength = 50 FieldName = 'Email' SQLFieldName = 'Email' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' end object daField8: TdaField Alias = 'Berufsbezeichnung' DisplayWidth = 50 FieldAlias = 'Berufsbezeichnung' FieldLength = 50 FieldName = 'Berufsbezeichnung' SQLFieldName = 'Berufsbezeichnung' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' end object daField9: TdaField Alias = 'Praxisname' DisplayWidth = 100 FieldAlias = 'Praxisname' FieldLength = 100 FieldName = 'Praxisname' SQLFieldName = 'Praxisname' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' TableSQLAlias = 'Praxisdaten' end object daTable1: TdaTable ChildType = 5 Alias = 'Praxisdaten' JoinType = dajtNone SQLAlias = 'Praxisdaten' TableAlias = 'Praxisdaten' TableName = 'Praxisdaten' end end end object daADOQueryDataView5: TdaADOQueryDataView UserName = 'Query_Optionen' Height = 127 Left = 845 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 10 TypeColumnWidth = 52 Width = 224 AutoSearchTabOrder = 0 object Optionen: TppChildDBPipeline AutoCreateFields = False UserName = 'Optionen' object ppField1: TppField FieldAlias = 'Zieltage' FieldName = 'Zieltage' FieldLength = 0 DataType = dtInteger DisplayWidth = 10 Position = 0 TableName = 'Optionen' end object ppField2: TppField FieldAlias = 'Briefpapier' FieldName = 'Briefpapier' FieldLength = 0 DataType = dtBoolean DisplayWidth = 6 Position = 1 TableName = 'Optionen' end object ppField3: TppField FieldAlias = 'W'#228'hrung' FieldName = 'W'#228'hrung' FieldLength = 3 IsDetail = True DisplayWidth = 3 Position = 2 TableName = 'Waehrungen' end end object daSQL4: TdaSQL GuidCollationType = gcMSAccess DatabaseName = 'ADOConnection' DatabaseType = dtMSAccess DataPipelineName = 'Optionen' IsCaseSensitive = True LinkColor = clPurple LinkType = ltMagicSQL MaxSQLFieldAliasLength = 25 SQLText.Strings = ( 'SELECT Optionen.Zieltage, Optionen.Briefpapier, ' ' Waehrungen.W'#228'hrung' 'FROM (Optionen Optionen' ' INNER JOIN Waehrungen Waehrungen ON ' ' (Waehrungen.Id = Optionen.W'#228'hrung) )' 'WHERE ('#39'c'#39' <> '#39'c'#39' )') SQLType = sqSQL2 object daField1: TdaField Alias = 'Zieltage' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'Zieltage' FieldLength = 0 FieldName = 'Zieltage' SQLFieldName = 'Zieltage' TableAlias = 'Optionen' TableName = 'Optionen' TableSQLAlias = 'Optionen' end object daField2: TdaField Alias = 'Briefpapier' DataType = dtBoolean DisplayWidth = 6 FieldAlias = 'Briefpapier' FieldLength = 0 FieldName = 'Briefpapier' SQLFieldName = 'Briefpapier' TableAlias = 'Optionen' TableName = 'Optionen' TableSQLAlias = 'Optionen' end object daField3: TdaField Alias = 'W'#228'hrung' DisplayWidth = 3 FieldAlias = 'W'#228'hrung' FieldLength = 3 FieldName = 'W'#228'hrung' IsDetail = True SQLFieldName = 'W'#228'hrung' TableAlias = 'Waehrungen' TableName = 'Waehrungen' TableSQLAlias = 'Waehrungen' end object daTable1: TdaTable ChildType = 5 Alias = 'Optionen' JoinType = dajtNone SQLAlias = 'Optionen' TableAlias = 'Optionen' TableName = 'Optionen' end object daTable2: TdaTable ChildType = 5 Alias = 'Waehrungen' SQLAlias = 'Waehrungen' TableAlias = 'Waehrungen' TableName = 'Waehrungen' object daTableJoin1: TdaTableJoin ChildType = 6 object daField5: TdaField ChildType = 3 Alias = 'Id' DataType = dtLongint DisplayWidth = 10 FieldAlias = 'Id' FieldLength = 0 FieldName = 'Id' SQLFieldName = 'Id' TableAlias = 'Waehrungen' TableName = 'Waehrungen' TableSQLAlias = 'Waehrungen' end object daField4: TdaField ChildType = 4 Alias = 'W'#228'hrung' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'W'#228'hrung' FieldLength = 0 FieldName = 'W'#228'hrung' SQLFieldName = 'W'#228'hrung' TableAlias = 'Optionen' TableName = 'Optionen' TableSQLAlias = 'Optionen' end end end end end end object raCodeModule1: TraCodeModule ProgramStream = { 01060A54726150726F6772616D094368696C645479706502150B50726F677261 6D4E616D650613506C61747A68616C74657245727365747A656E0B50726F6772 616D54797065070B747450726F63656475726506536F757263650C5603000070 726F63656475726520506C61747A68616C74657245727365747A656E28766172 2073203A20537472696E67293B0D0A7661720D0A2020702C2069203A20496E74 656765723B0D0A2020746F6B656E2C2072203A20537472696E673B0D0A202064 74203A20446174653B0D0A626567696E0D0A202070203A3D20506F732820277B 272C207320293B0D0A20207768696C652070203E203020646F0D0A2020626567 696E0D0A2020202069203A3D2070202B20313B0D0A202020207768696C652028 69203C204C656E67746828207320292920616E642028436F70792820732C2069 2C20312029203C3E20277D272920646F0D0A20202020626567696E0D0A202020 20202069203A3D2069202B20313B0D0A20202020656E643B0D0A20202020746F 6B656E203A3D204C6F7765724361736528436F70792820732C2070202B20312C 2069202D2070202D20312029293B0D0A20202020696620746F6B656E203D2027 7A69656C27207468656E0D0A20202020626567696E0D0A202020202020647420 3A3D20426568616E646C756E67656E5B27446174756D275D3B0D0A2020202020 206474203A3D206474202B204F7074696F6E656E5B275A69656C74616765275D 3B0D0A20202020202072203A3D2044617465546F537472286474293B0D0A2020 2020656E640D0A20202020656C73650D0A20202020696620746F6B656E203D20 27616E7265646527207468656E0D0A20202020626567696E0D0A202020202020 72203A3D2027536568722067656568727465273B0D0A20202020202069662042 6568616E646C756E67656E5B2752656368616E72656465275D203D2027486572 7227207468656E0D0A202020202020626567696E0D0A20202020202020207220 3A3D2072202B202772273B0D0A202020202020656E643B0D0A20202020202072 203A3D2072202B20272027202B20426568616E646C756E67656E5B2752656368 616E72656465275D202B20272027202B20426568616E646C756E67656E5B2752 6563686E616D65275D3B0D0A20202020656E643B0D0A2020202044656C657465 2820732C20702C2069202D2070202B203120293B0D0A20202020496E73657274 2820722C20732C207020293B0D0A2020202070203A3D20506F732820277B272C 207320293B0D0A2020656E643B0D0A656E643B0D0A0001060F5472614576656E 7448616E646C65720B50726F6772616D4E616D6506186D656D45696E67616E67 73746578744F6E4765744D656D6F0B50726F6772616D54797065070B74745072 6F63656475726506536F7572636506B770726F636564757265206D656D45696E 67616E6773746578744F6E4765744D656D6F284C696E65733A2054537472696E 6773293B0D0A7661720D0A202073203A20537472696E673B0D0A626567696E0D 0A202073203A3D20426568616E646C756E67656E5B27526563686E756E677365 696E67616E677374657874275D3B0D0A2020506C61747A68616C746572457273 65747A656E28207320293B0D0A20204C696E65732E54657874203A3D20733B0D 0A656E643B0D0A0D436F6D706F6E656E744E616D65060F6D656D45696E67616E 677374657874094576656E744E616D6506094F6E4765744D656D6F074576656E 74494402560001060F5472614576656E7448616E646C65720B50726F6772616D 4E616D6506186D656D41757367616E6773746578744F6E4765744D656D6F0B50 726F6772616D54797065070B747450726F63656475726506536F7572636506B7 70726F636564757265206D656D41757367616E6773746578744F6E4765744D65 6D6F284C696E65733A2054537472696E6773293B0D0A7661720D0A202073203A 20537472696E673B0D0A626567696E0D0A202073203A3D20426568616E646C75 6E67656E5B27526563686E756E677361757367616E677374657874275D3B0D0A 2020506C61747A68616C74657245727365747A656E28207320293B0D0A20204C 696E65732E54657874203A3D20733B0D0A656E643B0D0A0D436F6D706F6E656E 744E616D65060F6D656D41757367616E677374657874094576656E744E616D65 06094F6E4765744D656D6F074576656E74494402560000} end object ppParameterList3: TppParameterList object ppParameter1: TppParameter AutoSearchSettings.LogicalPrefix = [] AutoSearchSettings.Mandatory = True AutoSearchSettings.SearchExpression = 'True' DataType = dtBoolean LookupSettings.DisplayType = dtNameOnly LookupSettings.SortOrder = soName Value = True UserName = 'RNDruck' end object ppParameter2: TppParameter AutoSearchSettings.LogicalPrefix = [] AutoSearchSettings.Mandatory = True AutoSearchSettings.SearchExpression = 'True' DataType = dtBoolean LookupSettings.DisplayType = dtNameOnly LookupSettings.SortOrder = soName Value = True UserName = 'InfoDruck' end object ppParameter3: TppParameter AutoSearchSettings.LogicalPrefix = [] AutoSearchSettings.Mandatory = True AutoSearchSettings.SearchExpression = 'False' DataType = dtBoolean LookupSettings.DisplayType = dtNameOnly LookupSettings.SortOrder = soName Value = False UserName = 'NurBeleg' end end end