DANFe - falha no layot da impressão com fortes report

[jeaanca]

Na impressão da NF-e, nos dados dos produtos / serviços, de acordo com a quantidade de registros as linha são coloridas com cores alternadas. porém o campo estava sendo pintado ultrapassando a largura máxima do "detail". segue o print do erro: 


Para correção desse problema realizei algumas modificações nos arquivos (ACBrNFeDANFeRLRetrato.pas, ACBrNFeDANFeRLRetrato.dfm), segue imagem:


Não sei se já foi feito alguma correção nesse sentido, mas estou anexando os arquivos com minhas alterações.

Obrigado.

ACBrNFeDANFeRLRetrato.dfm ACBrNFeDANFeRLRetrato.pas

[Juliana Tamizou]

Bom dia,

Obrigada pela contribuição, adicionada para validação.

Att.

[EMBarbosa]

Em 05/07/2019 at 09:27, jeaanca disse:

Não sei se já foi feito alguma correção nesse sentido, mas estou anexando os arquivos com minhas alterações.

Obrigado.

ACBrNFeDANFeRLRetrato.dfm 193 kB · 0 downloads ACBrNFeDANFeRLRetrato.pas 69 kB · 0 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  17326.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

 

[jeaanca]

Eu atualizei e percebi que as linhas não estavam sendo pintadas com cores alternadas.

Verifiquei que você adicionou o seguinte código no BeforePrint do rlbItens na unit ACBrNFeDANFeRLRetrato:

     if fpDANFe.AlternaCoresProdutos then
    begin
        FundoItem.Height  := rlbItens.Height;
        FundoItem.Color   := fpCorDestaqueProdutos;
        FundoItem.Visible := not (FundoItem.Visible); // o problema está nessa linha
    end;

mas esse código já está adicionado no evento AfterPrint da seguinte forma:

FundoItem.Visible := not (FundoItem.Visible) and fpDANFe.AlternaCoresProdutos;

Ou seja quando a propriedade AlternaCoresProdutos está marcada como True ele sempre será pintado, porque quando o evendo BeforePrint marca exibição como False o próximo evento a ser executado marca a exibição como True.

Para corrigir essa falha eu removi essa linha do evento BeforePrint:
  FundoItem.Visible := not (FundoItem.Visible);

o Código ficou da seguinte forma na parte final do método rlbItensBeforePrint:

  if fpDANFe.AlternaCoresProdutos then
  begin
    FundoItem.Height  := rlbItens.Height;
    FundoItem.Color   := fpCorDestaqueProdutos;
  end;

 

[EMBarbosa]

2 horas atrás, jeaanca disse:

Eu atualizei e percebi que as linhas não estavam sendo pintadas com cores alternadas

hmm acho que enviei o arquivo incorreto. Vou verificar.

[EMBarbosa]

18 horas atrás, jeaanca disse:

Para corrigir essa falha eu removi essa linha do evento BeforePrint:
  FundoItem.Visible := not (FundoItem.Visible);

o Código ficou da seguinte forma na parte final do método rlbItensBeforePrint:

Acabei de enviar ao SVN uma correção nesse código. Revisão 17332.

Todo o código da alternação de cores agora fica apenas no rlbItensBeforePrint. Isso deve facilitar verificações futuras.

Fiz alguns testes aqui e parece ok. Mas, por favor, queira atualizar, testar e reportar caso encontre algum problema.

Mais uma vez, obrigado pelas sugestões.

[jeaanca]

Atualizai e funcionou corretamente.
Muito obrigado.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.