Fächerbezeichnung streichen

[masbou]

Hallo nochmals,

ich versuche Fächer, die Nicht erteilt (NE) sind zu streichen. Nach folgendem Code werden aber alle Fächer die nach Religion aufgeführt sind gestrichen. Es wird nicht erkannt, dass nur die Fächer bei denen "NE" als Note steht gestrichen werden sollen. (s. Ausgabe)

begin
if (BKBerufsuebergreifend['Fachkrz']='REL') and (BKBerufsuebergreifend['Notenkrz']='NT') and (Schueler['ReligionZeugnisbez'] <> 'evangelisch') AND (Schueler['ReligionZeugnisbez'] <> 'katholisch') then
DBText1.Font.Strikeout := True;
if (BKBerufsuebergreifend['Fachkrz']='REL') and (BKBerufsuebergreifend['Notenkrz']='NE') then
DBText1.Font.Strikeout := True;
if (BKBerufsuebergreifend['Fachkrz']='SP')and (BKBerufsuebergreifend['Notenkrz']='NE') then
DBText1.Font.Strikeout := True;
end

Danke im Voraus für die Hilfe!

LG

Masdak

[Falko Müller]

Hallo,
Ergänzen Sie direkt am Anfang hinter begin folgende Zeile:
DBText1.Font.Strikeout := False;

Dann sollte es klappen.

[Frodermann]

Der Hintergrund ist: Ist der Wert einmal gesetzt, wird er im aktuellen Zustand gemerkt und gilt ab dann folgend und für immer - bis er wieder verändert wird.

Setzt man den Wert immer "zu Beginn" einer neuen Prüfung auf den Wert, den man als Initialwert haben möchte und die Prüfung führt dann die gewünschten Änderungen durch, ist alles gut.

[masbou]

Der Hintergrund ist: Ist der Wert einmal gesetzt, wird er im aktuellen Zustand gemerkt und gilt ab dann folgend und für immer - bis er wieder verändert wird.

Setzt man den Wert immer "zu Beginn" einer neuen Prüfung auf den Wert, den man als Initialwert haben möchte und die Prüfung führt dann die gewünschten Änderungen durch, ist alles gut.

Super! Vielen Dank! Darauf wäre ich nie im Leben gekommen!

[BKO_Ullner]

Hallo,

mit Hilfe dieses Threads habe ich für die Berufsschule eine Berechnung gebastelt, bei der die Fächer gestrichen werden, wenn Sie entweder nicht erteilt wurden (NE) oder wenn kein Fachlehrer eingetragen wurde. Hintergrund ist, dass wir für die BS immer alle Fächer der Stundentafeln aufführen wollen und dann die Fächer streichen, wo kein Unterricht erteilt wurde. So sieht man dann auch einen Unterschied, wenn die SuS mal keine Note bekommen haben (z.B. Sportattest, spätere Einschulung etc.), das Fach aber generell erteilet wurde.

Hier das Code-Beispiel für die Zeugnisbezeichung im Berufsübergreifenden Bereich:

begin
DBMemo1.Font.Strikeout := False;
if (BKBerufsuebergreifend['Fachlehrer']='') or (BKBerufsuebergreifend['Notenkrz']='NE') then
DBMemo1.Font.Strikeout := True;
end;

Für den Berufsbezogenen- und den Differenzierungsbereich muss die Berechnung dann noch entsprechend abgewandelt werden.

Vielen Dank für die Vorarbeit!

[Frodermann]

In Fällen, in denen Sie tatsächlich "true" oder "false" setzen wollen, funktioniert Code wie

Code: Alles auswählen

DBMemo1.Font-Strikeout := (BKBerufsuebergreifend['Fachlehrer']='') or (BKBerufsuebergreifend['Notenkrz']='NE');

auch wunderbar.

Der Hintergrund hier ist, dass ein logischer Bereich (X = Y) zu "true" oder "false" evaluiert, daher direkt den schon der Datentyp ist, den man haben möchte. Statt mit dem resultierenden Datentyp "Wahrheitswert" eine If-Clause zu steuern, kann der Wert auch direkt verwendet werden.