Epchalfächer bzw. Abgeschlossene Fächer markieren

[Kurosinski]

Ich bin gerade dabei, einen Report zur "Leistungsübersicht" nach unseren Bedürfnissen anzupassen.

Im Konferenzmodul und der Übersicht in Schild werden abgeschlossene Fächer "markiert".

Wo finde ich die passenden Einträge in der Datenbank, um zb "Musik, Klasse 8" auf meiner Übersicht darzustellen?

Danke für die Hilfe!

[Gerhards]

Hallo,
am besten hängen Sie den Report hier an, dann kann man sich das direkt ansehen.

[Kurosinski]

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":

Konferenzliste (aktAbschnitt mit Lernbereichen)2 nur Noten.rtm

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

(40.87 KiB) 87-mal heruntergeladen

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:

Code: Alles auswählen

  Text := HinweisAlteFaecher(Report.DataPipeline);

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:

Code: Alles auswählen

  ES_AnzAb := EigeneSchule['AnzahlAbschnitte'];

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.

Konferenzliste (aktAbschnitt mit Lernbereichen)2 nur Noten.rtm

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

(40.87 KiB) 87-mal heruntergeladen

Konferenzliste (aktAbschnitt mit Zuweisungen)2.rtm

mit "!" bei Warnung, Fachlehrer, größeres Feld für Kursbezeichnung, Kursart gelöscht

(38.57 KiB) 76-mal heruntergeladen

Konferenzliste (aktAbschnitt mit Zuweisungen) 2 nur Noten.rtm

nur Noten": in Zeile nur Note und ggf. "!" Mahnung, daher mehr Platz für Schüler auf einer Seite

(36.38 KiB) 76-mal heruntergeladen

[Kurosinski]

Leider scheint es noch einen Fehler im Bereich "Epochalfächer" zu geben.
Anscheinend wird die If Abfrage gar nicht erreicht.

Daher erscheinen Fächer aus dem ersten Halbjahr als "Klasse 9".

Habe jetzt jedoch keine Zeit, danach zu suchen.

... Ich habe die (gemeine) Lösung durch Studium im Rap-Code gefunden.
... und oben in meinem Lösungsthread ergänzt.

Auch der geänderte, richtige Report wird angehängt.

NEIN, läuft derzeit doch nicht richtig.
Bei einem Schüler ja, bei mehreren auch noch, aber bei einer ganzen Klasse nicht.

[Kurosinski]

Hm...
Ich bekomme es nicht hin.

Ich vermute, dass der Fehler hier liegt:

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;

Das Ergebnis bei einer Klasse ist: Der erste Schüler bekommt im Bereich MuKuTx noch eine "0" - also aktuelles Jahr.
Die restlichen SchülerInnen erhalten eine Note aus Jahrgang 8 oder 9 - zumindest erscheint es so in dem Report.
Obwohl die Fächer nur im Jahrgang 10 eingetragen sind.

Woran liegt das? Noch nicht abgeschlossen? Keine Abschlussberechnung?
Ich bekomme es nicht hin, wie gewünscht.

HILFE!

[Kurosinski]

Anbei mal ein Bild, um zu erklären, was falsch dargestellt ist.

noten.jpg (47.69 KiB) 1326 mal betrachtet

In der letzten Zeile stammt die Note für TX aus dem HJ1 Klasse 10 - nicht wie dargstellt aus Klasse 9.
Die 5 ist eine Note aus dem 2. HJ, Klasse 10 - nicht wie dargestellt aus Klasse 8.

Darüber ist es ähnlich. Immer wieder taucht Klasse 9 (für das erste Halbjahr aus 10) auf.

Weiß jemand Rat?