Consulta Ficha Cadastral Sintegra

[Jefferson Lupinacci]

Pessoal a partir do conhecimento adquirido no AcbrConsultaCNPJ estou codificando um componente para Consulta do Sintegra, se tiverem interesse compartilho com vocês. o código esta padronizado no formato do Consulta CNPJ.

abaixo alguns prints do "feito"

Sintegra - ES - Não possui captcha



Sintegra - BA - Não possui captcha

Sintegra - SP - Possui Captcha do proprio site



Sintegra de MG - Possui Recaptcha - Google

Sintegra de RJ - Possui Recaptcha - Google 

 

ACBrConsultaSintegra.pas

Editado 2 Maio, 2016 por Jefferson Lupinacci
Adicionado Rio de Janeiro

[sidnei_alves1]

bacana me interessa, caso eu poder ajudar so me falar

[Jefferson Lupinacci]

vou terminar de codificar minas gerais e libero o componente

 

[Daniel Simoes]

A ideia é ter opção para consulta do Sintegra de todos os estados ?

Você está implementando usando Herança de classes ?

[Jefferson Lupinacci]

Agora, Daniel Simoes disse:

A ideia é ter opção para consulta do Sintegra de todos os estados ?

Você está implementando usando Herança de classes ?

não necessito de herança de classes veja que a consulta é muito simples o fonte atual esta anexado

 

 

[Mateus Penha]

Muito boa a ideia do componente. Com certeza vai ajudar muito a comunidade.

[Daniel Simoes]

Acho que separar em classes e usar herança, seria uma boa ideia.. afinal são mais de 20 estados... e notei que já existem implementações específicas, como no caso o método "GetCaptchaURL"... será complicado mantê-lo para muitos estados...

[Jefferson Lupinacci]

Em 29/04/2016 at 12:59, Daniel Simoes disse:

Acho que separar em classes e usar herança, seria uma boa ideia.. afinal são mais de 20 estados... e notei que já existem implementações específicas, como no caso o método "GetCaptchaURL"... será complicado mantê-lo para muitos estados...

Fiquei ausente o fim de semana por isso não dei continuidade no post

O Fonte agora se encontra disponível para a comunidade se alguém se dispor a alterá-lo e gerar as interfaces ficarei muito grato, vendo que tenho que terminar este cadastro em 15 dias e os 5 estados que me foram pedidos estão prontos.

Agora se alguém precisar de alguma ajuda para decifrar os captchas do google estarei a disposição para o auxilio da tarefa.

[sidnei_alves1]

Oi, Comecei hoje a dar uma olhada, mais nao consegui fazer funciona, poderia me dar uma ajuda?

 

[Jefferson Lupinacci]

Em 14/05/2016 at 14:30, sidnei_alves1 disse:

Oi, Comecei hoje a dar uma olhada, mais nao consegui fazer funciona, poderia me dar uma ajuda?

 

Claro Sidnei_alves1 me passe a sua dúvida que lhe ajudo a resolver

[Jefferson Lupinacci]

Anexado ao Post o Exemplo

ACBRConsultaSintegra.zip

[sidnei_alves1]

Bom dia.

Consegui aqui, aproveitei e adicionado o MT tambem

ACBrConsultaSintegra.pas

[Fernando Rodrigo]

bom dia pessoal, alguem deu continuidade ao componente ?

[Jefferson Lupinacci]

4 horas atrás, Fernando Rodrigo disse:

bom dia pessoal, alguem deu continuidade ao componente ?

 

Citar

 

bom dia jefferson, peguei a sua unit para consulta do sintegra e estou tentando fazer para o estado de goias, so que não estou entendendo bem como ele faz.

poderia me dar uma ajuda

o site para consulta em goias é

http://appasp.sefaz.go.gov.br/Sintegra/Consulta/default.asp

vc poderá utilizar o cnpj 37.304.771/0001-82 

 

 

Primeiras Considerações: teremos que analisar o metodo de comunicação que esta sendo empregado entre o cliente e o servidor, e como isso é feito
utlizando um analizador de trafego http  eu uso o Telerik Fiddler

Acessando o Site da Sefaz de Goias

 

Postando os dados e vendo o seu comportamento

Acessando o Site

Postando o Formulário e Analisando o comportamento

