ecmsoft Posted March 30, 2012 Report Share Posted March 30, 2012 Estou precisando fazer consulta SERASA via aplicação. Pode ser em xHB ou PHP. Considerando que o cliente já tenha login e senha, gostaria de consultar o CPF/CNPJ ou CHEQUE. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria Quote Link to comment Share on other sites More sharing options...
ecmsoft Posted March 30, 2012 Author Report Share Posted March 30, 2012 Estou precisando fazer consulta SERASA via aplicação. Pode ser em xHB ou PHP. Considerando que o cliente já tenha login e senha, gostaria de consultar o CPF/CNPJ ou CHEQUE. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria Quote Link to comment Share on other sites More sharing options...
rochinha Posted March 31, 2012 Report Share Posted March 31, 2012 cSERASA := "http://www.consultacpf.com/webservices/test-drive/consultacpf.asmx" cEmailSerasa := "email@provedor.com.br" cSenhaSerasa := "10203040" cDocumento := "00.000.000/0000-00" strXml := [] strXml := strXml + [<?xml version="1.0" encoding="utf-8" ?>] strXml := strXml + [] strXml := strXml + [ ] strXml := strXml + [ ] strXml := strXml + [ "]+cEmailSerasa+["] strXml := strXml + [ "]+cSenhaSerasa+["] strXml := strXml + [ "]+cDocumento+["] strXml := strXml + [ ] strXml := strXml + [ ] strXml := strXml + [] oSERASA:= oMSXML2 := TOleAuto():New( "MSXML2.ServerXMLHTTP" ) oSERASA:Open( "POST", cSERASA, .F.) oSERASA:Send( strXml ) MemoEdit( oSERASA:responseText ) Quote Link to comment Share on other sites More sharing options...
ecmsoft Posted March 31, 2012 Author Report Share Posted March 31, 2012 Rochia, obrigado pela Resposta ! Pelo que vi, o acesso que você me mandou é através do WebService da CONSULTACPF. Teria como eu consultar diretamente no Servidor SERASA ? Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria Quote Link to comment Share on other sites More sharing options...
rochinha Posted April 2, 2012 Report Share Posted April 2, 2012 Estou sem uma chave para testar mas veja se ajuda. oSay:SetText( "Aguarde. consulta ao SERASA" ) cSERASA := "https://www.scpc.inf.br/cgi-bin/spcnweb?HTML_PROGRAMA=md020010.int&HTML_ACESSO=CPUXCPU&HTML_PROGRAMA=md020010.int&HTML_PROCESSA=CON" CodigoText := "03030570" SenhaText := "10203040" ConsultaText := "00.000.000/0000-00" strXml := [] strXml := strXml + [&HTML_CODIGO=] + CodigoText strXml := strXml + [&HTML_SENHA=] + SenhaText strXml := strXml + [&HTML_CONVERSA=] + ConsultaText strXml := strXml + [&HTML_NOME=] + NomeText strXml := strXml + [&HTML_NASC=] + NascimentoText strXml := strXml + [&HTML_CPF=] + CPFText strXml := strXml + [&HTML_UF=] + UFText strXml := strXml + [&HTML_BANCO=] + BancoText strXml := strXml + [&HTML_AGENCIA_NRO=] + AgenciaText strXml := strXml + [&HTML_CONTA_NRO=] + ContaText strXml := strXml + [&HTML_CONTA_DIG=] + ContadText strXml := strXml + [&HTML_CHEQUEI_NRO=] + ChequeText strXml := strXml + [&HTML_CHEQUEI_DIG=] + ChequedText strXml := strXml + [&HTML_QTDE=] + QtdeText oSERASA:= TOleAuto():New( "MSXML2.ServerXMLHTTP" ) oSERASA:Open( "POST", cSERASA, .F.) oSERASA:Send( strXml ) MemoEdit( oSERASA:responseText ) Quote Link to comment Share on other sites More sharing options...
integresis Posted April 2, 2012 Report Share Posted April 2, 2012 Sei que nao tem nada haver com o TOPICO, mas se o ROCHINHA, for MEMBRO JUNIOR, eu ainda nem nasci para a programacao, o cara é FERA !!!!! rs rs rs rs CHARLES Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.