Jump to content

dev botao

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


Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 1756 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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

 

  • Like 1
Link to comment
Share on other sites

  • Administradores

Obrigado por reportar.

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

  • Like 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 to comment
Share on other sites

  • Este tópico foi criado há 1756 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • 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...