Code: Alles auswählen
SetUebersichtEx(True,'Q1,Q2,12,13,02,03');Schön wäre natürlich, wenn die (ASD-)Jahrgänge am BK nicht 01, 02 und 03 heißen würden. Denn diese werden ja auch in der Übersicht angezeigt und müssten im Code noch ersetzt werden...
Moderatoren: A. Schüller, Raffenberg, Pfotenhauer
Code: Alles auswählen
SetUebersichtEx(True,'Q1,Q2,12,13,02,03');Code: Alles auswählen
procedure JahrgangOnGetText(var Text: String);
var
stufe: String;
begin
// ASDJahrgang (Stufe) für BKs anpassen
stufe := Report.DatapiPeline['ASDJahrgang'];
if (stufe = '02') then stufe := 'Q1';
if (stufe = '03') then stufe := 'Q2';
//Jahrgang und Abschnitt ausgeben
Text := stufe + '.' + IntToStr(Report.DatapiPeline['Abschnitt'])
end;