Fast Report - Leerzeile einfügen bei fehlendem Datensatz

[Jens Hartmann]

Zitat von Sir Rufo:

Preisfrage: Was macht ein WHERE in einem SQL-Statement?

Wer das beantworten kann, weiß auch warum das Ergebnis so aussieht.

Wer das beantworten kann, weiß das nicht.

Die "Anlagennummer" in der WHERE Klausel des SQL-Statement, ist nur dafür zuständig, das nur Meldergruppen von einer Anlage geladen werden. Soll heißen, in der Tabelle MGV_EMA sind viele Anlagen enthalten. Diese müssen natürlich gefiltert werden.

[Sir Rufo]

Jetzt mal Denken einschalten:

Wenn in der Datentabelle eine Lücke gefunden wird, dann bekommst du durch den LEFT JOIN ja trotzdem eine Zeile, allerdings mit einem NULL Wert. Soweit verstanden?

Preisfrage: Was steht denn dann wohl in dem Feld Anlagennummer? Etwa NULL?
Und was macht dann das WHERE, womit du sagst, gib mir alles wo 325 drin steht?
Erwartest du dann die Zeilen mit dem Wert NULL?

Die filterst du damit schön wieder aus

[Dejan Vu]

Damit wären in der rechten Spalte NULL-Werte. Aber in der rechten Spalte sind Werte, die es gar nicht gibt.

[EarlyBird]

eventuell so:

Code:

SELECT MG.MG, MGV.MelderGruppe, MGV.Anlagennummer 
FROM MG LEFT JOIN (select MelderGruppe, Anlagennummer  from EMA_MGV  where
 Anlagennummer =325)  AS MGV ON MG.MG = MGV.MelderGruppe;

[Jens Hartmann]

So nach längerem Nachdenken, Ja die "WHERE" Klausel schränkt das ganze ein. Allerdings funktioniert die "AND" Verknüpfung im JOIN auch nicht.

Das ganze mit der Hilfstabelle, ist eigentlich auch nicht der richtige Weg. Betrachte ich das ganze nämlich auf das Gesamtsystem, wäre die Umsetzung über eine Hilfstabelle wahrscheinlich nicht sinnvoll.

Es gibt System, die verfügen nicht nur über 256/512 Meldergruppen, sondern sind frei Konfigurierbar von z.B. 1 - 99999.

Somit wird das ganze wieder eine Formatierungsaufgabe.

Mein aktueller Lösungsansatz (So sollte es vermutlich funktioniere) sieht folgendermaßen aus:

1. Abrage der zugehörigen Meldergruppen zu der entsprechenden Anlagennummer:

SELECT * FROM MGV_EMA WHERE Anlagennummer = 1 2. Einen Record_Array oder eine Objekt erstellen und Query zuweisen

Delphi-Quellcode:

type
  T_MGV_EMA = record
    MG: string;
    Name: string;
  end;
...

var
  F_MGV_EMA : array of T_MGV_EMA

...

//Query dem Record über Schleife zuweisen

...

//Record prüfen und bearbeiten

...

//Record einem tfrxUserDataSet zuweisen

//Report erstellen

Jetzt stellt sich mir halt nur die Frage, kann es wirklich so aufwendig sein, eine einzelne däml... Leerzeile in eine Reporttabelle einzufügen, wenn die Spalte (1) nicht fortlaufend nummeriert ist.

Im Anhang mal ein Beispiel, von den aktuellen Dokumenten (Wir lösen das zur Zeit über Excel, jedoch manuell)

[Dejan Vu]

Wieso liest Du die Daten nicht einfach ein, kopierst sie in ein CDS, fügst Leerzeilen an den Stellen ein, die dir gefallen, und druckst das ganze vollkommen straightforward im FastReport aus? Das ist eine Sache von 5 Minuten und Du musst weder die Query noch deinen aktuellen Report anfassen...

[Sir Rufo]

Zitat von Dejan Vu:

Wieso liest Du die Daten nicht einfach ein, kopierst sie in ein CDS, fügst Leerzeilen an den Stellen ein, die dir gefallen, und druckst das ganze vollkommen straightforward im FastReport aus? Das ist eine Sache von 5 Minuten und Du musst weder die Query noch deinen aktuellen Report anfassen?

Bitte nicht, diese Vorgehensweise (PreProcessing in der Anwendung) hatte ich schon vorgeschlagen (vor allem weil mit Access gearbeitet wird)

[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.

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

[Dejan Vu]

Zitat von Sir Rufo:

Bitte nicht, diese Vorgehensweise ..hatte ich schon vorgeschlagen...

Weil man Niemanden zu seinem Glück zwingen sollte? Die vorgehensweise von Dataspider ist mindestens genauso simpel, wenn man schon mal mit FR Scripten gearbeitet hat.

Na, ok. Ich halte mich raus.

[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