Consulta gratuita de protesto

[Fernando Rodrigo]

Bom dia a todos, estava vendo na internet e achei um site que faz consulta de protestos.

Seria interessante fazer um componente para esse tipo de consulta ? o que vocês acham ?

Consulta feita da mesma forma que CNPJ

Vejam o link e façam os testes 

http://www.pesquisaprotesto.com.br/index.php

 

[Daniel Simoes]

Parece ser interessante...

voce pretende implementa-lo ?

[Fernando Rodrigo]

vou dar uma olhada para ver como funciona, acho a ideia excelente, poderia ser implementado no acbr

[Fernando Rodrigo]

Bom dia pessoal,

Recebi toda a documentação do pessoal do protesto para fazer as consultas via webservices.

Segue anexo a documentação, se alguém tiver interesse em desenvolver o componente para fazer a consulta, acho que seria excelente ou ate fazer tudo na mão, igual esta na documentação.

 

Fernando,

Boa Tarde !
 

Segue documentação tecnica para integração da Pesquisa Protesto por WebService.
 

Credenciais de Autenticacao para PRODUÇÃO
 

usuario: xxxxxxx

senha:  xxxxxxxx
 

A disposicao,

 

Luiz Paulo

[email protected]

 

Documentação Técnica WS v1.pdf

[Fernando Rodrigo]

Estou tentando fazer a importação so webservice mas não estou conseguindo, veja se alguem consegue fazer a importaçao

serverTabelionatos.php.xml

[Fernando Rodrigo]

ninguem conseguiu ??

[Juliomar Marchetti]

Em 2017-4-17 at 10:48, Fernando Rodrigo disse:

ninguem conseguiu ??

Acho que ninguém está precisando ! 

esse webservice é pago ou gratuito?

caso necessite sugiro ir até os classificados e oferecer uma recompensa para que alguém implemente se for o caso!

[Fernando Rodrigo]

Esse webservice é gratuito Juliomar, o negocio que tem o wsdl e quando a gente vai fazer o import dele no delphi ele trava tudo

ja testei no delphi 2010, seattle, ja entrei em contato com o pessoal e segundo eles esta normal.

Veja os links

Para acesso ao ambiente de homologação, utilizar a seguinte URL: http://177.126.160.150/ws/serverTabelionatos.php?wsdl Para acesso ao ambiente de produção, utilizar a seguinte URL: http://www.ieptb.com.br/ws/serverTabelionatos.php?wsdl Segundo o pessoal está normal, mas não consegui acesso

[Juliomar Marchetti]

Boa tarde

a única situação foi que não consigo mapear com o wsdl os objetos pois ele retorna um erro.

[Fernando Rodrigo]

23 minutos atrás, Juliomar Marchetti disse:

Boa tarde

a única situação foi que não consigo mapear com o wsdl os objetos pois ele retorna um erro.

estranho Juliomar pq com o delphi ele esta travando mesmo, entrei em contato com eles e me disseram que realmente esta com erro, so que com outros programas vc consegue abrir ele normal,

o pessoal ate me passou um programa que faz testes nos webservices  e esta normal, so que a gente não consegue fazer o import dele

 

[Juliomar Marchetti]

5 minutos atrás, Fernando Rodrigo disse:

estranho Juliomar pq com o delphi ele esta travando mesmo, entrei em contato com eles e me disseram que realmente esta com erro, so que com outros programas vc consegue abrir ele normal,

o pessoal ate me passou um programa que faz testes nos webservices  e esta normal, so que a gente não consegue fazer o import dele

 

O importe faz mas tem erro em uma das tipagens

[Fernando Rodrigo]

vou aguardar o pessoal me retornar para ver o que irão fazer, mas é algo muito interessante para colocar no sistema

[Fernando Rodrigo]

o pessoal do site de protesto liberou uma nova consulta, ja que o werbservice antigo estava com problema.

agora a pesquisa é feita via json se alguem dizer utilizar e testar vai os dados abaixo e o manual

 

Boa Tarde !
 

Devido as recentes atualizações do site www.pesquisaprotesto.com.br estamos disponibilizando uma nova URL para consumo de Web Service no foram atualizados os metodos para informar a Data do Protesto e Valor do Protesto.
 

Os serviços do Web Service antigo, bem como as credenciais de acesso,  continuarão sendo os mesmos.
 

Para suporte técnico, nos colocamos a disposição através do email ou telefone (11) 3112-0698
 

