Jump to content

2 Dia do ACBr

O Dia da Automação Comercial está chegando!
Inscreva-se

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

jeaanca

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

Recommended Posts

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: 
image.png.afdc5f00ce09a56efd701caba924e7d2.png

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

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

  • Like 2
  • Thanks 2

Share this post


Link to post
Share on other sites

Bom dia,

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

Att.

  • Like 3

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
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.

 

  • Like 2

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.

Share this post


Link to post
Share on other sites

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;

 

Share this post


Link to post
Share on other sites
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.

  • Like 2

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.

Share this post


Link to post
Share on other sites
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.

  • Like 1

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.

Share this post


Link to post
Share on other sites

Obrigado por reportar.

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

  • Like 1

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...