Tratamento Para Rejeição - "consumo Indevido - 656"

[Victor Tadashi]

Estou implementando o Manifesto no sistema da empresa em que trabalho.

Ao efetuar uma série de testes, obtive a rejeição 656.

 

Decidi aproveitar o ocorrido, para tratar esta rejeição.

 

Ao analisar o fonte da ACBrNfeWebServices, no método TNFeConsNFeDest.Executar, percebi que o Result só será True, quando o cStats do retorno da operação for 137 ou 138.

 

No método TACBrNFe.ConsultaNFeDest, da unit ACBrNFe, se o resultado do método anterior for False, ele vai dar um Raise EACBrNFeException.

 

Essa exceção está vindo sem mensagem, impossibilitando a identificação do erro no meu programa.

 

Gostaria de saber se alguém já teve este problema, e gostaria de saber se tem alguma solução, sem precisa editar os fontes da ACBr.

 

 

[juaumkiko]

E se vc analisar o cStat do retorno, não resolveria?

[Victor Tadashi]

Pois é, é bem provável que sim.

 

Assim a a Sefaz voltar a retornar esta Rejeição, eu confirmo. 

 

valeu

[Daniel Caus]

Boa tarde...

 

Ao consultar dessa forma: dtmDados.ACBrNFe.DistribuicaoDFe(StrToInt(gerEmpresa.est_numero),sCnpj,'0','') , quandoi der o except devido ao 656, eu não estou conseguindo pegar o retorno com o cStat 656...  

 

já tentei dessa forma para verificar, mas mesmo assim ele não entra caso der cStat 656:

    if not(dtmDados.ACBrNFe.DistribuicaoDFe(StrToInt(gerEmpresa.est_numero),sCnpj,'0','')) then
    begin
      Showmessage(IntToStr(dtmDados.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat));
      exit;
    end;

Como vcs fizeram??...

 

desde já agradeço!!

Editado 5 Fevereiro, 2015 por Daniel Caus

[Tiago Ravache]

Daniel debuga o teu código e vai dando F7 até chegar na linha:  raise EACBrNFeException.Create(WebServices.DistribuicaoDFe.Msg); aqui pra mim é a linha 886 da unit ACBrNFe, antes de dar F7 novamente passe o cursor sobre a propriedade DistribuicaoDFe ou na linha acima na mesma propriedade e veja o que elas contém se for 656 você verá, passei por isso, e na realidade cheguei a conclusão, no meu caso que não há o que fazer, pois a SEFAZ deve estar limitando o número de consultas ao novo WebService.

 

Espero ter ajudado.

[Daniel Caus]

Daniel debuga o teu código e vai dando F7 até chegar na linha:  raise EACBrNFeException.Create(WebServices.DistribuicaoDFe.Msg); aqui pra mim é a linha 886 da unit ACBrNFe, antes de dar F7 novamente passe o cursor sobre a propriedade DistribuicaoDFe ou na linha acima na mesma propriedade e veja o que elas contém se for 656 você verá, passei por isso, e na realidade cheguei a conclusão, no meu caso que não há o que fazer, pois a SEFAZ deve estar limitando o número de consultas ao novo WebService.

 

Espero ter ajudado.

 

Olá Tiago... eu verifiquei isso, somente gostaria de tratar o erro, conforme o Victor mencionou, pois mostra uma mensagem em branco ...

 

 

No método TACBrNFe.ConsultaNFeDest, da unit ACBrNFe, se o resultado do método anterior for False, ele vai dar um Raise EACBrNFeException.

 

Essa exceção está vindo sem mensagem, impossibilitando a identificação do erro no meu programa.

 

Gostaria de saber se alguém já teve este problema, e gostaria de saber se tem alguma solução, sem precisa editar os fontes da ACBr.

 

Gostaria de saber se tem como pegar o valor de cStat antes de dar esta except, sem precisar modificar os fontes do ACBr, é claro...

 

Ele está caindo nesta except conforme a imagem:...

 

Retirando esta linha, aí sim é possível tratar e pegar o retorno...

Editado 5 Fevereiro, 2015 por Daniel Caus

