GroupFooter - FastReport

[Otto]

Hello Randal,
My email was blocked. Do you have another email.
Best regards,
Otto

[Randal]

Otto,

Thanks for your reply. Try me at scebee@yahoo.com.

If you think the question about FastReport might be beneficial to someone else here please feel free to respond here.

Thanks,
Randal

[Otto]

Hallo Randal,
I think you can do it with the ONBeforePrint Event:
PascalScript
procedure F_GroupFooter1(Sender: TfrxComponent);
begin
GroupFooter1.Visible := <TestLogischeVariable> ; // not empty or whatever you want or pass a variable like I do it here
end;

What I also do is to use a memofield and set the StretchMode to SMMaxHeight.

Best regards,
Otto

[Otto]

Hello Randal,
please look at this thread:

viewtopic.php?f=3&t=18227&p=95574#p95574
Best regards,
Otto

[Randal]

Otto,

I don't understand how this will address my problem.

I have a number of totals in the group footer but some of the total lines are conditional. When some of the total lines are not applicable I need for the other total lines to move up. For example:

Subtotal xx.xx
Sales Tax xx.xx
Previous Balance xx.xx
Total xx.xx

If there is no sales tax then it should print:

Subtotal xx.xx
Previous Balance xx.xx
Total xx.xx

In this case the number of lines the group footer band prints will be one less.

Thanks,
Randal

Hallo Rendal,
I think you can do it with the ONBeforePrint Event:
PascalScript
procedure F_GroupFooter1(Sender: TfrxComponent);
begin
GroupFooter1.Visible := <TestLogischeVariable> ; // not empty or whatever you want or pass a variable like I do it here
end;

What I also do is to use a memofield and set the StretchMode to SMMaxHeight.

Best regards,
Otto

[Otto]

Hello Randal,
There are many ways to do. Every control has events.
For example you could do:

Inset a text lable you call Memo42 and one Memo43 or change the code.
The text on Memo42 should be "noSales Tax" then run the report. You see the text is printed at Top = 250
If you change the text Memo43 is printed at:
Memo43.TOP := 164;
Memo43.LEFT := 64;

Code: Select all  Expand view

procedure Memo43OnBeforePrint(Sender: TfrxComponent);
begin  

 if   TRIM( Memo42.TEXT ) =  'noSales Tax' then            // here is your condition        
  begin    
  showmessage ( Memo42.TEXT );
  Memo43.TOP := 250;  
 end

else

begin
   showmessage ( Memo42.TEXT );
   Memo43.TOP := 164;
    Memo43.LEFT := 64;      
end;

 
end;
 
begin

end.

This is only to demonstrate. I think it would be better to have own bands which you show if the condition is true.
Best regards,
Otto

[Randal]

Otto,

How would you do it with different bands?

Randal

[Otto]

Randal,
could you send me your report file.
Best regards,
Otto

[Randal]

Otto,

I took your advice and set it up using a seperate group footer for each of the conditional total lines. This seems to work fine.

On another note, I copy/pasted your sample code and I keep getting an error when trying to print until I add another BEGIN END statement.

procedure F_GroupFooter1(Sender: TfrxComponent);
begin
GroupFooter1.Visible := <Invoice."tax"> > 0;
end;

with the above I get a message: 'BEGIN' expected


In the following I add BEGIN END and it works fine.

procedure F_GroupFooter1(Sender: TfrxComponent);
begin
GroupFooter1.Visible := <Invoice."tax"> > 0;
end;

BEGIN
END.

Perhaps we should change the title of this thread?

Thanks,
Randal

[Otto]

Hello Randal,

I changed the title to GroupFooter – FastReport.- Please excuse me that I spelled your name the wrong way.

> I took your advice and set it up using a seperate group footer for each of the conditional total lines.
If you use more “group footer” do you have to insert for every “group footer” a “group header”?

I thought you could also try to insert pages and set on these the PrintOnPreviousePage to TRUE.
Best regards,
Otto