Página 1 de 2
Consumir WebService Serasa
Enviado: 07 Jul 2010 09:42
por 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?
Re: Consumir WebService Serasa
Enviado: 07 Jul 2010 13:22
por 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 .
Re: Consumir WebService Serasa
Enviado: 07 Jul 2010 14:01
por 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?
Re: Consumir WebService Serasa
Enviado: 07 Jul 2010 14:20
por 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?
Re: Consumir WebService Serasa
Enviado: 07 Jul 2010 16:09
por 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
Re: Consumir WebService Serasa
Enviado: 07 Jul 2010 23:06
por 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.
Re: Consumir WebService Serasa
Enviado: 08 Jul 2010 08:14
por 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??
Re: Consumir WebService Serasa
Enviado: 08 Jul 2010 10:23
por 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
Re: Consumir WebService Serasa
Enviado: 08 Jul 2010 19:05
por 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 )
Re: Consumir WebService Serasa
Enviado: 09 Jul 2010 09:54
por 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.
Re: Consumir WebService Serasa
Enviado: 09 Jul 2010 13:37
por 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
Re: Consumir WebService Serasa
Enviado: 09 Jul 2010 15:12
por anacatacombs
Gralak..
Eu acho que deve utilizar o CreateObject..
Re: Consumir WebService Serasa
Enviado: 09 Jul 2010 18:33
por rochinha
Amiguinhos,
Desculpe-me, o esquecimento.
Como a Ana postou, pode ser utilizando juntamente com o xHarbour.
Neste trecho eu uso com Harbour():
Vale lembrar que a instalação do MSXML6 ou MS SOAP Toolkit é imprescindivel para tal.
Re: Consumir WebService Serasa
Enviado: 19 Out 2010 06:42
por jhnsnlb
ola para todos
alguem testou as soluções postada pelo rochinha?
tambem preciso dessas informações do serasa.
Re: Consumir WebService Serasa
Enviado: 03 Nov 2010 04:35
por 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.