// Ler Xml e colocar Na Tabela

s_xml_string is string=[
<?xml version="1.0"?>
<Root><status>1</status>
<valores>
<USD><nome>Dolar</nome><valor>3,1519</valor><ultima_consulta>1485888302</ultima_consulta>
<fonte>UOL Economia - http://economia.uol.com.br/</fonte> </USD>
<EUR><nome>Euro</nome><valor>3,4012</valor><ultima_consulta>1485888302</ultima_consulta>
<fonte>UOL Economia - http://economia.uol.com.br/</fonte></EUR>
<ARS><nome>Peso Argentino</nome><valor>0,1983</valor><ultima_consulta>1485888302</ultima_consulta>
<fonte>UOL Economia - http://economia.uol.com.br/</fonte></ARS>
</valores>
</Root>
]

TableDeleteAll(TABLE_indices)
XMLDocument("XML1",s_xml_string)
_status is string=XMLRead("XML1","/Root/status")
TableAddLine(TABLE_indices,"Status",_status)
s_nome is string=""
s_valor is string=""
s_fonte is string=""
s_ultima_consulta is string=""
s_nome_tag is string=""
XMLFind("XML1",Null,XMLElement+XMLChildItem,XMLStartWith)

WHILE XMLFound("XML1")
SWITCH XMLElementType("XML1")
CASE XMLTag :
s_nome_tag = XMLElementName("XML1")
IF s_nome_tag="nome" THEN
s_nome=XMLData("XML1")
END
IF s_nome_tag="valor" THEN
s_valor=XMLData("XML1")
END
IF s_nome_tag="ultima_consulta" THEN
s_ultima_consulta=XMLData("XML1")
END
IF s_nome_tag="fonte" THEN
s_fonte=XMLData("XML1")
END
OTHER CASE

END
IF s_fonte<>"" THEN
TableAddLine(TABLE_indices,s_nome,s_valor,s_fonte,s_ultima_consulta)
s_nome=""
s_valor=""
s_fonte=""
s_ultima_consulta=""
END
XMLNext("XML1")
END
XMLClose("XML1")