Jump to content

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Giovanne Fontenele Trevia

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

Recommended Posts

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;

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
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

 

 

Share this post


Link to post
Share on other sites
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

 

 

Share this post


Link to post
Share on other sites
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;

Share this post


Link to post
Share on other sites
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
Ajude o Projeto ACBr crescer - Assine o SAC

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.

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Obrigado por reportar.

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

  • Like 1

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

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

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...