Transfer values from footer band to header band

Comments

• Anu de Deus Hampshire, UK

  July 2009 edited 11:26PM

  You will need to do it in the script code.
  At the OnBeforePrint of the memo where you currently print the total in the masterdata you must acumulate the value, like this:
  
  <!--fonto:Courier New--><span style="font-family:Courier New"><!--/fonto-->var
  lCurrentTotal: integer;
  
  procedure Memo1OnBeforePrint(sender...);
  begin
  lCurrentTotal:= currentTotal + Memo1.Value;
  end;
  <!--fontc--></span><!--/fontc-->
  Then in the header beforeprint you have the 2 memoviews, one for 'Transporte $' and another one that will print the subtotal, let's say it's name is Memo2.
  What you need is to make the header visible only if the subtotal is >0, and the value/text of Memo2 to call a function to return the subtotal accumulated:
  
  <!--fonto:Courier New--><span style="font-family:Courier New"><!--/fonto-->procedure Header1OnBeforePrint(sender...);
  begin
  Header1.visible := lCurrentTotal>0;
  end;<!--fontc--></span><!--/fontc-->
  
  Create your custom function, anywhere in the script:
  <!--fonto:Courier New--><span style="font-family:Courier New"><!--/fonto-->
  function MySubTotal: string;
  begin
  result := inttostr(lCurrentTotal);
  end;<!--fontc--></span><!--/fontc-->
  
  <!--fonto:Courier New--><span style="font-family:Courier New"><!--/fonto-->
  begin // main code
  lCurrentTotal := 0;
  end. <!--fontc--></span><!--/fontc-->
  
  
  And make Memo2.text property in the object designer like this: [MySubTotal]
  
  Facil.