user function SalvaXml()cRet := HTTPOtherContent()if !empty(cRet) // arquivo xml recebido na variavel cRet, salvando no servidor nHandle := FCREATE("\received_file.xml") if nHandle = -1 conout("Erro ao criar arquivo - ferror " + Str(Ferror())) else FWrite(nHandle, cRet) FClose(nHandle) return "ok" endIfelse conout("Nenhum conteudo recebido em HTTPOtherContent")endifreturn