Ir para conteúdo
  • Cadastre-se

dev botao

Erro 494 - rejeição chave de acesso inexistente


  • Este tópico foi criado há 2746 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Saudações

Eu... estou cometendo um erro aqui, mas por mais que eu tente, não consigo descobrir qual é.

Já criei um tópico desse assunto antes, mas ele foi resolvido na época.

Agora, o erro retornou. 

Pensei, a principio, que por ter migrado para o trunk2, mas não é o motivo.

Os schemas estão atualizados, com a mesma versão de quando baixei o trunk2.

Gero o NFCE e o sefaz MT valida normalmente.

Gravo numero da nfce e o caminho onde salvei a mesma.

Quando vou cancelar ele dá o erro.

Testei, linha a linha, verifiquei os dados várias vezes. 

Não encontrei nada. 

Abri o tópico abaixo e conferi, linha a linha, o que estava nele, com meu código. Fora mudanças de nomes de variáveis, tudo bate.

Xml da nfce

 

 

 

Quando enviado o evento, recebo a mensagem de "Lote Processado".

Logo a seguir, vem o erro 494.

Verifiquei os dados enviados. Tudo parece normal.

Abaixo envio código de Cancelamento.

 if qvndvndEmitiuNfce.AsString = 'Sim' then
    begin

      ACBrNFe1.EventoNFe.Evento.Clear;
      ACBrNFe1.NotasFiscais.Clear;
      ACBrNFe1.NotasFiscais.LoadFromFile(qvndvndnomenfce.AsString); // C:\posirelo\ArqNfce\201609\51160911911123000109650010000010381000010380-nfe.xml

      Danfenfce.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3';
      Danfenfce.MostrarPreview := true;

      ACBrNFe1.Configuracoes.Geral.Idcsc := cfgcfgidtoken.AsString;
      ACBrNFe1.Configuracoes.Geral.csc := cfgcfgtoken.AsString;
      ACBrNFe1.Configuracoes.Certificados.NumeroSerie := cfgcfgnumserie.AsString;
      ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
      ACBrNFe1.Configuracoes.Certificados.Senha := cfgcfgsenha.AsString;

      NumeroLote := 0;
      Protocolo := qvndvndnprot.AsString;

      ACBrNFe1.EventoNFe.idLote := NumeroLote;

      with ACBrNFe1.EventoNFe.Evento.Add do
      begin
        InfEvento.tpAmb := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb;

//C:\posirelo\ArqNfce\201609\51160911911123000109650010000010381000010380-nfe.xml

        InfEvento.chNFe := copy(qvndvndnomenfce.AsString, 28, 44); // --> 51160911911123000109650010000010381000010380
        InfEvento.CNPJ := cfgcfgdoc1.AsString;
        InfEvento.cOrgao := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF;
        InfEvento.dhEvento := now;
        InfEvento.nSeqEvento := 1;
        InfEvento.tpEvento := teCancelamento;
        InfEvento.detEvento.nProt := Protocolo;
        InfEvento.detEvento.xJust := motivo;

       ACBrNFe1.EnviarEvento(NumeroLote);
      end;

Confirmei com o Sefaz. A NFCE está lá. Está "disponível". Tudo parece estar Ok.

Mas não funciona.

Qualquer ideia ou sugestão será bem vinda.

Claudiomir

51160911911123000109650010000010381000010380-nfe.xml

Editado por Claudiomir
Inclusão arquivo xml
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2746 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.