Jump to content

dev botao

Danfe Nfce Imprimindo O Qrcode Na Posicao Errada


  • Este tópico foi criado há 3634 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá... 

Estou fazendo algumas mudanças no danfe que veio junto com o projeto acbrnfemonitor2 e consegui tudo que eu queria, menos consertar o erro que está aparecendo quando imprime os dados do destinatário e somente 1 produto. 

 

Se mando sem os dados do destinatário, não importa quantos produtos, o qrcode imprime correto, logo abaixo do Memo dos dados do consumidor.

Danfe correto com 01 item e o qrcode na posicao correta sem consumidor.pdf 

 

Se mando com os dados do destinatário e mais e 1 produto, também imprime o qrcode logoa abaixo do Memo dos dados do consumidor. 

Danfe correto com 03 itens e qrcode na posicao certa.pdf

 

Se mando com os dados do destinatário e somente um produto, aí dá o erro, ele deixa o espaço de um qrcode e depois imprime o qrcode. Todos os testes que fiz só aparece o erro assim.

Danfe errado - com 1 item e o qrcode na posicao errada.pdf

 

Fiz umas mudanças no carregamento dos dados do destinatário, mas acho que não tem nenhum erro, porque como podem ver nos pdf´s anexos, só aparece o erro quando éh somente um item de produto. 

 

Veirifiquei as propriedades do memo lObservacoes e o memo lEnderecoConsumidor está identico. o lObservacoes está funcionando correto. 

 

Código alterado

procedure TACBrNFeDANFCeFortesFr.rlbConsumidorBeforePrint(Sender: TObject;
  var PrintIt: boolean);

var CEP : String;
begin
  with ACBrNFeDANFCeFortes.FpNFe do
  begin

   if(Dest.CNPJCPF = '') then

      begin
        lCPF_CNPJ_ID.Lines.Text       := 'CONSUMIDOR NÃO IDENTIFICADO';
        lEnderecoConsumidor.Lines.Text := '';
      end

   else

    begin

      if Length(trim(Dest.CNPJCPF)) > 11 then
        lCPF_CNPJ_ID.Lines.Text  := 'CNPJ/CPF -'+DFeUtil.FormatarCNPJ(Dest.CNPJCPF)
      else
        lCPF_CNPJ_ID.Lines.Text  := 'CNPJ/CPF -'+DFeUtil.FormatarCPF(Dest.CNPJCPF);
        lCPF_CNPJ_ID.Lines.Text  := lCPF_CNPJ_ID.Caption+' '+Dest.xNome;

      CEP := IntToStr(Dest.EnderDest.CEP);
      lEnderecoConsumidor.Lines.Text := Trim(Dest.EnderDest.xLgr)   + ', No ' +
                                      Trim(Dest.EnderDest.nro)    + ' - ' + copy(CEP,1,2)+'.'+copy(CEP,3,3)+'-'+copy(CEP,6,3) + #13#10 +
                                      Trim(Dest.EnderDest.xBairro)+ ' - ' +
                                      Trim(Dest.EnderDest.xMun)   + ' - ' +
                                      Trim(Dest.EnderDest.UF)  ;
    end;
  end;
end;

O meu conhecimento em delphi é muito fraco... 

Será que alguém poderia dar uma olhada?

 

Obrigado

Rubens

Link to comment
Share on other sites

  • 3 weeks later...
  • Este tópico foi criado há 3634 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...