Quick Report Problem: Gruppenfelder / Gruppensumme

[Mada]

Hallo Leute,

vielleicht könnt ihr mir weiterhelfen.

Ich möchte mit dem Quick Report ein paar Daten aus meiner Datenbank darstellen und auswerten.
Dazu ist es nötig eine Gruppensumme zu bilden. (Beispiel: Ich habe 3 Konten, a, b, c. Auf diese finden verschiedene Transaktionen statt, die unter dem jeweilien Konto zusammengefasst dargestellt werden sollen)

nun soll es möglich sein, eine Zwischensumme jedes einzelnen Kontos zu bilden.

Mit welchem Layer kann ich dies im Quickreport verwirklìchen

Ich gruppiere meine Daten in der SQL Query. Im Quickreport habe ich einen Groupheader über mein Detailfeld, und darunter einen Groupfooter erstellt. Ich dachte nun, dass ich mit einem Expressionfeld diese Gruppensumme, bezogen auf das jeweilige Konto a oder b dort erstellen kann. Nun lässt sich so aber nur ein Feld erstellen, welches die Summe über ALLE 3 Konten bildet. Ich brauch pro Konto die Summe. Und zwar nur die des jeweiligen Kontos ohne die anderen.

Weiß jemand wie ich dieses Problem lösen kann? Welches Feld / Layer im Quick Report kann dies darstellen?


Danke für die Antworten!Hoffe ich hab mein Problem verständlich dargestellt.

Gruß Mada

[Mada]

Habe ich wohl do ch zu kompliziert formuliert:

Ich brauche einfach ein Feld, welches Gruppenbezogen einen Betrag aufsummiert. 3 Einträge mit der Nummer 34 ergeben zusammen den Betrag 240 oder so. Die 240 soll dargestellt werden. Und zwar unter der jeweiligen Gruppe im Quick Report.

Danke nochmals!

[MrSpock]

Hallo Mada,

zunächst möchte ich dich hier im Forum herzlich willkommen heißen.

Nun zu deiner Frage:

Ich würde im PRIVAT Bereich des Reports eine Variable ZWSumme einfügen (z.B. vom Typ Integer oder Float, was immer du brauchst)

Delphi-Quellcode:

{ Nach dem Drucken des Detailbandes den Wert des Feldes,
das summiert werden soll, hinzuzählen }
procedure TForm3.DetailBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
   ZWSumme := ZWSumme +Table1Pause.AsInteger;
end;

{ Nach Drucken des Gruppenkopfes, Wert neu initialisieren }
procedure TForm3.QRGroup1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
   ZWSumme := 0; 
end;

{ Im GroupFooter ein Label anlegen und die Zwischensumme in der 
OnPrint Methode wie folgt zuweisen }
procedure TForm3.QRLabel2Print(sender: TObject; var Value: String);
begin
   Value := IntToStr(ZWSumme);
end;

[Mada]

Danke für die Antwort!

Werde ich gleich mal versuchen!

Frohes 2003!

[MrSpock]

Hallo Mada,

gern geschehen. Sagt mal Bescheid, ob es so bei dir funktioniert hat oder wo es ggf. noch Probleme gibt.

[Mada]

Hi , habe leider nun doch Probleme mit der Gruppensumme...

Zum Thema Quick- Reports, Gruppensummen.

Ich suche noch eine Möglichkeit, bei einem Quick Report in jedem Group Footer ein Feld des Detail Bands aufzusummieren. Die Groups werden nach der Kostennummer gruppiert. Die Beträge jeder Kostennummer sollen also aufaddiert werden. Ich hoffe das kann man so verstehen ).

Am leichtesten wäre natürlich eine Art Expression oder SQL- Feld. Selbst einen SQL- Code in den SourceCode schreiben wär ja nicht so wild. Aber ich weiss nicht, ob es ein solches Feld gibt. Selbst wenn, dann habe ich immer das Problem, dass ich auf die Kostennummer und den Betrag, der im jeweiligen Detail Band ausgegeben wurde, zugreifen können muss. Dann könnte ich ihn aufsummieren.

Nun die konkreten Fragen:

Weiss jemand ein Feld, mit dem innerhalb eines QuickReports die Summe über die Beträge von einem Feld und jeweils von einer Group gemacht werden können

Weiss jemand, wie ich auf den Betrag des zuletzt ausgegebenen Detail Bands zugreifen kann

Vielen Dank für alle Tips

Gruß

[Mada]

Hallo,
habe mit Hilfe von Kollegen den Fehler selber gefunden.

Hatte den falschen Ansatz. (denke zu kompliziert)

Um eine Gruppensumme zu erzeugen muss ich einfach eine SUM Expression erstellen nd die Eigenschaft Reset After Print auf True stellen. Das wars dann schon


Nun ja, man lernt nie aus. Ebenso hab ich erfahren, dass es ja ein eigenes Handbuch für den Quick Report gibt...

NUN gut. Schön wenn sich ein anfänglich fast unlösbares Problem in Wohlgefallen auflöst


Liebe Grüße,
Mada

Habt ihr eigentlich nicht mehr geantwortet, weil die Lösung so einfach war?? Aber wahrschienlich habe ich mal wieder zu kompliziert geschrieben