Solved

Sum of Durations in a Group

Posted on 2012-04-10
7
362 Views
Last Modified: 2012-08-14
I have Crystal report which is grouped per user, I then make use of Datediff to get the duration of stay between entrance and exit. If a User has multiple entrances and exits (Multiple durations) I want to add them but Crystal tells me that the field cannot be summarized, If have been able to use count and variable to 'cheat' this in the past but know need the sum of all 'durations' per Group (User).

D
0
Comment
Question by:John-S Pretorius
  • 3
  • 3
7 Comments
 
LVL 100

Expert Comment

by:mlmcc
ID: 37830935
How are you doing the calculation?

mlmcc
0
 
LVL 34

Expert Comment

by:James0628
ID: 37831358
It looks like you've got separate Entry and Exit records, and I'm guessing that you're using something like DateDiff ("m", {date field}, Next ({date field})) to get the Duration.  You wouldn't be able to do a summary on that, since it uses Next.  If I'm right, you'll probably need to use a variable to get the total.  The details may vary depending on your report, but here are the basics.

 Create a formula like the following (call it whatever you like) and put it in the report header _and_ the User group header:

WhilePrintingRecords;
Global NumberVar user_duration;
user_duration := 0;
""

 The "" at the end is simply so that it doesn't produce any visible output on the report.  You could also suppress the formula, or the section that it's in.

 Putting that in the report header declares the variable for the report, and putting it in the group header resets the variable for each new group (user).

 Change the formula where you calculate the Duration.  Add these lines to the beginning:

WhilePrintingRecords;
Global NumberVar user_duration;


 Change the end of that formula (where you calculate the Duration) to something like this:

user_duration := user_duration + <your Duration calculation>;

<your Duration calculation>


 Do the calculation once to add the result to the variable, then do it again to produce the Duration on the report.


 Then create another formula to output the total in the group (User) footer:

WhilePrintingRecords;
Global NumberVar user_duration


 Like I said, the details may vary, depending on exactly how you're calculating the Duration, etc., but that's the general idea.

 James
0
 

Author Comment

by:John-S Pretorius
ID: 37832290
Your approach is what I have used in the past to get a count together, and it is close but as you mentioned causes issues due to the fact how I'm calculating Duration :

(datediff ("n",({ContractParkerMovements.Time}),next({ContractParkerMovements.Time})));
-(Note - I conditionally suppressed the Exit value as I don't care for how long the user has left the building)

The answer in the footer is not calculating the sum, I found that there is actually copied values below some of th e original entrie values and then at the footer I always get the last value of the group.

I'm guessing the result is due to the 'next' statement I'm using - how would one use 'if onlastrecord' in a group?

Please have a look at the image and sample report.

1UsageDuration-MontUsers.rpt
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

Author Comment

by:John-S Pretorius
ID: 37832768
I hate cheating/(working around) to get results and hope someone can guide me how to calculate the same results correctly:

This is what I added to the formula James supplied :
WhilePrintingRecords;
Global NumberVar user_duration;
user_duration :=  if ({ContractParkerMovements.MovementType}) <> 4 then user_duration +
(datediff ("s",({ContractParkerMovements.Time}),next({ContractParkerMovements.Time})))
else user_duration;

The result is a total sum of the durations, Following the instructions and refering to the previous image insert you will see that the 'Entry' duration totals was actually just growing/(adding the difference to the previous duration) - so I created a second dutation formula which shows me the distinct duration for each entry, and then I changed the font color to white of the original duration/(acumulating duration)

I would like to be able to do datetime difference per Group correctly (Using Next? and maybe 'onlastrecord' ?) - I'm still very new to Crystal and don't want to adapt the wrong habbits....Please assist.



See Image and Report example.

1UsageDuration-MontUsers0411.rpt
0
 
LVL 34

Accepted Solution

by:
James0628 earned 500 total points
ID: 37833673
As far as the "growing" figure goes, that's why I said to include the duration calculation twice.  Forgetting the test on MovementType for the moment, @Duration would look like this:

WhilePrintingRecords;
Global NumberVar user_duration;

user_duration := user_duration +
 DateDiff ("s", {ContractParkerMovements.Time}, Next ({ContractParkerMovements.Time}));

DateDiff ("s", {ContractParkerMovements.Time}, Next ({ContractParkerMovements.Time}))


 It calculates the difference once and adds that to the variable, and then calculates it again and uses that as the output for the formula, so you see the current figure, instead of the total.

 If you only want to add the difference to the total when MovementType <> 4, I would use this:

WhilePrintingRecords;
Global NumberVar user_duration;

if ({ContractParkerMovements.MovementType}) <> 4 then
  user_duration := user_duration +
   DateDiff ("s", {ContractParkerMovements.Time}, Next ({ContractParkerMovements.Time}));

DateDiff ("s", {ContractParkerMovements.Time}, Next ({ContractParkerMovements.Time}))


 That only adds to user_variable when MovementType <> 4.  It still outputs the difference (the last DateDiff), but you won't see it when MovementType = 4, because of your suppression on that field.


 I'm not sure what you were saying about Next and OnLastRecord, but if you're concerned about using Next and getting the value from the first record from the next group (user), you can check Next ({ContractParkerMovements.UserNo}).  Something like this maybe:

WhilePrintingRecords;
Global NumberVar user_duration;

if not OnLastRecord and
 {ContractParkerMovements.UserNo} = Next ({ContractParkerMovements.UserNo}) and
 {ContractParkerMovements.MovementType} <> 4 then
  user_duration := user_duration +
   DateDiff ("s", {ContractParkerMovements.Time}, Next ({ContractParkerMovements.Time}));

if not OnLastRecord and
 {ContractParkerMovements.UserNo} = Next ({ContractParkerMovements.UserNo}) then
  DateDiff ("s", {ContractParkerMovements.Time}, Next ({ContractParkerMovements.Time}))



 James
0
 

Author Closing Comment

by:John-S Pretorius
ID: 37833722
Thank you.
0
 
LVL 34

Expert Comment

by:James0628
ID: 37836059
You're welcome.  Glad I could help.

 James
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Crystal Reports: 5 Tests for Top Performance It is complete, your masterpiece report.  Not only does it meet your customer’s expectations, it blows them out the water, all they want is beautifully summarised and displayed in a myriad of ways. …
I hate sub reports and always consider them the last resort in any reporting solution.  The negative effect on performance and maintainability is just not worth the easy ride they give the report writer.  Nine times out of ten reporting requirements…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

757 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now