ich bin leider immer noch auf der Suche nach einer Lösung für meine Leistungsübersicht.
Ich möchte in dieser Übersicht auch die Noten der abgeschlossenen Fächer (MuKuTx) - mit dem Jahr aus dem diese geholt wurden - anzeigen.
Soweit ich herausgefunden habe, sollte ein Eintrag in
Fachuebersicht['Hochrechnung'] oder
BKAbschlussFaecher['Hochrechnung' oder
pDataPipeline['Hochrechnung']
zu einer passenden negativen Zahl führen.
Leider bei mir nicht.
In der Übersicht S1 sind die Fächer passend zu sehen: Im jeweiligen Jahr mit Note und im aktuellen mit *-Sternchen.
Sie sind also irgendwie richtig in der Datenbank vorhanden.
Nur WO?
EDIT:
Ich habe etwas experimentiert und das folgende Bild angehängt:
Es sieht zunächst etwas chaotisch aus.
Zur Erklärung:
Es sind die Noten der jeweiligen Fächer dargestellt, auch Epochalnoten und geholte Noten aus früheren Jahren.
In der Zeile unter dem Noteneintrag versteckt sich die Info: [+/-]v-h[JAHR]
Diese habe ich aus
pDataPipeline['VorherAbgeschl'] und
IntToStr(pDataPipeline['Hochrechnung'])
bekommen.
Warum: Ich möchte Halbjahresfächer und Noten aus vorherigen Jahrgängen in einer Übersicht darstellen.
Nun habe ich experimentell dem ersten Schüler im Fach PP eine Note in Klasse 8 gegeben. Das lässt sich richtig darstellen
ABER: alle folgenden Schüler haben auch diese Jahr (aus Hochrechnung) als benotetes Jahr.
Das ist falsch.
Schüler 7 habe ich im Jahr 9 eine 1 in PP gegeben. Ab da haben alle folgenden Schüler auch das Jahr 9 in Hochrechnung.
Wie kann ich hier eine Aktualisierung einbauen?
Ich verwende den folgenden Code aus den Zeugnissen - allerdings eingabaut in eine Übersicht.
Code: Alles auswählen
var
lText: string;
begin
if pDataPipeline['Hochrechnung'] < 0
then begin
lText := '(Kl. ' + IntToStr(pDataPipeline['Hochrechnung']*-1) + ')';
//vorher_abgeschl_faecher := true;
end
else begin
if zweites_halbjahr and (pDataPipeline['VorherAbgeschl'] = '+')
then lText := '(1. Hj)'
else lText := '';
end;
ltext := pDataPipeline['VorherAbgeschl'] + 'v-h' + IntToStr(pDataPipeline['Hochrechnung']) ;
Result := lText;
end;Im Anhang noch der entsprechende Report.
Danke für die Hilfe
