3 Replies Latest reply: Dec 17, 2013 8:12 AM by João Henrique Soares RSS

    Salvar Arquivo em XML - Urgente!

    João Henrique Soares

      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, "&gt;", ">")

        result = replace(result, "&lt;", "<")

        set txt2 = ActiveDocument.Variables("vXMLReceived")

        txt2.setContent result, true

      end sub