ACBRConsultaCNPJ - Exceção

[Diogo Loff]

Ola!

Estou testando as novas possibilidades de consulta CNPJ pelas APIs que foram disponibilizadas no ACBrConsultaCNPJ e senti falta de exceção quando vem um erro do servidor. Como por exemplo o ReceitaWS com mais de 3 consultas por minuto já da erro, porem no componente não esta acontecendo nada.

 

Fica sugestão a alteração que fiz.

Implementei na ReceitaWS e na BrasilAPI.

Em ambas adicionei um else se não deu certo, para lançar uma exceção do campo "message".

if (Trim(LJsonObject.Values['message'].AsString) <> '') then
    raise EACBrConsultaCNPJWSException.Create(LJsonObject.Values['message'].AsString);

 

Obrigado.

ACBrConsultaCNPJ.WS.BrasilAPI.pas ACBrConsultaCNPJ.WS.ReceitaWS.pas

[Daniel Simoes]

parece fazer sentido, muito obrigado pela contribuição...

@Victor H. Gonzales - Panda, pode analisar e subir no SVN ?

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-4994

[Victor H. Gonzales - Panda]

Bom dia,

obrigado pela contribuição e sugestão.

está agora exibindo o código retornado e a mensagem que o servidor retorna.

 

BrasilAPI

ReceitaWS

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[Diogo Loff]

Fechou deu certo.

[Victor H. Gonzales - Panda]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.