Fast Report - Leerzeile einfügen bei fehlendem Datensatz

[Jens Hartmann]

Zitat von dataspider:

Ich habe mal schnell in Fastreport einen Report mit Lückenanzeige gemacht (siehe Anhang).
Ist auch relativ wenig Arbeit, man muss nur:

zum MasterData ein Child machen...
Die Daten ins Child...
Die Lückentexte auf MasterData
Und im MasterData PrinChildIfInvisible auf True setzen.

markieren Code:
Var
LetzteNummer: Integer;
AnzahlLuecken: Integer;

procedure frxReport1OnStartReport(Sender: TfrxComponent);
begin
LetzteNummer := 0;
end;

procedure LabelLueckeOnBeforePrint(Sender: TfrxComponent);
begin
LabelLuecke.Text := InttoStr(AnzahlLuecken) + ' fehlende Nummern';
end;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
AnzahlLuecken := <frxDBDataset1."Nummer"> - 1 - LetzteNummer;
LetzteNummer := <frxDBDataset1."Nummer">;
BandData.Visible := False;
if AnzahlLuecken > 0 then
BandData.Visible := True;
end;

begin

end.
Ich verlagere zwar auch gern alles auf die Datenebene, aber das hier kann man durchaus im Report lösen.

Frank

Das funktioniert. Und ich denke, dem Aufwand gerecht. Keine Abhängigkeit von den Anzahl der Meldergruppen und optisch genau das was ich wollte.

Danke schon mal und Gruß Jens