HOMOLOGAR COM O WEBSERVICE DA FARMACIA POPULAR

PHENIX.MT 06/10/2009 11:08:41
#324564
Bom dia pessoal estou precisando desenvolver um modulo pra fazer a homologacao com a farmacia popular, alguem pode me ajudar
TECLA 07/10/2009 19:43:32
#324743 Resposta escolhida
Qual é a dúvida?
PHENIX.MT 10/10/2009 11:41:28
#324979
como conectar no webservice, e manda os dados necessarios para fazer a homologacao??
TECLA 10/10/2009 15:08:50
#324989
Segue um exemplo em ASP3, cuja sintaxe é [Ô]praticamente[Ô] a mesma do VB6.

Dim oSOAP
Set oSOAP = Server.CreateObject([Ô]MSSOAP.SoapClient[Ô])
oSOAP.ClientProperty([Ô]ServerHTTPRequest[Ô]) = True
oSOAP.mssoapinit([Ô]http://localhost/WebSiteGerenciadorDeServices/Service.asmx?wsdl[Ô])

Dim objDOMDoc
Set objDOMDoc = Server.CreateObject([Ô]Msxml2.DOMDocument.4.0[Ô])

Dim ListaDeNohsDoXML
Set ListaDeNohsDoXML = oSOAP.MetodoRetornaDataSetIpado_ou_DataSet()

[ô]neste local vc tem que usar a interpretação do complextype.
informacao = ListaDeNohsDoXML(0).text

[ô]se vc quiser pode pegar os nodos ou  nodos filhos via XML dai vc usa o XMLDOM normalmente
informacao = ListaDeNohsDoXML(1).XML


objDOMDoc.loadXML(RespostaWs(1).xml)
[ô]Instancia o objeto documentElement para extrair os elementos
Set raiz = objDOMDoc.documentElement

[ô]Looping para percorrer todos os elementos filhos
For i = 0 to raiz.childNodes.length -1
      MsgBox  raiz.childNodes.item(i).attributes(0).text
Next

Set oSOAP = Nothing
PHENIX.MT 13/10/2009 09:51:59
#325138
valeu pela dica!!
Tópico encerrado , respostas não são mais permitidas
Voltar