{slide=Abgabedatum auf Liste}

Wie kann man auf einer Liste ein Abgabedatum angeben?

Es kann hilfreich sein, auf einer Liste das Abgabedatum anzugeben, bis wann die Liste zurück erwartet wird. Das Verfahren ähnelt dem Tipp zum Einfügen eines Verwendungszwecks.
Dieser Tipp zeigt, wie man in eine Liste eine Abfrage für ein Rückgabedatum einbaut.

Vorgehen:

• Formular zur Bearbeitung öffnen und zunächst zur Sicherheit unter einem neuen Namen speichern.
• Reiter „Berechnungen“ , dort zunächst  im Menü über „Ansicht > Verwendete Module“ zu den Variablen wechseln („Modulansicht: Deklarationen > Variables“).
• Am Ende den Code 

  Datum:string;  

  einfügen.

• Über das Menü („Ansicht > Ereignisse“ die Ansicht wechseln .
• Unter „Berichtselemente: Report“  auf  „Ereignisse: BeforePrint“ auswählen und in das untere Code-Fenster klicken.
• Dort zwischen begin und end; den folgenden Code eingeben: 

    Datum:=  PickDatum('Bitte Rückgabe-Datum wählen:', '');   

• Nun über den Reiter „Entwurf“ in das entsprechende Fenster wechseln.
• Im Formular an beliebiger Stelle – am sinnvollsten sicher entweder im (Gruppen-)Kopf oder Fuß – ein Textfeld (Label) einfügen.
• Nun zurück zum Reiter „Berechnungen“ gehen und dort unter „Berichtselemente: Report“ dieses Textfeld auswählen.
• Unter „Ereignisse für Label…: OnGetText“ auswählen und in das untere Code-Fenster klicken.
• Dort den erscheinenden Code ähnlich dem folgenden ergänzen: 

  begin  Text := 'Abgabe bis spätestens ' + Datum + ' im Sekretariat!';  end;   

• Zum Schluss den Report speichern.

{/slide}