Consulta Serasa Ccfácil (www.ccfacil.com.br)

[Guest Marcos José]

Olá pessoal,

Alguém sabe me dizer se é possível fazer alguma integração com o site de consulta ao Serasa www.ccfacil.com.br?

Agradeço,

Marcos

[bareta]

possivelmente sim... em uma mistura de ASPHHTP (ou ajax), mais você teria que ter uma conta ativa no site citado...

[Guest --Fabiano --]

Ola amigo, você pode ter essa resposta utilizando nossa integração via web service. Consulte www.consultacpf.com

Um Abraço

[Lucianorw]

Ola amigo, você pode ter essa resposta utilizando nossa integração via web service. Consulte www.consultacpf.com

Um Abraço

Ola Fabiano,

Estava quase terminando a consulta ao Serasa, usando o consultacpf.com, mas, foi incluido uma nova consulta (Consulta Detalhdada) e apos isto, apresenta erro quando tento fazer a consulta, se você entender de VBA e puder da uma olhada no meu problema, fico grato.

'/// apos a inclusao da linha abaixo comecou o erro:

str_WSML = str_WSML & "<type name='SERASAConsultaDetalhada' targetNamespace='ConsultaCPF' uses='GCTM' targetClassName='struct_SERASAConsultaDetalh'/>"

'/// a msg apresenta-se na linha abaixo:

sc_ConsultaCPFWebService.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACE

Erro em temo de execução '-2147024809 (800070057)':

WSDLReader:XML Parser failed at linenumber 0, lineposition 0, reason is: The system cannot locate the project specified.

HRESULT:0x1: Função incorreta.

- WSDLReader:Loading of the WSDL file failed.

HRESULT=0x80070057: Parâmetro incorreto.

- Client:One of the parameters supplied is invalid.

HRESULT=0x80070057: Parâmetro incorreto.

'////////////////

Uso MSAccess2003, MS Office 2003 Web Services Toolkit, todas as referencias estao marcadas, enfim, esta tudo ok, tanto que, se tiro a linha para de dar problema.

Grato se puder(em) dar uma ajuda, pois, já estava com a entrega prevista, e to enrolando o pessoal por causa deste erro.

Att

Luciano

[Lucianorw]

Bom dia!!!

No código abaixo, tem algum erro?

Option Compare Database



'*****************************************************************
'Esta classe foi criada pelo Microsoft Office 2003 Web Services Toolkit.
'
'Criação: 10/8/2007 02:15:32 PM
'
'Descrição:
'Esta classe é uma representação de classe do Visual Basic for Applications do serviço da Web
'conforme definido por http://www.consultacpf.com/webservices/consultacpf.asmx?wsdl.
'
'Usar:
'Dimensione uma variável como novo(a) clsws_ConsultaCPFWebService e escreva o código para
'usar os métodos fornecidos pela classe.
'Exemplo:
' Dim ExampleVar as New clsws_ConsultaCPFWebService
' debug.print ExampleVar.wsm_ConsultaSaldoCliente("Entrada de Exemplo")
'
'Para obter mais informações, consulte Tipos Complexos na Ajuda do Microsoft Office 2003
'Web Services Toolkit.
'
'Alterações no código desta classe podem resultar em comportamento incorreto.
'
'*****************************************************************
'Dimensionando variáveis de classe particulares.
Private sc_ConsultaCPFWebService As SoapClient30
Private Const c_WSDL_URL As String = "http://www.consultacpf.com/webservices/consultacpf.asmx?wsdl"
Private Const c_SERVICE As String = "ConsultaCPFWebService"
Private Const c_PORT As String = "ConsultaCPFWebServiceSoap"
Private Const c_SERVICE_NAMESPACE As String = "ConsultaCPF"
Private Sub Class_Initialize()
'*****************************************************************
'Esta sub-rotina será chamada sempre que a classe for instanciada.
'Cria sc_ComplexTypes como novo SoapClient30 e, em seguida,
'inicializa sc_ComplexTypes.mssoapinit2 com o arquivo WSDL encontrado em
'http://www.consultacpf.com/webservices/consultacpf.asmx?wsdl.
'*****************************************************************
    Dim str_WSML As String
    str_WSML = "<servicemapping>"
    str_WSML = str_WSML & "<service name='ConsultaCPFWebService'>"
    str_WSML = str_WSML & "<using PROGID='MSOSOAP.GenericCustomTypeMapper30' cachable='0' ID='GCTM'/>"
    str_WSML = str_WSML & "<types>"
    str_WSML = str_WSML & "<type name='Cliente' targetNamespace='ConsultaCPF' uses='GCTM' targetClassName='struct_Cliente'/>"
    str_WSML = str_WSML & "<type name='SERASAConsultaDetalhada' targetNamespace='ConsultaCPF' uses='GCTM' targetClassName='struct_SERASAConsultaDetalh'/>"
    str_WSML = str_WSML & "<type name='SERASAConsultaSimples' targetNamespace='ConsultaCPF' uses='GCTM' targetClassName='struct_SERASAConsultaSimple'/>"
    str_WSML = str_WSML & "<type name='SinteseCadastral' targetNamespace='ConsultaCPF' uses='GCTM' targetClassName='struct_SinteseCadastral'/>"
    str_WSML = str_WSML & "</types>"
    str_WSML = str_WSML & "</service>"
    str_WSML = str_WSML & "</servicemapping>"

    Set sc_ConsultaCPFWebService = New SoapClient30
    sc_ConsultaCPFWebService.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACE
    'Use o servidor proxy definido nas configurações da LAN do Internet Explorer para detectar
    ', configurando ProxyServer como 
    sc_ConsultaCPFWebService.ConnectorProperty("ProxyServer") = ""
    'Detecte automaticamente as configurações de proxy se o Internet Explorer for definido para detecção automática,
    'configurando EnableAutoProxy como True
    sc_ConsultaCPFWebService.ConnectorProperty("EnableAutoProxy") = True

    Set sc_ConsultaCPFWebService.ClientProperty("GCTMObjectFactory") = New clsof_Factory_ConsultaCPFWe
End Sub

[Lucianorw]

Código mais enxuto, mas porque a string retorna NULA?

Grato

Luciano

Option Compare Database
Option Explicit
Public strError As String
Public WSDL, ServiceName
Public oResposta
Public Resultado As String, Email As String, Senha As String, Documento As String
Public Function teste()
    Email = "SEU EMAIL AQUI"
    Senha = "SUA SENHA AQUI"
    Documento = "SEU CPF/CNPJ AQUI"
    Resultado = SERASA(Email, Senha, Documento)
End Function
Public Function SERASA(ByVal Email As String, ByVal Senha As String, ByVal Documento As String) As String
    Dim SOAPClient
    Set SOAPClient = New SoapClient30
    WSDL = "http://www.consultacpf.com/webservices/consultacpf.asmx?wsdl"
    ServiceName = "ConsultaCPFWebService"
    strError = SOAPClient.MSSoapInit(WSDL, ServiceName)
    Set oResposta = SOAPClient.ConsultaSimplesSERASASandBox(Email, Senha, Documento)
End Function

[Rogerm]

Olá pessoal,

Alguém sabe me dizer se é possível fazer alguma integração com o site de consulta ao Serasa www.ccfacil.com.br?

Agradeço,

Marcos

Olá ! Encaminhe um e-mail para rogerio@checkok.com.br informando da sua necessidade, é uma empresa distribuidora da Serasa e Faz Integração.