Hallo Herr Gerhards, liebe Kollegen,
[update: einige Änderungen im Code ergänzt]
ich habe es mit Hilfe der Zeugnis-Reports doch selbst ganz ansehnlich hinbekommen.
Und hänge das Ergebnis hier mal an.
Ausgangspunkt meiner Veränderungen ist der in der Basic-Reportsammlung enthaltene Report
"Konferenzliste (akt. Abschnitt mit Zuweisungen)", der sich im Ordner 7_Konfernzen befindet.
Vielen Dank an den Ersteller des Reports, der mir sehr gut gefällt.
Ich habe den Report in mehreren Varianten überarbeitet:
-"Konferenzliste (akt. Abschnitt mit Zuweisungen)2": mit "!" bei Warnung, Fachlehrer, größeres Feld für Kursbezeichnung, Kursart gelöscht
-"Konferenzliste (akt. Abschnitt mit Zuweisungen)2 nur Noten": in Zeile nur Note und ggf. "!" Mahnung, daher mehr Platz für Schüler auf einer Seite
-"Konferenzliste (akt. Abschnitt mit Lernbereichen)2 nur Noten":
geignet für Abschlüsse/Abgänger in 10 (oder 9): in Zeile nur Note und ggf. "!" Mahnung und kleine Extra-Zeile für abgeschlossene Fächer, außerdem Überblick über die Lernbereichsnoten statt E-/G-Kurs-Zuweisungen.
Für den letzten Report hätte ich Hilfe brauchen können, habe es aber selbst passabel hinbekommen.
Es sind jedoch einige Änderungen, die ich hier gerne noch für Interessierte hinterlege:
1. Ein Textfeld an passender Stelle (Note, Fachbezeichnung etc.) erstellen - hat bei mir den Namen "altefaecher"
Bei "ongettext" genügt folgender Code:
2. Eine function erstellen:
Programme (rechtsklick oben links, dann verwendete Module) -> rechtes Feld rechtsklick "neue Funktion" -> Copy and paste:
Code: Alles auswählen
function HinweisAlteFaecher(pDataPipeline: TppDataPipeline): string;
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;
Result := lText;
end;
3. passende Variable bei Deklarationen einfügen:
Code: Alles auswählen
vorher_abgeschl_faecher: boolean;
zweites_Halbjahr: boolean;
ES_AnzAb: integer;
4. In der procedure ReportBeforePrint noch eingefügt:
5. Im Detailbereich des Reports noch bei BeforeGenerate folgendes ergänzt:
Code: Alles auswählen
vorher_abgeschl_faecher := false;
zweites_Halbjahr := ((ES_AnzAb = 2) and (Lernabschnitte['Abschnitt'] = 2)) or ((ES_AnzAb = 4) and (Lernabschnitte['Abschnitt'] > 2));
Hoffe, es hilft jemandem.
Noch einmal: Danke für den Vorlagen-Report.