Para onde a solicitação foi encaminhada

 

O Que queremos para o ACBr

 

Passo a Passo:

Abra o Fiddler, e o Browser de sua preferencia
no Fiddler Aperte Ctrl+X para limpar todo o log de histórico e acesse o url


sua tela deverá ser similar a tela acima


Na Aba TextView estão os parametros que foram passados de um url para o outro, repare que vc deverá alterar o &CNPJ= para o cnpj que vc quer postar
e o &Doc= Tambem

Cada Post.WriteString() equivale a um parametro que gostariamos de postar ao servidor

[Fernando Rodrigo]

nao sei o que estou fazendo de errado, mas não retorna nada, ja olhei os anexos e não consigo achar o problema. 

ja mudei os parametros, voltei o que era antes, olhei no retorno, coloquei os parametros novamente e retorna zerado.

 

 

    Post.WriteString('CNPJ='+OnlyNumber(ACNPJ)+'&');
    Post.WriteString('TipoDoc=2');
    Post.WriteString('Doc='+OnlyNumber(ACNPJ)+'&');
    Post.WriteString('CCE='+OnlyNumber(AInscricaoEstadual)+'&');
//    Post.WriteString('btCGC=consultarSintegra()');
    Post.WriteString('btCGC=Consultar');

    Post.Position:= 0;

    HttpSend.Clear;
    HttpSend.Document.Position:= 0;
    HttpSend.Document.CopyFrom(Post, Post.Size);
    HTTPSend.MimeType := 'application/x-www-form-urlencoded';
    HTTPPost('http://appasp.sefaz.go.gov.br/Sintegra/Consulta/default.asp');

[Jefferson Lupinacci]

Posta a Unit alterada que vejo pra você amanha cedo quando chegar no escritório

[Fernando Rodrigo]

Segue em anexo

ACBrConsultaSintegra.pas

[Fernando Rodrigo]

abri o programa que vc me passou e segui os passos so que não esta funcionando

 

    Post.WriteString('tCNPJ='+OnlyNumber(ACNPJ)+'&');
    Post.WriteString('rTipoDoc=2');
    Post.WriteString('tDoc='+OnlyNumber(ACNPJ)+'&');
    Post.WriteString('tCCE='+OnlyNumber(AInscricaoEstadual)+'&');
    Post.WriteString('tCPF='+OnlyNumber(AInscricaoEstadual)+'&');
    Post.WriteString('btCGC=consultarSintegra');
    Post.Position:= 0;

    HttpSend.Clear;
    HttpSend.Document.Position:= 0;
    HttpSend.Document.CopyFrom(Post, Post.Size);
    HTTPSend.MimeType := 'application/x-www-form-urlencoded';
    HTTPPost('http://appasp.sefaz.go.gov.br/Sintegra/Consulta/default.asp');

 

precido que me ajude somente nesse primeiro para saber os passos de onde posso pegar as informações
 

Editado 13 Junho, 2016 por Fernando Rodrigo

[Jefferson Lupinacci]

Desculpe a Demora pra Responder mas esta aqui o Seu Retorno. "Vou tirar ferias no fim do mês - AUMENTO DE CARGA DE TRABALHO"

Primeiramente vc precisa acessar a página principal do site utilizando o protocolo HTTP 1.1 pois o site usa Cookies e precisamos dele para ser passado para o url seguinte.
quando um site usa o captcha pegamos o cookie no captcha neste caso vou pegar diretamente na solicitação de 'GO'

Ficando Assim o Procedimento

