ConsultaCPF.com

Boa tarde!!!

Estou tendo dificuldades em executar as consultas, mais especificamente, a consulta detalhada.

Estou tentando o MS Access 2003 (MS Office Toolkit) e tb tentei com o InfoPaht, com este ultimo, testei todas as consultas, a unica que nao executa é a consulta detalhada.

Alguem tem alguma ideia para poder me ajudar.

Att

Luciano

Gracas ao exemplo do Angelo (VB6), agora ta blz.

Grato

Luciano

Legal, voltou a dar erro, mas em outra consulta, e já mandei vários email's, inclusive com o exemplo em vb6, onde o erro se apresenta, mas não tive retorno algum, isso a quase 2 meses. Luciano

Ola Luciano, Developers,

 Como ja foi comentado anteriormente nao conseguimos dar suporte em todas as linguagens e ambientes de desenvolvimento, por isso criamos essa comunidade de desenvolvedores para troca de experiencias onde mutuamente voces podem se ajudar.

Algumas versoes de aplicacoes office como access e excel podem sim fazer uso de WebServices, mas tendo em vista que isso é um "quebra-galho" da Microsoft onde ela nao da o mesmo suporte que o .NET por exemplo com VB.NET ou C#.NET algumas informacoes do webservices são realmente mais complexas para serem implementadas por isso esperamos a compreensao e a colaboracao dos desenvolvedores que ja criaram os "Workarounds" para esses problemas postem as solucoes aqui no forum.

 No intuito de ajudar nos criamos um exemplo em vb6 para dar o caminho das pedras para os desenvolvedores.

 

Um abraco a todos.

Bom dia Angelo!!! Entendo o que você quis dizer, mas o que não entendo é como as demais funcionam e somente 2 não funcionam, dando a mesma mensagem erro que já foi comentado aqui a um bom tempo atrás e que se eu não me engano era um bug no produto da MS. Mesmo fazendo no vb6, a mensagem de erro continua, sendo igual a do office. [s Luciano Sub exemplo_angelo() email = Me.txt_email.Text senha = Me.txt_senha.Text datai = Format(Me.txt_datai.Text, "yyyy/mm/dd") & "T00:00:00" dataf = Format(Me.txt_dataf.Text, "yyyy/mm/dd") & "T00:00:00" 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.ConsultaHistorico(email, senha, datai, dataf) url = "http://www.consultacpf.com/webservices/test-drive/consultacpf.asmx/ConsultaHistorico?EMail=" & Form_frm_consulta.txt_email & "&Senha=" & Form_frm_consulta.txt_senha & "DataInicio=" & v_dataini & "DataTermino=" & v_datafin & "" Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.Open "GET", url, False xmlhttp.Send "" xmlhttp_resultado = xmlhttp.responseText Set xmlhttp = Nothing End Sub