Danfe Nfce Imprimindo O Qrcode Na Posicao Errada

[Rubens]

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

[andrelgn]

estou com esse mesmo problema.