Fach ausblenden

[Eickhoff]

Liebe Schildbürger,

ich habe eine einfache Liste, die mir zuverlässig alle Fächer, die mit "ZUV" eingetragen sind für jeden Schüler auflistet.
Wie aber bekomme ich es hin, dass ein einzelnes Fach aus dem Bereich "ZUV" (z. B. "Nähen") in dieser Liste nicht angezeigt wird?

Über einen Hinweis (wahrscheinlich gibt es eine sehr einfache Lösung...) freue ich mich.

Danke,
B. Eickhoff

[Raffenberg]

Hallo,
Sie können auf dem Reiter Berechnungen in der Ansicht Ereignisse das Ereignis "BeforPrint" des Berichts-Elements "Detail" mit folgendem Code versehen

Code: Alles auswählen

procedure DetailBeforePrint;
begin
  Detail.Visible := ZUV['Fachkrz'] <> 'Nähen';
end;

[Eickhoff]

Vielen Dank für die schnelle Antwort - werde ich morgen ausprobieren.
Gibt es - Luxusproblem - auch die Möglichkeit, das über eine Abfrage beim Aufruf des Reports zu lösen?

Nochmals herzlichen Dank,
B. Eickhoff

[Raffenberg]

Klar.
1. Definieren Sie eine globale Variable: Hauptbericht - Berechnungen - Ansicht "Verwendete Module" - Deklarationen - Variables

Code: Alles auswählen

var
  sFach : String;

2. Abfrage an globale Variable übergeben: Hauptbericht - Berechnungen - Ansicht "Ereignisse" - Report - BeforePrint

Code: Alles auswählen

procedure ReportBeforePrint;
begin
  sFach := StringInput('Bitte geben Sie das auszuschließende Fach ein', 'Nähen');
end;

3. Schließen Sie das eingegebene Fach aus: SubReport - Berechnungen - Ansicht "Ereignisse" - Detail - BeforPrint

Code: Alles auswählen

procedure DetailBeforePrint;
begin
  Detail.Visible := ZUV['Fachkrz'] <> sFach;
end;

Da gab es noch ein paar unnötige Zeilen, die ich gelöscht habe.
Anbei der angepasste Report

[Eickhoff]

Vielen Dank für die Bearbeitung - klappt wunderbar.
Jetzt noch ein letzter Wunsch: wie blende ich 2 einzugebende Fächer aus (beide aus ZUV)?

[Raffenberg]

Legen Sie zwei globale Variablen an, machen Sie zwei Abfragen und ändern Sie im Subreport die Zeile zu

Code: Alles auswählen

Detail.Visible := ((ZUV['Fachkrz'] <> sFach1) And (ZUV['Fachkrz'] <> sFach2));

[Eickhoff]

Vielen Dank für die Lösung!