WEBSERVICE

ARNALDOCRUZ 21/07/2010 18:21:57
#348075

Boa noite

No código abaixo tenho que encaixar estes links

[ô]http://sngpc.anvisa.gov.br/webservice/sngpc.asmx?WSDL[ô];
[ô][ô]http://sngpc.anvisa.gov.br/webservice/sngpc.asmx[ô] ; //[ô]http://homologacao.anvisa.gov.br/webservice/sngpc.asmx[ô];

+ não sei onde vai cada um deles

Dim strSoapAction As String
Dim strURL As String
Dim strXml As String

strURL = [Ô]http://www.localhost/myweb/mywebService.asmx[Ô]
strSoapAction = [Ô]http://tempuri.org/EnviarArquivoSNGPC[Ô]
strXml = [Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]utf-8[Ô][Ô]?>[Ô] & _
[Ô]<soap:Envelope xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô] xmlns:xsd=[Ô][Ô]http://www.w3.org/2001/XMLSchema[Ô][Ô] xmlns:soap=[Ô][Ô]http://schemas.xmlsoap.org/soap/envelope/[Ô][Ô]>[Ô] & _
[Ô]<soap:Body>[Ô] & _
[Ô]<EnviarArquivoSNGPC xmlns=[Ô][Ô]http://tempuri.org/[Ô][Ô]>[Ô] & _
[Ô]<Email>[Ô] & Email & [Ô]</Email>[Ô] & _
[Ô]<Senha>[Ô] & Senha & [Ô]</Senha>[Ô] & _
[Ô]<Arquivo>[Ô] & Arquivo & [Ô]</Arquivo>[Ô] & _
[Ô]<Hash>[Ô] & HASH & [Ô]</Hash>[Ô] & _
[Ô]</EnviarArquivoSNGPC>[Ô] & _
[Ô]</soap:Body>[Ô] & _
[Ô]</soap:Envelope>[Ô] [ô]

Debug.Print PostWebservice(strURL, strSoapAction, strXml) [ô]


Outro código de envio, só que acho que está faltando algo

Dim wscSNGPC As New SoapClient30
[ô]//Iniciando no ambiente de homologação do SNGPC
wscSNGPC.mssoapinit [Ô]http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc.asmx?WSDL[Ô]
[ô]//Exemplo para validar um usuário
MsgBox wscSNGPC.ValidarUsuario([Ô]e-mail[Ô], [Ô]senha[Ô])
[ô]//Exemplo de envio de um arquivo XML
MsgBox wscSNGPC.EnviaArquivoSNGPC([Ô]e-mail[Ô], [Ô]senha[Ô], [Ô]arquivo xml[Ô], [Ô]hash[Ô])