Ir para conteúdo
  • Cadastre-se

dev botao

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


Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 1637 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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;

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

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

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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:

image.png

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

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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';

image.png

Verifique novamente...

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
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';

image.png

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;

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution
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?

  

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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.
Link para o comentário
Compartilhar em outros sites

  • Membros Pro
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';

image.png

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

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

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

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

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


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1637 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...