Wochenangabe (A-B) auf Klausurreport

[Venjakob]

Hallo,
gibt es ein Möglichkeit auf dem Report, der die Klausurübersicht ausgibt, die Woche (bei uns A oder B) mit anzugeben?
Ich habe leider kein DB-Feld dazu gefunden.

Danke für jede Hilfe.

[wschrewe]

Das Datenfeld gibt es nicht, Sie können es aber nachbauen:
Legen Sie an eine geeignete Stelle ein Label. Im Ereignis 'onGetText' dieses Labels fügen Sie den folgenden Code ein:

Code: Alles auswählen

procedure Label21OnGetText(var Text: String);
var
  lWoche : integer;
begin
  lWoche:=StrToIntDef(Kalenderwoche(Klausurschienen['KlausurDatum'])),0);
  if odd(lWoche) then
    Text:='A'
  else
    Text:='B';   
end;

Wenn bei Ihnen die B-Wochen ungerade sein sollten, müssen Sie im Code natürlich 'A' und 'B' vertauschen.

[W.Maßmann]

Hallo Herr Venjakob,
das lässt sich mit der Funktion Kalenderwoche lösen:
in einem Subreport: Klausurschienen habe ich an das Element Klausurschienen['Name'] in OnGetText angefügt:

if (strtoint(kalenderwoche( Klausurschienen['KlausurDatum'])) mod 2) =0 then text:=text+' (Woche A)' else text:=text+' (Woche B)';
(falls A in den geraden Wochen liegt).

Nachtrag: Herr Schrewe war schneller und im Programmieren eleganter.

[Venjakob]

Vielen Dank!
Ich probiere das die Tage aus.

[Venjakob]

Kurze Rückmeldung:
Ich habe den Ansatz von Herrn Schere ausprobiert und es wunderbar geklappt.
Vielen Dank für die schelle Hilfe.