Erro ao usar www.consultacpf.com

[Lucianorw 0]

Bom dia!!!

Fiz a consulta ao serasa, usando o consultacopf.com, estava tudo funcionando 100%, ate que foi incluido uma nova modalidade de consulta (ConsultaDetalhadaSerasa()), depois disso, apresenta erro quando tento fazer a consulta.

No código abaixo, tem algum erro?

Esse codigo foi feito no MS Access2003.

Grato

Luciano

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 SoapClient30Private 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_ConsultaCPFWeEnd Sub

O erro apresenta-se nesta linha:

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

Apresentando esta msg de erro:

Erro em tempo de execução '-2147024809 (80070057)':

SoapMapper:The SoapMapper for element

ConsultaDetalhadaSerasaResult could not be created

HRESULT=0x80004005: Erro nao especificado

- WSDLOperation:Initialization of a SoapMapper for operation

ConsultaDetalhadaSerasa failed HRESULT=0x80004005: Erro nao especificado.

- WSDLOperation:Initializing of the output message failed for.

[Lucianorw 0]

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

Grato

Luciano

Option Compare DatabaseOption ExplicitPublic strError As StringPublic WSDL, ServiceNamePublic oRespostaPublic Resultado As String, Email As String, Senha As String, Documento As StringPublic Function teste()	Email = "SEU EMAIL AQUI"	Senha = "SUA SENHA AQUI"	Documento = "SEU CPF/CNPJ AQUI"	Resultado = SERASA(Email, Senha, Documento)End FunctionPublic 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