Beliebige Datenbank-Abfragen in FastReport: Unterschied zwischen den Versionen

Version vom 8. Juli 2025, 13:38 Uhr

1 Allgemeines

Das Druck-Modul "GevitasFormPrint" stellt dem Report-Editor alle Daten zur Verfügung, die für das jeweilige Formular gerade sinnvoll sind, z.B.

• bei einem Angebot die Auftragskopf-Daten, Auftragspositionen usw.
• bei einem Werkstatt-Auftrag die Reparatur-Daten, Kunden-Daten, Auftrags-Daten usw.

Datenbank-Kenntnisse sind hierfür nicht erforderlich!

Manchmal will man jedoch weitere Daten im Report haben, die das Druck-Modul nicht berücksichtigt. Für diesen Fall kann man einen Report um weitere, beliebige Datenbank-Abfragen erweitern.

Dieser Artikel zeigt, wie einfach das geht.

Allerdings muss man sagen, dass man hierfür Datenbank-Kenntnisse haben sollte und die SQL-Sprache kennen sollte!

2 Die Seite Data im Report

in jedem Report gibt es eine Seite "Data" in dem Register links oben.

Hier kann man zusätzliche Datenquellen unterbringen, die auf Tabellen der Datenbank zugreifen:

ADO-Table

Greift direkt auf eine Tabelle der Datenbank zu. Man kann/muss den Namen der Tabelle angeben und kann die Daten filtern, z.B. die Auftragsdaten nach der Auftragsnummer.

ADO-Query

Greift über eine SQL-Abfrage auf beliebige Tabellen der Datenbank zu. Man kann/muss die SQL-Abfrage angeben und kann die Daten über eine "Where"-Klausel mit einem Parameter filtern, z.B. die Auftragsdaten nach der Auftragsnummer. Diese Methode ist sehr flexibel, erfordert aber Datenbank- und SQL-Kenntnisse!

Dieser Artikel beschreibt diese Methode.

3 Einfügen einer Query in die Data-Seite

Dazu zieht man einfach das Query-Objekt aus der Leiste links auf die Data-Seite.

Die Query hat nun folgende wichtige Eigenschaften:

4 Eigenschaften der Query

Die wichtigsten Eigenschaften einer Query sind:

5 SQL-Text

Der SQL-Text bestimmt, welche Daten aus der Datenbank abgerufen werden sollen. Das kann ein einfaches "select * from xxx" sein oder eine komplexe Abfrage mit mehreren verbundenen Tabellen.

Entscheidend ist, dass in der "Where"-Klausel ein Parameter enthalten ist! Diesen Parameter kann man dann mit einem Datenfeld verbinden, z.B. mit der Auftragsnummer.

5.1 Beispiel 1

In einem Werkstatt-Auftrag-Report sollen Daten aus einem verbundenen Transport-Auftrag stehen. Also zieht man eine Query auf die Seite "Data" und füllt den SQL-Text so (abgekürzt):

select MAUFKO.AUFTRNR,MAUFKO.STATUSNR,MAUFKO.STATUSTEXT,MAUFKO.DRUCKDAT,MAUFKO.DRUCKZEIT,MAUFKO.DRUCKUSER,
MAUFKO.ADRKURZNAME,MAUFKO.ADRESSE,MAUFKO.STR, MAUFKO.LANDKENNZ,MAUFKO.PLZ,MAUFKO.ORT,MAUFKO.LAND,MAUFKO.SPRACHE,MAUFKO.AUFTRAGSART,
MAUFKO.VERANSTNAME,MAUFKO.VERANSTORT,MAUFKO.VERANSTRAUM,

