fast_report_code_totalizacao_group_footer.pas

var
  GrupoRodapeFormasPagamentos: Integer;
           
procedure GF_CENTRO_CUSTOOnBeforePrint(Sender: TfrxComponent);
begin
  GF_CENTRO_CUSTO.Visible   := GrupoRodapeFormasPagamentos > 1;                                                            
  MemoTotalCentroCusto.Text := IntToStr(GrupoRodapeFormasPagamentos) + ' - Total';                                                                                                  
end;

procedure GF_FORMAS_PAGAMENTOSOnBeforePrint(Sender: TfrxComponent);
begin
  GrupoRodapeFormasPagamentos := GrupoRodapeFormasPagamentos + 1;  
end;

procedure GF_CENTRO_CUSTOOnAfterPrint(Sender: TfrxComponent);
begin
  GrupoRodapeFormasPagamentos := 0;  
end;

begin
                     
end.