Consulta De Cpf (Receita Fazenda)

[schrsistemas]

Implementado "ACBrConsultaCPF.pas" adaptado conforme o ACBRConsultaCNPJ.pas

Segue exemplo também.

ACBrConsultaCPF.pas

TestCPF_2013-08-07.zip

[Daniel Simoes]

Muito Obrigado pela sua colaboração...

 

Vou analisar os fontes ainda essa semana... e volto a postar...

[Doglas Stumpf]

o Bacana, mas tem muitos outros componentes tipo label teria que deixar com os nativos do delphi. nao ?

[krepe]

troquei os componetes pelos nativos do delphi, e ficou show.

 

Obrigado!!!

[datilas]

troquei os componetes pelos nativos do delphi, e ficou show.

 

Obrigado!!!

você poderia postar ele

[Jéter Rabelo Ferreira]

Boa tarde.

 

Também troquei. (xe2)

 

Segue anexo, inclusive o .exe

 

Atenciosamente.

TestCPF.rar

Editado 15 Agosto, 2013 por jeter.rabelo

[datilas]

alguma previsão para subir para o svn?

[jorge andrade]

Boa tarde.

 

Também troquei. (xe2)

 

Segue anexo, inclusive o .exe

 

Atenciosamente.

Jéter

 

Boa noite

 

tentei testar o programa, mas não deu certo, reclama que não consegue mostrar o captcha.

 

[]s,

[Jéter Rabelo Ferreira]

Jéter

 

Boa noite

 

tentei testar o programa, mas não deu certo, reclama que não consegue mostrar o captcha.

 

[]s,

 

Jorge, bom dia.

 

Acabei de testar o exe aqui e montou o captcha corretamente.

 

A tua rede tem algum tipo de proxy? Firewall bloqueando? Pode ser esse teu problema.

 

Atenciosamente.

Editado 5 Setembro, 2013 por jeter.rabelo

[jorge andrade]

Jorge, bom dia.

Acabei de testar o exe aqui e montou o captcha corretamente.

A tua rede tem algum tipo de proxy? Firewall bloqueando? Pode ser esse teu problema.

Atenciosamente.

Jéter

Boa noite

testei na minha máquina de desonvolvimento e inclusive parei todo o serviço de bloqueio, como kaspesky, e mais utilizo pra tudo, sempre com cok=m captcha.

[]s,

Editado 9 Setembro, 2013 por EMBarbosa
Favor da próxima usar o botão de editar que fica abaixo do seu post

[Rafa2012]

Parabéns, funcionou perfeito aqui, fiz o teste, achei interessante o componente, assim como o consultaCNPJ perfeito.

Rafa

[Sergioguedes]

Também acabei de baixar e funcionou 100%, parabens para o criador do componente..

[sidnei_alves1]

nao consegui fazer ele funciona, precisa instala ele como componente?

[Régys Silveira]

Fiz algumas correções no aplicativo de demonstração, adicionei o componente ao pacote ACBrTCP e subi tudo para o repositório.

 

Muito obrigado pela contribuição.

[Sergioguedes]

Obrigado Regys por subir para o svn, assim fica mais fácil porque não preciso instalar separado.

[Régys Silveira]

Basta recompilar o pacote ACBrTCP que ele vai instalar o novo componente, muito bom diga-se de passagem, parabéns ao Jéter e todo mundo que contribuiu testando ou alterando.

[OfSerpent]

Basta recompilar o pacote ACBrTCP que ele vai instalar o novo componente, muito bom diga-se de passagem, parabéns ao Jéter e todo mundo que contribuiu testando ou alterando.

No lazarus não consegui utilizar...Teria alguma compilação diferente para poder ser executada? pois não consegue retornar nenhuma informação ate mesmo do meu cpf.

[Régys Silveira]

Ocorre algum erro? Alguma mensagem? Consegue reproduzir com o demo?

[messiashenrique]

Olá Régys!

 

Eu verifiquei e realmente havia um erro de Encoding. Porém, o componente faz uma busca por nomes (praticamente todos com acentos ou cedilhas...) que não eram encontrados dentro do StringList. Este estava recebendo duas vezes uma função de Encoding... (ACBrStr) da Unidade ACBrUtil.pas.

 

Quanto à mensagem de erro não havia (só debugando mesmo), pois os campos apenas voltavam vazios.

 

Bem resumindo, bastou modificar um mísero detalhe na linha 183 do arquivo acbrconsultacpf.pas. (seguem em anexo).

 

Estava assim:

linha := ACBrStr(UpperCase(Texto[i]));

e eu mudei para:

linha := UpperCase(Texto[i]);

Testei no Lazarus/Linux e funcionou perfeitamente. (Acredito que funcione também no Delphi)

 

Abs.

 

Messias Henrique

 

acbrconsultacpf.pas

[EMBarbosa]

Esse ACBrStr não é por causa do Delphi 6?

[Daniel Simoes]

O ACBrStr, converte de Ansi para UTF8 se necessário, usando diretivas IFDEF

 

Por motivos de compatibilidade, todos os fontes do ACBr usam o encoding cp1252... E isso pode ser um problema para IDEs mais novas como Delphi 2009 ou Lazarus

[messiashenrique]

Realmente Daniel. No entanto, a resposta já está sendo retornada em UTF8. Logo, por alguma razão, a função ACBrStr além de desnecessária provoca um erro de Encoding. Testei no Lazarus (Linux) e funcionou perfeitamente (após a modificação).

 

Se alguém puder verificar em Delphi < 2009. Acredito que não dê problema.

 

Att.

 

Messias Henrique

[Daniel Simoes]

Pelo que li nos fontes... o método TACBrHTTP.HTTPMethod de ACBrSocket.pas já faz um tratamento de / para UTF8...

 

Mas acho que é necessário mais estudos...

- Como ficam as demais chamadas a ACBrStr() dentro de ACBrConsultaCPF.pas ?  (Todas precisam ser removidas ?)

- Testes em D7

- Testes em XE5

[EMBarbosa]

Acho que seria uma boa o pessoal do Delphi 6 fazer alguns testes. Por causa deles mesmos. Afinal eles costumam ter problemas com isso no

[messiashenrique]

Então gente, infelizmente eu não possuo Delphi.

 

Mas acredito que a retirada da função na linha que mencionei não acarretará em nenhum problema para usuários de qualquer versão do Delphi.

 

Pelo que vi em "ACBrUtil.pas" a função ACBrStr transfroma de Ansi para UTF8 e não o contrário. Logo pelas próprias diretivas de compilação era será ignorada nas versãoes mais antigas do Delphi.

 

Há também diversas chamadas dessa função, que na minha humilde opinião são desnecessárias. Veja por exemplo na linha 150 do "ACBrConsultaCPF.pas"

    if Pos( ACBrStr('Erro na Consulta'), Str) > 0 then
      Res:= 'Catpcha errado.';                        

Acredito que, nesse caso, a string em questão não sofrerá nenhuma modificação

 

Por outro lado, dependendo da situação, talvez se faça necessário usar a função ACBrStrAnsi da unidade "ACBrUtil.pas" pois essa sim pode ser útil para versões que não suportam unicode em muitas situações.

 

Testei em Linux e MacOS (ambos com Lazarus) e funcionou a contento.

 

Att.

 

Messias Henrique.

Editado 30 Janeiro, 2014 por messiashenrique