Using A Group Sum In The MasterData Calc

Comments

• gordk St.Catherines On. Canada.

  January 2006 edited 4:54AM

  first make the report 2 pass assuming we will display the % in a memo on the mdband create a variable of type extended on the code page ie "mypct" it will be used to display the value in the memo [mypct] initialize it to 0 at the start of the report. store the aggregate sum in an array whose index value is set in the group header, on the first pass. you can then write code in the obp event of the mdband to modify the variables value.
  if engine.finalpass then mypct := <datafield."name"> \ array(index)
  
• PixelPointer Vaughan, Ontario

  January 2006 edited 4:54AM

  Thank you very much Gord for your assistance. I am doing my best with this scripting stuff, but not having the best of luck. Are there sample scripts around here, to kinda give me a better understanding of the scripting? I have done some C, C#, and VB programming in the past, so I am not completely unfamiliar with programming. The arrays are throwing me off a little. Within the script, can I set up a dynamic array variable with which I might re-dimension, while preserving the previously added aggregate values? Actually, I was wondering why it does not work to simply declare a global variable, and then in the obp of the mdband, add the field values to the variable on first pass, then perform the calcualtion on second pass. To me, this logically makes sense, but I tried that, and then ended up out here posting my question.
  
  I grabbed a script from the FR site, and attempted to bastardize it for my own purposes, but I keep recieving an issue with variable types:

   
  var
  List: TStringList;
  i: Integer;
  procedure FFReportOnStartReport(Sender: TfrxComponent);
  begin
  List := TStringList.Create;
  end;
  procedure FFReportOnStopReport(Sender: TfrxComponent);
  begin
  List.Free;
  end;
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
  i := 0;
  end;
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
  if Engine.FinalPass then
  memPercentTotal.Text := <Price> / StrToFloat(List[i]);
  
  end;
  procedure gfSummaryGroupOnBeforePrint(Sender: TfrxComponent);
  begin
  List.Add(FloatToStr(<SUM(<Price>,MasterData1)>));
  Inc(i);
  end;
  begin
  end.
  

  
  <Price> is the field that I am using to sum, and is the basis for my calculations.
• gordk St.Catherines On. Canada.

  January 2006 edited 4:54AM

  run the main demo look under dialogs and script category at the grouptotalsin header report to see how we gathered the total from the footer into the array created using the set method in the event of the footer and how we transfered it to the memo in the obp of the header using the get method.
  the principal is the same except you won't need to use vartostr function just transfer value to the var you created
  create a var mytot at start of code page, in blank begin end block initialize it to 1
  then the memo can contain the expression [datafield/variable]
• PixelPointer Vaughan, Ontario

  January 2006 edited 4:54AM

  That was great! Thank you so much for your help!!!