A disposicao,

 

[email protected]

 

 

Estou tentando fazer a conexão mas não estou conseguindo ler o json, consegui ler somente o token

 

Segue meu dados para fazer a pesquisa

 

        // ler a chave (Token) primeiro para depois fazer a pesquisa
        urls          := IdHTTP1.Get('http://pesquisaprotesto.com.br/ws/auth/USUARIO/SENHA');
 

        lendo  a pesquisa retornando os dados de protesto do cnpj passado como parametro juntamente com o token ja pesquisado
        urls              := IdHTTP1.Get('http://pesquisaprotesto.com.br/ws/consulta/CNPJ_CPF/'+var_Token);
        Memo1.Lines.Text  := Urls;
 

 

Manual de integracao_WS_ConsultaProtesto_v10.pdf

[Juliomar Marchetti]

Bem mais fácil agora.

fiz um teste e foi de boa .

[Fernando Rodrigo]

quem for utilizar por favor não utilizar meu usuario e senha, so passei para servir de consulta para fazer os testes

entrar em contato com o pessoal para enviar o usuario e a senha

[Juliomar Marchetti]

10 horas atrás, Fernando Rodrigo disse:

quem for utilizar por favor não utilizar meu usuario e senha, so passei para servir de consulta para fazer os testes

entrar em contato com o pessoal para enviar o usuario e a senha

Sugiro editar e remover seu usuário e senha daqui

[Fernando Rodrigo]

Em 30/06/2017 at 15:59, Fernando Rodrigo disse:

o pessoal do site de protesto liberou uma nova consulta, ja que o werbservice antigo estava com problema.

agora a pesquisa é feita via json se alguem dizer utilizar e testar vai os dados abaixo e o manual

 

Boa Tarde !
 

Devido as recentes atualizações do site www.pesquisaprotesto.com.br estamos disponibilizando uma nova URL para consumo de Web Service no foram atualizados os metodos para informar a Data do Protesto e Valor do Protesto.
 

Os serviços do Web Service antigo, bem como as credenciais de acesso,  continuarão sendo os mesmos.
 

Para suporte técnico, nos colocamos a disposição através do email ou telefone (11) 3112-0698
 

A disposicao,

 

[email protected]

 

 

Estou tentando fazer a conexão mas não estou conseguindo ler o json, consegui ler somente o token

 

Segue meu dados para fazer a pesquisa

 

        // ler a chave (Token) primeiro para depois fazer a pesquisa
        urls          := IdHTTP1.Get('http://pesquisaprotesto.com.br/ws/auth/USUARIO/SENHA');
 

        lendo  a pesquisa retornando os dados de protesto do cnpj passado como parametro juntamente com o token ja pesquisado
        urls              := IdHTTP1.Get('http://pesquisaprotesto.com.br/ws/consulta/CNPJ/CPF/'+var_Token);
        Memo1.Lines.Text  := Urls;
 

 

Manual de integracao_WS_ConsultaProtesto_v10.pdf

 

Juliomar não achei a opção de excluir nem de alterar

onde fica ?

[Daniel Simoes]

Apenas os moderadores podem alterar um tópico, já posta há algum tempo... O que exatamente vc precisa que seja removido ?

[Juliomar Marchetti]

1 hora atrás, Daniel Simoes disse:

Apenas os moderadores podem alterar um tópico, já posta há algum tempo... O que exatamente vc precisa que seja removido ?

Já removi Daniel pra ele 

[Dfox]

Bom dia,

estou muito ocupado ultimamente, mais vou deixar minha contribuição!

veja essa unit UConsultaCnpj.pas é só adaptar ela

unit UConsultaCnpj;

interface 

uses 
  Classes, SysUtils, IdHTTP, XMLDoc;

type 
  TDCnpj = packed record
    lCnpj: String; 
    razao_social: String;
    fantasia: String;
    atividade_01: String;
    nat_jur: String;
    logradouro: String;
    numero: String;
    municipio: String;
    bairro: String;
    compl: String;
    uf: String;
    sit_cad: String;
    data_abertura: String;
    cep: String;
    qtd_estabelecimentos: String;
  end; 

  TConsultaCnpj = class(TComponent)
  private  
    FHttp: TIdHTTP; 
    FXml: TXMLDocument; 
  public 
    constructor Create(AOwner: TComponent);
    destructor Destroy; override; 
    function Search(ACnpj: String): TDCnpj;
  end; 

