FastReport no Delphi - Plano de contas

FastReport no Delphi - Plano de contas

  março 23, 2018    Ana Paula Novello

---

Continuação do artigo do abaixo mas agora com Plano de contas

http://anaprogramadorajunior.blogspot.com.br/2016/08/criar-etiqueta-no-fastreport_7.html

Hoje um cliente me pediu para fazer a impressão dos planos de contas em relatório, mas que mostre por forma hierárquica como o exemplo do “Treeview”, a forma que eu fiz foi colocando um código no OnBedorePrint para dar alguns espaços em branco de acordo com o código do plano de contas.

Objetivo e ficar assim:

01 - RECEITAS
      01.01 - RECEITAS COM VENDAS      
      01.02 - RECEITAS COM COMERCIALIZAÇÃO
02 - DESPESAS        
      02.01 - OBRIGAÇÕES TRIBUTÁRIAS              
               02.01.01 - SIMPLES A RECOLHER       
      02.02 - OBRIGAÇÕES COM O PESSOAL 

Então vamos criar algo parecido com isto?

Com esse código abaixa no evento “OnBeforePrint” na banda no “FastReport” ele faz o cálculo de acordo com a quantidade de caracteres , mas lembre-se de manda já ordenado por código para o “FastReport” senão vai ficar desordenado

procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
   mmFluxo.GapX := Length() * 10 + 2;
end;

Resultado

Exemplo: Download do exemplo