[Daniel Caus]

Esta except não poderia ser retirada e ser tratada de outra forma?

 

Pois a função DistribuiçãoDFe já retorna um boolean, possibilitando pegar o retorno e tratar em caso de rejeição 656.

[Tiago Ravache]

vc fez o teste aí retirando a linha e pegando o cStat do retorno?

[Daniel Caus]

Sim já testei e funciona tranquilo...

 

Não descobri se poderá impactar em algum outro lugar esta alteração.

 

Aí consigo comparar com o retorno conforme abaixo:

if not(dtmDados.ACBrNFe.DistribuicaoDFe(StrToInt(gerEmpresa.est_numero),sCnpj,'0','')) then
    begin
      Mensagem.Free;
      Screen.Cursor := crDefault;
      if intToStr(dtmDados.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat) = '656' then
      begin
        informacao('656 - Rejeição: Consumo Indevido. Aguarde 1 hora para realizar nova consulta','Aviso');
        exit;
      end;

      informacao(intToStr(dtmDados.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat)+' - '+dtmDados.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo,'Aviso');

      exit;
end;

Editado 5 Fevereiro, 2015 por Daniel Caus

[Tiago Ravache]

É Daniel nesse caso fica aí pros colegas moderadores e administradores nos dizer se retirar essa linha impactará em outras áreas do componente...

[Italo Giurizzato Junior]

Boa noite a todos,

 

Estamos estudando fazer com que a exceção só seja levantada caso o retorno não seja válido.

 

Lembrando que uma rejeição é um retorno válido.

[guilherme_desordi]

   

Editado 6 Fevereiro, 2015 por guilherme_desordi

[Victor Tadashi]

Bom a solução que encontrei foi tratar o xml de retorno da Sefaz, com este cara:

 

 ACBrNFeConsulta.WebServices.ConsNFeDest.retConsNFeDest.XML

 

 

Mas o problema agora é o seguinte:

 

Estou utilizando um framework chamado mORMot, onde a requisição da consulta é feita no cliente, e a consulta é feita pelo servidor.

 

 

Caso o Result naquela situação seja false, esse Raise, esta ferrando comigo. (Mesmo que seja um retorno válido, EX: Rejeição 213)

 

 

Se tiver como alterar para considerar valido as rejeições, e como Exception apenas erros, seria bom.

 

 

Estarei aguardando pelo ajuste nesse método.

Editado 6 Fevereiro, 2015 por Victor Tadashi

[Vanessinha Mocellin]

Referente ao problema que o Victor relatou sobre o retorno em branco do erro, esta retornando em branco devido não estar sendo alimentado em nenhum lugar a property FMsg (da classe base).

Essa situação foi solucionada alterando o método TratarResposta da classe TNFeConsNFeDest, atribuindo o valor do xMotivo a property FMsg.

 

Para o caso do Daniel Caus foi alterado o método TratarResposta da classe TDistribuicaoDFe, atribuindo também o valor do xMotivo a property FMsg, conforme já é realizado em outras classes por exemplo: TNFeRecepcao, TNFeRetRecepcao, TNFeRecibo etc.

 

Daniel trate sua aplicação com try except, coloque os tratamentos realizados da rejeição 656 dentro da exceção (EACBrNFeException).

 

Em anexo fonte com solução.

 

Obs: Em analise no fonte da ACBrNFe, onde é gerado exceção retornando a property FMsg foi identificado que além das classes TNFeConsNFeDest (problema do Victor) e TDistribuicaoDFe (problema do Daniel) existem as classes TAdministr e TNFeDownloadNFe que geram exceção e não tem tratamento de retorno para a mensagem, então foi ajustado essas quatro classes para retornar a mensagem corretamente.

Nesse fonte encontra-se juntamente a alteração do tópico: 

 

Alterações previstas em relação à revisão 8330 do svn.

ACBrNFeWebServices.pas

Editado 10 Fevereiro, 2015 por Vanessinha Mocellin

[Italo Giurizzato Junior]

Boa noite Vanessa,

 

Muito obrigado pela colaboração, assim que possível estaremos disponibilizando.