object Report: TppReport
  OnFileDeviceCreate = ReportFileDeviceCreate
  AutoStop = False
  DataPipeline = dmPipelines.ppKlausurtermine
  NoDataBehaviors = [ndMessageDialog, ndBlankPage]
  OnSaveText = ReportSaveText
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = 'Klausurtermine (Ansicht f'#252'r Lehrer).rtk'
  PrinterSetup.Duplex = dpNone
  PrinterSetup.PaperName = 'A4'
  PrinterSetup.PrinterName = 'TASKalfa 5550ci TS'
  PrinterSetup.SaveDeviceSettings = False
  PrinterSetup.mmMarginBottom = 10000
  PrinterSetup.mmMarginLeft = 15000
  PrinterSetup.mmMarginRight = 15000
  PrinterSetup.mmMarginTop = 10000
  PrinterSetup.mmPaperHeight = 297000
  PrinterSetup.mmPaperWidth = 210000
  PrinterSetup.PaperSize = 9
  SaveAsTemplate = True
  Template.FileName = 
    '\\VMS01\Kursverwaltung-Arbeitsverzeichnis$\Reports\Klausurtermin' +
    'e (Ansicht f'#252'r Lehrer).rtk'
  Template.Format = ftASCII
  Units = utMillimeters
  AllowPrintToArchive = True
  AllowPrintToFile = True
  ArchiveFileName = '($MyDocuments)\ReportArchive.raf'
  DeviceType = 'Printer'
  DefaultFileDeviceType = 'PDF'
  EmailSettings.ReportFormat = 'PDF'
  LanguageID = 'Default'
  OnPreviewFormCreate = ReportPreviewFormCreate
  OnPrintDialogCreate = ReportPrintDialogCreate
  OpenFile = True
  OutlineSettings.CreateNode = True
  OutlineSettings.CreatePageNodes = True
  OutlineSettings.Enabled = False
  OutlineSettings.Visible = False
  ThumbnailSettings.Enabled = True
  ThumbnailSettings.Visible = True
  ThumbnailSettings.DeadSpace = 30
  ThumbnailSettings.PageHighlight.Width = 3
  ThumbnailSettings.ThumbnailSize = tsSmall
  PDFSettings.Author = 'Kurs 42'
  PDFSettings.EmbedFontOptions = [efUseSubset]
  PDFSettings.EncryptSettings.AllowCopy = True
  PDFSettings.EncryptSettings.AllowInteract = True
  PDFSettings.EncryptSettings.AllowModify = True
  PDFSettings.EncryptSettings.AllowPrint = True
  PDFSettings.EncryptSettings.AllowExtract = True
  PDFSettings.EncryptSettings.AllowAssemble = True
  PDFSettings.EncryptSettings.AllowQualityPrint = True
  PDFSettings.EncryptSettings.Enabled = False
  PDFSettings.EncryptSettings.KeyLength = kl40Bit
  PDFSettings.EncryptSettings.EncryptionType = etRC4
  PDFSettings.FontEncoding = feAnsi
  PDFSettings.ImageCompressionLevel = 25
  PDFSettings.PDFAFormat = pafNone
  PreviewFormSettings.PageBorder.mmPadding = 0
  PreviewFormSettings.SinglePageOnly = True
  PreviewFormSettings.ZoomSetting = zs100Percent
  RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET
  RTFSettings.DefaultFont.Color = clWindowText
  RTFSettings.DefaultFont.Height = -13
  RTFSettings.DefaultFont.Name = 'Arial'
  RTFSettings.DefaultFont.Style = []
  TextFileName = '($MyDocuments)\Report.pdf'
  TextFileType = ftCustom
  TextSearchSettings.DefaultString = '<Suchtext>'
  TextSearchSettings.Enabled = False
  XLSSettings.AppName = 'ReportBuilder'
  XLSSettings.Author = 'ReportBuilder'
  XLSSettings.Subject = 'Report'
  XLSSettings.Title = 'Report'
  XLSSettings.WorksheetName = 'Report'
  Left = 48
  Top = 24
  Version = '20.04'
  mmColumnWidth = 180000
  DataPipelineName = 'ppKlausurtermine'
  object ppHeaderBand1: TppHeaderBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 19050
    mmPrintPosition = 0
    object ppLabel9: TppLabel
      DesignLayer = ppDesignLayer5
      UserName = 'LabelInfo'
      AutoSize = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      Caption = 
        'Hinweis: Die genannten Unterrichtsstunden sind vorl'#228'ufig. Ma'#223'geb' +
        'lich sind die Angaben auf dem Vertretungsplan.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'DIN Offc Pro'
      Font.Size = 7
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 2910
      mmLeft = 794
      mmTop = 12965
      mmWidth = 178330
      BandType = 0
      LayerName = BandLayer5
    end
    object ppShape5: TppShape
      DesignLayer = ppDesignLayer5
      UserName = 'Shape5'
      Brush.Color = clGray
      ParentWidth = True
      Pen.Color = clGray
      mmHeight = 6350
      mmLeft = 0
      mmTop = 0
      mmWidth = 180000
      BandType = 0
      LayerName = BandLayer5
    end
    object ppLabel51: TppLabel
      DesignLayer = ppDesignLayer5
      UserName = 'LabelHeader'
      AutoSize = False
      Border.Weight = 1.250000000000000000
      Border.mmPadding = 0
      Caption = 'Klausurplan'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Name = 'DIN Offc Pro'
      Font.Size = 12
      Font.Style = [fsBold]
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taCentered
      Transparent = True
      mmHeight = 5165
      mmLeft = 0
      mmTop = 0
      mmWidth = 179917
      BandType = 0
      LayerName = BandLayer5
    end
    object ppLine21: TppLine
      DesignLayer = ppDesignLayer5
      UserName = 'Line21'
      Border.mmPadding = 0
      Pen.Width = 2
      ParentWidth = True
      Position = lpBottom
      Weight = 1.250000000000000000
      mmHeight = 1058
      mmLeft = 0
      mmTop = 11377
      mmWidth = 180000
      BandType = 0
      LayerName = BandLayer5
    end
    object ppLine22: TppLine
      DesignLayer = ppDesignLayer5
      UserName = 'Line22'
      Border.mmPadding = 0
      Pen.Width = 2
      ParentWidth = True
      Weight = 1.250000000000000000
      mmHeight = 1058
      mmLeft = 0
      mmTop = 0
      mmWidth = 180000
      BandType = 0
      LayerName = BandLayer5
    end
    object ppSystemVariable2: TppSystemVariable
      DesignLayer = ppDesignLayer5
      UserName = 'SystemVariableDruckdatum'
      AutoSize = False
      Border.mmPadding = 0
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'DIN Offc Pro'
      Font.Size = 8
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 3429
      mmLeft = 120121
      mmTop = 7408
      mmWidth = 59002
      BandType = 0
      LayerName = BandLayer5
    end
    object ppLine23: TppLine
      DesignLayer = ppDesignLayer5
      UserName = 'Line23'
      Border.mmPadding = 0
      Pen.Width = 2
      ParentWidth = True
      Position = lpBottom
      Weight = 1.250000000000000000
      mmHeight = 1058
      mmLeft = 0
      mmTop = 5292
      mmWidth = 180000
      BandType = 0
      LayerName = BandLayer5
    end
    object ppLine8: TppLine
      DesignLayer = ppDesignLayer5
      UserName = 'Line8'
      Border.mmPadding = 0
      Pen.Width = 2
      ParentWidth = True
      Position = lpBottom
      Weight = 1.250000000000000000
      mmHeight = 1058
      mmLeft = 0
      mmTop = 15875
      mmWidth = 180000
      BandType = 0
      LayerName = BandLayer5
    end
  end
  object ppDetailBand1: TppDetailBand
    Background1.Brush.Style = bsClear
    Background2.Brush.Style = bsClear
    Border.mmPadding = 0
    PrintHeight = phDynamic
    mmBottomOffset = 0
    mmHeight = 5027
    mmPrintPosition = 0
    object ppSubReport2: TppSubReport
      DesignLayer = ppDesignLayer5
      UserName = 'SubReportSchienen'
      ExpandAll = False
      NewPrintJob = False
      OutlineSettings.CreateNode = True
      ParentPrinterSetup = False
      TraverseAllData = False
      DataPipelineName = 'ppKlausurschienen'
      mmHeight = 5027
      mmLeft = 0
      mmTop = 0
      mmWidth = 180000
      BandType = 4
      LayerName = BandLayer5
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmMinHeight = 0
      object ppChildReport2: TppChildReport
        AutoStop = False
        Columns = 2
        ColumnPositions.Strings = (
          '0'
          '100000')
        DataPipeline = dmPipelines.ppKlausurschienen
        PrinterSetup.BinName = 'Default'
        PrinterSetup.DocumentName = 'HGG-Klausurtermine (Ansicht f'#252'r Lehrer).rtk'
        PrinterSetup.Duplex = dpNone
        PrinterSetup.PaperName = 'A4'
        PrinterSetup.PrinterName = 'TASKalfa 5550ci TS'
        PrinterSetup.SaveDeviceSettings = False
        PrinterSetup.mmMarginBottom = 0
        PrinterSetup.mmMarginLeft = 0
        PrinterSetup.mmMarginRight = 30000
        PrinterSetup.mmMarginTop = 0
        PrinterSetup.mmPaperHeight = 297000
        PrinterSetup.mmPaperWidth = 210000
        PrinterSetup.PaperSize = 9
        Template.Format = ftASCII
        Units = utMillimeters
        Version = '20.04'
        mmColumnWidth = 80000
        DataPipelineName = 'ppKlausurschienen'
        object ppColumnHeaderBand1: TppColumnHeaderBand
          Visible = False
          Background.Brush.Style = bsClear
          Border.mmPadding = 0
          mmBottomOffset = 0
          mmHeight = 0
          mmPrintPosition = 0
        end
        object ppDetailBand4: TppDetailBand
          Background1.Brush.Style = bsClear
          Background2.Brush.Style = bsClear
          Border.mmPadding = 0
          PrintHeight = phDynamic
          mmBottomOffset = 0
          mmHeight = 5027
          mmPrintPosition = 0
          object ppSubReport1: TppSubReport
            DesignLayer = ppDesignLayer4
            UserName = 'SubReportKlausurKurse'
            ExpandAll = False
            NewPrintJob = False
            OutlineSettings.CreateNode = True
            ParentPrinterSetup = False
            TraverseAllData = True
            DataPipelineName = 'ppKlausurkurse'
            mmHeight = 5027
            mmLeft = 0
            mmTop = 0
            mmWidth = 80000
            BandType = 4
            LayerName = Foreground3
            mmBottomOffset = 0
            mmOverFlowOffset = 0
            mmStopPosition = 0
            mmMinHeight = 0
            object ppChildReport1: TppChildReport
              AutoStop = False
              DataPipeline = dmPipelines.ppKlausurkurse
              PrinterSetup.BinName = 'Default'
              PrinterSetup.DocumentName = 'HGG-Klausurtermine.rtk'
              PrinterSetup.Duplex = dpNone
              PrinterSetup.PaperName = 'A4'
              PrinterSetup.PrinterName = 'Default'
              PrinterSetup.SaveDeviceSettings = False
              PrinterSetup.mmMarginBottom = 10000
              PrinterSetup.mmMarginLeft = 15000
              PrinterSetup.mmMarginRight = 15000
              PrinterSetup.mmMarginTop = 10000
              PrinterSetup.mmPaperHeight = 297000
              PrinterSetup.mmPaperWidth = 210000
              PrinterSetup.PaperSize = 9
              Template.FileName = 
                'C:\Dokumente und Einstellungen\User\Eigene Dateien\Borland Studi' +
                'o Projects\Winkurs\bin\Reports\SubKlausurkurse.rtm'
              Template.Format = ftASCII
              Units = utMillimeters
              Version = '20.04'
              mmColumnWidth = 94000
              DataPipelineName = 'ppKlausurkurse'
              object ppDetailBand3: TppDetailBand
                Background1.Brush.Style = bsClear
                Background2.Brush.Style = bsClear
                Border.mmPadding = 0
                PrintHeight = phDynamic
                mmBottomOffset = 0
                mmHeight = 8467
                mmPrintPosition = 0
                object ppDBText5: TppDBText
                  DesignLayer = ppDesignLayer2
                  UserName = 'DBTextBez'
                  Border.mmPadding = 0
                  DataField = 'Bezeichnung'
                  DataPipeline = dmPipelines.ppKlausurkurse
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Name = 'DIN Offc Pro'
                  Font.Size = 9
                  Font.Style = [fsBold]
                  Transparent = True
                  DataPipelineName = 'ppKlausurkurse'
                  mmHeight = 3895
                  mmLeft = 8996
                  mmTop = 0
                  mmWidth = 18785
                  BandType = 4
                  LayerName = Foreground1
                end
                object ppDBText6: TppDBText
                  DesignLayer = ppDesignLayer2
                  UserName = 'DBTextLehrer'
                  Border.mmPadding = 0
                  DataField = 'LehrerKrz'
                  DataPipeline = dmPipelines.ppKlausurkurse
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Name = 'DIN Offc Pro'
                  Font.Size = 9
                  Font.Style = [fsBold]
                  Transparent = True
                  DataPipelineName = 'ppKlausurkurse'
                  mmHeight = 3895
                  mmLeft = 29633
                  mmTop = 0
                  mmWidth = 10848
                  BandType = 4
                  LayerName = Foreground1
                end
                object ppLabel13: TppLabel
                  DesignLayer = ppDesignLayer2
                  UserName = 'LabelAnzahl'
                  Border.mmPadding = 0
                  Caption = 'LabelAnzahl'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Name = 'DIN Offc Pro'
                  Font.Size = 9
                  Font.Style = []
                  FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
                  FormFieldSettings.FormFieldType = fftNone
                  Transparent = True
                  mmHeight = 3969
                  mmLeft = 43392
                  mmTop = 0
                  mmWidth = 17727
                  BandType = 4
                  LayerName = Foreground1
                end
                object ppSubReport3: TppSubReport
                  DesignLayer = ppDesignLayer2
                  UserName = 'SubReportSchreiber'
                  ExpandAll = False
                  NewPrintJob = False
                  OutlineSettings.CreateNode = True
                  ParentWidth = False
                  TraverseAllData = False
                  Visible = False
                  DataPipelineName = 'ppKlausurschreiber'
                  mmHeight = 4498
                  mmLeft = 8996
                  mmTop = 3969
                  mmWidth = 52123
                  BandType = 4
                  LayerName = Foreground1
                  mmBottomOffset = 0
                  mmOverFlowOffset = 0
                  mmStopPosition = 0
                  mmMinHeight = 0
                  object ppChildReport3: TppChildReport
                    AutoStop = False
                    DataPipeline = dmPipelines.ppKlausurschreiber
                    PrinterSetup.BinName = 'Default'
                    PrinterSetup.DocumentName = 'Klausurtermine (Ansicht f'#252'r Lehrer).rtk'
                    PrinterSetup.Duplex = dpNone
                    PrinterSetup.PaperName = 'A4'
                    PrinterSetup.PrinterName = 'TASKalfa 5550ci TS'
                    PrinterSetup.SaveDeviceSettings = False
                    PrinterSetup.mmMarginBottom = 10000
                    PrinterSetup.mmMarginLeft = 15000
                    PrinterSetup.mmMarginRight = 15000
                    PrinterSetup.mmMarginTop = 10000
                    PrinterSetup.mmPaperHeight = 297000
                    PrinterSetup.mmPaperWidth = 210000
                    PrinterSetup.PaperSize = 9
                    Template.Format = ftASCII
                    Units = utMillimeters
                    Version = '20.04'
                    mmColumnWidth = 0
                    DataPipelineName = 'ppKlausurschreiber'
                    object ppDetailBand5: TppDetailBand
                      Background1.Brush.Style = bsClear
                      Background2.Brush.Style = bsClear
                      Border.mmPadding = 0
                      mmBottomOffset = 0
                      mmHeight = 4498
                      mmPrintPosition = 0
                      object ppDBText3: TppDBText
                        DesignLayer = ppDesignLayer3
                        UserName = 'DBText3'
                        Border.mmPadding = 0
                        DataField = 'NameVorname'
                        DataPipeline = dmPipelines.ppKlausurschreiber
                        Font.Charset = DEFAULT_CHARSET
                        Font.Color = clGray
                        Font.Name = 'DIN Offc Pro'
                        Font.Size = 9
                        Font.Style = []
                        Transparent = True
                        DataPipelineName = 'ppKlausurschreiber'
                        mmHeight = 4233
                        mmLeft = 265
                        mmTop = 265
                        mmWidth = 49742
                        BandType = 4
                        LayerName = Foreground2
                      end
                    end
                    object ppDesignLayers3: TppDesignLayers
                      object ppDesignLayer3: TppDesignLayer
                        UserName = 'Foreground2'
                        LayerType = ltBanded
                        Index = 0
                      end
                    end
                  end
                end
                object ppDBText7: TppDBText
                  DesignLayer = ppDesignLayer2
                  UserName = 'DBText7'
                  Border.mmPadding = 0
                  DataField = 'Klausurraum'
                  DataPipeline = dmPipelines.ppKlausurkurse
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clGray
                  Font.Name = 'DIN Offc Pro'
                  Font.Size = 9
                  Font.Style = [fsBold]
                  Transparent = True
                  DataPipelineName = 'ppKlausurkurse'
                  mmHeight = 3969
                  mmLeft = 67469
                  mmTop = 0
                  mmWidth = 9790
                  BandType = 4
                  LayerName = Foreground1
                end
              end
              object raCodeModule3: TraCodeModule
                object raProgramInfo1: TraProgramInfo
                  raClassName = 'TraEventHandler'
                  raProgram.ProgramName = 'LabelAnzahlOnGetText'
                  raProgram.ProgramType = ttProcedure
                  raProgram.Source = 
                    'procedure LabelAnzahlOnGetText(var Text: String);'#13#10'begin'#13#10#13#10'  Te' +
                    'xt := FormatFloat('#39'00'#39',Klausurkurse['#39'Schriftlich'#39']) + '#39' von '#39' + ' +
                    'FormatFloat('#39'00'#39',Klausurkurse['#39'Groesse'#39']) + '#39' SuS'#39';'#13#10#13#10'end;'#13#10
                  raProgram.ComponentName = 'LabelAnzahl'
                  raProgram.EventName = 'OnGetText'
                  raProgram.EventID = 53
                  raProgram.CaretPos = (
                    49
                    4)
                end
              end
              object ppDesignLayers2: TppDesignLayers
                object ppDesignLayer2: TppDesignLayer
                  UserName = 'Foreground1'
                  LayerType = ltBanded
                  Index = 0
                end
              end
            end
          end
        end
        object ppColumnFooterBand1: TppColumnFooterBand
          Visible = False
          Background.Brush.Style = bsClear
          Border.mmPadding = 0
          mmBottomOffset = 0
          mmHeight = 0
          mmPrintPosition = 0
        end
        object ppGroup4: TppGroup
          BreakName = 'KlausurDatum'
          DataPipeline = dmPipelines.ppKlausurschienen
          GroupFileSettings.NewFile = False
          GroupFileSettings.EmailFile = False
          PreventOrphans = True
          OutlineSettings.CreateNode = True
          StartOnOddPage = False
          UserName = 'Group4'
          mmNewColumnThreshold = 20000
          mmNewPageThreshold = 0
          DataPipelineName = 'ppKlausurschienen'
          NewFile = False
          object ppGroupHeaderBand4: TppGroupHeaderBand
            Background.Brush.Style = bsClear
            Border.mmPadding = 0
            PrintHeight = phDynamic
            mmBottomOffset = 0
            mmHeight = 10583
            mmPrintPosition = 0
            object ppShape3: TppShape
              DesignLayer = ppDesignLayer4
              UserName = 'ShapeHead'
              Brush.Color = clGray
              ParentWidth = True
              Pen.Style = psClear
              Pen.Width = 0
              mmHeight = 8467
              mmLeft = 0
              mmTop = 2116
              mmWidth = 80000
              BandType = 3
              GroupNo = 0
              LayerName = Foreground3
            end
            object ppDBText2: TppDBText
              DesignLayer = ppDesignLayer4
              UserName = 'DBTextKlausurtermin'
              AutoSize = True
              Border.mmPadding = 0
              DataField = 'KlausurDatum'
              DataPipeline = dmPipelines.ppKlausurschienen
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWhite
              Font.Name = 'DIN Offc Pro'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              DataPipelineName = 'ppKlausurschienen'
              mmHeight = 4498
              mmLeft = 8996
              mmTop = 2117
              mmWidth = 16933
              BandType = 3
              GroupNo = 0
              LayerName = Foreground3
            end
            object ppLabel7: TppLabel
              DesignLayer = ppDesignLayer4
              UserName = 'LabelKurs'
              Border.mmPadding = 0
              Caption = 'Kurs'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWhite
              Font.Name = 'DIN Offc Pro'
              Font.Size = 7
              Font.Style = [fsBold]
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              Transparent = True
              mmHeight = 3006
              mmLeft = 8996
              mmTop = 6615
              mmWidth = 4699
              BandType = 3
              GroupNo = 0
              LayerName = Foreground3
            end
            object ppLabel8: TppLabel
              DesignLayer = ppDesignLayer4
              UserName = 'LabelLehrer'
              Border.mmPadding = 0
              Caption = 'Lehrer'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWhite
              Font.Name = 'DIN Offc Pro'
              Font.Size = 7
              Font.Style = [fsBold]
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              Transparent = True
              mmHeight = 3006
              mmLeft = 29633
              mmTop = 6615
              mmWidth = 6858
              BandType = 3
              GroupNo = 0
              LayerName = Foreground3
            end
            object ppLabel10: TppLabel
              DesignLayer = ppDesignLayer4
              UserName = 'LabelAnzahlen'
              Border.mmPadding = 0
              Caption = 'Anz. Teilnehmer'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWhite
              Font.Name = 'DIN Offc Pro'
              Font.Size = 7
              Font.Style = [fsBold]
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              Transparent = True
              mmHeight = 3006
              mmLeft = 43392
              mmTop = 6615
              mmWidth = 17018
              BandType = 3
              GroupNo = 0
              LayerName = Foreground3
            end
            object ppShape4: TppShape
              DesignLayer = ppDesignLayer4
              UserName = 'ShapeKW'
              Brush.Style = bsClear
              Pen.Color = clWhite
              mmHeight = 7144
              mmLeft = 794
              mmTop = 2646
              mmWidth = 5821
              BandType = 3
              GroupNo = 0
              LayerName = Foreground3
            end
            object ppLabel14: TppLabel
              DesignLayer = ppDesignLayer4
              UserName = 'LabelKW'
              AutoSize = False
              Border.mmPadding = 0
              Caption = 'XX'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWhite
              Font.Name = 'DIN Offc Pro Cond'
              Font.Size = 11
              Font.Style = [fsBold]
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              TextAlignment = taCentered
              Transparent = True
              mmHeight = 4699
              mmLeft = 794
              mmTop = 4763
              mmWidth = 5821
              BandType = 3
              GroupNo = 0
              LayerName = Foreground3
            end
            object ppLabel16: TppLabel
              DesignLayer = ppDesignLayer4
              UserName = 'LabelKWL'
              AutoSize = False
              Border.mmPadding = 0
              Caption = 'KW'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWhite
              Font.Name = 'DIN Offc Pro'
              Font.Size = 7
              Font.Style = [fsBold]
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              TextAlignment = taCentered
              Transparent = True
              mmHeight = 2910
              mmLeft = 794
              mmTop = 2910
              mmWidth = 5821
              BandType = 3
              GroupNo = 0
              LayerName = Foreground3
            end
          end
          object ppGroupFooterBand4: TppGroupFooterBand
            Visible = False
            Background.Brush.Style = bsClear
            Border.mmPadding = 0
            HideWhenOneDetail = False
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
        end
        object ppGroup5: TppGroup
          BreakName = 'Startzeit'
          DataPipeline = dmPipelines.ppKlausurschienen
          GroupFileSettings.NewFile = False
          GroupFileSettings.EmailFile = False
          OutlineSettings.CreateNode = True
          StartOnOddPage = False
          UserName = 'Group5'
          mmNewColumnThreshold = 0
          mmNewPageThreshold = 0
          DataPipelineName = 'ppKlausurschienen'
          NewFile = False
          object ppGroupHeaderBand5: TppGroupHeaderBand
            Visible = False
            Background.Brush.Style = bsClear
            Border.mmPadding = 0
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
          object ppGroupFooterBand5: TppGroupFooterBand
            Visible = False
            Background.Brush.Style = bsClear
            Border.mmPadding = 0
            HideWhenOneDetail = False
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
        end
        object ppGroup6: TppGroup
          BreakName = 'Klausurdauer'
          DataPipeline = dmPipelines.ppKlausurschienen
          GroupFileSettings.NewFile = False
          GroupFileSettings.EmailFile = False
          OutlineSettings.CreateNode = True
          StartOnOddPage = False
          UserName = 'Group6'
          mmNewColumnThreshold = 0
          mmNewPageThreshold = 0
          DataPipelineName = 'ppKlausurschienen'
          NewFile = False
          object ppGroupHeaderBand6: TppGroupHeaderBand
            Background.Brush.Style = bsClear
            Border.mmPadding = 0
            mmBottomOffset = 0
            mmHeight = 4498
            mmPrintPosition = 0
            object ppLabel17: TppLabel
              DesignLayer = ppDesignLayer4
              UserName = 'LabelStunden'
              AutoSize = False
              Border.BorderPositions = [bpBottom]
              Border.Color = clGray
              Border.mmPadding = 0
              Caption = 'LabelStunden'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clGray
              Font.Name = 'DIN Offc Pro Cond Medium'
              Font.Size = 8
              Font.Style = []
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              Transparent = True
              mmHeight = 3440
              mmLeft = 8996
              mmTop = 794
              mmWidth = 70115
              BandType = 3
              GroupNo = 2
              LayerName = Foreground3
            end
            object ppLine5: TppLine
              DesignLayer = ppDesignLayer4
              UserName = 'Line5'
              Border.mmPadding = 0
              Pen.Color = clGray
              Position = lpBottom
              Weight = 0.750000000000000000
              mmHeight = 1058
              mmLeft = 8996
              mmTop = 3440
              mmWidth = 70115
              BandType = 3
              GroupNo = 2
              LayerName = Foreground3
            end
          end
          object ppGroupFooterBand6: TppGroupFooterBand
            Background.Brush.Style = bsClear
            Border.mmPadding = 0
            HideWhenOneDetail = False
            mmBottomOffset = 0
            mmHeight = 1058
            mmPrintPosition = 0
            object ppLine6: TppLine
              DesignLayer = ppDesignLayer4
              UserName = 'Line6'
              Border.mmPadding = 0
              Pen.Color = clGray
              Weight = 0.750000000000000000
              mmHeight = 1058
              mmLeft = 8996
              mmTop = 0
              mmWidth = 70115
              BandType = 5
              GroupNo = 2
              LayerName = Foreground3
            end
          end
        end
        object raCodeModule1: TraCodeModule
          object raProgramInfo2: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'DBTextKlausurterminOnGetText'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure DBTextKlausurterminOnGetText(var Text: String);'#13#10'begin' +
              #13#10#13#10'  Text := Copy(Klausurschienen['#39'KlausurWochentag'#39'], 1, 2) + ' +
              #39'. '#39' + Text;'#13#10#13#10'end;'#13#10
            raProgram.ComponentName = 'DBTextKlausurtermin'
            raProgram.EventName = 'OnGetText'
            raProgram.EventID = 53
            raProgram.CaretPos = (
              73
              4)
          end
          object raProgramInfo5: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'LabelKWOnGetText'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure LabelKWOnGetText(var Text: String);'#13#10'begin'#13#10#13#10'  Text :' +
              '= FormatFloat('#39'00'#39', GetKW(StrToDate(Klausurschienen['#39'KlausurDatu' +
              'm'#39'])));'#13#10#13#10'end;'#13#10
            raProgram.ComponentName = 'LabelKW'
            raProgram.EventName = 'OnGetText'
            raProgram.EventID = 53
            raProgram.CaretPos = (
              3
              4)
          end
          object raProgramInfo6: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'LabelStundenOnGetText'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure LabelStundenOnGetText(var Text: String);'#13#10'begin'#13#10#13#10'  T' +
              'ext :=  '#39'Voraussichtlich: '#39' + Klausurschienen['#39'VonStunde'#39'] + '#39'. ' +
              'bis '#39' + Klausurschienen['#39'BisStunde'#39'] + '#39'. Stunde - Beginn: '#39' + T' +
              'imeToStr(Klausurschienen['#39'Startzeit'#39']) + '#39', Dauer: '#39' + Klausursc' +
              'hienen['#39'Klausurdauer'#39'] + '#39' Min.'#39';'#13#10#13#10'end;'#13#10
            raProgram.ComponentName = 'LabelStunden'
            raProgram.EventName = 'OnGetText'
            raProgram.EventID = 53
            raProgram.CaretPos = (
              182
              4)
          end
        end
        object ppDesignLayers4: TppDesignLayers
          object ppDesignLayer4: TppDesignLayer
            UserName = 'Foreground3'
            LayerType = ltBanded
            Index = 0
          end
        end
      end
    end
  end
  object ppGroup1: TppGroup
    BreakName = 'TerminNr'
    DataPipeline = dmPipelines.ppKlausurtermine
    GroupFileSettings.NewFile = False
    GroupFileSettings.EmailFile = False
    PreventOrphans = True
    OutlineSettings.CreateNode = True
    NewPage = True
    StartOnOddPage = False
    UserName = 'Group1'
    mmNewColumnThreshold = 0
    mmNewPageThreshold = 0
    DataPipelineName = 'ppKlausurtermine'
    NewFile = False
    object ppGroupHeaderBand1: TppGroupHeaderBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      mmBottomOffset = 0
      mmHeight = 11642
      mmPrintPosition = 0
      object ppDBText1: TppDBText
        DesignLayer = ppDesignLayer5
        UserName = 'DBText1'
        Border.BorderPositions = [bpTop, bpBottom]
        Border.Visible = True
        Border.Weight = 1.000000000000000000
        Border.mmPadding = 0
        DataField = 'Bezeichnung'
        DataPipeline = dmPipelines.ppKlausurtermine
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'DIN Offc Pro'
        Font.Size = 12
        Font.Style = [fsBold]
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'ppKlausurtermine'
        mmHeight = 6615
        mmLeft = 0
        mmTop = 4237
        mmWidth = 180000
        BandType = 3
        GroupNo = 0
        LayerName = BandLayer5
      end
    end
    object ppGroupFooterBand1: TppGroupFooterBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      HideWhenOneDetail = False
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
  end
  object raCodeModule5: TraCodeModule
    object raProgramInfo9: TraProgramInfo
      raClassName = 'TraProgram'
      raProgram.ChildType = 21
      raProgram.IsFunctionType = True
      raProgram.ProgramName = 'GetKW'
      raProgram.ProgramType = ttFunction
      raProgram.Source = 
        'function GetKW(Datum : Date) : Integer;'#13#10'var '#13#10'  iKW : Integer;'#13 +
        #10'  iDJahr, iDMonat, iDTag : Integer;'#13#10'  iWochentag4Jan, iWochent' +
        'ag31Dez : Integer;'#13#10'  dErsterTagErsteKW : Date;'#13#10'  iDateDiff : I' +
        'nteger;'#13#10'  '#13#10'begin'#13#10#13#10'  iKW := 0;'#13#10'  DecodeDate(Datum, iDJahr, i' +
        'DMonat, iDTag);'#13#10'  '#13#10'  {Fall: Zeit vom 29.-31. Dezemeber pr'#252'fen,' +
        ' da diese schon in der 1. Woche des folgenden Jahres liegen k'#246'nn' +
        'te}'#13#10'  If ((iDMonat = 12) And (iDTag >= 29)) Then'#13#10'    Begin'#13#10'  ' +
        '    { DayOfWeek liefert 1 f'#252'r Sonntag}'#13#10'      iWochentag31Dez :=' +
        ' DayOfWeek(StrToDate('#39'31.12.'#39' + IntToStr(iDJahr))) - 1;'#13#10'      I' +
        'f iWochentag31Dez = 0 Then iWochentag31Dez := 7;'#13#10'      '#13#10'      ' +
        'If ((iWochentag31Dez <= 3) And (iDTag >= 29)) Then iKW := 1;'#13#10'  ' +
        '    If ((iWochentag31Dez <= 2) And (iDTag >= 30)) Then iKW := 1;' +
        #13#10'      If ((iWochentag31Dez <= 1) And (iDTag >= 31)) Then iKW :' +
        '= 1;                     '#13#10'    End; '#13#10#13#10'  {Wenn kein Sonderfall ' +
        'vorlag, dann ist iKW noch 01 und Datum wird normal gepr'#252'ft}  '#13#10' ' +
        ' If iKW = 0 Then'#13#10'    Begin'#13#10'      {Der vierte Januar liegt imme' +
        'r in KW1, DayOfWeek liefert 1 f'#252'r Sonntag}'#13#10'      iWochentag4Jan' +
        ' := DayOfWeek(StrToDate('#39'04.01.'#39' + IntToStr(iDJahr))) - 1;'#13#10'    ' +
        '  If iWochentag4Jan = 0 Then iWochentag4Jan := 7;'#13#10'      '#13#10'     ' +
        ' If iWochentag4Jan <= 4 Then'#13#10'        dErsterTagErsteKW := Encod' +
        'eDate(iDJahr, 1, 5 - iWochentag4Jan)     '#13#10'      Else'#13#10'        d' +
        'ErsterTagErsteKW := EncodeDate(iDJahr - 1, 12, 36 - iWochentag4J' +
        'an);'#13#10'    End; '#13#10#13#10'  iDateDiff := (Datum - dErsterTagErsteKW);'#13#10 +
        '  '#13#10'  iKW := (iDateDiff DIV 7) + 1;   '#13#10#13#10'  Result := iKW; '#13#10#13#10'e' +
        'nd;'#13#10
    end
    object raProgramInfo10: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'SystemVariableDruckdatumOnGetText'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure SystemVariableDruckdatumOnGetText(var Text: String);'#13#10 +
        'begin'#13#10#13#10'  Text := '#39'Schuljahr '#39' + Copy(Blockgruppe['#39'Halbjahr'#39'],1' +
        ',Pos('#39'.'#39',Blockgruppe['#39'Halbjahr'#39']) - 1) + '#39', '#39' + Copy(Blockgruppe' +
        '['#39'Halbjahr'#39'], Pos('#39'.'#39',Blockgruppe['#39'Halbjahr'#39']) + 1,1) + '#39'. Halbj' +
        'ahr - '#39' + Text;'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'SystemVariableDruckdatum'
      raProgram.EventName = 'OnGetText'
      raProgram.EventID = 53
    end
    object raProgramInfo11: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'LabelHeaderOnGetText'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure LabelHeaderOnGetText(var Text: String);'#13#10'begin'#13#10#13#10'  Te' +
        'xt := '#39'Klausurplan - Jahrgangsstufe '#39' +  Blockgruppe['#39'Jahrgang'#39']' +
        #13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'LabelHeader'
      raProgram.EventName = 'OnGetText'
      raProgram.EventID = 53
      raProgram.CaretPos = (
        1
        1)
    end
    object raProgramInfo12: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'ReportAfterOpenDataPipelines'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure ReportAfterOpenDataPipelines;'#13#10'begin'#13#10'  FilterKlausure' +
        'n'#13#10'end;'#13#10
      raProgram.ComponentName = 'Report'
      raProgram.EventName = 'AfterOpenDataPipelines'
      raProgram.EventID = 135
      raProgram.CaretPos = (
        3
        3)
    end
    object raProgramInfo19: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'ReportAfterPrint'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 'procedure ReportAfterPrint;'#13#10'begin'#13#10'  ResetKlausurFilter'#13#10'end;'#13#10
      raProgram.ComponentName = 'Report'
      raProgram.EventName = 'AfterPrint'
      raProgram.EventID = 0
      raProgram.CaretPos = (
        3
        3)
    end
  end
  object ppDesignLayers5: TppDesignLayers
    object ppDesignLayer5: TppDesignLayer
      UserName = 'BandLayer5'
      LayerType = ltBanded
      Index = 0
    end
  end
  object ppParameterList1: TppParameterList
  end
end