MAUFPO.POSNR, MAUFPO.UNTPOSNR, MAUFPO.STATUSNR, MAUFPO.STATUSTEXT, MAUFPO.ARTNR, 
MAUFPO.TYP,MAUFPO.BEZEICHNUNG,MAUFPO.KISTE,MAUFPO.STLISTE,MAUFPO.ARTIKELART,MAUFPO.ARTIKELHERKUNFT,MAUFPO.KENNZMIETEVERKAUF,
MAUFPO.AUFTRMENGE,MAUFPO.EINHEIT,MAUFPO.EKPREIS,MAUFPO.DATVON,MAUFPO.ZEITVON,MAUFPO.DATBIS,MAUFPO.ZEITBIS,MAUFPO.BEREINHEIT,
AUFPO.ADRPoints
from MAUFPO MAUFPO 
left outer join MAUFKO MAUFKO on MAUFKO.AUFTRNR=MAUFPO.AUFTRNR
where MAUFPO.REPNr=:REPAUF_REPNR

5.2 Beispiel 2

In einer Rechnung (Sammelrechnung aus Projekt) sollen Daten aus dem Projekt stehen. Also zieht man eine Query auf die Seite "Data" und füllt den SQL-Text so (abgekürzt):

select * from KOTR where KOTRNR=:ProjNr

Hier muss man wissen, dass die Projekt-Tabelle intern "Kostenträger" heißt und der Tabellenname "KOTR" lautet!

Der Paramater dazu heißt hier ":ProjNr". Er könnte auch ":KoTrNr" lauten oder ":Meier" oder wie auch immer! Wichtig ist nur, dass der Parameter mit Doppelpunkt beginnt. Nur so kann man im einen Wert bzw. ein Datenbankfeld zuweisen.

5.3 Parameter definieren

Der Text-Ausdruck

:REPAUF_REPNR

oder

:ProjNr

mit dem Doppelpunkt ist ein sog. Parameterfeld. Beim Ausführen des Reports wird der festgelegte Wert eingesetzt, z.B. das Datenbankfeld mit der Auftragsnummer.

Mit dem Button Params ... kann man den Wert des Parameters festlegen.

Beispiel:

In diesem Beispiel wird das Datenbankfeld

<Werkstattauftrag."WerkstattAuftrNr"> 

für den Parameter festgelegt:

Somit bezieht sich die SQL-Abfrage auf den Werkstattauftrag ("REPAUF") mit der Werkstatt-Auftr.Nr. ("REPAUF.RepNr"), die im Report verwendet wird!

Im zweiten Beispiel wäre es das Feld

<RechnungsKopf."ProjektNr">

6 Im Report

sieht das so aus:

Die SQL-Abfrage der Query mit dem Namen "TransportAuftrag" wird jetzt als Tabelle im Daten-Register angezeigt. Alle Felder der Abfrage können nun im Report verwendet werden.

7 Abfrage von Daten anhand von Positionen

Standardmäßig führt FastReport© eine Data-Abfrage einer Query beim Starten des Reports aus. Zu diesem Zeitpunkt sind die Kopfdaten (z.B. einer Rechnung) und alle damit verknüpften Tabellen eingelesen worden.

Das heißt aber auch, dass sich die erste Position der Rechnung eingelesen wurde. Soll sich nun eine Query-Abfrage auf Daten aus den Positionen beziehen, muss man manuell eingreifen.

7.1 Beispiel Auftragstermine einer Sammelrechnung aus Projekt

Bei einer Sammelrechnung aus einem Projekt gibt es mehrere Kapitel und Positionen aus mehreren Aufträgen. Will man nun auf der Rechnung die Termine aus den zugehörigen Aufträgen in den Positionen drucken, kann man die SQL-Abfrage so einfügen:

