Como tratar o erro Rejeição: Consumo Indevido?

[johnbh3]

Olá,

Galera onde eu trata este erro? 

Estou usando a rotina - ACBrNFe1.WebServices.Consulta.Executar
Esta retornando o erro - Consumo indevido.
Ja tentei - ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[l].RetEventoNFe.xMotivo (Não da)

queria mostrar uma mensagem para o usuario !
 

  <?xml version="1.0" encoding="UTF-8" ?>

- <retConsSitNFe versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe">

  <tpAmb>1</tpAmb>

  <verAplic>SP_NFE_PL_008i2</verAplic>

  <cStat>656</cStat>

  <xMotivo>Rejeição: Consumo Indevido</xMotivo>

  <cUF>35</cUF>

  <dhRecbto>0001-01-01T00:00:00+00:00</dhRecbto>

  <chNFe>35160804054485000157550010000540801989800004</chNFe>

  </retConsSitNFe>

[Juliomar Marchetti]

o tratamento é simples diminuir a quantidade de chamadas do webservice!

[johnbh3]

OK!
Mas alguém se existe essa possibilidade de tratar?
Eu não posso controlar ação do usuário! Justamente por isso a pergunta, para mostrar isto ao usuário. Caso contrario fico sem informaro ao usuario um motivo, porque simplesmente não busca. Causando a falta sensação que ao APP não esta funcionando.

Alguém sabe mim dizer ?

[Agnaldo Prates]

Já tentou utilizar
Try
...
Except
 ... Tratar a exceção
End

Assim você pega o retorno e mostra para o usuário.

[johnbh3]

Olá,
Então parceiro!
Ele não chega a da um erro pra mim tratar com
Try
...
Except

Não é um erro de aplicação para ser tratado assim.
E um retorno da SEFAZ! Que eu ao meu ver devo tratar como trato as outras TAG

Exemplo: Seria como tratar o CSTAT -> ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento

Este erro de consumo indevido retorna um CSTAT =  656

[Agnaldo Prates]

Em não sendo erro de aplicação, e, caso o cStat seja 656,  apresente o conteúdo da tag, xMotivo.

"Olá,

Galera onde eu trata este erro? 

Estou usando a rotina - ACBrNFe1.WebServices.Consulta.Executar
Esta retornando o erro - Consumo indevido.
Ja tentei - ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[l].RetEventoNFe.xMotivo (Não da)

queria mostrar uma mensagem para o usuario !"
O que entendi ma mensagem é que se tratava de um erro.

 

[Bruno Giovani]

Bom dia!

Acredito que você tenha que tratar a ação do usuário antes de acontecer o erro, ou seja, se você tem um botão de consulta por exemplo, faça um algorítimo onde ao clicar a primeira vez funcione o procedimento se repetir o procedimento em menos de XXX minutos exiba uma mensagem alertando que o usuário poderá causar o erro de Consumo Indevido.....

Dê uma lida em : http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=IjF66WihatE=

 

Espero ter ajudado!

 

[johnbh3]

Bom
Melhor deixar pra la rs!
Acho valido a sugestão e foi implementada. 
Mas a minha pergunta e apenas se alguém sabe informar se e possivel obter o conteudo da tag deste retorno. Porque as outras em linhas gerais todas tem. Ter uma função para tratar antes do erro e valida, mas apenas obter uma outra alteranativa, só isso.

 

Se não tem como obter tal recurso, pelo que notei não pelas respostas, embora indiretamente. Simples, não tem! Morreu assunto

Obrigado a todos pela ajuda.

 

[BigWings]

ACBrNFe1.Configuracoes.Webservices.Visualizar := False;
try try

  if not ACBrNFe1.WebServices.StatusServico.Executar then
    ShowMessage('Erro ao verificar status do serviço')
  else
  begin
    case ACBrNFe1.WebServices.StatusServico.cStat of
      107: ShowMessage('107-Serviço em Operação');
      108: ShowMessage('108-Serviço Paralisado Temporariamente');
      109: ShowMessage('109-Serviço Paralisado sem Previsão');
    else
      ShowMessage(Format('%d-%s', [ACBrNFe1.WebServices.StatusServico.cStat, ACBrNFe1.WebServices.StatusServico.xMotivo]));
    end;
  end;

except
  on E: Exception do ShowMessage('Erro ao verificar status do serviço: ' + E.Message); end;
finally
  ACBrNFe1.Configuracoes.Webservices.Visualizar := True;
end;

 

[johnbh3]

Resolvido!

 

So repassando era simples
 

     case ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat of
      137:Begin
          FrmErro:=TFrmErro.Create(Application);
          FrmErro.Edt_error.Lines.Clear;
          FrmErro.Edt_error.Lines.Add('137-Nenhum documento localizado');
          FrmErro.ShowModal;

          End;
      656:Begin
          FrmErro:=TFrmErro.Create(Application);
          FrmErro.Edt_error.Lines.Clear;
          FrmErro.Edt_error.Lines.Add('656-Rejeição: Consumo Indevido');
          FrmErro.ShowModal;
          End;
     end;

[Wellington Bozelli]

Bom dia amigo, tive um problema parecido com Cliente, fiz do jeito como falou.

e Tratei com mais uma mensagem .  Sistema inoperante, tente em 30 minutos.

Sleep(50000)  tempo que vai demorar ate tentar enviar a próxima , no meu caso eu tenho um ROBO que fica enviando as notas tempo em tempo,