Consumir WebService Serasa

[Riggns]

Bom dia pessoal,

Sou novo por aqui e também na linguagem, alguem ai sabe como eu posso consumir WebService da Serasa, direto da Serasa sem passar por WebServices como o consultacpf.com, alguem ja fez isso?

[anacatacombs]

Caro Colega, Bem Vindo ao Fórum !!

Você usa a DLL?

Qualquer dúvida em qualquer situação é só chamar.
Fique a vontade para me add .

[Riggns]

Obrigado por responder Ana, eu não uso nada ainda, a idéia de usar esse método surgiu de uma necessidade de um cliente, porém não estou encontrando nada a respeito e não consigo uma ajudinha do pessoal da Serasa.

O que vem a ser DLL, é o WebService?

[anacatacombs]

Não não..
Como vc faz pra se comunicar com o serviço do Serasa? Seu sistema tem integração direta com algum programa ou alguma dll para fazer a consulta do Serasa?

[Riggns]

Olá Ana,

Entendi agora, então... por enquanto não faz nenhum tipo de consulta, não tem integração com outro programa pra fazer isso, nem utilizo DLL.

Estou procurando uma maneira de fazer isso direto no webservice da Serasa, seja por DLL ou qualquer outra coisa, estou ainda no ponto de partida, não achei nada referente a isso, a unica coisa que achei sobre o assunto foi alguns exemplos utilizando o WS consultacpf.com, precisava mesmo de um exemplo utilizando o WS da Serasa.

Se alguem puder ajudar com algum material ou referências eu agradeço.

Valeu Ana

[marcos.gurupi]

Caro eu acredito que o Serasa ainda nao tem nenhum servico do tipo. Mas entre no site do checkchek que lah tem a parceria com software house. Inclusive eu tenho no meu sistema consultas via checkcheck.

Marcos Roberto.

[anacatacombs]

Confesso que fiquei curiosa..
Procurei algo a respeito:
Acho que seria algo parecido com esse link:

http://imasters.uol.com.br/artigo/7075/ ... ebservice/

Seria isso Riggns??

[rochinha]

Amiguinhos,

Tempos atrás quando eu fazia testes de uso do PocketSOAP juntei algumas pérolas interessantes de código e adaptei algumas encontradas por ai.

Se não me engano esta aqui encontrei em um forum PHP ou Delphi, então resolvi manipular e adaptar para testes.

Como não possuo conta no SERASA e nenhum de meus clientes usa o serviço deles eu não adiantei ou depurei.

Se fizer uso deste código e colocá-lo para funcionar, apresente-nos o resultado, tenho certeza que este é um assunto de interesse de todos.

Código: Selecionar todos

// FiveWin ActiveX support demo - Using Adobe Acrobat Reader

#include "FiveWin.ch"