select MAUFJOB.*,
GEVPARAM.PARAMTEXT1 as TerminartText,
MAUFKO.VERANSTNAME Auftrag_VAName, MAUFKO.VERANSTORT Auftrag_VAOrt, MAUFKO.VERANSTRAUM Auftrag_VARaum, MAUFKO.VORTKURZNAME Auftrag_VAKurzname, MAUFKO.VERSANDTEXT Auftrag_VersandText, MAUFKO.BEMERKUNG Auftrag_Bemerkung,
MaufJob_Adr.ID Adr_ID, MaufJob_Adr.ID_STRING Adr_ID_STRING, MaufJob_Adr.MaufJob_LfdNr Adr_MaufJob_LfdNr,
MaufJob_Adr.Ladezone Adr_Ladezone,
MaufJob_Adr.Adresse Adr_Adresse,
MaufJob_Adr.Str Adr_Str, MaufJob_Adr.LandKennz Adr_LandKennz,
MaufJob_Adr.PLZ Adr_PLZ, MaufJob_Adr.Ort Adr_Ort,
MaufJob_Adr.Land Adr_Land, MaufJob_Adr.AnsprPartner Adr_AnsprPartner,
MaufJob_Adr.Sprache Adr_Sprache,
MaufJob_Adr.AnsprPartnerMail Adr_AnsprPartnerMail,MaufJob_Adr.AnsprPartnerTel Adr_AnsprPartnerTel
from MAUFJOB MAUFJOB
left outer join MAUFJOB_ADR MaufJob_Adr on MaufJob_Adr.MaufJob_LfdNr=MAUFJOB.LFDNR
left outer join GEVPARAM GEVPARAM on GEVPARAM.PARAMNAME = 'TERMINART' and GEVPARAM.PARAMVARIANTE = MAUFJOB.TERMINART
left outer join MAUFKO MAUFKO on MAUFKO.AUFTRNR=MAUFJOB.AUFTRNR
where MAUFJOB.AUFTRNR=:RechPoAusAuftrNr  
and TERMINART > 0 and ( DRUCKEN_ANG = 1 or DRUCKEN_AUFTR = 1 )
order by MAUFJOB.AUFTRNR, MAUFJOB.DATUM, MAUFJOB.UHRZEITVON, MAUFJOB.UHRZEITBIS

Diese Abfrage holt die Termine zu der Auftragsnummer, die aus den Rechnungspositionen (bei Sammelrechnungen) kommt. Zusätzlich wir die Terminart-Bezeichnung, einige Auftragsdaten und die Adressen der Termine geholt.

Siehe auch:

• REFLEX Datenbank-Beschreibung Auftragsverwaltung

• Termine

• Datenbank-Beschreibung zum Job-Kalender

• Einrichten des JobKalenders

• REFLEX_Datenbank-Beschreibung_Programmparameter

7.2 Unterbericht einfügen

Um die Termine zu einer Rechnungsposition einzufügen, erstellt man ein Child-Band und fügt einen Unterbericht ein. Dort verlinkt man ein Master-Band mit der Abfrage oben, z.B. mit dem Namen "Auftragstermine". Die Termine sollen aber nur unter der Überschrift (des Kapitels) erscheinen, also wird das ein Child der Gruppe für die Kapitel-Überschriften.

7.3 Abfrage neu starten, Band ausblenden per Code

Um die Abfrage auf die Position zu beziehen und das Band nur an der gewünschten Stelle einzublenden, kann man folgenden Code verwenden:

procedure ChildAuftragstermineOnBeforePrint(Sender: TfrxComponent);
begin
  qryAuftragstermine.Close; //JC//250708// Abfrage schließen. Darin stehen bis jetzt alle Termine zum Auftrag der ERSTEN Rechnungsposition!

  // Nur Termine drucken, wenn die Kapitelposition die Überschrift ist und kein Kapitel aus einem Auftrag:
  // Erkannt wird das über die Felder
  //      <Positionen."AusAuftrKapitel"> entspricht in der Datenbank "AUS_POSNR = 0" (Kapitel)
  // oder "AUS_UNTPOSNR=0" (Position)
  if <Positionen."AusAuftrKapitel"> > 0 then
    ChildAuftragstermine.Visible := False
  else
  begin
    ChildAuftragstermine.Visible := True;
    qryAuftragstermine.Open;  //JC//250708// Abfrage neu öffnen. Darin stehen jetzt alle Termine zum Auftrag der AKTUELLEN Rechnungsposition!
  end;
end;