implementation

const 
  WS_URL: String = 'http://www.infoplex.com.br/api/v1/perfil/%s.xml';

  {TConsultaCnpj} 

constructor TConsultaCnpj.Create(AOwner: TComponent);
begin 
  inherited Create(AOwner);
  Self.FHttp := TIdHTTP.Create(Self);
  Self.FXml := TXMLDocument.Create(Self); 
  Self.FXml.Active := True; 
end; 

destructor TConsultaCnpj.Destroy;
begin 
  Self.FHttp.Free; 
  Self.FXml.Free; 
  inherited; 
end; 

function TConsultaCnpj.Search(ACnpj: String): TDCnpj;
var 
  PostResult, ErrMsg: String; 
  {XML: TXMLDocument;}
begin
  PostResult := Self.FHttp.Get(Format(WS_URL, [ACnpj]));
  with Self.FXml do 
  begin 
    LoadFromXML(PostResult); 
    if DocumentElement.ChildValues['sit_cad'] = 'INEXISTENTE' then
    begin 
      ErrMsg := DocumentElement.ChildValues['sit_cad'];
      if ErrMsg = '' then
        ErrMsg := 'CNPJ não encontrado.'; 
      raise Exception.Create(ErrMsg); 
    end 
    else
    begin 
      Result.lCnpj := DocumentElement.ChildValues['cnpj']; 
      Result.razao_social := DocumentElement.ChildValues['razao_social'];
      Result.fantasia := DocumentElement.ChildValues['fantasia'];
      Result.atividade_01 := DocumentElement.ChildValues['atividade_01'];
      Result.nat_jur := DocumentElement.ChildValues['nat_jur'];
      Result.logradouro := DocumentElement.ChildValues['logradouro'];
      Result.numero := DocumentElement.ChildValues['numero'];
      Result.municipio := DocumentElement.ChildValues['municipio'];
      Result.bairro := DocumentElement.ChildValues['bairro'];
      Result.compl := DocumentElement.ChildValues['compl'];
      Result.uf := DocumentElement.ChildValues['uf'];
      Result.sit_cad:= DocumentElement.ChildValues['sit_cad'];
      Result.data_abertura := DocumentElement.ChildValues['data_abertura'];
      Result.cep := DocumentElement.ChildValues['cep'];
      Result.qtd_estabelecimentos := DocumentElement.ChildValues['qtd_estabelecimentos'];
    end; 
  end;
end;

end.

e recumperar os dados

 var
  iCnpjs : String;
  irazao_social : String;
  ifantasia : String;
  iatividade_01 : String;
  inat_jur : String;
  ilogradouro : String;
  inumero : String;
  imunicipio : String;
  ibairro : String;
  icompl : String;
  iuf : String;
  isit_cad : String;
  idata_abertura: string;
  icep: string;
  iqtd_estabelecimentos: string;

implementation

uses ComServ, UConsultaCnpj, Windows, Messages,Dialogs;

procedure TCnpj.BuscaCnpj(const uCnpj: WideString);
var
  DCnpj: TDCnpj;
begin
  with TConsultaCnpj.Create(nil) do
    try
      DCnpj := Search(uCnpj);
      iCnpjs := DCnpj.lCnpj;
      irazao_social := DCnpj.razao_social;
      ifantasia := DCnpj.fantasia;
      iatividade_01 := DCnpj.atividade_01;
      inat_jur := DCnpj.nat_jur;
      ilogradouro := DCnpj.logradouro;
      inumero := DCnpj.numero;
      imunicipio := DCnpj.municipio;
      ibairro := DCnpj.bairro;
      icompl := DCnpj.compl;
      iuf := DCnpj.uf;
      isit_cad := DCnpj.sit_cad;
      idata_abertura := DCnpj.data_abertura;
      icep := DCnpj.cep;
      iqtd_estabelecimentos := DCnpj.qtd_estabelecimentos;
    finally
      Free;
    end;
end;

é só adaptar e depois criar o componente.

[ffdesousa]

Pessoal boa tarde, onde consigo solicitar os dados de acesso ao webservice?

Grato!

[Fernando Rodrigo]

veja no site e entre em contato com eles

 

http://www.pesquisaprotesto.com.br/

[alziromoraes]

Entrei em contato com eles e a API foi descontinuada.

Infelizmente. Alguém conhece alguma forma de fazer protesto de título e consultas?