CONSULTA WEBSERVICE SERASA

 Tópico anterior Próximo tópico Novo tópico

CONSULTA WEBSERVICE SERASA

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#494348 - 17/07/2020 08:43:46

HIDDEN
GOIANIA
Cadast. em:Julho/2009


O Serasa fornece alguns webservices para integração. Por exemplo, o WS para consulta de pessoa física: https://www.soawebservices.com.br/webservices/producao/cdc/cdc.asmx?op=PessoaFisicaEstendida. Nesse link ele me da o exemplo de requiição:

POST /webservices/producao/cdc/cdc.asmx HTTP/1.1
Host: www.soawebservices.com.br
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: 'SOAWebServices/PessoaFisicaEstendida'

<?xml version='1.0' encoding='utf-8'?>
<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>
  <soap:Body>
    <PessoaFisicaEstendida xmlns='SOAWebServices'>
      <Credenciais>
        <Email>string</Email>
        <Senha>string</Senha>
      </Credenciais>
      <Documento>string</Documento>
    </PessoaFisicaEstendida>
  </soap:Body>
</soap:Envelope>


Como eu faço essa chamada no VB6?



#494349 - 17/07/2020 09:31:02

HIDDEN
GOIANIA
Cadast. em:Julho/2009


Última edição em 17/07/2020 09:33:24 por HIDDEN

Consegui utilizando o Microsoft XML 6.0 (msxml6.dll nativo do VB6). Com base nos dados do post anterior, a chamada fica assim:

    Dim URL As String
    Dim URLWS As String
    Dim strRetorno As String
    Dim objDom As New MSXML2.DOMDocument60
    Dim objXmlHttp As New MSXML2.XMLHTTP60
    Dim DOCXML As String
    
    URLWS = 'https://www.soawebservices.com.br/webservices/test-drive/cdc/cdc.asmx'
    
    URL = '<?xml version=' & chr(34) & '1.0' & chr(34) & ' encoding=' & chr(34) & 'utf-8' & chr(34) & '?>'
    URL = URL & '<soap12:Envelope xmlns:xsi=' & chr(34) & 'http://www.w3.org/2001/XMLSchema-instance' & chr(34) & ' xmlns:xsd=' & chr(34) & 'http://www.w3.org/2001/XMLSchema' & chr(34) & ' xmlns:soap12=' & chr(34) & 'http://www.w3.org/2003/05/soap-envelope' & chr(34) & '>'
    URL = URL & '<soap12:Body>'
    URL = URL & '<PessoaFisicaEstendida xmlns=' & chr(34) & 'SOAWebServices' & chr(34) & '>'
    URL = URL & '<Credenciais>'
    URL = URL & '<Email>zeh@facebook.com</Email>'
    URL = URL & '<Senha>senhadozeh</Senha>'
    URL = URL & '</Credenciais>'
    URL = URL & '<Documento>011071567-50</Documento>'
    URL = URL & '</PessoaFisicaEstendida>'
    URL = URL & '</soap12:Body>'
    URL = URL & '</soap12:Envelope>'
    
    objDom.loadXML URL
    strRetorno = objDom.xml
    
    objXmlHttp.Open 'POST', URLWS, False
    objXmlHttp.setRequestHeader 'Content-Type', 'application/soap+xml; charset=utf-8'
    objXmlHttp.send strRetorno
    
    DOCXML = objXmlHttp.responseText
    
    Set objXmlHttp = Nothing



O XML é carregado na variável DOCXML. Daí pra frente é só extrair os dados.

Ps: substituir o apóstrofo por aspas.



#494350 - 17/07/2020 16:44:39

FUTURA
.
Cadast. em:Maio/2004


Bacana sua iniciativa de compartilhar,  aqui na minha cidade, a associação comercial tem parceria com a boa vista scpc, e qdo precisei implementar, não consegui em vb6, tive q fazer em vb.net.



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário