ACBrConsultaCPF não está retornando os campos: situação cadastral, Data da Inscrição, etc..

[fabiotj]

Bom dia pessoal, 

Verifiquei que o ACBrConsultaCPF não está retornando alguns campos devido a função LerCampo procurar por uma string exemplo: "Situação Cadastral:" e no retorno está como: "Situação Cadastral: " 

Não sei se mudou algo no retorno da receita ou é alguma configuração que eu preciso ajustar. Uso o Delphi Tokyo 10.2.3

Vejam os prints anexos.

Espero ter ajudado em algo, por hora vou resolver com um ajuste local.

Att,

Fábio Oliveira

 

[Daniel Simoes]

Não compreendi se você deseja sugerir alguma modificação nos fontes...

Se SIM, poderia por favor, anexar os Fontes modificados, para analise ?

[fabiotj]

Opa Daniel, desculpa não ter sido claro, eu na verdade queria apenas reportar o erro, mas sua resposta me fez ir atrás de uma solução pra compartilhar. Demorou um pouco porque pesquisei pra resolver com algo nativo do ACBr.

Consegui resolver usando o ParseText , conforme segue.

        Resposta.Text := ACBrUtil.XMLHTML.ParseText( Resposta.Text );

Unit: ACBr\Fontes\ACBrTCP\ACBrConsultaCPF.pas

Fiz um teste no ConsultaCNPJ e aparentemente tudo normal.

 

 

[Diego Foliene]

11 minutos atrás, fabiotj disse:

Opa Daniel, desculpa não ter sido claro, eu na verdade queria apenas reportar o erro, mas sua resposta me fez ir atrás de uma solução pra compartilhar. Demorou um pouco porque pesquisei pra resolver com algo nativo do ACBr.

Consegui resolver usando o ParseText , conforme segue.

        Resposta.Text := ACBrUtil.XMLHTML.ParseText( Resposta.Text );

Unit: ACBr\Fontes\ACBrTCP\ACBrConsultaCPF.pas

Fiz um teste no ConsultaCNPJ e aparentemente tudo normal.

 

 

Boa tarde!
Muito obrigado por querer contribuir.
Por favor, anexe a Unit alterada para que a alteração seja validade e disponibilizada no SVN.

[fabiotj]

Olá Diego.

Pronto anexada, é que como foi apenas uma linha eu pensei não ser necessário anexar a unit toda.

Mas segue ela agora.

ACBrConsultaCPF.pas

[Diego Foliene]

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

[Diego Foliene]

Boa tarde!
Sua contribuição foi aceita e enviada ao SVN.
Por favor, atualize seus fontes, reinstale o ACBr e faça novos testes.
Para mais detalhes, confira: https://sourceforge.net/p/acbr/code/27687/