Konsilbrief Medizin false 185 16 0 186 14 185 187 28 185 188 27 185 2030 0 45 2 0 28 1 0 28 3 0 28 85 0 28 86 0 28 65 0 28 26 0 28 2806 0 38 2800 0 38 2837 0 38 2835 0 38 2830 0 38 2801 0 38 2802 3 38 2808 0 38 2809 1 38 2810 0 38 2823 0 38 2824 0 38 2825 0 38 2826 0 38 2827 0 38 2828 0 38 2829 0 38 2831 0 38 2832 0 38 2833 0 38 2834 0 38 2502 0 47 2503 0 47 2504 0 47 2521 0 47 2520 0 47 2518 0 47 2519 0 47 2804 0 38 2803 0 38 4 0 28 2897 0 38 2898 0 38 2900 0 38 2901 0 38 2902 0 38 2903 0 38 1002 0 41 1000 0 41 1013 0 41 2809 0 43 2810 0 43 2830 0 43 2801 0 43 2804 0 43 2800 0 43 2835 0 43 2837 0 43 2854 0 42 2803 0 43 1005 0 41 1004 0 41 2856 0 42 2858 0 42 2808 0 43 2852 0 42 2819 0 43 2817 0 43 2837 0 44 2804 0 44 2800 0 44 2809 0 44 2824 0 44 2826 0 44 2808 0 44 2803 0 44 2827 0 44 2810 0 44 2830 0 44 2801 0 44 2825 0 44 2823 0 44 2828 0 44 2829 0 44 2802 0 44 2824 0 43 2826 0 43 2827 0 43 2825 0 43 2823 0 43 2828 0 43 2829 0 43 2802 0 43 2031 0 45 2817 0 38 2819 0 38 2821 0 38 2821 0 44 2819 0 44 2817 0 44 2814 0 38 2806 0 44 2838 0 38 2839 0 38 2838 0 44 2839 0 44 2901 0 43 2900 0 43 2905 2 43 2906 0 44 2906 0 43 2906 0 38 7 3 89 Konsilbrief Medizinakte 762 0 TDefinedBasisContainer false 0 false 0 object Header: TComponentFileHeader UserData = {} end object RuntimeDatamodule: TRuntimeDatamodule OldCreateOrder = False Height = 0 Width = 0 end object QuickReport: TDesignQuickReport Frame.Width = 0 DataSet = DatabaseOwner.mmEinzelVerordnungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Functions.Strings = ( 'PAGENUMBER' 'COLUMNNUMBER' 'REPORTTITLE') Functions.DATA = ( '0' '0' #39#39) Options = [FirstPageHeader, LastPageFooter] Page.Columns = 1 Page.Orientation = poPortrait Page.PaperSize = A4 Page.Ruler = False Page.Continuous = False Page.Values = ( 100.000000000000000000 2970.000000000000000000 100.000000000000000000 2100.000000000000000000 200.000000000000000000 100.000000000000000000 0.000000000000000000) PrinterSettings.Copies = 1 PrinterSettings.OutputBin = First PrinterSettings.Duplex = False PrinterSettings.FirstPage = 0 PrinterSettings.LastPage = 0 PrinterSettings.UseStandardprinter = False PrinterSettings.UseCustomBinCode = False PrinterSettings.CustomBinCode = 0 PrinterSettings.ExtendedDuplex = 0 PrinterSettings.UseCustomPaperCode = False PrinterSettings.CustomPaperCode = 0 PrinterSettings.PrintMetaFile = False PrinterSettings.MemoryLimit = 1000000 PrinterSettings.PrintQuality = 0 PrinterSettings.Collate = 0 PrinterSettings.ColorOption = 1 PrintIfEmpty = True SnapToGrid = True Units = MM Zoom = 100 PrevFormStyle = fsNormal PreviewInitialState = wsMaximized PreviewWidth = 300 PreviewHeight = 300 PrevInitialZoom = qrZoomToFit PreviewDefaultSaveType = stPDF PreviewLeft = 0 PreviewTop = 0 ShowingPreview = False LabelSettings.FirstLabel = 0 LabelSettings.LabelCount = 0 PrepareAutomatically = False DesignBackgroundDX = 0 DesignBackgroundDY = 0 RulerPanel = ReportDesignerForm.RulerPanel1 Script.Strings = ( '[QuickReport.BeforePrint]' '' '[BAND3.BeforePrint]' '' '' '' '' '') object BAND2: TQRDesignBand Left = 76 Top = 38 Width = 681 Height = 457 Frame.DrawBottom = True AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 1209.145833333333000000 1801.812500000000000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbDetail EditorEnabled = True BandNum = 0 object Memo1: TQRDesignMemo Left = 4 Top = 132 Width = 264 Height = 116 Size.Values = ( 306.916666666666700000 10.583333333333330000 349.250000000000000000 698.500000000000000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = True Color = clWhite Lines.Strings = ( '%%mmEinzelVerordnungen.Verordnungen_ArztName1%%' '%DEL%%mmEinzelVerordnungen.Verordnungen_ArztName2%%' '%%mmEinzelVerordnungen.Verordnungen_ArztStrasse%%' '%%mmEinzelVerordnungen.Verordnungen_ArztPLZ%% %%mmEinzelVerordnu' + 'ngen.Verordnungen_ArztOrt%%') Transparent = False FullJustify = False MaxBreakChars = 0 FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Memo2: TQRDesignMemo Left = 431 Top = 32 Width = 292 Height = 184 Size.Values = ( 486.833333333333400000 1140.354166666667000000 84.666666666666680000 772.583333333333400000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False Color = clWhite Lines.Strings = ( '%%MxVarLogUntermmEinzelVerordnungen.MxVarLog_AnzeigeName%%' '%%MxVarLogUntermmEinzelVerordnungen.MxVarLog_KlinikStrasse%%' '%%MxVarLogUntermmEinzelVerordnungen.MxVarLog_KlinikOrt%%' '' 'Telefon: %%MxVarLogUntermmEinzelVerordnungen.MxVarLog_KlinikTele' + 'fon%%' 'Telefax: %%MxVarLogUntermmEinzelVerordnungen.MxVarLog_KlinikTele' + 'fax%%' 'EMail: %%MxVarLogUntermmEinzelVerordnungen.MxVarLog_KlinikEma' + 'il%%') Transparent = False FullJustify = False MaxBreakChars = 0 FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Sysdata1: TQRDesignSysdata Left = 622 Top = 248 Width = 47 Height = 20 Size.Values = ( 52.916666666666660000 1645.708333333333000000 656.166666666666800000 124.354166666666700000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taRightJustify AlignToBand = False Color = clWhite Data = qrsDate Text = '' Transparent = False ExportAs = exptText FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Richtext1: TQRDesignRichtext Left = 4 Top = 300 Width = 676 Height = 94 Enabled = False Size.Values = ( 248.708333333333300000 10.583333333333330000 793.750000000000000000 1788.583333333333000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AutoStretch = True Color = clWindow Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] HiresExport = False Transparent = False YIncrement = 50 Lines.Strings = ( 'Sehr geehrte Frau Kollegin, sehr geehrter Herr Kollege,' '' 'wir bitten um fach'#228'rztliche Untersuchung von %%IF(mmEinzelVerord' + 'nungen.PPP_GESCHLECHT = '#39'W'#39', '#39'Frau'#39', IF' '(mmEinzelVerordnungen.PPP_GESCHLECHT = '#39'M'#39', '#39'Herrn'#39', '#39' '#39')) +'#39' '#39'+' + ' TRIM(mmEinzelVerordnungen.PPP_Vorname)' '+'#39' '#39'+TRIM(mmEinzelVerordnungen.PPP_NAME)%%. %%IF(mmEinzelVerordn' + 'ungen.PPP_GESCHLECHT = '#39'W'#39', ' #39'Frau'#39', IF(mmEinzelVerordnungen.PPP_GESCHLECHT = '#39'M'#39', '#39'Herr'#39', '#39' ' + #39'))+'#39' '#39'+TRIM' '(mmEinzelVerordnungen.PPP_NAME)%% befindet sich seit dem %%' 'mmEinzelVerordnungen.PPP_AUFNAHME%% in einer station'#228'ren Rehabil' + 'itationsbehandlung. Die Abrechnung ' 'erfolgt daher '#252'ber die Krankenkasse und nicht zu unseren Lasten.' + ' Vielen Dank!' '' '' '' '') EditorEnabled = True FixBottomPosition = False StretchHeightWithBand = False RichtextLines = { 7B5C727466315C616E73695C616E7369637067313235325C64656666305C6465 666C616E67313033317B5C666F6E7474626C7B5C66305C6673776973735C6670 7271325C66636861727365743020417269616C3B7D7D0D0A5C766965776B696E 64345C7563315C706172645C66305C6673323020536568722067656568727465 2046726175204B6F6C6C6567696E2C2073656872206765656872746572204865 7272204B6F6C6C6567652C5C625C7061720D0A5C7061720D0A5C623020776972 2062697474656E20756D20666163685C276534727A746C6963686520556E7465 7273756368756E6720766F6E2025254946286D6D45696E7A656C5665726F7264 6E756E67656E2E5050505F47455343484C45434854203D202757272C20274672 6175272C204946286D6D45696E7A656C5665726F72646E756E67656E2E505050 5F47455343484C45434854203D20274D272C2027486572726E272C2027202729 29202B2720272B205452494D286D6D45696E7A656C5665726F72646E756E6765 6E2E5050505F566F726E616D65292B2720272B5452494D286D6D45696E7A656C 5665726F72646E756E67656E2E5050505F4E414D452925252E2025254946286D 6D45696E7A656C5665726F72646E756E67656E2E5050505F47455343484C4543 4854203D202757272C202746726175272C204946286D6D45696E7A656C566572 6F72646E756E67656E2E5050505F47455343484C45434854203D20274D272C20 2748657272272C2027202729292B2720272B5452494D286D6D45696E7A656C56 65726F72646E756E67656E2E5050505F4E414D4529252520626566696E646574 207369636820736569742064656D2025256D6D45696E7A656C5665726F72646E 756E67656E2E5050505F4155464E41484D45252520696E2065696E6572207374 6174696F6E5C27653472656E205265686162696C69746174696F6E7362656861 6E646C756E672E20446965204162726563686E756E67206572666F6C67742064 61686572205C27666362657220646965204B72616E6B656E6B6173736520756E 64206E69636874207A7520756E736572656E204C617374656E2E205669656C65 6E2044616E6B215C7061720D0A5C7061720D0A5C7061720D0A5C7061720D0A5C 7061720D0A5C625C7061720D0A7D0D0A00} end object Grussformel: TQRDesignRichtext Left = 4 Top = 398 Width = 464 Height = 37 Enabled = False Size.Values = ( 97.895833333333340000 10.583333333333330000 1053.041666666667000000 1227.666666666667000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AutoStretch = True Color = clWindow Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] HiresExport = False Transparent = False YIncrement = 50 Lines.Strings = ( 'Problemstellung:' '%%mmEinzelVerordnungen.Verordnungen_Leistungsbeschreibung%%' '' 'Mit kollegialem Gru'#223 '') EditorEnabled = True FixBottomPosition = False StretchHeightWithBand = False RichtextLines = { 7B5C727466315C616E73695C616E7369637067313235325C64656666305C6465 666C616E67313033317B5C666F6E7474626C7B5C66305C6673776973735C6670 7271325C66636861727365743020417269616C3B7D7B5C66315C666E696C5C66 636861727365743020417269616C3B7D7D0D0A5C766965776B696E64345C7563 315C706172645C756C5C66305C667332302050726F626C656D7374656C6C756E 673A5C756C6E6F6E655C7061720D0A25256D6D45696E7A656C5665726F72646E 756E67656E2E5665726F72646E756E67656E5F4C65697374756E677362657363 6872656962756E6725255C66315C7061720D0A5C7061720D0A4D6974206B6F6C 6C656769616C656D204772755C2764665C7061720D0A5C7061720D0A5C706172 0D0A7D0D0A00} end end object BAND4: TQRDesignBand Left = 76 Top = 495 Width = 681 Height = 23 Frame.DrawBottom = True AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 60.854166666666680000 1801.812500000000000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbGroupHeader EditorEnabled = True BandNum = 0 object Reportlabel1: TQRDesignLabel Left = 4 Top = 4 Width = 130 Height = 17 Size.Values = ( 44.979166666666670000 10.583333333333330000 10.583333333333330000 343.958333333333400000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Caption = 'aktuelle Medikation:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces VerticalAlignment = tlTop FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Reportlabel3: TQRDesignLabel Left = 222 Top = 4 Width = 59 Height = 17 Size.Values = ( 44.979166666666670000 587.375000000000000000 10.583333333333330000 156.104166666666700000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Caption = 'Dosierung' Color = clWhite Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces VerticalAlignment = tlTop FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object TQRDesignLabel Left = 312 Top = 4 Width = 47 Height = 17 Size.Values = ( 44.979166666666670000 825.500000000000100000 10.583333333333330000 124.354166666666700000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Caption = 'Intervall' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces VerticalAlignment = tlTop FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object TQRDesignLabel Left = 408 Top = 4 Width = 21 Height = 17 Size.Values = ( 44.979166666666670000 1079.500000000000000000 10.583333333333330000 55.562500000000000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Caption = 'von' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces VerticalAlignment = tlTop FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object TQRDesignLabel Left = 499 Top = 4 Width = 17 Height = 17 Size.Values = ( 44.979166666666670000 1320.270833333333000000 10.583333333333330000 44.979166666666670000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Caption = 'bis' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces VerticalAlignment = tlTop FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end end object BAND3: TQRDesignSubdetail Left = 76 Top = 518 Width = 681 Height = 25 AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 66.145833333333340000 1801.812500000000000000) PreCaluculateBandHeight = False KeepOnOnePage = False Master = Owner DataSet = DatabaseOwner.VerordnungenViewUntermmEinzelVerordnungen HeaderBand = BAND4 PrintBefore = False PrintIfEmpty = True CompMoverMoving = False EditorEnabled = True Expression = '(VerordnungenViewUntermmEinzelVerordnungen.VnEV_Art = '#39'Medikatio' + 'n'#39') and IF(VerordnungenViewUntermmEinzelVerordnungen.VnEV_Abgese' + 'tzt='#39'Wahr'#39', DATEDIFF(VerordnungenViewUntermmEinzelVerordnungen.V' + 'nEV_AbgesetztZum, DATE) <= 0, VerordnungenViewUntermmEinzelVeror' + 'dnungen.VnEV_Abgesetzt = '#39'Falsch'#39') and (DATEMIN(VerordnungenView' + 'UntermmEinzelVerordnungen.VnEV_Startdatum, DATE) = VerordnungenV' + 'iewUntermmEinzelVerordnungen.VnEV_Startdatum) and (DATEMIN(Veror' + 'dnungenViewUntermmEinzelVerordnungen.VnEV_Enddatum, DATE) = DAT' + 'E)' BandNum = 0 DesignBackgroundDX = 0 DesignBackgroundDY = 0 object Expression1: TQRDesignExpr Left = 211 Top = 4 Width = 77 Height = 17 Size.Values = ( 44.979166666666670000 558.270833333333400000 10.583333333333330000 203.729166666666700000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taCenter AlignToBand = False AutoSize = False Color = clWhite ResetAfterPrint = False Transparent = False Expression = 'VerordnungenViewUntermmEinzelVerordnungen.VnEV_AnzahlPro' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Expression2: TQRDesignExpr Left = 577 Top = 4 Width = 100 Height = 17 Size.Values = ( 44.979166666666670000 1526.645833333333000000 10.583333333333330000 264.583333333333400000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = True Color = clWhite ResetAfterPrint = False Transparent = False Expression = 'IF(VerordnungenViewUntermmEinzelVerordnungen.VnEV_Bedarf='#39'Wahr'#39',' + ' '#39'nach Bedarf'#39', IF((VerordnungenViewUntermmEinzelVerordnungen.Vn' + 'EV_Stellen='#39'Falsch'#39') and (VerordnungenViewUntermmEinzelVerordnun' + 'gen.VnEV_Einnehmen='#39'Falsch'#39') and (VerordnungenViewUntermmEinzelV' + 'erordnungen.VnEV_Ausgeben='#39'Falsch'#39') , '#39'Eigenmedikation'#39', '#39' '#39'))' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Expression4: TQRDesignExpr Left = 272 Top = 4 Width = 122 Height = 17 Size.Values = ( 44.979166666666670000 719.666666666666800000 10.583333333333330000 322.791666666666700000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taCenter AlignToBand = False AutoSize = False Color = clWhite ResetAfterPrint = False Transparent = False Expression = 'IF(VerordnungenViewUntermmEinzelVerordnungen.VnEV_Intervall= '#39'Wo' + 'chentage'#39', IF(VerordnungenViewUntermmEinzelVerordnungen.VnEV_Mon' + 'tag = '#39'Wahr'#39', '#39'Mo'#39', '#39' '#39')+'#39' '#39'+IF(VerordnungenViewUntermmEinzelVer' + 'ordnungen.VnEV_Dienstag = '#39'Wahr'#39', '#39'Di'#39', '#39' '#39')+'#39' '#39'+IF(Verordnungen' + 'ViewUntermmEinzelVerordnungen.VnEV_Mittwoch = '#39'Wahr'#39', '#39'Mi'#39', '#39' '#39')' + '+'#39' '#39'+IF(VerordnungenViewUntermmEinzelVerordnungen.VnEV_Donnersta' + 'g = '#39'Wahr'#39', '#39'Do'#39', '#39' '#39')+'#39' '#39'+IF(VerordnungenViewUntermmEinzelVeror' + 'dnungen.VnEV_Freitag = '#39'Wahr'#39', '#39'Fr'#39', '#39' '#39')+'#39' '#39'+IF(VerordnungenVie' + 'wUntermmEinzelVerordnungen.VnEV_Samstag = '#39'Wahr'#39', '#39'Sa'#39', '#39' '#39')+'#39' '#39 + '+IF(VerordnungenViewUntermmEinzelVerordnungen.VnEV_Sonntag = '#39'Wa' + 'hr'#39', '#39'So'#39', '#39' '#39'), IF(VerordnungenViewUntermmEinzelVerordnungen.Vn' + 'EV_Intervall = '#39'alle xx Tage'#39', '#39'alle'#39'+'#39' '#39'+VerordnungenViewUnterm' + 'mEinzelVerordnungen.VnEV_IntervallTage+'#39' '#39'+'#39'Tage'#39', '#39't'#228'glich'#39'))' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Expression3: TQRDesignExpr Left = 476 Top = 4 Width = 92 Height = 17 Size.Values = ( 44.979166666666670000 1259.416666666667000000 10.583333333333330000 243.416666666666700000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = True Color = clWhite ResetAfterPrint = False Transparent = False Expression = 'IF(VerordnungenViewUntermmEinzelVerordnungen.VnEV_AbgesetztZum =' + ' '#39#39', VerordnungenViewUntermmEinzelVerordnungen.VnEV_Enddatum, Ve' + 'rordnungenViewUntermmEinzelVerordnungen.VnEV_AbgesetztZum)' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Expression5: TQRDesignExpr Left = 387 Top = 4 Width = 84 Height = 17 Size.Values = ( 44.979166666666670000 1023.937500000000000000 10.583333333333330000 222.250000000000000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False Color = clWhite ResetAfterPrint = False Transparent = False Expression = 'VerordnungenViewUntermmEinzelVerordnungen.VnEV_Startdatum' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Expression6: TQRDesignExpr Left = 4 Top = 4 Width = 208 Height = 17 Size.Values = ( 44.979166666666670000 10.583333333333330000 10.583333333333330000 550.333333333333400000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = True Color = clWhite ResetAfterPrint = False Transparent = False Expression = 'VerordnungenViewUntermmEinzelVerordnungen.VnEV_Leistung+'#39' '#39'+IF(I' + 'SEMPTY('#39'VerordnungenViewUntermmEinzelVerordnungen'#39', '#39'VnEV_Handel' + 'sname'#39'), '#39#39', '#39'('#39'+VerordnungenViewUntermmEinzelVerordnungen.VnEV_' + 'Handelsname+'#39')'#39')+'#39' '#39'+VerordnungenViewUntermmEinzelVerordnungen.V' + 'nEV_Staerke' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end end object BAND5: TQRDesignBand Left = 76 Top = 543 Width = 681 Height = 23 Frame.DrawBottom = True AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 60.854166666666680000 1801.812500000000000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbGroupHeader EditorEnabled = True BandNum = 0 object TQRDesignLabel Left = 4 Top = 4 Width = 72 Height = 17 Size.Values = ( 44.979166666666670000 10.583333333333330000 10.583333333333330000 190.500000000000000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Caption = 'Diagnosen:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces VerticalAlignment = tlTop FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end end object BAND6: TQRDesignSubdetail Left = 76 Top = 566 Width = 681 Height = 23 AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 60.854166666666680000 1801.812500000000000000) PreCaluculateBandHeight = False KeepOnOnePage = False Master = Owner DataSet = DatabaseOwner.DiagnosenViewUntermmEinzelVerordnungen HeaderBand = BAND5 PrintBefore = False PrintIfEmpty = True CompMoverMoving = False EditorEnabled = True BandNum = 0 DesignBackgroundDX = 0 DesignBackgroundDY = 0 object DBText2: TQRDesignDBText Left = 102 Top = 4 Width = 616 Height = 17 Size.Values = ( 44.979166666666670000 269.875000000000000000 10.583333333333330000 1629.833333333333000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False Color = clWhite DataSet = DatabaseOwner.DiagnosenViewUntermmEinzelVerordnungen DataField = 'EVDiag_DiagnoseText' Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces FullJustify = False MaxBreakChars = 0 FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object DBText3: TQRDesignDBText Left = 4 Top = 4 Width = 144 Height = 17 Size.Values = ( 44.979166666666670000 10.583333333333330000 10.583333333333330000 381.000000000000000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Color = clWhite DataSet = DatabaseOwner.DiagnosenViewUntermmEinzelVerordnungen DataField = 'EVDiag_ICD1Schluessel' Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces FullJustify = False MaxBreakChars = 0 FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end end end object TPropertyAddons end end end object TPropertyAddons end