object Report: TppReport NoDataBehaviors = [ndMessageDialog, ndBlankPage] PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Klausurplan mit Absenzen Prozente_mod.rtk' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 SaveAsTemplate = True Template.FileName = 'T:\_001_Kurs 42\Reports\_006_Klausuren\Klausurplanung\Klausurpla' + 'n mit Absenzen Prozente_mod.rtk' Template.Format = ftASCII Units = utMillimeters AllowPrintToArchive = True AllowPrintToFile = True ArchiveFileName = '($MyDocuments)\ReportArchive.raf' DeviceType = 'Printer' DefaultFileDeviceType = 'PDF' EmailSettings.ReportFormat = 'PDF' EmailSettings.ConnectionSettings.MailService = 'SMTP' EmailSettings.ConnectionSettings.WebMail.GmailSettings.OAuth2.RedirectPort = 0 EmailSettings.ConnectionSettings.WebMail.Outlook365Settings.OAuth2.RedirectPort = 0 EmailSettings.ConnectionSettings.EnableMultiPlugin = False LanguageID = 'Default' OpenFile = True OutlineSettings.CreateNode = False OutlineSettings.CreatePageNodes = False OutlineSettings.Enabled = False OutlineSettings.Visible = False ThumbnailSettings.Enabled = False ThumbnailSettings.Visible = False 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.DigitalSignatureSettings.SignPDF = False PDFSettings.FontEncoding = feAnsi PDFSettings.ImageCompressionLevel = 25 PDFSettings.PDFAFormat = pafNone PreviewFormSettings.PageBorder.mmPadding = 0 PreviewFormSettings.SinglePageOnly = True PreviewFormSettings.ZoomSetting = zsPageWidth 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 = '' TextSearchSettings.Enabled = False XLSSettings.AppName = 'ReportBuilder' XLSSettings.Author = 'ReportBuilder' XLSSettings.Subject = 'Report' XLSSettings.Title = 'Report' XLSSettings.WorksheetName = 'Report' CloudDriveSettings.DropBoxSettings.OAuth2.RedirectPort = 0 CloudDriveSettings.DropBoxSettings.DirectorySupport = True CloudDriveSettings.GoogleDriveSettings.OAuth2.RedirectPort = 0 CloudDriveSettings.GoogleDriveSettings.DirectorySupport = False CloudDriveSettings.OneDriveSettings.OAuth2.RedirectPort = 0 CloudDriveSettings.OneDriveSettings.DirectorySupport = True Left = 312 Top = 192 Version = '21.05' mmColumnWidth = 0 object ppTitleBand3: TppTitleBand Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 7938 mmPrintPosition = 0 object ppSubReport7: TppSubReport DesignLayer = ppDesignLayer4 UserName = 'SubReport7' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentWidth = False TraverseAllData = False DataPipelineName = 'ppKurse' mmHeight = 5556 mmLeft = 0 mmTop = 794 mmWidth = 25665 BandType = 1 LayerName = Foreground3 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport7: TppChildReport AutoStop = False DataPipeline = dmPipelines.ppKurse PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Klausurplan mit Absenzen Prozente_mod.rtk' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 Template.Format = ftASCII Units = utMillimeters Version = '21.05' mmColumnWidth = 0 DataPipelineName = 'ppKurse' object ppTitleBand4: TppTitleBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppDetailBand8: TppDetailBand Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 1058 mmPrintPosition = 0 object ppSubReport6: TppSubReport DesignLayer = ppDesignLayer8 UserName = 'SubReport6' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentWidth = False TraverseAllData = False DataPipelineName = 'ppKursplan' mmHeight = 0 mmLeft = 21034 mmTop = 0 mmWidth = 176213 BandType = 4 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport6: TppChildReport AutoStop = False DataPipeline = dmPipelines.ppKursplan PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Klausurplan mit Absenzen Prozente_mod.rtk' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 Template.Format = ftASCII Units = utMillimeters Version = '21.05' mmColumnWidth = 0 DataPipelineName = 'ppKursplan' object ppTitleBand5: TppTitleBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppDetailBand9: TppDetailBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppSummaryBand7: TppSummaryBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object raCodeModule7: TraCodeModule object raProgramInfo1: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'begin'#13#10#13#10' if Kursplan['#39'Raum_G'#39'] <' + '> '#39#39' then'#13#10' begin'#13#10' stundenG := stundenG + getStundenCode(Kurs' + 'e['#39'Bezeichnung'#39'],false,Kursplan['#39'Tag'#39'],Kursplan['#39'Stunde'#39']) + '#39', ' + #39'; '#13#10' end;'#13#10' '#13#10' if Kursplan['#39'Raum_' + 'U'#39'] <> '#39#39' then'#13#10' begin '#13#10' stundenU := stundenU + getStundenCod' + 'e(Kurse['#39'Bezeichnung'#39'],true,Kursplan['#39'Tag'#39'],Kursplan['#39'Stunde'#39']) ' + '+ '#39', '#39'; '#13#10' end;'#13#10#13#10#13#10#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 50 13) end end object ppDesignLayers9: TppDesignLayers object ppDesignLayer9: TppDesignLayer UserName = 'Foreground5' LayerType = ltBanded Index = 0 end end end end end object ppSummaryBand6: TppSummaryBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object raCodeModule8: TraCodeModule object raProgramInfo2: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'begin'#13#10' if Kurse['#39'IstKoopKurs'#39']=t' + 'rue then'#13#10' koopKurse := koopKurse + Kurse['#39'Bezeichnung'#39'] + '#39',' + ' '#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 23 5) end end object ppDesignLayers8: TppDesignLayers object ppDesignLayer8: TppDesignLayer UserName = 'Foreground2' LayerType = ltBanded Index = 0 end end end end end object ppHeaderBand2: TppHeaderBand Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 10583 mmPrintPosition = 0 object ppLabel4: TppLabel DesignLayer = ppDesignLayer4 UserName = 'Label2' Border.mmPadding = 0 Caption = 'Klausurtermine' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 16 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 6900 mmLeft = 794 mmTop = 2910 mmWidth = 36026 BandType = 0 LayerName = Foreground3 end object ppLabel5: TppLabel DesignLayer = ppDesignLayer4 UserName = 'Label5' AutoSize = False Border.mmPadding = 0 Caption = 'Jahrgang:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 14 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 6085 mmLeft = 45244 mmTop = 3440 mmWidth = 23548 BandType = 0 LayerName = Foreground3 end object ppDBText2: TppDBText DesignLayer = ppDesignLayer4 UserName = 'DBText2' Border.mmPadding = 0 DataField = 'Jahrgang' DataPipeline = dmPipelines.ppBlockung Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 14 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'ppBlockung' mmHeight = 6085 mmLeft = 67204 mmTop = 3440 mmWidth = 26988 BandType = 0 LayerName = Foreground3 end object ppLabel6: TppLabel DesignLayer = ppDesignLayer4 UserName = 'Label6' AutoSize = False Border.mmPadding = 0 Caption = 'Schuljahr' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 12 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 5292 mmLeft = 97896 mmTop = 4233 mmWidth = 17727 BandType = 0 LayerName = Foreground3 end object ppDBText3: TppDBText DesignLayer = ppDesignLayer4 UserName = 'DBText3' Border.mmPadding = 0 DataField = 'Schuljahr' DataPipeline = dmPipelines.ppBlockung Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 12 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'ppBlockung' mmHeight = 5292 mmLeft = 118004 mmTop = 4233 mmWidth = 48683 BandType = 0 LayerName = Foreground3 end object ppSystemVariable2: TppSystemVariable DesignLayer = ppDesignLayer4 UserName = 'SystemVariable2' Border.mmPadding = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 9 Font.Style = [] Transparent = True mmHeight = 3704 mmLeft = 171186 mmTop = 5556 mmWidth = 14287 BandType = 0 LayerName = Foreground3 end object ppLabel13: TppLabel DesignLayer = ppDesignLayer4 UserName = 'Label13' Border.mmPadding = 0 Caption = 'Stand:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 161925 mmTop = 5556 mmWidth = 8202 BandType = 0 LayerName = Foreground3 end end object ppDetailBand2: TppDetailBand Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 5027 mmPrintPosition = 0 object ppSubReport3: TppSubReport DesignLayer = ppDesignLayer4 UserName = 'SubReport3' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True TraverseAllData = False DataPipelineName = 'ppKlausurschienen' mmHeight = 5027 mmLeft = 0 mmTop = 0 mmWidth = 197300 BandType = 4 LayerName = Foreground3 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport3: TppChildReport AutoStop = False DataPipeline = dmPipelines.ppKlausurschienen PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Klausurplan mit Absenzen Prozente_mod.rtk' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 Template.Format = ftASCII Version = '21.05' mmColumnWidth = 0 DataPipelineName = 'ppKlausurschienen' object ppHeaderBand3: TppHeaderBand Visible = False Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppDetailBand5: TppDetailBand Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 10583 mmPrintPosition = 0 object ppSubReport4: TppSubReport DesignLayer = ppDesignLayer5 UserName = 'SubReport4' ExpandAll = False KeepTogether = True NewPrintJob = False OutlineSettings.CreateNode = True ParentPrinterSetup = False ParentWidth = False TraverseAllData = True DataPipelineName = 'ppKlausurkurse' mmHeight = 5027 mmLeft = 265 mmTop = 6615 mmWidth = 70908 BandType = 4 LayerName = Foreground4 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport4: TppChildReport AutoStop = False DataPipeline = dmPipelines.ppKlausurkurse PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Klausurplanung_Formular_Verwaltung_Thomas_v23_Verschoenerung_v05' + '_Minuten_v05_Minuten_Update_v04_VersuchKoop.rtk' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 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 = '21.05' mmColumnWidth = 0 DataPipelineName = 'ppKlausurkurse' object ppDetailBand6: TppDetailBand Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 4233 mmPrintPosition = 0 object ppDBText14: TppDBText DesignLayer = ppDesignLayer6 UserName = 'DBText5' Border.mmPadding = 0 DataField = 'Bezeichnung' DataPipeline = dmPipelines.ppKlausurkurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'ppKlausurkurse' mmHeight = 4233 mmLeft = 41540 mmTop = 0 mmWidth = 12700 BandType = 4 LayerName = PageLayer1 end object ppDBText15: TppDBText DesignLayer = ppDesignLayer6 UserName = 'DBText6' Border.mmPadding = 0 DataField = 'LehrerKrz' DataPipeline = dmPipelines.ppKlausurkurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'ppKlausurkurse' mmHeight = 4233 mmLeft = 55298 mmTop = 0 mmWidth = 10848 BandType = 4 LayerName = PageLayer1 end object ppDBText16: TppDBText DesignLayer = ppDesignLayer6 UserName = 'DBText4' Border.mmPadding = 0 DataField = 'Schriftlich' DataPipeline = dmPipelines.ppKlausurkurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'ppKlausurkurse' mmHeight = 4233 mmLeft = 68792 mmTop = 0 mmWidth = 9525 BandType = 4 LayerName = PageLayer1 end object ppLabel8: TppLabel DesignLayer = ppDesignLayer6 UserName = 'Label8' Border.mmPadding = 0 Caption = 'Label8' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Name = 'Calibri' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 91281 mmTop = 0 mmWidth = 9525 BandType = 4 LayerName = PageLayer1 end object ppLabel27: TppLabel DesignLayer = ppDesignLayer6 UserName = 'findetStatt' Border.mmPadding = 0 Caption = 'findetStatt' Font.Charset = DEFAULT_CHARSET Font.Color = 3289650 Font.Name = 'Calibri' Font.Size = 6 Font.Style = [fsItalic] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 77258 mmTop = 794 mmWidth = 9525 BandType = 4 LayerName = PageLayer1 end object ppLabel7: TppLabel DesignLayer = ppDesignLayer6 UserName = 'Label7' Border.mmPadding = 0 Caption = 'Label7' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 1058 mmTop = 0 mmWidth = 9525 BandType = 4 LayerName = PageLayer1 end object ppLabel48: TppLabel DesignLayer = ppDesignLayer6 UserName = 'Label48' Border.mmPadding = 0 Caption = 'Label48' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Verdana' Font.Size = 5 Font.Style = [fsBold, fsItalic] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2116 mmLeft = 27398 mmTop = 999 mmWidth = 8202 BandType = 4 LayerName = PageLayer1 end object ppLabel49: TppLabel DesignLayer = ppDesignLayer6 UserName = 'Label49' Border.mmPadding = 0 Caption = 'Label49' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Verdana' Font.Size = 5 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2116 mmLeft = 12435 mmTop = 999 mmWidth = 8203 BandType = 4 LayerName = PageLayer1 end end object ppSummaryBand3: TppSummaryBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroup3: TppGroup BreakName = 'IdNr' DataPipeline = dmPipelines.ppKlausurkurse GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False KeepTogether = True OutlineSettings.CreateNode = True StartOnOddPage = False UserName = 'Group2' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'ppKlausurkurse' NewFile = False object ppGroupHeaderBand3: TppGroupHeaderBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroupFooterBand3: TppGroupFooterBand Border.mmPadding = 0 HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end end object raCodeModule4: TraCodeModule object raProgramInfo3: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Label8OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Label8OnGetText(var Text: String);'#13#10'begin'#13#10' '#13#10' Text ' + ':= IntToStr(Klausurschienen['#39'VonStunde'#39']) + '#39' - '#39' + IntToStr(Kl' + 'ausurschienen['#39'BisStunde'#39']);'#13#10'end;'#13#10 raProgram.ComponentName = 'Label8' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 33 4) end object raProgramInfo4: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'findetStattOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure findetStattOnGetText(var Text: String);'#13#10'var'#13#10' anteil' + 'Anwesender: Double;'#13#10' i: Integer;'#13#10#13#10' von, bis: Integer;'#13#10' '#13#10 + ' stundenString: String;'#13#10#13#10'begin'#13#10#13#10' stundenString := '#39#39';'#13#10' '#13 + #10' anteilAnwesender := (Klausurkurse['#39'Groesse'#39']-Klausurkurse['#39'An' + 'zahlBetroffene'#39'])/Klausurkurse['#39'Groesse'#39'];'#13#10' '#13#10' '#13#10' von := K' + 'lausurkurse['#39'VonStunde'#39'];'#13#10' bis := Klausurkurse['#39'BisStunde'#39'];'#13#10 + ' '#13#10' for i:=von to bis do'#13#10' begin '#13#10' if isStundeImPlan(Kl' + 'ausurkurse['#39'Bezeichnung'#39'], Klausurschienen['#39'KlausurDatum'#39'], i) =' + ' true then'#13#10' begin'#13#10#13#10' //if isKoopKurs(Klausurkurse['#39'Bez' + 'eichnung'#39'],Klausurkurse['#39'LehrerKrz'#39']) = false then'#13#10' //begi' + 'n'#13#10' setKurstundeBetroffen(Klausurkurse['#39'Bezeichnung'#39'], i,' + ' Klausurkurse['#39'AnzahlBetroffene'#39']);'#13#10' setKlausurkurs(Klau' + 'surkurse['#39'Bezeichnung'#39']);'#13#10' '#13#10' if stundenString = ' + #39#39' then'#13#10' stundenString := IntToStr(i)'#13#10' else'#13#10' ' + ' stundenString := stundenString + '#39' - '#39' + IntToStr(i); '#13 + #10' //end;'#13#10' end; '#13#10' end; '#13#10' '#13#10' stundenString := ' + 'StundenStringBereinigung(stundenString, false);'#13#10' '#13#10' if stunde' + 'nString<>'#39#39' then'#13#10' begin'#13#10' if anteilAnwesender <= ausfallGre' + 'nze then'#13#10' //Text := '#39'A ('#39' + stundenString + '#39')'#39#13#10' Tex' + 't := '#39'(eigene Stunden: '#39' + stundenString + '#39')'#39#13#10' else'#13#10' ' + '//Text := '#39'U ('#39' + stundenString + '#39')'#39'; '#13#10' Text := '#39'(eigene ' + 'Stunden: '#39' + stundenString + '#39')'#39'; '#13#10' end else'#13#10' Text := '#39'-' + #39';'#13#10' '#13#10'end;'#13#10 raProgram.ComponentName = 'findetStatt' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 52 11) end object raProgramInfo5: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'begin'#13#10' Detail.Visible := true;'#13#10 + ' '#13#10' if isKoopKurs(Klausurkurse['#39'Bezeichnung'#39'])and(koopKlausure' + 'nAusblenden=1) then'#13#10' Detail.Visible := false;'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 77 5) end object raProgramInfo6: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Label7OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Label7OnGetText(var Text: String);'#13#10'begin'#13#10' '#13#10' if (K' + 'lausurschienen['#39'VonStunde'#39']<>Klausurschienen['#39'BisStunde'#39']) then'#13 + #10' Text := IntToStr(Klausurschienen['#39'VonStunde'#39']) + '#39'.-'#39' + In' + 'tToStr(Klausurschienen['#39'BisStunde'#39'])+'#39'.'#39#13#10' else'#13#10' Text := I' + 'ntToStr(Klausurschienen['#39'VonStunde'#39']) + '#39'.'#39';'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Label7' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 57 7) end object raProgramInfo13: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'findetStattOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure findetStattOnPrint;'#13#10'begin'#13#10' if (detaillierteDarstell' + 'ung and sehrDetaillierteDarstellung) then'#13#10' findetStatt.Font.' + 'Color := RGB(50,50,50) '#13#10' else'#13#10' findetStatt.Font.Color := R' + 'GB(255,255,255);'#13#10' end;'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'findetStatt' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 42 4) end object raProgramInfo14: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Label48OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Label48OnGetText(var Text: String);'#13#10'var'#13#10' '#13#10' von, b' + 'is: Integer;'#13#10' dauer_in_minuten: Integer;'#13#10' '#13#10'begin'#13#10#13#10' von :' + '= Klausurkurse['#39'VonStunde'#39'];'#13#10' bis := Klausurkurse['#39'BisStunde'#39']' + ';'#13#10' '#13#10' //dauer_in_minuten := (bis-von+1)*45;'#13#10' dauer_in_minut' + 'en := Klausurschienen['#39'Klausurdauer'#39'];'#13#10' '#13#10' Text := '#39'('#39'+IntT' + 'oStr(dauer_in_minuten)+'#39' min)'#39';'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Label48' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 55 13) end object raProgramInfo15: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Label49OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Label49OnGetText(var Text: String);'#13#10'var'#13#10' '#13#10' //von,' + ' bis: Integer;'#13#10' dauer_in_minuten: Integer;'#13#10' dauer_in_minuten' + '_h,dauer_in_minuten_m, startzeit_in_minuten, endzeit_in_minuten:' + ' Integer;'#13#10' startzeit, endzeit: DateTime;'#13#10' '#13#10' sh,sm,ss,sms: ' + 'Integer;'#13#10' eh,em,es,ems: Integer;'#13#10' zwischennull_s, zwischennu' + 'll_e :String;'#13#10' '#13#10'begin'#13#10#13#10' //von := Klausurkurse['#39'VonStunde'#39']' + ';'#13#10' //bis := Klausurkurse['#39'BisStunde'#39'];'#13#10#13#10' '#13#10' //dauer_in_min' + 'uten := (bis-von+1)*45;'#13#10' '#13#10' dauer_in_minuten := Klausurschien' + 'en['#39'Klausurdauer'#39'];'#13#10' '#13#10' dauer_in_minuten_m := dauer_in_minute' + 'n mod 60;'#13#10' dauer_in_minuten_h := (dauer_in_minuten-dauer_in_mi' + 'nuten_m) / 60; '#13#10' '#13#10' '#13#10' startzeit := EncodeTime(9,10,0,0);'#13#10' ' + ' '#13#10' '#13#10' //if (von=1) then startzeit := EncodeTime(8,0,0,0);'#13#10' ' + '//if (von=2) then startzeit := EncodeTime(9,10,0,0);'#13#10' //if (vo' + 'n=3) then startzeit := EncodeTime(10,30,0,0);'#13#10' //if (von=4) th' + 'en startzeit := EncodeTime(11,40,0,0);'#13#10' //if (von=5) then star' + 'tzeit := EncodeTime(11,50,0,0);'#13#10' //if (von=6) then startzeit :' + '= EncodeTime(12,35,0,0);'#13#10' //if (von=7) then startzeit := Encod' + 'eTime(13,50,0,0);'#13#10' //if (von=8) then startzeit := EncodeTime(1' + '4,35,0,0);'#13#10' '#13#10' startzeit := Klausurschienen['#39'Startzeit'#39'];'#13#10' ' + #13#10' '#13#10' '#13#10' DecodeTime(startzeit,sh,sm,ss,sms);'#13#10' startzeit_in' + '_minuten := sh*60+sm;'#13#10' endzeit_in_minuten := startzeit_in_minu' + 'ten+dauer_in_minuten;'#13#10' em := (endzeit_in_minuten) mod 60;'#13#10' e' + 'h := (endzeit_in_minuten-em) / 60;'#13#10' '#13#10' endzeit := EncodeTime(' + 'eh,em,ss,sms);'#13#10#13#10' DecodeTime(endzeit,eh,em,es,ems);'#13#10' '#13#10' zwi' + 'schennull_s := '#39#39';'#13#10' if (sm<10) then zwischennull_s := '#39'0'#39'; '#13#10' ' + ' '#13#10' zwischennull_e := '#39#39';'#13#10' if (em<10) then zwischennull_e := ' + #39'0'#39'; '#13#10' '#13#10' Text := IntToStr(sh)+'#39':'#39'+zwischennull_s+IntToStr(sm' + ')+'#39'-'#39'+IntToStr(eh)+'#39':'#39'+zwischennull_e+IntToStr(em);'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Label49' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 41 27) end end object ppDesignLayers6: TppDesignLayers object ppDesignLayer6: TppDesignLayer UserName = 'PageLayer1' LayerType = ltBanded Index = 0 end end end end object ppLabel19: TppLabel DesignLayer = ppDesignLayer5 UserName = 'Label19' Border.mmPadding = 0 Caption = 'Kurs' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 41804 mmTop = 1852 mmWidth = 6350 BandType = 4 LayerName = Foreground4 end object ppLabel20: TppLabel DesignLayer = ppDesignLayer5 UserName = 'Label20' Border.mmPadding = 0 Caption = 'Lehrer' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 54504 mmTop = 1852 mmWidth = 9525 BandType = 4 LayerName = Foreground4 end object ppLabel21: TppLabel DesignLayer = ppDesignLayer5 UserName = 'Label21' Border.mmPadding = 0 Caption = 'Schreiber' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 66940 mmTop = 1852 mmWidth = 13758 BandType = 4 LayerName = Foreground4 end object ppSubReport5: TppSubReport DesignLayer = ppDesignLayer5 UserName = 'SubReport5' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentWidth = False TraverseAllData = False DataPipelineName = 'ppBetroffeneKurse' mmHeight = 5027 mmLeft = 119543 mmTop = 665 mmWidth = 62890 BandType = 4 LayerName = Foreground4 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport5: TppChildReport AutoStop = False DataPipeline = dmPipelines.ppBetroffeneKurse PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Klausurplan mit Absenzen Prozente_mod.rtk' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 Template.Format = ftASCII Units = utMillimeters Version = '21.05' mmColumnWidth = 0 DataPipelineName = 'ppBetroffeneKurse' object ppTitleBand2: TppTitleBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 4763 mmPrintPosition = 0 object ppLabel22: TppLabel DesignLayer = ppDesignLayer7 UserName = 'Label12' Border.mmPadding = 0 Caption = 'Betroffene Kurse' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 2117 mmTop = 0 mmWidth = 24871 BandType = 1 LayerName = PageLayer2 end end object ppDetailBand7: TppDetailBand Visible = False Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 3175 mmPrintPosition = 0 object ppDBText17: TppDBText DesignLayer = ppDesignLayer7 UserName = 'AnzBetroffene' Border.mmPadding = 0 DataField = 'AnzahlBetroffene' DataPipeline = dmPipelines.ppBetroffeneKurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'ppBetroffeneKurse' mmHeight = 2910 mmLeft = 26458 mmTop = 265 mmWidth = 3175 BandType = 4 LayerName = PageLayer2 end object ppDBText18: TppDBText DesignLayer = ppDesignLayer7 UserName = 'DBText9' Border.mmPadding = 0 DataField = 'Bezeichnung' DataPipeline = dmPipelines.ppBetroffeneKurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'ppBetroffeneKurse' mmHeight = 2910 mmLeft = 2117 mmTop = 265 mmWidth = 8467 BandType = 4 LayerName = PageLayer2 end object ppLabel23: TppLabel DesignLayer = ppDesignLayer7 UserName = 'Label10' Border.mmPadding = 0 Caption = 'von' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 2646 mmLeft = 30692 mmTop = 265 mmWidth = 3175 BandType = 4 LayerName = PageLayer2 end object ppDBText19: TppDBText DesignLayer = ppDesignLayer7 UserName = 'DBText10' Border.mmPadding = 0 DataField = 'Groesse' DataPipeline = dmPipelines.ppBetroffeneKurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'ppBetroffeneKurse' mmHeight = 2910 mmLeft = 34925 mmTop = 265 mmWidth = 3704 BandType = 4 LayerName = PageLayer2 end object ppLabel24: TppLabel DesignLayer = ppDesignLayer7 UserName = 'Label11' Border.mmPadding = 0 Caption = 'SuS' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 39158 mmTop = 265 mmWidth = 3175 BandType = 4 LayerName = PageLayer2 end object ppDBText20: TppDBText DesignLayer = ppDesignLayer7 UserName = 'DBText11' Border.mmPadding = 0 DataField = 'LehrerKrz' DataPipeline = dmPipelines.ppBetroffeneKurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] Transparent = True DataPipelineName = 'ppBetroffeneKurse' mmHeight = 2910 mmLeft = 18256 mmTop = 265 mmWidth = 7673 BandType = 4 LayerName = PageLayer2 end object ppDBText21: TppDBText DesignLayer = ppDesignLayer7 UserName = 'DBText12' Border.mmPadding = 0 DataField = 'VonStunde' DataPipeline = dmPipelines.ppBetroffeneKurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] Transparent = True DataPipelineName = 'ppBetroffeneKurse' mmHeight = 2910 mmLeft = 11906 mmTop = 265 mmWidth = 4233 BandType = 4 LayerName = PageLayer2 end object ppLabel25: TppLabel DesignLayer = ppDesignLayer7 UserName = 'Label14' Border.mmPadding = 0 Caption = '-' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 13758 mmTop = 265 mmWidth = 529 BandType = 4 LayerName = PageLayer2 end object ppDBText22: TppDBText DesignLayer = ppDesignLayer7 UserName = 'DBText13' Border.mmPadding = 0 DataField = 'BisStunde' DataPipeline = dmPipelines.ppBetroffeneKurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] Transparent = True DataPipelineName = 'ppBetroffeneKurse' mmHeight = 2910 mmLeft = 15081 mmTop = 265 mmWidth = 2646 BandType = 4 LayerName = PageLayer2 end end object ppSummaryBand4: TppSummaryBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object raCodeModule5: TraCodeModule object raProgramInfo16: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'var '#13#10' i: Integer;'#13#10' '#13#10' von: ' + 'Integer;'#13#10' bis: Integer;'#13#10' '#13#10'begin'#13#10#13#10' Detail.Visible := (det' + 'aillierteDarstellung and sehrDetaillierteDarstellung and not (is' + 'KoopKurs(BetroffeneKurse['#39'Bezeichnung'#39'])and(koopKlausurenAusblen' + 'den=1));'#13#10' '#13#10' von := BetroffeneKurse['#39'VonStunde'#39'];'#13#10' bis := B' + 'etroffeneKurse['#39'BisStunde'#39'];'#13#10' '#13#10' for i:=von to bis do' + #13#10' begin '#13#10' setKurstundeBetroffen(BetroffeneKurse['#39'Bezeichnu' + 'ng'#39'], i, BetroffeneKurse['#39'AnzahlBetroffene'#39']); '#13#10' end; '#13#10' '#13 + #10#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 54 13) end object raProgramInfo17: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'TitleBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure TitleBeforePrint;'#13#10'begin'#13#10' Title.Visible := (detailli' + 'erteDarstellung and sehrDetaillierteDarstellung);'#13#10'end;'#13#10 raProgram.ComponentName = 'Title' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 54 3) end end object ppDesignLayers7: TppDesignLayers object ppDesignLayer7: TppDesignLayer UserName = 'PageLayer2' LayerType = ltBanded Index = 0 end end end end object ppLabel9: TppLabel DesignLayer = ppDesignLayer5 UserName = 'Label9' Border.mmPadding = 0 Caption = 'Klausurstunden' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 265 mmTop = 1852 mmWidth = 22490 BandType = 4 LayerName = Foreground4 end end object ppFooterBand3: TppFooterBand Visible = False Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 265 mmPrintPosition = 0 end object ppSummaryBand5: TppSummaryBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 265 mmPrintPosition = 0 end object ppGroup2: TppGroup BreakName = 'KlausurDatum' DataPipeline = dmPipelines.ppKlausurschienen GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False KeepTogether = True OutlineSettings.CreateNode = True StartOnOddPage = False UserName = 'Group2' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'ppKlausurschienen' NewFile = False object ppGroupHeaderBand2: TppGroupHeaderBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 12700 mmPrintPosition = 0 object ppDBText7: TppDBText DesignLayer = ppDesignLayer5 UserName = 'DBText7' AutoSize = True Border.mmPadding = 0 DataField = 'KlausurDatum' DataPipeline = dmPipelines.ppKlausurschienen Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 12 Font.Style = [fsBold] Transparent = True DataPipelineName = 'ppKlausurschienen' mmHeight = 5027 mmLeft = 529 mmTop = 4763 mmWidth = 19050 BandType = 3 GroupNo = 0 LayerName = Foreground4 end object ppLabel16: TppLabel DesignLayer = ppDesignLayer5 UserName = 'Label16' Border.mmPadding = 0 Caption = 'Label16' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 12 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 5292 mmLeft = 26723 mmTop = 4763 mmWidth = 13758 BandType = 3 GroupNo = 0 LayerName = Foreground4 end object ppLine3: TppLine DesignLayer = ppDesignLayer5 UserName = 'Line3' Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 2117 mmLeft = 529 mmTop = 10319 mmWidth = 196850 BandType = 3 GroupNo = 0 LayerName = Foreground4 end end object ppGroupFooterBand2: TppGroupFooterBand Border.mmPadding = 0 PrintHeight = phDynamic HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 13494 mmPrintPosition = 0 object ppLabel15: TppLabel DesignLayer = ppDesignLayer5 UserName = 'Label15' Border.mmPadding = 0 Caption = 'Betroffene Kurse:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 265 mmTop = 794 mmWidth = 25929 BandType = 5 GroupNo = 0 LayerName = Foreground4 end object ppSubReport8: TppSubReport DesignLayer = ppDesignLayer5 UserName = 'SubReport8' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentWidth = False TraverseAllData = False DataPipelineName = 'ppKurse' mmHeight = 4233 mmLeft = 112184 mmTop = 7408 mmWidth = 83873 BandType = 5 GroupNo = 0 LayerName = Foreground4 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport8: TppChildReport AutoStop = False DataPipeline = dmPipelines.ppKurse PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Klausurplan mit Absenzen Prozente_mod.rtk' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 Template.Format = ftASCII Version = '21.05' mmColumnWidth = 0 DataPipelineName = 'ppKurse' object ppTitleBand6: TppTitleBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 3175 mmPrintPosition = 0 object ppLabel11: TppLabel DesignLayer = ppDesignLayer10 UserName = 'Label1' Border.mmPadding = 0 Caption = 'Kurs' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 22225 mmTop = 529 mmWidth = 6350 BandType = 1 LayerName = PageLayer4 end object ppLabel17: TppLabel DesignLayer = ppDesignLayer10 UserName = 'Label401' Border.mmPadding = 0 Caption = 'Lehrer' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 38100 mmTop = 529 mmWidth = 6879 BandType = 1 LayerName = PageLayer4 end object ppLabel18: TppLabel DesignLayer = ppDesignLayer10 UserName = 'Label18' Border.mmPadding = 0 Caption = 'Stunde' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 9329 mmTop = 529 mmWidth = 9790 BandType = 1 LayerName = PageLayer4 end object ppLabel26: TppLabel DesignLayer = ppDesignLayer10 UserName = 'Label101' Border.mmPadding = 0 Caption = 'Betroffene SuS' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 48948 mmTop = 529 mmWidth = 13229 BandType = 1 LayerName = PageLayer4 end end object ppDetailBand10: TppDetailBand Visible = False Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 6085 mmPrintPosition = 0 object ppDBText1: TppDBText DesignLayer = ppDesignLayer10 UserName = 'DBText4' Border.mmPadding = 0 DataField = 'Bezeichnung' DataPipeline = dmPipelines.ppKurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'ppKurse' mmHeight = 3440 mmLeft = 22225 mmTop = 529 mmWidth = 11377 BandType = 4 LayerName = PageLayer4 end object ppLabel30: TppLabel DesignLayer = ppDesignLayer10 UserName = 'hinweis' Border.mmPadding = 0 Caption = 'hinweis' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 48948 mmTop = 529 mmWidth = 9790 BandType = 4 LayerName = PageLayer4 end object ppDBText9: TppDBText DesignLayer = ppDesignLayer10 UserName = 'DBText1' Border.mmPadding = 0 DataField = 'Lehrer' DataPipeline = dmPipelines.ppKurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'ppKurse' mmHeight = 3440 mmLeft = 38100 mmTop = 529 mmWidth = 8667 BandType = 4 LayerName = PageLayer4 end object ppLabel31: TppLabel DesignLayer = ppDesignLayer10 UserName = 'ausfall' Border.mmPadding = 0 Caption = 'ausfall' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 529 mmTop = 529 mmWidth = 8467 BandType = 4 LayerName = PageLayer4 end object ppLabel46: TppLabel DesignLayer = ppDesignLayer10 UserName = 'Label46' Border.mmPadding = 0 Caption = 'Label46' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 9329 mmTop = 529 mmWidth = 10054 BandType = 4 LayerName = PageLayer4 end end object ppSummaryBand8: TppSummaryBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 5555 mmPrintPosition = 0 object ppLabel33: TppLabel DesignLayer = ppDesignLayer10 UserName = 'keineKurse1' Border.mmPadding = 0 Caption = 'keine Kurse' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [fsItalic] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True Visible = False mmHeight = 3440 mmLeft = 9260 mmTop = 529 mmWidth = 13494 BandType = 7 LayerName = PageLayer4 end end object raCodeModule9: TraCodeModule object raProgramInfo18: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'var'#13#10' i: Integer;'#13#10#13#10' anwesender' + 'Anteil: Double;'#13#10' anzahlBetroffene,abwesendProzent: Integer;'#13#10' ' + ' '#13#10' moeglicheVorherigeErklaerung: String;'#13#10' '#13#10'begin'#13#10#13#10' stund' + 'enString := '#39#39';'#13#10' detailErklaerung := '#39#39';'#13#10' '#13#10' for i:= 0 to 1' + '0 do'#13#10' begin'#13#10' anzahlBetroffene := getAnzahlBetroffene(Kurse' + '['#39'Bezeichnung'#39'],i);'#13#10' '#13#10' if anzahlBetroffene>0 then'#13#10' b' + 'egin'#13#10' '#13#10' anwesenderAnteil := (Kurse['#39'Sch'#252'lerzahl'#39'] - ' + 'anzahlBetroffene)/Kurse['#39'Sch'#252'lerzahl'#39'];'#13#10' abwesendProzent :' + '= round((1-anwesenderAnteil)*100);'#13#10' '#13#10' if detailErkl' + 'aerung <> '#39#39' then'#13#10' detailErklaerung := detailErklaerung ' + '+ '#39', '#39';'#13#10' '#13#10' moeglicheVorherigeErklaerung := IntToStr(' + '{Kurse['#39'Sch'#252'lerzahl'#39'] - }anzahlBetroffene) + '#39'/'#39' + Kurse['#39'Sch'#252'le' + 'rzahl'#39'] + '#39' ('#39' + IntToStr(i-1)+ '#39' - '#39' + IntToStr(i-1)+'#39')'#39'+'#39', '#39';'#13 + #10' '#13#10' if detailErklaerung = moeglicheVorherigeErklaerun' + 'g then'#13#10' detailErklaerung := IntToStr(abwesendProzent) + ' + #39'%; '#39' + IntToStr({Kurse['#39'Sch'#252'lerzahl'#39'] - }anzahlBetroffene) + '#39'/' + #39' + Kurse['#39'Sch'#252'lerzahl'#39'] + '#39' ('#39' + IntToStr(i-1)+ '#39' - '#39' + IntToSt' + 'r(i)+'#39')'#39#13#10' else '#13#10' detailErklaerung := detailErk' + 'laerung + IntToStr(abwesendProzent) + '#39'%; '#39' + IntToStr({Kurse['#39'S' + 'ch'#252'lerzahl'#39'] - }anzahlBetroffene) + '#39'/'#39' + Kurse['#39'Sch'#252'lerzahl'#39'] +' + ' '#39' ('#39' + IntToStr(i)+ '#39' - '#39' + IntToStr(i)+'#39')'#39';'#13#10' '#13#10' if an' + 'wesenderAnteil <= ausfallGrenze then '#13#10' begin'#13#10' Deta' + 'il.Visible := true;'#13#10' if stundenString<>'#39#39' then'#13#10' ' + 'begin'#13#10' stundenString := stundenString + '#39' - '#39';'#13#10' ' + ' end;'#13#10' stundenString := stundenString + IntToStr(i); '#13#10 + ' end;'#13#10' end;'#13#10' end;'#13#10#13#10' '#13#10' if (stundenString='#39#39' or is' + 'Klausurkurs(Kurse['#39'Bezeichnung'#39']) or ((koopAusfallAusblenden=1) ' + 'and (Kurse['#39'IstKoopKurs'#39']=true))) then'#13#10' Detail.Visible:=fals' + 'e'#13#10' else'#13#10' anzahlAusfallendeKurse := anzahlAusfallendeKurse+' + '1;'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 48 8) end object raProgramInfo19: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'hinweisOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure hinweisOnGetText(var Text: String);'#13#10'begin'#13#10' '#13#10' Text' + ' := StundenStringBereinigung(detailErklaerung, false);'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'hinweis' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 59 4) end object raProgramInfo20: TraProgramInfo raClassName = 'TraVarProgram' raProgram.ChildType = 17 raProgram.ProgramName = 'Variables' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variables;'#13#10'var'#13#10' detailErklaerung: String;'#13#10' stunde' + 'nString: String;'#13#10#13#10'begin'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 25 3) end object raProgramInfo21: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'ausfallOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure ausfallOnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text :' + '= stundenString;'#13#10' '#13#10' If Pos('#39'-'#39',Text)=0 then'#13#10' Text := Tex' + 't + '#39' - '#39' + Text;'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'ausfall' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 24 4) end object raProgramInfo22: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'hinweisOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure hinweisOnPrint;'#13#10'begin'#13#10' hinweis.Visible := detaillie' + 'rteDarstellung;'#13#10'end;'#13#10 raProgram.ComponentName = 'hinweis' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 46 3) end object raProgramInfo23: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'keineKurse1OnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure keineKurse1OnPrint;'#13#10'begin'#13#10' keineKurse1.Visible := t' + 'rue;'#13#10' '#13#10' if anzahlAusfallendeKurse > 0 then'#13#10' begin'#13#10' kei' + 'neKurse1.Visible := false; '#13#10' '#13#10' end;'#13#10'end;'#13#10 raProgram.ComponentName = 'keineKurse1' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 5 8) end object raProgramInfo24: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Label46OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Label46OnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text :' + '= StundenStringBereinigung(ausfall.Text, false); '#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Label46' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 57 4) end end object ppDesignLayers10: TppDesignLayers object ppDesignLayer10: TppDesignLayer UserName = 'PageLayer4' LayerType = ltBanded Index = 0 end end end end object ppLabel29: TppLabel DesignLayer = ppDesignLayer5 UserName = 'Label29' Border.mmPadding = 0 Caption = 'Kurse, in denen Klausuren geschrieben werden:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 529 mmTop = 4763 mmWidth = 61648 BandType = 5 GroupNo = 0 LayerName = Foreground4 end object ppLabel34: TppLabel DesignLayer = ppDesignLayer5 UserName = 'Label34' Border.mmPadding = 0 Caption = 'weitere betroffene Kurse:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 121444 mmTop = 3704 mmWidth = 33602 BandType = 5 GroupNo = 0 LayerName = Foreground4 end object ppSubReport1: TppSubReport DesignLayer = ppDesignLayer5 UserName = 'SubReport1' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentWidth = False TraverseAllData = False DataPipelineName = 'ppKurse' mmHeight = 4233 mmLeft = 265 mmTop = 8202 mmWidth = 83873 BandType = 5 GroupNo = 0 LayerName = Foreground4 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = dmPipelines.ppKurse PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Klausurplan mit Absenzen Prozente_mod.rtk' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 Template.Format = ftASCII Version = '21.05' mmColumnWidth = 0 DataPipelineName = 'ppKurse' object ppTitleBand1: TppTitleBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 3440 mmPrintPosition = 0 object ppLabel10: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label10' Border.mmPadding = 0 Caption = 'Betroffene SuS' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 48948 mmTop = 529 mmWidth = 13229 BandType = 1 LayerName = Foreground1 end object ppLabel38: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label102' Border.mmPadding = 0 Caption = 'Stunde' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 529 mmTop = 529 mmWidth = 9790 BandType = 1 LayerName = Foreground1 end object ppLabel39: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label39' Border.mmPadding = 0 Caption = 'Kurs' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 22225 mmTop = 529 mmWidth = 6350 BandType = 1 LayerName = Foreground1 end object ppLabel40: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label40' Border.mmPadding = 0 Caption = 'Lehrer' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 38100 mmTop = 529 mmWidth = 6879 BandType = 1 LayerName = Foreground1 end end object ppDetailBand3: TppDetailBand Visible = False Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 6085 mmPrintPosition = 0 object ppDBText4: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText4' Border.mmPadding = 0 DataField = 'Bezeichnung' DataPipeline = dmPipelines.ppKurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'ppKurse' mmHeight = 3440 mmLeft = 22225 mmTop = 529 mmWidth = 11377 BandType = 4 LayerName = Foreground1 end object ppLabel12: TppLabel DesignLayer = ppDesignLayer2 UserName = 'hinweis' Border.mmPadding = 0 Caption = 'hinweis' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 48948 mmTop = 529 mmWidth = 9790 BandType = 4 LayerName = Foreground1 end object ppDBText5: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText1' Border.mmPadding = 0 DataField = 'Lehrer' DataPipeline = dmPipelines.ppKurse Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'ppKurse' mmHeight = 3440 mmLeft = 38100 mmTop = 529 mmWidth = 6879 BandType = 4 LayerName = Foreground1 end object ppLabel14: TppLabel DesignLayer = ppDesignLayer2 UserName = 'ausfall' Border.mmPadding = 0 Caption = 'ausfall' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 529 mmTop = 529 mmWidth = 8467 BandType = 4 LayerName = Foreground1 end object ppLabel28: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label28' Border.mmPadding = 0 Caption = '(Klausur)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [fsItalic] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 10054 mmTop = 1323 mmWidth = 7408 BandType = 4 LayerName = Foreground1 end object ppLabel44: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label44' Border.mmPadding = 0 Caption = 'Label44' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 529 mmTop = 529 mmWidth = 10054 BandType = 4 LayerName = Foreground1 end end object ppSummaryBand1: TppSummaryBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object raCodeModule3: TraCodeModule object raProgramInfo25: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'var'#13#10' i: Integer;'#13#10#13#10' anwesender' + 'Anteil: Double;'#13#10' anzahlBetroffene, abwesendProzent: Integer;'#13#10 + ' '#13#10' moeglicheVorherigeErklaerung: String;'#13#10' '#13#10'begin'#13#10#13#10' stun' + 'denString := '#39#39';'#13#10' detailErklaerung := '#39#39';'#13#10' '#13#10' for i:= 0 to ' + '10 do'#13#10' begin'#13#10' anzahlBetroffene := getAnzahlBetroffene(Kurs' + 'e['#39'Bezeichnung'#39'],i);'#13#10' '#13#10' if anzahlBetroffene>0 then'#13#10' ' + 'begin'#13#10' '#13#10' anwesenderAnteil := (Kurse['#39'Sch'#252'lerzahl'#39'] -' + ' anzahlBetroffene)/Kurse['#39'Sch'#252'lerzahl'#39'];'#13#10' abwesendProzent ' + ':= round((1-anwesenderAnteil)*100);'#13#10' '#13#10' if detailErkl' + 'aerung <> '#39#39' then'#13#10' detailErklaerung := detailErklaerung ' + '+ '#39', '#39';'#13#10' '#13#10' moeglicheVorherigeErklaerung := IntToStr(' + '{Kurse['#39'Sch'#252'lerzahl'#39'] - }anzahlBetroffene) + '#39'/'#39' + Kurse['#39'Sch'#252'le' + 'rzahl'#39'] + '#39' ('#39' + IntToStr(i-1)+ '#39' - '#39' + IntToStr(i-1)+'#39')'#39'+'#39', '#39';'#13 + #10' '#13#10' if detailErklaerung = moeglicheVorherigeErklaerun' + 'g then'#13#10' detailErklaerung := IntToStr(abwesendProzent) + ' + #39'%; '#39' + IntToStr({Kurse['#39'Sch'#252'lerzahl'#39'] - }anzahlBetroffene) + '#39'/' + #39' + Kurse['#39'Sch'#252'lerzahl'#39'] + '#39' ('#39' + IntToStr(i-1)+ '#39' - '#39' + IntToSt' + 'r(i)+'#39')'#39#13#10' else '#13#10' detailErklaerung := detailErk' + 'laerung + IntToStr(abwesendProzent) + '#39'%; '#39' + IntToStr({Kurse['#39'S' + 'ch'#252'lerzahl'#39'] - }anzahlBetroffene) + '#39'/'#39' + Kurse['#39'Sch'#252'lerzahl'#39'] +' + ' '#39' ('#39' + IntToStr(i)+ '#39' - '#39' + IntToStr(i)+'#39')'#39';'#13#10' '#13#10' if an' + 'wesenderAnteil <= ausfallGrenze then '#13#10' begin'#13#10' Deta' + 'il.Visible := true;'#13#10' if stundenString<>'#39#39' then'#13#10' ' + 'begin'#13#10' stundenString := stundenString + '#39' - '#39';'#13#10' ' + ' end;'#13#10' stundenString := stundenString + IntToStr(i); '#13#10 + ' end;'#13#10' end;'#13#10' end;'#13#10#13#10' '#13#10' if (stundenString='#39#39' or no' + 't isKlausurkurs(Kurse['#39'Bezeichnung'#39']) or ((koopAusfallAusblenden' + '=1) and (Kurse['#39'IstKoopKurs'#39']=true))) then'#13#10' Detail.Visible:=' + 'false'#13#10' else'#13#10' anzahlAusfallendeKurse := anzahlAusfallendeKu' + 'rse+1;'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 73 28) end object raProgramInfo26: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'hinweisOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure hinweisOnGetText(var Text: String);'#13#10'begin'#13#10' '#13#10' Text' + ' := StundenStringBereinigung(detailErklaerung, false);'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'hinweis' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 59 4) end object raProgramInfo27: TraProgramInfo raClassName = 'TraVarProgram' raProgram.ChildType = 17 raProgram.ProgramName = 'Variables' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variables;'#13#10'var'#13#10' detailErklaerung: String;'#13#10' stunde' + 'nString: String;'#13#10#13#10#13#10'begin'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 1 4) end object raProgramInfo28: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'ausfallOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure ausfallOnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text :' + '= stundenString;'#13#10' '#13#10' If Pos('#39'-'#39',Text)=0 then'#13#10' Text := Tex' + 't + '#39' - '#39' + Text;'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'ausfall' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 24 4) end object raProgramInfo29: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'hinweisOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure hinweisOnPrint;'#13#10'begin'#13#10' hinweis.Visible := detaillie' + 'rteDarstellung;'#13#10'end;'#13#10 raProgram.ComponentName = 'hinweis' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 46 3) end object raProgramInfo30: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 19 raProgram.ProgramName = 'GlobalOnCreate' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure GlobalOnCreate;'#13#10'begin'#13#10' anzahlAusfallendeKurse:=0;'#13#10 + 'end;'#13#10 raProgram.CaretPos = ( 25 3) end object raProgramInfo31: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'ReportOnStartFirstPass' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure ReportOnStartFirstPass;'#13#10'begin'#13#10' anzahlAusfallendeKur' + 'se:=0;'#13#10'end;'#13#10 raProgram.ComponentName = 'Report' raProgram.EventName = 'OnStartFirstPass' raProgram.EventID = 20 raProgram.CaretPos = ( 25 3) end object raProgramInfo32: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Label28OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Label28OnGetText(var Text: String);'#13#10'begin'#13#10' if isKla' + 'usurkurs(Kurse['#39'Bezeichnung'#39']) then '#13#10' Text := '#39'(Klausur)'#39#13#10' ' + ' else'#13#10' Text := '#39#39';'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Label28' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 14 4) end object raProgramInfo33: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Label10OnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Label10OnPrint;'#13#10'begin'#13#10' Label10.Visible := detaillie' + 'rteDarstellung;'#13#10'end;'#13#10 raProgram.ComponentName = 'Label10' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 10 3) end object raProgramInfo34: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Label44OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Label44OnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text :' + '= StundenStringBereinigung(ausfall.Text, false);'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Label44' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 60 4) end end object ppDesignLayers2: TppDesignLayers object ppDesignLayer2: TppDesignLayer UserName = 'Foreground1' LayerType = ltBanded Index = 0 end end end end end end object raCodeModule1: TraCodeModule object raProgramInfo35: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Label16OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Label16OnGetText(var Text: String);'#13#10'begin'#13#10' Text :=' + ' Klausurschienen['#39'KlausurWochentag'#39'];'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Label16' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 47 3) end object raProgramInfo36: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 19 raProgram.ProgramName = 'GlobalOnCreate' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure GlobalOnCreate;'#13#10'var'#13#10' aktuelleStringListe: TStringLi' + 'st;'#13#10' i: Integer;'#13#10#13#10'begin'#13#10' listeBetroffeneKurse := TList.Cre' + 'ate;'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 40 7) end object raProgramInfo37: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 20 raProgram.ProgramName = 'GlobalOnDestroy' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure GlobalOnDestroy;'#13#10'begin'#13#10#13#10' listeBetroffeneKurseLeere' + 'n; '#13#10' '#13#10' listeBetroffeneKurse.free;'#13#10' '#13#10'end;'#13#10 raProgram.CaretPos = ( 1 3) end object raProgramInfo38: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Line3OnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Line3OnPrint;'#13#10'var'#13#10' i: Integer;'#13#10' liste: TStringLis' + 't;'#13#10'begin'#13#10' listeBetroffeneKurseLeeren;'#13#10' anzahlAusfallendeKur' + 'se := 0;'#13#10' anzahlStattfindendeKurse := 0;'#13#10' '#13#10'end;'#13#10 raProgram.ComponentName = 'Line3' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 25 7) end object raProgramInfo39: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.ProgramName = 'listeBetroffeneKurseLeeren' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure listeBetroffeneKurseLeeren;'#13#10'var'#13#10' i: Integer;'#13#10' lis' + 'te: TStringList;'#13#10'begin'#13#10#13#10' for i:=0 to listeBetroffeneKurse.co' + 'unt-1 do'#13#10' begin'#13#10' liste := listeBetroffeneKurse.Items[i]; '#13 + #10' liste.free;'#13#10' end; '#13#10' '#13#10' listeBetroffeneKurse.free;'#13#10' ' + 'listeBetroffeneKurse := TList.create;'#13#10' '#13#10'end;'#13#10 raProgram.CaretPos = ( 40 3) end object raProgramInfo40: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.ProgramName = 'setKurstundeBetroffen' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure setKurstundeBetroffen(kursBez: String; stunde: Integer' + '; anzahlBetroffene: Integer);'#13#10'var '#13#10' stundenListe: TStringList' + ';'#13#10' i: Integer;'#13#10' kursBereitsVorhanden: Boolean;'#13#10' bisherigeB' + 'etroffene: Integer;'#13#10'begin'#13#10' kursBereitsVorhanden := false;'#13#10' ' + ' '#13#10' for i:=0 to listeBetroffeneKurse.count-1 do '#13#10' begin'#13#10 + ' stundenListe := listeBetroffeneKurse.Items[i];'#13#10' '#13#10' i' + 'f stundenListe.Strings[0]=kursBez then'#13#10' begin'#13#10' kursBer' + 'eitsVorhanden := true; '#13#10#13#10' if stundenListe.IndexOfNam' + 'e(IntToStr(stunde))>=0 then'#13#10' begin'#13#10' bisherigeBetro' + 'ffene := StrToInt(stundenListe.Values[IntToStr(stunde)]);'#13#10' ' + ' stundenListe.Values[IntToStr(stunde)] := IntToStr(bisherigeBe' + 'troffene + anzahlBetroffene);'#13#10' end else begin'#13#10' stu' + 'ndenListe.add(IntToStr(stunde) + '#39'='#39' + IntToStr(anzahlBetroffene' + ')); '#13#10' end;'#13#10' end;'#13#10' '#13#10' end; '#13#10#13#10' if kursB' + 'ereitsVorhanden=false then'#13#10' begin'#13#10' stundenListe := TString' + 'List.Create;'#13#10' stundenListe.add(kursBez);'#13#10' stundenListe.a' + 'dd(IntToStr(stunde) + '#39'='#39' + IntToStr(anzahlBetroffene));'#13#10' li' + 'steBetroffeneKurse.add(stundenListe); '#13#10' end; '#13#10' '#13#10'end;'#13#10 raProgram.CaretPos = ( 50 11) end object raProgramInfo41: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'getAnzahlBetroffene' raProgram.ProgramType = ttFunction raProgram.Source = 'function getAnzahlBetroffene(kursBez: String; stunde: Integer): ' + 'Integer;'#13#10'var '#13#10' stundenListe: TStringList;'#13#10' i,j: Integer;'#13#10#13 + #10'begin'#13#10' Result := 0;'#13#10' '#13#10' for i:=0 to listeBetroffeneKur' + 'se.count-1 do '#13#10' begin'#13#10' stundenListe := listeBetroffeneKur' + 'se.Items[i];'#13#10' '#13#10' if stundenListe.Strings[0]=kursBez then' + #13#10' begin'#13#10' '#13#10' if stundenListe.IndexOfName(IntToStr(' + 'stunde))>=0 then'#13#10' begin'#13#10' Result := StrToInt(stunde' + 'nListe.Values[IntToStr(stunde)]);'#13#10' end;'#13#10' end; '#13#10' e' + 'nd; '#13#10' '#13#10'end;'#13#10 raProgram.CaretPos = ( 63 18) end object raProgramInfo44: TraProgramInfo raClassName = 'TraVarProgram' raProgram.ChildType = 17 raProgram.ProgramName = 'Variables' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variables;'#13#10'var'#13#10' listeBetroffeneKurse: TList;'#13#10' '#13#10' ' + ' // Die "listeBetroffeneKurse" ist eine TList, die TStringLists ' + 'enth'#228'lt.'#13#10' // Von der TStringList besteht das erste Element aus' + ' der Kursbezeichnung,'#13#10' // es folgen die betroffenen Stunden in' + ' der Form'#13#10' // Stunde=AnzahlBetroffene '#13#10' '#13#10' // Beispiel: M-G' + 'K3 ist 1.-3. Stunde betroffen'#13#10' '#13#10' // aktuelleStringListe := T' + 'StringList.Create;'#13#10' // aktuelleStringListe.add('#39'M-GK3'#39');'#13#10' //' + ' aktuelleStringListe.add('#39'1=24'#39');'#13#10' // aktuelleStringListe.add(' + #39'2=25'#39');'#13#10' // aktuelleStringListe.add('#39'3=26'#39');'#13#10' '#13#10' // liste' + 'BetroffeneKurse.add(aktuelleStringListe); '#13#10' '#13#10' '#13#10' anzahl' + 'AusfallendeKurse: Integer;'#13#10' anzahlStattfindendeKurse: Integer;' + #13#10#13#10'begin'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 27 21) end object raProgramInfo45: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.ProgramName = 'setKlausurkurs' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure setKlausurkurs(kursBez: String);'#13#10'var'#13#10' i: Integer;'#13#10 + ' stundenListe: TStringList;'#13#10'begin'#13#10' for i:=0 to listeBetroffe' + 'neKurse.count-1 do '#13#10' begin'#13#10' stundenListe := listeBetroffe' + 'neKurse.Items[i];'#13#10' '#13#10' if stundenListe.Strings[0]=kursBez' + ' then'#13#10' begin'#13#10' if stundenListe.IndexOfName('#39'Klausurkurs' + #39')<0 then'#13#10' begin'#13#10' stundenListe.add('#39'Klausurkurs=ja' + #39'); '#13#10' end;'#13#10' end;'#13#10' '#13#10' end; '#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 46 3) end object raProgramInfo46: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'isKlausurkurs' raProgram.ProgramType = ttFunction raProgram.Source = 'function isKlausurkurs(kursBez: String): Boolean;'#13#10'var'#13#10' i: Int' + 'eger;'#13#10' stundenListe: TStringList;'#13#10'begin'#13#10' Result := false;'#13#10 + ' '#13#10' for i:=0 to listeBetroffeneKurse.count-1 do '#13#10' begin'#13#10' ' + ' stundenListe := listeBetroffeneKurse.Items[i];'#13#10' '#13#10' if ' + 'stundenListe.Strings[0]=kursBez then'#13#10' begin'#13#10' if stunde' + 'nListe.IndexOfName('#39'Klausurkurs'#39')>=0 then'#13#10' begin'#13#10' ' + 'Result := true; '#13#10' end;'#13#10' end; '#13#10' end; '#13#10#13#10 + 'end;'#13#10 raProgram.CaretPos = ( 46 5) end object raProgramInfo47: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'isKoopKurs' raProgram.ProgramType = ttFunction raProgram.Source = 'function isKoopKurs(kursBez: String): Boolean;'#13#10'var'#13#10' suchStrKu' + 'rs: String;'#13#10'begin'#13#10' Result := false;'#13#10' if (koopAusfallAusblen' + 'den = 1) then'#13#10' begin'#13#10' suchStrKurs := '#39', '#39' + kursBez + '#39', '#39 + ';'#13#10' if Pos(suchStrKurs, koopKurse) <> 0 then'#13#10' Result :=' + ' true;'#13#10' '#13#10' end;'#13#10' '#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 22 10) end end object ppDesignLayers5: TppDesignLayers object ppDesignLayer5: TppDesignLayer UserName = 'Foreground4' LayerType = ltBanded Index = 0 end end end end end object ppFooterBand2: TppFooterBand Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroup1: TppGroup BreakName = 'TerminNr' GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False OutlineSettings.CreateNode = True NewPage = True StartOnOddPage = False UserName = 'Group1' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = '' NewFile = False object ppGroupHeaderBand1: TppGroupHeaderBand Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 6085 mmPrintPosition = 0 end object ppGroupFooterBand1: TppGroupFooterBand Border.mmPadding = 0 HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end end object raCodeModule2: TraCodeModule object raProgramInfo117: TraProgramInfo raClassName = 'TraVarProgram' raProgram.ChildType = 17 raProgram.ProgramName = 'Variables' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variables;'#13#10'var'#13#10' detaillierteDarstellung: Boolean; '#13 + #10' sehrDetaillierteDarstellung: Boolean; '#13#10' stundenG: String;'#13#10 + ' stundenU: String;'#13#10' '#13#10' koopKurse: String;'#13#10' '#13#10#13#10'begin'#13#10#13#10'en' + 'd;'#13#10 raProgram.CaretPos = ( 27 5) end object raProgramInfo118: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 19 raProgram.ProgramName = 'GlobalOnCreate' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure GlobalOnCreate;'#13#10'var'#13#10' lOption: Integer;'#13#10'begin'#13#10#13#10' ' + 'ResetKlausurTermin;'#13#10' '#13#10' KlausurterminWaehlen;'#13#10' '#13#10' detail' + 'lierteDarstellung:= false;'#13#10' '#13#10' lOption:=1;'#13#10' '#13#10' if lOption ' + '< 2 then'#13#10' detaillierteDarstellung:= true; '#13#10' '#13#10' if lOpti' + 'on = 0 then'#13#10' sehrDetaillierteDarstellung:=true;'#13#10' '#13#10' stu' + 'ndenG := '#39', '#39';'#13#10' stundenU := '#39', '#39';'#13#10' koopKurse := '#39', '#39';'#13#10'end;'#13 + #10 raProgram.CaretPos = ( 3 8) end object raProgramInfo119: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'getStundenCode' raProgram.ProgramType = ttFunction raProgram.Source = 'function getStundenCode(kursBez:String; ungerade: Boolean; tag: ' + 'Integer; stunde: Integer): String;'#13#10'var'#13#10' GU: String;'#13#10'begin ' + ' '#13#10' '#13#10' if ungerade=true then'#13#10' GU := '#39'U'#39#13#10' else'#13#10' G' + 'U := '#39'G'#39'; '#13#10' ' + ' '#13#10' Result := kursBez + '#39'-'#39' + GU + '#39'-'#39' + IntToStr(tag) + '#39'-' + #39' + IntToStr(stunde);'#13#10' '#13#10'end;'#13#10 raProgram.CaretPos = ( 34 11) end object raProgramInfo120: TraProgramInfo raClassName = 'TraConstProgram' raProgram.ChildType = 18 raProgram.ProgramName = 'Constants' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Constants;'#13#10'const'#13#10' ausfallGrenze = 1; // Sobald d' + 'iese Grenze erreicht ist, wird vorgeschlagen, den Kurs ausfallen' + ' zu lassen.'#13#10' // (Die angegebene Grenze' + ' selbst f'#252'rt auch bereits zum Ausfall.)'#13#10' '#13#10' koopKlausurenAusb' + 'lenden = 1; // Koop-Klausuren k'#246'nnen ausgeblendet werden. (M'#246'gli' + 'chkeiten: 1=ja oder 0=nein)'#13#10' //' + ' (Dann auch koopAusfallAusblenden verwenden.)'#13#10' ' + ' '#13#10' koopAusfallAusblenden = 1; // Koop-Kurse ' + 'k'#246'nnen ausgeblendet werden. (M'#246'glichkeiten: 1=ja oder 0=nein)'#13#10' ' + ' '#13#10#13#10'begin'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 20 2) end object raProgramInfo121: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'isUngeradeWoche' raProgram.ProgramType = ttFunction raProgram.Source = 'function isUngeradeWoche(datum: Date): Boolean;'#13#10'var'#13#10' jahr, mo' + 'nat, tag: Integer; '#13#10' Erster: TDate;'#13#10' Kalenderwoche: Integer;' + ' '#13#10'begin'#13#10#13#10' DecodeDate(datum + ((8 - datum)) mod 7) - 3, jahr,' + ' monat, tag); '#13#10' Erster := EncodeDate(jahr, 1, 1); '#13#10' Kalender' + 'woche := Trunc(datum - Erster - 3 + (DayOfWeek(Erster) + 1) mod ' + '7) div 7 + 1;'#13#10' '#13#10' if (Kalenderwoche mod 2 = 1) then'#13#10' Resu' + 'lt := true'#13#10' else '#13#10' Result := false;'#13#10' '#13#10'end;'#13#10 raProgram.CaretPos = ( 1 7) end object raProgramInfo122: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'isStundeImPlan' raProgram.ProgramType = ttFunction raProgram.Source = 'function isStundeImPlan(kursBez:String; datum: Date; stunde: Int' + 'eger): Boolean;'#13#10'var'#13#10' stundenCode: String;'#13#10'begin'#13#10' Result :=' + ' false;'#13#10' '#13#10' stundenCode := '#39', '#39' + getStundenCode(kursBez, isU' + 'ngeradeWoche(datum), getTag(datum), stunde);'#13#10' '#13#10' if isUngerad' + 'eWoche(datum) = true then'#13#10' begin '#13#10' if Pos(stundenCode,' + ' stundenU) <> 0 then'#13#10' Result := true;'#13#10' end else begin'#13#10' ' + ' if Pos(stundenCode, stundenG) <> 0 then'#13#10' Result := true' + ';'#13#10' end;'#13#10'end;'#13#10 raProgram.CaretPos = ( 21 7) end object raProgramInfo123: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'getTag' raProgram.ProgramType = ttFunction raProgram.Source = 'function getTag(datum: Date): Integer;'#13#10'begin'#13#10#13#10' Result := Da' + 'yOfWeek(datum-1);'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 18 3) end object raProgramInfo124: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'StundenStringBereinigung' raProgram.ProgramType = ttFunction raProgram.Source = 'function StundenStringBereinigung(vorherString: String; mitStund' + 'e: Boolean): String;'#13#10'var'#13#10' arbeitsString, suchString, ersetzStr' + 'ing: String;'#13#10' von, bis: Integer;'#13#10'begin'#13#10' arbeitsString := vor' + 'herString;'#13#10' for von:=0 to 8 do'#13#10' begin'#13#10' for bis:=0 to 8 do' + #13#10' begin'#13#10' suchString := IntToStr(von)+'#39' - '#39'+IntToStr(' + 'bis); '#13#10' if von<>bis then'#13#10' ersetzString := IntToS' + 'tr(von)+'#39'.-'#39'+IntToStr(bis)+'#39'.'#39#13#10' else'#13#10' ersetzStri' + 'ng := IntToStr(von)+'#39'.'#39';'#13#10' '#13#10' if mitStunde=true th' + 'en'#13#10' ersetzString := ersetzString + '#39' Stunde'#39';'#13#10' ' + ' '#13#10' if Pos(suchString, arbeitsString) <> 0 then'#13#10' ' + 'arbeitsString:=StringReplaceAll(arbeitsString , suchString, ers' + 'etzString ,true);'#13#10' end;'#13#10' end;'#13#10' '#13#10' Result := arbeitsStr' + 'ing;'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 33 13) end object raProgramInfo79: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 20 raProgram.ProgramName = 'GlobalOnDestroy' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure GlobalOnDestroy;'#13#10'begin'#13#10' ResetKlausurTermin'#13#10'end;'#13#10 raProgram.CaretPos = ( 1 4) end end object ppDesignLayers4: TppDesignLayers object ppDesignLayer4: TppDesignLayer UserName = 'Foreground3' LayerType = ltBanded Index = 0 end end object ppParameterList1: TppParameterList end end