Problema Na Consulta De Nota Com Evento De Ct-E

[João Paulo Delboni]

Bom dia a todos.

 

Estou usando a processo de consulta de notas em para verificar se a Nota está OK ou não autoirizada por n motivos.

Até aqui ok.

Tenho notado que algumas notas que tem evento de CT-e, está retornando o seguinte erro: Erro: Descrição do Evento não Implementado!

Analisei o código e verifiquei que na unit pcnEventoNFe, existe a propriedade:

 

function TInfEvento.getDescEvento: String;

begin

  case fTpEvento of

    teCCe                      : Result := 'Carta de Correcao';

    teCancelamento             : Result := 'Cancelamento';

    teManifDestConfirmacao     : Result := 'Confirmacao da Operacao';

    teManifDestCiencia         : Result := 'Ciencia da Operacao';

    teManifDestDesconhecimento : Result := 'Desconhecimento da Operacao';

    teManifDestOperNaoRealizada: Result := 'Operação nao Realizada';

    teEPECNFe                  : Result := 'EPEC';

  else

    raise EventoException.Create('Descrição do Evento não Implementado!');

  end;

end;

 

Após diversos testes verifiquei que essa propriedade não trata o evento teRegistroCTe, que é o que está acarretando o erro citado. Adicionei para testes apenas o seguinte trecho:

 

teRegistroCTe              : Result := 'Registro de CT-e';

 

e a consulta passou corretamente.

 

Segue o meu código para análise e também uma nota de exemplo:

 

  with dmPrincipal.ACBrNFe1.WebServices do

  begin

    Consulta.NFeChave := '35140815642942000140550010000049391000085950';

    Result := Consulta.Executar;

  end;

 

Qualquer dúvida estou a disposição.

Grato.

[Paulo Almeida]

Também tive esse problema e fiz a mesma coisa.

[Carlos Tre]

Acabei de comentar sobre esta situação neste outro artigo: