Ir para conteúdo
  • Cadastre-se

dev botao

Carta de Correção NFA-e


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

Recommended Posts

  • Administradores

Bom dia.

Qual a UF? Tivemos relatos de problemas semelhantes.

Att.

  • 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

  • Administradores

Bom dia.

Que  bom que foi resolvido, para auxiliar a comunidade, pode informar como?

Att.

  • 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

  • Solution

Juliana,

foi extremamente simples, enviando para a tag infEvento.CNPJ o valor do CPF sem zeros não significativos;

      ACBrNFe1.EventoNFe.Evento.Clear;
      ACBrNFe1.EventoNFe.idLote := 1 ;
      ACBrNFe1.EventoNFe.Versao := '1.00';
      with ACBrNFe1.EventoNFe.Evento.Add do
      begin
        infEvento.chNFe := strChave;
        infEvento.CNPJ   := SomenteNumero(Querys.Query.FieldByName('CPF').AsString);
        infEvento.dhEvento := now;
        infEvento.tpEvento := teCCe;
        infEvento.versaoEvento := '1.00'; 
        infEvento.nSeqEvento := Querys.Query.FieldByName('SEQUENCIAL').AsInteger;
        infEvento.detEvento.xCorrecao := Querys.Query.FieldByName('CORRECAO').AsString;
      end;
      ACBrNFe1.Configuracoes.Arquivos.Salvar := True;
      ACBrNFe1.EnviarEvento(1);

 

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

  • Este tópico foi criado há 1662 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.