Wiederbeginn auf Zeugnis optional

{slide=Wiederbeginn auf Zeugnis optional}

Wie kann man verhindern, dass auf dem Zeugnis ein Datum für den Wiederbeginn des Unterrichts gedruckt wird?

Nicht immer ist es erwünscht, dass auf dem Zeugnis der Wiederbeginn des Zeugnisses vermerkt ist. Oft ist auch die Angabe eines Elternsprechtages nicht vorgesehen.
Dieser Tipp zeigt, wie die Sprechtage auf dem Zeugnis ausgeblendet und die Angabe des Wiederbeginns optional gestaltet werden.

Vorgehen:

 

  • Formular zur Bearbeitung öffnen und (zur Sicherheit) unter einem neuen Namen speichern.
  • Reiter „Berechnungen“ > „Berichtselemente: Report“ > „Ereignisse: BeforePrint“
  • Die 2. Zeile, die mit „ZeugnisParameter“ beginnt, folgendermaßen verändern: 
    { ZeugnisParameter(Wiederbeginn, Sprechtag1, Sprechtag2); }

    (Die geschweiften Klammern schließen einen sog. Kommentar ein, der nicht vom Programm verarbeitet wird. Ein Kommentar bietet gegenüber dem Löschen der Zeile den Vorteil, dass die Zeile später durch das Entfernen der Klammern problemlos wieder „aktiviert“ werden kann.)

  • Hinter dieser Zeile folgenden Code einfügen 
    If ReadDateTime('Wiederbeginn des Unterrichts '  + '(Abbruch: kein Text):', D, T1, T2, false) then          Wiederbeginn:='Wiederbeginn des Unterrichts am ' + DateToStr(D)          + ' um ' + TimeToStr(T1) + ' Uhr.'        else          Wiederbeginn:='';

    Hier wird eine globale Variable namens „Wiederbeginn“ mit einem Wert belegt, der beim Zeugnisdruck später abgefragt wird. Wenn beim Dialogfeld vor dem Druck die „Esc“-Taste gedrückt wird, dann ist die Variable leer (Wiederbeginn:=’’).

  • Am Beginn des Codes vor dem begin noch die verwendeten Variablen einfügen:  
     var D,T1,T2:datetime;

    •  

    Wenn man die Angabe zum Wiederbeginn des Unterrichts auf der Laufbahnbescheinigung des 1. Hj. überflüssig findet, kann man alternativ den Code abwandeln und eine if-Abfrage einbauen:

    Hauptbericht > Report > OnStartFirstPass:
    Code:

    var   Dummy : Time; begin   WiederbeginnZeigen:=ReadDateTime('Wiederbeginn des Unterrichts (Abbr.=kein Text)', BeginnDatum, BeginnZeit, Dummy, False); end;

    Seite 2 > Footer > LaWiederbeginn:

    begin if WiederbeginnZeigen=true then   Text := FormatDateTime('"Wiederbeginn des Unterrichts: "d. mmmm yyyy,', Beginndatum) + FormatDateTime(' h.nn "Uhr"', BeginnZeit) else   Text:=''; end;

    Wenn man nun bei dem Abfragefenster zum Wiederbeginn auf Abbrechen klickt, wird kein Text angezeigt (alternativ könnte man das Feld sicher auch unsichtbar schalten).

    {/slide}