function Main(nSkin)
   local oWnd, oActiveX
   local cWSDL := "https://gw-homologa.serasa.com.br/wsrelatoxml/wsrelatoxml.asmx?wsdl" // "http://www.consultacpf.com/webservices/consultacpf.asmx"
   DEFINE WINDOW oWnd //TITLE "FiveWin ActiveX Support"

          oEnvelope := TOLEAuto():New( "PocketSOAP.Envelope.2" )

          oEnvelope:SetMethod( "com.consultacpf.www.ConsultaCPFWebService", "ConsultaSimplesSERASASandBox" )

		  strXml = [<?xml version="1.0" encoding="utf-8" ?><relato><usuario logonserasa="03030570" senhaserasa="10203040" /><dadosenvio cnpj="99999" idioma=" moeda=" tpstring="1" indccusto=" ccusto=" qdsoc=" tipoconc=" riskscoring=" autorizador=" segmento=" segmento2=" segmento3=" segmento4=" segmento5=" areareservada=" gerencie=" qtdedias=" perfil=" grupoemail=" referencia=" /></relato>]

          //oRelato := oEnvelope:Parameters:Create( "relato", "" )
          // oRelato:Parameters:Create( "", "" )

          oPocketQUOTE := TOLEAuto():New("PocketSOAP.HTTPTransport.2")

          oPocketQUOTE:SOAPAction := ""
          oPocketQUOTE:Send( cWSDL, strXml )

          //oEnvelope:parse( oHTTPTransport )
          //set GoogleSearch = e.parameters.item(0).Nodes

   ACTIVATE WINDOW oWnd
   return nil

[rochinha]

Amiguinhos,

Outro exemplo de código:

Código: Selecionar todos

   cSERASA := "http://www.consultacpf.com/webservices/test-drive/consultacpf.asmx"
   // "http://www.consultacpf.com/webservices/consultacpf.asmx"
   cLogonSerasa  := "03030570"
   cSenhaSerasa  := "10203040"
   sCNPJConsulta := "00.000.000/0000-00"
   //
   strXml :=          []
   strXml := strXml + [<?xml version="1.0" encoding="utf-8" ?>]
   strXml := strXml + [<relato>]
   strXml := strXml + [   <usuario logonserasa="]+cLogonSerasa+[" senhaserasa="]+cSenhaSerasa+[">]
   strXml := strXml + [      <dadosenvio cnpj="]+sCNPJConsulta+[" idioma="" moeda="" tpstring="1" indccusto="" ccusto="" qdsoc="" tipoconc="" riskscoring="" autorizador="" segmento="" segmento2="" segmento3="" segmento4="" segmento5="" areareservada="" gerencie="" qtdedias="" perfil="" grupoemail="" referencia="">]
   strXml := strXml + [      </dadosenvio>]
   strXml := strXml + [   </usuario>]
   strXml := strXml + [</relato>]
   oSERASA:= oMSXML2 // MSXML2.ServerXMLHTTP
   oSERASA:Open( "GET", cSERASA, .F.)
   oSERASA:Send( strXml )
   MemoEdit( oSERASA:responseText )

[Riggns]

Bom dia pessoas,
Desculpe a demora em responder.

Marcos
Eu dei uma olhada nesse ChekChek mas não é o que procuro, valeu pela dica.

Ana
Eu vi esse exemplo em Visual Studio que você passou, mas não entendo muito dessa IDE, e esse exemplo ai é com o consultacpf.com, preciso mesmo em XHarbour e se possível um webservice da Serasa, o que procuro é parecido com o exemplo do Rochinha .

Rochinha
É mais ou menos isso que procuro, ontem eu achei um post seu sobre WebServices viewtopic.php?f=2&t=4855&start=0&hilit=webservice

Pesquisando eu achei também esse WebService

https://sitenet05.serasa.com.br/wsgesto ... cisao.asmx

Vou tentar agora ver o que posso fazer com isso, e também mais uma vez falar com o suporte da Serasa.

Valeu a ajuda pessoal, se eu conseguir alguma coisa "ou não" volto a postar.

[gralak]

Caro amigo Rochinha eu tente executar o seguinte script

08 strXml := strXml + [<?xml version="1.0" encoding="utf-8" ?>]
09 strXml := strXml + [<relato>]
10 strXml := strXml + [ <usuario logonserasa="]+cLogonSerasa+[" senhaserasa="]+cSenhaSerasa+[">]
11 strXml := strXml + [ <dadosenvio cnpj="]+sCNPJConsulta+[" idioma="" moeda="" tpstring="1" indccusto="" ccusto="" qdsoc="" tipoconc="" riskscoring="" autorizador="" segmento="" segmento2="" segmento3="" segmento4="" segmento5="" areareservada="" gerencie="" qtdedias="" perfil="" grupoemail="" referencia="">]
12 strXml := strXml + [ </dadosenvio>]
13 strXml := strXml + [ </usuario>]
14 strXml := strXml + [</relato>]
15 oSERASA:= oMSXML2 // MSXML2.ServerXMLHTTP
16 oSERASA:Open( "GET", cSERASA, .F.)
17 oSERASA:Send( strXml )
18 MemoEdit( oSERASA:responseText )

mas de onde vem essa variavel oMSXML2

[anacatacombs]

Gralak..
Eu acho que deve utilizar o CreateObject..

Código: Selecionar todos

 
oSerasa:= CreateObject("Microsoft.XMLHTTP")

[rochinha]

Amiguinhos,

Desculpe-me, o esquecimento.

Como a Ana postou, pode ser utilizando juntamente com o xHarbour.

Neste trecho eu uso com Harbour():

Código: Selecionar todos

oSerasa:= TOLEAuto():New("Microsoft.XMLHTTP")

Vale lembrar que a instalação do MSXML6 ou MS SOAP Toolkit é imprescindivel para tal.

[jhnsnlb]

ola para todos

alguem testou as soluções postada pelo rochinha?
tambem preciso dessas informações do serasa.

[Stanis Luksys]

Olá,

Respondi uma pergunta igual a essa já hoje... Para consumir o webservice do serasa basta usar a biblioteca hbtip e enviar corretamente os dados necessários via POST, ou mesmo por GET acho que deve dar certo.

Usando o formato JSON dispensa o tratamento de arquivos XML, tanto para envio como para retorno. Veja este tópico viewtopic.php?f=4&t=11317

De qualquer forma, não precisa de DLL nem nada...

Aí vai o exemplo:
http://uploaddearquivos.com.br/download/cep.zip

Abraços.