Procedure Main(sArq)
  XMLWS(sArq)
return

Function XMLWS(sConteudo)
 cWebService   := "http://fnrhws.hospedagem.turismo.gov.br/FnrhWs/FnrhWs?wsdl"

   // Ativa objeto DOM
   objXMLDOM  := TOLEAUTO():New( "Microsoft.XMLDOM" )

   // Converte para um documento XML no padrão DOM
   objXMLDOM:async := .f.
   objXMLDOM:loadXML( sConteudo )

   objXMLHTTP := TOleAuto():New( "MSXML2.ServerXMLHTTP" )
   // Aponta para o Web Service
   objXMLHTTP:open( "POST", cWebService, .F. )
   // Envia o documento XML para o Web Service
   objXMLHTTP:send( objXMLDOM:xml )

   // Aqui é carregado o retorno do Web Service.
   sRetorno := objXMLHTTP:responseXML:xml
   objXMLDOM:async := .f.
   cResponseText := objXMLDOM:loadXML( sRetorno )

   // Apresenta a resposta
   MemoEdit( cResponseText )

return nil