Solved

Count in sub detail report

Posted on 2000-03-26
8
275 Views
Last Modified: 2010-04-04
I have a report, include detail and sub detail. I want to print a order number subdetail.

For ex.
No CustNo
      No   Orders
1   001
      1    001
      2    002
      3    003

2   003
      1    007
      2    009
      3    010

0
Comment
Question by:ngalt
8 Comments
 
LVL 7

Expert Comment

by:RBertora
ID: 2659980
Hi,
Let me see your SQL query, I can then help you get the data in the format you require.
Right now I don't know if No (custno) is a number generated by the report, or generated by sql, similarily with that
of No(Orders)..

also when you want to print an order number, are you talking about Orders or No???

actually forget all my questions just show me your sql query, and I'll show you how to produce your output.

Rob;-)
0
 
LVL 9

Expert Comment

by:ITugay
ID: 2660084
listen...
0
 

Author Comment

by:ngalt
ID: 2662444
"No" is a numeric of line. "No" is not CustNo.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 9

Expert Comment

by:ITugay
ID: 2663173
Hi Rob,

it sound like he want to print count of subdetails in header of detail section;)

Igor.
0
 
LVL 7

Expert Comment

by:RBertora
ID: 2663277
Well I have no idea what he means by a subdetail.. perhaps I have a different version of quick reports.


But all bands have events :
beforeprint
afterprint

so add a qrlabel on the report where you want to display the count.

in your code
var
  Mycount  : integer;

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  Mycount := 0;
end;


headerbandBeforeprint
MyCount :=0;

DetailbandAfterPrint
Inc(MyCount);

FooterBandBeforePrint
  MyQrLabel.Caption := IntToStr(MyCount);


perhaps thats not exactly perfect but that is a solid technique for printing counts.

Rob;-)

0
 
LVL 9

Expert Comment

by:ITugay
ID: 2663471
Or place TQRSysData component into desired band. And then set it property Data = qrsDetailCount (qrsDetailNo sometimes usefull too).

Igor.
0
 
LVL 7

Expert Comment

by:RBertora
ID: 2663597
Yes Igor, I found though that if certain flags are set like reprintonnewpage etc.. sometimes qr count functions have bugs..
thus prefer to handle it myself :-)
Rob;-)
0
 
LVL 2

Accepted Solution

by:
NetoMan earned 50 total points
ID: 2671004
If I understand your question. Just put a TQRExpr object in each band and set the expresion propery to :

   COUNT(NameofCustNoField)

and:

   COUNT(NameofOrderNoField)

0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…

740 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question