object Report: TppReport
  OnFileDeviceCreate = ReportFileDeviceCreate
  AutoStop = False
  DataPipeline = dmPipelines.ppKurse
  PassSetting = psTwoPass
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = 'Kursliste nur Facharbeitsschreiber nach Lehrern.rtk'
  PrinterSetup.Duplex = dpNone
  PrinterSetup.PaperName = 'A4'
  PrinterSetup.PrinterName = 'HP OfficeJet Pro 6970 [027E44]'
  PrinterSetup.SaveDeviceSettings = False
  PrinterSetup.mmMarginBottom = 6350
  PrinterSetup.mmMarginLeft = 6350
  PrinterSetup.mmMarginRight = 6350
  PrinterSetup.mmMarginTop = 6350
  PrinterSetup.mmPaperHeight = 297127
  PrinterSetup.mmPaperWidth = 210079
  PrinterSetup.PaperSize = 9
  SaveAsTemplate = True
  Template.FileName = 
    'C:\Kurs 42-Arbeitsverzeichnis\Reports\Basis-Listen\CFG-Oberstufe' +
    '\Kurslisten\Kursliste nur Facharbeitsschreiber nach Lehrern.rtk'
  Template.Format = ftASCII
  AllowPrintToArchive = True
  AllowPrintToFile = True
  ArchiveFileName = '($MyDocuments)\ReportArchive.raf'
  DeviceType = 'Screen'
  DefaultFileDeviceType = 'PDF'
  EmailSettings.ReportFormat = 'PDF'
  LanguageID = 'Default'
  OnPreviewFormCreate = ReportPreviewFormCreate
  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'
  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 = 0
  DataPipelineName = 'ppKurse'
  object ppHeaderBand1: TppHeaderBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 10848
    mmPrintPosition = 0
    object ppDBText11: TppDBText
      DesignLayer = ppDesignLayer3
      UserName = 'DBText11'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'Jahrgang'
      DataPipeline = dmPipelines.ppKurse
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 16
      Font.Style = [fsBold]
      Transparent = True
      DataPipelineName = 'ppKurse'
      mmHeight = 6350
      mmLeft = 130969
      mmTop = 1588
      mmWidth = 17198
      BandType = 0
      LayerName = Foreground2
    end
    object ppDBText12: TppDBText
      DesignLayer = ppDesignLayer3
      UserName = 'DBText12'
      HyperlinkEnabled = False
      AutoSize = True
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'Schuljahr'
      DataPipeline = dmPipelines.ppKurse
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 16
      Font.Style = [fsBold]
      Transparent = True
      DataPipelineName = 'ppKurse'
      mmHeight = 6350
      mmLeft = 169069
      mmTop = 1588
      mmWidth = 25400
      BandType = 0
      LayerName = Foreground2
    end
    object ppLabel14: TppLabel
      DesignLayer = ppDesignLayer3
      UserName = 'Label14'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      Caption = 'Kurslisten der Facharbeitsschreiber'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 16
      Font.Style = [fsBold]
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 6350
      mmLeft = 1058
      mmTop = 1588
      mmWidth = 95515
      BandType = 0
      LayerName = Foreground2
    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 ppSubReport1: TppSubReport
      DesignLayer = ppDesignLayer3
      UserName = 'SubReport1'
      ExpandAll = False
      NewPrintJob = False
      OutlineSettings.CreateNode = True
      TraverseAllData = False
      DataPipelineName = 'ppKursteilnehmer'
      mmHeight = 5027
      mmLeft = 0
      mmTop = 0
      mmWidth = 197379
      BandType = 4
      LayerName = Foreground2
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmMinHeight = 0
      object ppChildReport1: TppChildReport
        AutoStop = False
        DataPipeline = dmPipelines.ppKursteilnehmer
        PrinterSetup.BinName = 'Default'
        PrinterSetup.DocumentName = 'Kursliste nur Facharbeitsschreiber nach Lehrern.rtk'
        PrinterSetup.Duplex = dpNone
        PrinterSetup.PaperName = 'A4'
        PrinterSetup.PrinterName = 'HP OfficeJet Pro 6970 [027E44]'
        PrinterSetup.SaveDeviceSettings = False
        PrinterSetup.mmMarginBottom = 6350
        PrinterSetup.mmMarginLeft = 6350
        PrinterSetup.mmMarginRight = 6350
        PrinterSetup.mmMarginTop = 6350
        PrinterSetup.mmPaperHeight = 297127
        PrinterSetup.mmPaperWidth = 210079
        PrinterSetup.PaperSize = 9
        Template.Format = ftASCII
        Version = '20.04'
        mmColumnWidth = 0
        DataPipelineName = 'ppKursteilnehmer'
        object ppDetailBand3: TppDetailBand
          Background1.Brush.Style = bsClear
          Background2.Brush.Style = bsClear
          Border.mmPadding = 0
          mmBottomOffset = 0
          mmHeight = 5556
          mmPrintPosition = 0
          object ppDBText2: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText2'
            HyperlinkEnabled = False
            AutoSize = True
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            DataField = 'NameVorname'
            DataPipeline = dmPipelines.ppKursteilnehmer
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            Transparent = True
            DataPipelineName = 'ppKursteilnehmer'
            mmHeight = 4233
            mmLeft = 9525
            mmTop = 1323
            mmWidth = 36513
            BandType = 4
            LayerName = Foreground1
          end
          object ppLabel4: TppLabel
            DesignLayer = ppDesignLayer2
            UserName = 'Label4'
            Border.mmPadding = 0
            Caption = 'Label4'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
            FormFieldSettings.FormFieldType = fftNone
            TextAlignment = taRightJustified
            Transparent = True
            mmHeight = 4233
            mmLeft = 1852
            mmTop = 1323
            mmWidth = 5556
            BandType = 4
            LayerName = Foreground1
          end
        end
        object ppSummaryBand1: TppSummaryBand
          Background.Brush.Style = bsClear
          Border.mmPadding = 0
          mmBottomOffset = 0
          mmHeight = 7673
          mmPrintPosition = 0
          object ppLine3: TppLine
            DesignLayer = ppDesignLayer2
            UserName = 'Line3'
            Border.mmPadding = 0
            ParentWidth = True
            Position = lpBottom
            Weight = 0.750000000000000000
            mmHeight = 3969
            mmLeft = 0
            mmTop = 3704
            mmWidth = 197379
            BandType = 7
            LayerName = Foreground1
          end
          object ppLabel6: TppLabel
            DesignLayer = ppDesignLayer2
            UserName = 'Label6'
            Border.mmPadding = 0
            Caption = 'Keine Facharbeiten in diesem Kurs'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
            FormFieldSettings.FormFieldType = fftNone
            Transparent = True
            mmHeight = 4233
            mmLeft = 6615
            mmTop = 529
            mmWidth = 53711
            BandType = 7
            LayerName = Foreground1
          end
        end
        object raCodeModule2: TraCodeModule
          object raProgramInfo5: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'ReportOnStartFirstPass'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure ReportOnStartFirstPass;'#13#10'begin'#13#10'  zaehler := 0;'#13#10'end;'#13 +
              #10
            raProgram.ComponentName = 'Report'
            raProgram.EventName = 'OnStartFirstPass'
            raProgram.EventID = 20
            raProgram.CaretPos = (
              16
              3)
          end
          object raProgramInfo6: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'Label4OnGetText'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure Label4OnGetText(var Text: String);'#13#10'begin'#13#10#13#10'  zaehler' +
              ' := zaehler + 1;'#13#10'  Text := IntToStr(zaehler);'#13#10#13#10'end;'#13#10
            raProgram.ComponentName = 'Label4'
            raProgram.EventName = 'OnGetText'
            raProgram.EventID = 53
            raProgram.CaretPos = (
              29
              5)
          end
          object raProgramInfo7: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'DetailBeforePrint'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure DetailBeforePrint;'#13#10'begin'#13#10'  detail.visible := Kurstei' +
              'lnehmer['#39'Facharbeit'#39'];'#13#10'end;'#13#10
            raProgram.ComponentName = 'Detail'
            raProgram.EventName = 'BeforePrint'
            raProgram.EventID = 24
            raProgram.CaretPos = (
              50
              3)
          end
          object raProgramInfo8: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'SummaryBeforePrint'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure SummaryBeforePrint;'#13#10'begin'#13#10'  label6.visible := (zaehl' +
              'er = 0);'#13#10'end;'#13#10
            raProgram.ComponentName = 'Summary'
            raProgram.EventName = 'BeforePrint'
            raProgram.EventID = 24
            raProgram.CaretPos = (
              35
              3)
          end
        end
        object ppDesignLayers2: TppDesignLayers
          object ppDesignLayer2: TppDesignLayer
            UserName = 'Foreground1'
            LayerType = ltBanded
            Index = 0
          end
        end
      end
    end
  end
  object ppFooterBand1: TppFooterBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 7144
    mmPrintPosition = 0
    object ppSystemVariable2: TppSystemVariable
      DesignLayer = ppDesignLayer3
      UserName = 'SystemVariable2'
      Border.mmPadding = 0
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 0
      mmTop = 2117
      mmWidth = 16934
      BandType = 8
      LayerName = Foreground2
    end
  end
  object ppGroup2: TppGroup
    BreakName = 'Lehrer'
    DataPipeline = dmPipelines.ppKurse
    GroupFileSettings.NewFile = False
    GroupFileSettings.EmailFile = False
    OutlineSettings.CreateNode = True
    NewPage = True
    StartOnOddPage = False
    UserName = 'Group2'
    mmNewColumnThreshold = 0
    mmNewPageThreshold = 0
    DataPipelineName = 'ppKurse'
    NewFile = False
    object ppGroupHeaderBand2: TppGroupHeaderBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      mmBottomOffset = 0
      mmHeight = 7938
      mmPrintPosition = 0
      object ppDBText3: TppDBText
        DesignLayer = ppDesignLayer3
        UserName = 'DBText3'
        AutoSize = True
        Border.mmPadding = 0
        DataField = 'Lehrer'
        DataPipeline = dmPipelines.ppKurse
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppKurse'
        mmHeight = 4763
        mmLeft = 1058
        mmTop = 529
        mmWidth = 8202
        BandType = 3
        GroupNo = 0
        LayerName = Foreground2
      end
      object ppLine8: TppLine
        DesignLayer = ppDesignLayer3
        UserName = 'Line8'
        Border.Weight = 1.000000000000000000
        Border.mmPadding = 0
        ParentWidth = True
        Position = lpBottom
        Weight = 0.750000000000000000
        mmHeight = 3969
        mmLeft = 0
        mmTop = 3969
        mmWidth = 197379
        BandType = 3
        GroupNo = 0
        LayerName = Foreground2
      end
    end
    object ppGroupFooterBand2: TppGroupFooterBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      HideWhenOneDetail = False
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
  end
  object ppGroup1: TppGroup
    BreakName = 'Idnr'
    DataPipeline = dmPipelines.ppKurse
    GroupFileSettings.NewFile = False
    GroupFileSettings.EmailFile = False
    KeepTogether = True
    OutlineSettings.CreateNode = True
    StartOnOddPage = False
    UserName = 'Group1'
    mmNewColumnThreshold = 0
    mmNewPageThreshold = 0
    DataPipelineName = 'ppKurse'
    NewFile = False
    object ppGroupHeaderBand1: TppGroupHeaderBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      mmBottomOffset = 0
      mmHeight = 7408
      mmPrintPosition = 0
      object ppDBText1: TppDBText
        DesignLayer = ppDesignLayer3
        UserName = 'DBText1'
        HyperlinkEnabled = False
        AutoSize = True
        Border.Weight = 1.000000000000000000
        Border.mmPadding = 0
        DataField = 'Bezeichnung'
        DataPipeline = dmPipelines.ppKurse
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        DataPipelineName = 'ppKurse'
        mmHeight = 4233
        mmLeft = 4763
        mmTop = 3175
        mmWidth = 9525
        BandType = 3
        GroupNo = 1
        LayerName = Foreground2
      end
      object ppDBText9: TppDBText
        DesignLayer = ppDesignLayer3
        UserName = 'DBText9'
        HyperlinkEnabled = False
        Border.Weight = 1.000000000000000000
        Border.mmPadding = 0
        DataField = 'Lehrer'
        DataPipeline = dmPipelines.ppKurse
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        DataPipelineName = 'ppKurse'
        mmHeight = 4233
        mmLeft = 17992
        mmTop = 3175
        mmWidth = 17198
        BandType = 3
        GroupNo = 1
        LayerName = Foreground2
      end
    end
    object ppGroupFooterBand1: TppGroupFooterBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      HideWhenOneDetail = False
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
  end
  object raCodeModule1: TraCodeModule
    object raProgramInfo9: TraProgramInfo
      raClassName = 'TraVarProgram'
      raProgram.ChildType = 17
      raProgram.ProgramName = 'Variables'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Variables;'#13#10'var'#13#10'   zaehler : integer;'#13#10#13#10'begin'#13#10#13#10'end' +
        ';'#13#10
      raProgram.CaretPos = (
        22
        2)
    end
    object raProgramInfo10: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'DBText3OnGetText'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure DBText3OnGetText(var Text: String);'#13#10'var lname, lVorna' +
        'me, lGeschlecht, lAnrede,  lAmtsbez : String;'#13#10'begin'#13#10'  LehrerDa' +
        'tenLaden(Text,lName,lVorname,lGeschlecht,lAnrede,lAmtsbez);    {' +
        'const Kuerzel: String; var Name, Vorname, Geschlecht, Anrede, Am' +
        'tsbez: String);    }'#13#10'  text:=lAnrede + lVorname + lName;'#13#10'end;'#13 +
        #10
      raProgram.ComponentName = 'DBText3'
      raProgram.EventName = 'OnGetText'
      raProgram.EventID = 53
      raProgram.CaretPos = (
        27
        5)
    end
  end
  object ppDesignLayers3: TppDesignLayers
    object ppDesignLayer3: TppDesignLayer
      UserName = 'Foreground2'
      LayerType = ltBanded
      Index = 0
    end
  end
  object ppParameterList1: TppParameterList
  end
end