RaveReport ohne Daten

[norbert3]

Hey Leute,

wie lässt sich ein Ravereport der keine Daten enthält abbrechen?

Ich möchte, das beim Aufruf des Reports eine MessageBox startet (Keine Daten da oder so) und der Report mit OK beendet wird.


Danke im voraus.

Norbert

[mkinzler]

Prüfe das doch ab bevor du den Report aufrufst.

[norbert3]

hey
ok, hier scheint mein Problem zu sein. Denn ich weiss nicht recht, wie ich meine Abfrage auswerten soll.

Delphi-Quellcode:

procedure TfrmKUebersicht.Button6Click(Sender: TObject);
begin
with DMRBuch.KZahlung do
  begin
    SQL.Text := 'select t1."KNr", t1."KName", t2."RBezeich", t2."RNr", t2."RBrutto", (t2."RBrutto" - t2."RZBetrag") as "RRest", t2."RDatum", t2."RFaelligkeit", t2."Rbez" '
              + 'from "tblKunde" t1 '
              + 'inner join "tblRechnung" t2 '
              + 'on (t1."KId" = t2."RIDKunde") '
              + 'where (t2."Rbez" = false) and (t1."KID" = :ID) '
              + 'group by t1."KNr", t1."KName", t2."RBezeich", t2."RNr", t2."RBrutto", t2."RRest", t2."RDatum", t2."RFaelligkeit", t2."Rbez" '
              + 'order by t2."RDatum" asc';
    ParamByName('ID').AsInteger := frmKUebersicht.ABSTable1KId.Value;
    open;
    end;

DMRBuch.RvProject1.ExecuteReport('KZahlungen');
end;

Mit diesem Aufruf starte ich meinen Report.

MfG Norbert

[TRomano]

Hallo,

nach dem Öffnen des DataSets einfach mit RecordCount prüfen, ob Records im dataSet vorhanden, laso in der Form:

if (RecordCount > 0) then ... Report starten ...

Gruß

Thomas

[norbert3]

hey,

danke für eure Antworten klappt wunder bar. Danke nochmals.

mfg Norbert