Salvar Arquivo em XML - Urgente!

Fri, 13 Dec 2013 12:31:45 GMT

Bom Dia Pessoal,

fiz uma macro para consumir um web service e está funcionando corretamente só que o XML que eu recebo fica guardado em uma variável,

agora eu preciso salvar esse xml que me retorna do web service, segue abaixo código que eu montei para consumir o web service.

já tentei fazer uma função para salvar o xml mas sem sucesso.

Se alguém poder me ajudar agradeço!

sub wsSOAP

set val=ActiveDocument.Fields("USUARIO").GetPossibleValues

sUsuario = val.Item(0).Text

set valsenha=ActiveDocument.Fields("SENHA").GetPossibleValues

sSenha = valsenha.Item(0).Text

set val2=ActiveDocument.Fields("QUANTIDADE").GetPossibleValues

sQuantidade = val2.Item(0).Text

xmlToSend = ""

xmlToSend = xmlToSend & "<?xml version='1.0' encoding='utf-8'?>"

xmlToSend = xmlToSend & "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:ws='http://ws.integra.sascar.com.br/'>"

xmlToSend = xmlToSend & "<soapenv:Header/>"

xmlToSend = xmlToSend & "<soapenv:Body>"

xmlToSend = xmlToSend & "<ws:obterPacotePosicoes>"

xmlToSend = xmlToSend & "<usuario>" & sUsuario & "</usuario>"

xmlToSend = xmlToSend & "<senha>" & sSenha & "</senha>"

xmlToSend = xmlToSend & "<quantidade>" & sQuantidade & "</quantidade>"

xmlToSend = xmlToSend & "</ws:obterPacotePosicoes>"

xmlToSend = xmlToSend & "</soapenv:Body>"

xmlToSend = xmlToSend & "</soapenv:Envelope>"

set txt1 = ActiveDocument.Variables("vXMLSent")

txt1.setContent xmlToSend, true

'Create xmlhttp opject

Set xmlhttp = CreateObject("Microsoft.XMLHTTP")

xmlhttp.open "POST", "http://201.94.137.12/SasIntegra/SasIntegraWSService?wsdl", false

xmlhttp.setRequestHeader "Content-Type", "text/xml"

xmlhttp.setRequestHeader "SOAPAction", "http://201.94.137.12/SasIntegra/SasIntegraWSService?wsdl"

xmlhttp.send xmlToSend

result = xmlhttp.responseText

result = replace(result, ">", ">")

result = replace(result, "<", "<")

set txt2 = ActiveDocument.Variables("vXMLReceived")

txt2.setContent result, true

end sub

Re: Salvar Arquivo em XML - Urgente!

aderlanrm — Mon, 16 Dec 2013 17:18:03 GMT

Boa tarde João,

Se puder postar um QVW de exemplo, facilita a ajuda.

Mas tente colocar um evento que executa essa macro antes da carga em um QVW, e no seu script, faça um load do arquivo salvo com os devidos parametros.

Para salva o arquivo em disco, você vai precisar criar um objeto que receberá a variável e usar a opção EXPORT, porém, talvez esse objeto que você criou que recebe o XML já tenha essa opção, não tenho certeza, dá uma olhada.

Para criar o objeto, é algo assim:

set obj = ActiveDocument.GetSheetObject("TB02")

obj.Export "C:\arquivo.csv",","

Abraço.

Re: Re: Salvar Arquivo em XML - Urgente!

Anonymous — Mon, 16 Dec 2013 17:22:05 GMT

Olá João,

Da uma olhada se isso te ajuda.

abs

Re: Salvar Arquivo em XML - Urgente!

Tue, 17 Dec 2013 13:12:24 GMT

Obrigado Pessoal!

topic Salvar Arquivo em XML - Urgente! in Brasil

Salvar Arquivo em XML - Urgente!

Re: Salvar Arquivo em XML - Urgente!

Re: Re: Salvar Arquivo em XML - Urgente!

Re: Salvar Arquivo em XML - Urgente!