Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 SubO erro apresenta-se nesta linha:
sc_ConsultaCPFWebService.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACEApresentando 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
ConsultaDetalhadaSerasa failed HRESULT=0x80004005: Erro nao especificado.
Carregando comentários...