1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure Tfrm_Rechnung.AktuelleRechnung1Click(Sender: TObject);
begin
   qry_DruckRechnung.Close;
   qry_DruckRechnung.ConnectionString:=ADO_Provider;
   qry_DruckRechnung.SQL.Clear;
   qry_DruckRechnung.SQL.Add('SELECT renr, artbez, r_kdnr, gesamtbetrag, rechnr, netto, mwst, r_artnr, artanzahl, artgbetrag');
   qry_DruckRechnung.SQL.Add('FROM rechnung, rechdaten, artikel, kunden');
   qry_DruckRechnung.SQL.Add('WHERE renr=rechnr and kdnr=r_kdnr and artnr=r_artnr and renr='+#39+lbl_ReNr.Caption+#39);
   qry_DruckRechnung.Open;     

   frReport_Rechnung.Dataset:=frDBDataSet_Rechnung;
   frReport_Rechnung.LoadFromFile('.\Reports\Rechnung.frf');
   frReport_Rechnung.ShowReport;

   frm_Rechnung.Close;
end;