Erro 494 - rejeição chave de acesso inexistente

[Claudiomir]

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 21 Setembro, 2016 por Claudiomir
Inclusão arquivo xml