Total a column in a report

Comments

• Options

  Arhontis Member Posts: 667

  2004-12-02

  Hi,
  
  To total fields in a report is relatively easy. You enter the fields in the TotalFields propery of a dataitem, and place textboxes with source expression to that fields in a footer section of that dataitem.
  
  In your case, it is difficult because the Roundloop dataitem is an integer one.
  
  All you have to do is create 3 decimal variables, make them zero on the OnPreDataItem of the Roundloop, and in the OnAfterGetRecord do the summing to that variables with code.
  
  Then in a footer section of Roundloop place textboxes with source expression to that variables.
  
  I took a look at the report and it is a bit complicated, make sure that the information you need isn't already calculated.
  
  :-k

  Regards,
  Arhontis
  
  https://forum.mibuso.com/search

  0
• Options

  demi222 Member Posts: 131

  2004-12-03

  ok, I made three global variables:
  
  TotalQuantity
  TotalDiscountAmount
  TotalLineAmount
  
  all of type decimal.
  
  I added a roundloop footer and placed a textbox with source expression of TotalQuantity.
  
  On Pre Data Item of Roundloop I set the variables to 0.
  
  On After Get Record of roundloop the code I have added is:
  IF "Sales Line".FIND THEN
  TotalQuantity := "Sales Line".Quantity;
  
  this, however gets the last record's quantity.
  
  I then tried using "Sales Line".NEXT and this didn't work either.
  
  I don't know how to sum them up.

  0
• Options

  demi222 Member Posts: 131

  2004-12-03

  I got it!!
  
  I should have done TotalQuantity := TotalQuantity + "Sales Line".Quantity.
  
  Thanks for your help!!

  0