Impressão do DANFE NF-e Mascara de destinatário CNPJ

[Giovanne Fontenele Trevia]

Bom Dia

Estou com um problema de impressão de do DANFE NF-e que analisando o código não encontrei solução : 

Tenho um cliente que esta tentando emitir uma NF-e para esse CNPJ : 00.000.802/0073-76, a nota é autorizada 

corretamente porem quando vai ser impresso o DANFE, a mascara sai incorreta sendo usada a de CPF.

Detalhe ele é valido para CNPJ e CPF, resultado a mascara da nota na hora da impressão invariavelmente fica a 

do CPF: Alguma ideia de como resolver. 

Detalhe estou usando esse Formato de impressão para o Modelo 55 : ACBrNFeDANFeRLRetrato

procedure TfrlDANFeRLRetrato.DefinirDestinatario;
begin
  with fpNFe.Dest do
  begin
    if NaoEstaVazio(idEstrangeiro) then
      rllDestCNPJ.Caption := idEstrangeiro
    else
      rllDestCNPJ.Caption := FormatarCNPJouCPF(CNPJCPF);

    rllDestIE.Caption := IE;
    rllDestNome.Caption := XNome;
    with EnderDest do
    begin
      rllDestEndereco.Caption := XLgr +
        IfThen(Nro = '0', '', ', ' + Nro) +
        IfThen(NaoEstaVazio(xCpl), ' ' + xCpl, '');

      rllDestBairro.Caption := XBairro;
      rllDestCidade.Caption := XMun;
      rllDestUF.Caption := UF;
      rllDestCEP.Caption := FormatarCEP(CEP);
      rllDestFONE.Caption := FormatarFone(Fone);
    end;
  end;
end;

function FormatarCNPJouCPF(const AValue: String): String;
var
  S: String;
begin
  S := OnlyNumber(AValue);
  if Length(S) = 0 then
     Result := S
  else
  begin
    if Length(S) = 14 then
      Result := FormatarCNPJ(S)
    else
      Result := FormatarCPF(S);
  end;
end;

 

[Giovanne Fontenele Trevia]

Continuando descobri que o problema é até maior porque quando gera o xml o componente prenche a tag errada.

Essa empresa é 

Consulta do Sintegra Para, mas essa empresa esta em todo o BRASIL

Data da consulta:

03/10/2019

IDENTIFICAÇÃO

CNPJ:	00.000.802/0073-76	Inscrição Estadual:	15.643.790-2	UF:	PA
Razão Social:	HC PNEUS S/A

 

15191007961363000132550010000162381500162388-nfe.xml

[BigWings]

25 minutos atrás, Giovanne Fontenele Trevia disse:

Continuando descobri que o problema é até maior porque quando gera o xml o componente prenche a tag errada.

Realmente está gerando como CPF:

Como você está alimentando o componente na geração do XML?

[Giovanne Fontenele Trevia]

10 minutos atrás, BigWings disse:

Realmente está gerando como CPF:

Como você está alimentando o componente na geração do XML?

Estou informando CNPJCPF com 14 posiçoes - [00000802007376]

[BigWings]

14 minutos atrás, Giovanne Fontenele Trevia disse:

Estou informando CNPJCPF com 14 posiçoes - [00000802007376]

Testei pelo demo do componente e gerou correto:

  NotaF.NFe.Dest.CNPJCPF           := '00000802007376';
  NotaF.NFe.Dest.IE                := '';
  NotaF.NFe.Dest.indIEDest         := inNaoContribuinte;
  NotaF.NFe.Dest.ISUF              := '';
  NotaF.NFe.Dest.xNome             := 'EMPRESA TESTE LTDA ME';

Verifique novamente...

[Giovanne Fontenele Trevia]

5 minutos atrás, BigWings disse:

Testei pelo demo do componente e gerou correto:

  NotaF.NFe.Dest.CNPJCPF           := '00000802007376';
  NotaF.NFe.Dest.IE                := '';
  NotaF.NFe.Dest.indIEDest         := inNaoContribuinte;
  NotaF.NFe.Dest.ISUF              := '';
  NotaF.NFe.Dest.xNome             := 'EMPRESA TESTE LTDA ME';

Verifique novamente...

NotaF.NFe.Dest.CNPJCPF  := '00000802007376';
NotaF.NFe.Dest.IE               := '0731791900112';
NotaF.NFe.Dest.ISUF          := '';
NotaF.NFe.Dest.xNome     := 'HC PNEUS';
NotaF.NFe.Dest.indIEDest := inContribuinte;

[EMBarbosa]

23 horas atrás, Giovanne Fontenele Trevia disse:

NotaF.NFe.Dest.CNPJCPF  := '00000802007376';
NotaF.NFe.Dest.IE               := '0731791900112';
NotaF.NFe.Dest.ISUF          := '';
NotaF.NFe.Dest.xNome     := 'HC PNEUS';
NotaF.NFe.Dest.indIEDest := inContribuinte;

Olá,

   Acabei de testar aqui no Demo do Delphi com essa alteração e parece estar funcionando corretamente. Eu utilizei o botão "Gerar NFe" apenas removendo o comando de assinatura. Testei tanto em homologação como produção.

Veja:

- <dest>
  <CNPJ>00000802007376</CNPJ> 
  <xNome>HC PNEUS</xNome> 
- <enderDest>
  <xLgr>Rua Coronel Aureliano de Camargo</xLgr> 
  <nro>973</nro> 
  <xBairro>Centro</xBairro> 
  <cMun>3554003</cMun> 
  <xMun>Tatui</xMun> 
  <UF>SP</UF> 
  <CEP>18270170</CEP> 
  <cPais>1058</cPais> 
  <xPais>BRASIL</xPais> 
  <fone>1532599600</fone> 
  </enderDest>
  <indIEDest>1</indIEDest> 
  <IE>0731791900112</IE> 

   Será que não há alguma alteração nos seus fontes? Será que eles estão atualizados?

  

[Giovanne Fontenele Trevia]

Em 03/10/2019 at 11:06, BigWings disse:

Testei pelo demo do componente e gerou correto:

  NotaF.NFe.Dest.CNPJCPF           := '00000802007376';
  NotaF.NFe.Dest.IE                := '';
  NotaF.NFe.Dest.indIEDest         := inNaoContribuinte;
  NotaF.NFe.Dest.ISUF              := '';
  NotaF.NFe.Dest.xNome             := 'EMPRESA TESTE LTDA ME';

Verifique novamente...

NotaF.NFe.Dest.CNPJCPF  := '00000802007376';
NotaF.NFe.Dest.IE               := '0731791900112';
NotaF.NFe.Dest.ISUF          := '';
NotaF.NFe.Dest.xNome     := 'HC PNEUS';
NotaF.NFe.Dest.indIEDest := inContribuinte;

 

aparentemente sim porque funcionou apos atualização.

Pode fechar o post

 

[Juliana Tamizou]

Obrigado por reportar.

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