procedure Consulta_GO();
  begin

    HttpSend.ProxyHost := 'localhost'; // Interceptando por Dentro do PROXY do Feedler para o Delphi ser identificado como um Browser
    HTTPSend.ProxyPort := '8888';

    { Protocolo do Canal HTTP Versão 1.1 }
    HTTPSend.KeepAlive := true;
    HTTPSend.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1';
    HTTPSend.Headers.Add('Accept-Language: pt-BR,pt;q=0.8,en-US;q=0.5,en;q=0.3');
    HTTPSend.Clear;
    HTTPSend.Protocol  := '1.1';
    HTTPSend.Cookies.Clear;
    HTTPGet('http://appasp.sefaz.go.gov.br/Sintegra/Consulta/default.asp');

    Post.WriteString('rTipoDoc=2&');
    Post.WriteString('tDoc='+ OnlyNumber(ACNPJ)+'&');
    Post.WriteString('tCCE=&');
    Post.WriteString('tCNPJ='+ OnlyNumber(ACNPJ)+'&');
    Post.WriteString('tCPF=&');
    Post.WriteString('btCGC=Consulta=&');
    Post.WriteString('zion.SystemAction=consultaSintegra()&');
    Post.WriteString('zion.OnSubmited&');
    Post.WriteString('zion.FormElementPosted=zionFormID_1&');
    Post.WriteString('zionPostMethod=&');
    Post.WriteString('zionRichValidator=true&');
    Post.Position:= 0;

    HttpSend.Clear;
    HttpSend.Document.Position:= 0;
    HttpSend.Document.CopyFrom(Post, Post.Size);
    HTTPSend.MimeType := 'application/x-www-form-urlencoded';
    HTTPPost('http://appasp.sefaz.go.gov.br/Sintegra/Consulta/consultar.asp');

    Erro := VerificarErros(RespHTTP.Text, AUF);
    if Erro = '' then
    begin
      Result:= True;
      Resposta := TStringList.Create;
      try
        Resposta.Text := StripHTML(RespHTTP.Text);
        RemoveEmptyLines( Resposta );
        Resposta.Text := StringReplace(Resposta.Text, ' ', '', [rfReplaceAll]);
        FCNPJ                := LerCampo(Resposta,'CNPJ:');
        FInscricaoEstadual   := LerCampo(Resposta,'Inscrição Estadual - CCE :');
        FRazaoSocial         := LerCampo(Resposta,'Nome Empresarial:');
        FEndereco            := LerCampo(Resposta,'LOGRADOURO:');
        FNumero              := LerCampo(Resposta,'Número:');
        FComplemento         := LerCampo(Resposta,'Complemento:');
        FBairro              := LerCampo(Resposta,'Bairro:');
        FCidade              := LerCampo(Resposta,'Município:');
        FUF                  := LerCampo(Resposta,'UF:');
        FCEP                 := OnlyNumber( LerCampo(Resposta,'CEP:') ) ;
        if FCEP <> '' then
          FCEP               := copy(FCEP,1,5)+'-'+copy(FCEP,6,3) ;
        FTelefone            := LerCampo(Resposta, 'Telefone:');
        FAtividadeEconomica  := LerCampo(Resposta, 'Atividade Econômica:');
        FDataInicioAtividade := StringToDateTimeDef(LerCampo(Resposta,'Data de Inicio de Atividade:'),0);
        FSituacao            := LerCampo(Resposta, 'Situação Cadastral Vigente:');
        FDataSituacao        := StringToDateTimeDef(LerCampo(Resposta,'Data desta Situação Cadastral:'),0);
        FRegimeApuracao      := LerCampo(Resposta, 'Regime de Apura&ccedil;&atilde;o:');
        FDataEmitenteNFe     := StringToDateTimeDef(LerCampo(Resposta,'Emitente de NFe desde:'),0);
      finally
        Resposta.Free;
      end ;
    end
    else
    begin
      Result:= False;
      raise EACBrConsultaSintegra.Create(Erro);
    end;
  end;

 

a.html

Editado 16 Junho, 2016 por Jefferson Lupinacci

[Fernando Rodrigo]

valeu Jefferson, fico muito grato pela sua ajuda,com isso posso fazer o restante dos estados

[walter faria]

Bom dia.
Já esta como componente esta busca no Sintegra? alguém pode me passar o fonte atualizado e se possível demo utilização

Obrigado

[Daniel Simoes]

Não pretendo incluir esses fontes no ACBr... sugiro criar um novo projeto no GitHub ou SourceForge

[mauriciofporto]

Jefferson bom dia,

Pode me ajudar a implementar o RJ, consegui até ele mostrar o captcha.

Depois disso quando mando não traz dados nenhum.

Aguardo.

[José Emerson]

Boa tarde!

Pessoal você o código atualizado até a última alteração?

[José Emerson]

Estava precisando para colocar via Web, seria para ajudar no dia dia na empresa em que trabalho para cadastrar cliente.

 

Alguém tem alguma solução via web?