Übergangsempfehlung GS_Zeugnis - Hauptempfehlung Schulform fett hervorheben
Verfasst: Mittwoch 26. Januar 2022, 09:30
Hallo zusammen,
die Schulleitung einer Grundschule möchte bei der Übergangsempfehlung nur die Hauptempfehlung(en) (Hauptschule, Realschule, etc.) fett hervorheben, also nur die Schulform(en).
Lässt sich das hier irgendwie darstellen?
Ich schaue gerade hier, bei den Berechnungen des Reports GS-Hybridzeugnis.rtm
-->procedure mmoEmpfSek1OnPrint
stxt: string;
s1: string;
begin
mmoEmpfSek1.Lines.Clear;
stxt := 'Die Klassenkonferenz hat am ' + FormatDateTime( 'DD.MM.YYYY', Lernabschnitte[ 'Konferenzdatum' ] ) + ' beschlossen, dass ' + Vorname +
' auf der Grundlage des Leistungsstandes, der Lernentwicklung und der Fähigkeit sowie des Arbeitsverhaltens und des Sozialverhaltens auf der Grundlage' +
' eines Beschlusses der Schulkonferenz nach § 49 Abs. 2 SchulG für den Besuch ';
// mmoEmpfSek1.Lines.Add( stxt );
// mmoEmpfSek1.Lines.Add( '' );
s1 := Schueler['Uebergangsempfehlung_JG5'];
if s1 <> '' then
begin
if pos( 'H', s1 ) > 0 then
stxt := stxt + 'der Hauptschule'
else if pos( 'R', s1 ) > 0 then
stxt := stxt + 'der Realschule'
else if pos( 'G', s1 ) > 0 then
stxt := stxt + 'des Gymnasiums';
if s1 <> 'Ohne' then
stxt := stxt + ' und ';
end;
stxt := stxt + 'der Gesamtschule sowie der Sekundarschule geeignet ist.';
mmoEmpfSek1.Lines.Add( stxt );
if pos( '/', s1 ) > 0 then
begin
stxt := '';
// mmoEmpfSek1.Lines.Add( '' );
if s1 = 'H/R' then
stxt := 'Für den Besuch der Realschule ist ' + Vorname + ' mit Einschränkungen geeignet.'
else
stxt := 'Für den Besuch des Gymnasiums ist ' + Vorname + ' mit Einschränkungen geeignet.';
if stxt <> '' then
mmoEmpfSek1.Lines.Add( stxt );
end;
Danke schon mal für entsprechende Lösungsvorschläge
die Schulleitung einer Grundschule möchte bei der Übergangsempfehlung nur die Hauptempfehlung(en) (Hauptschule, Realschule, etc.) fett hervorheben, also nur die Schulform(en).
Lässt sich das hier irgendwie darstellen?
Ich schaue gerade hier, bei den Berechnungen des Reports GS-Hybridzeugnis.rtm
-->procedure mmoEmpfSek1OnPrint
stxt: string;
s1: string;
begin
mmoEmpfSek1.Lines.Clear;
stxt := 'Die Klassenkonferenz hat am ' + FormatDateTime( 'DD.MM.YYYY', Lernabschnitte[ 'Konferenzdatum' ] ) + ' beschlossen, dass ' + Vorname +
' auf der Grundlage des Leistungsstandes, der Lernentwicklung und der Fähigkeit sowie des Arbeitsverhaltens und des Sozialverhaltens auf der Grundlage' +
' eines Beschlusses der Schulkonferenz nach § 49 Abs. 2 SchulG für den Besuch ';
// mmoEmpfSek1.Lines.Add( stxt );
// mmoEmpfSek1.Lines.Add( '' );
s1 := Schueler['Uebergangsempfehlung_JG5'];
if s1 <> '' then
begin
if pos( 'H', s1 ) > 0 then
stxt := stxt + 'der Hauptschule'
else if pos( 'R', s1 ) > 0 then
stxt := stxt + 'der Realschule'
else if pos( 'G', s1 ) > 0 then
stxt := stxt + 'des Gymnasiums';
if s1 <> 'Ohne' then
stxt := stxt + ' und ';
end;
stxt := stxt + 'der Gesamtschule sowie der Sekundarschule geeignet ist.';
mmoEmpfSek1.Lines.Add( stxt );
if pos( '/', s1 ) > 0 then
begin
stxt := '';
// mmoEmpfSek1.Lines.Add( '' );
if s1 = 'H/R' then
stxt := 'Für den Besuch der Realschule ist ' + Vorname + ' mit Einschränkungen geeignet.'
else
stxt := 'Für den Besuch des Gymnasiums ist ' + Vorname + ' mit Einschränkungen geeignet.';
if stxt <> '' then
mmoEmpfSek1.Lines.Add( stxt );
end;
Danke schon mal für entsprechende Lösungsvorschläge