Dim x As XMLBuilder
x = x.create("SERVICOS").attribute("xmlns", "SERVICO.COM.BR")
x = x.element("SERVICO_") _
.element("ID") _
.text("1") _
.up() _
.element("COD_APARELHO") _
.text("110202120") _
.up() _
.element("NUMERO_APARELHO") _
.text("110202120") _
.up() _
.element("DESC_SERVICO") _
.text("110202120") _
.up() _
.element("CODIGO_USUARIO") _
.text("110202120") _
.up() _
.element("DATA_HORA") _
.text("110202120") _
.up() _
.up() _
Dim props As Map
props.Initialize
props.Put("{http://xml.apache.org/xslt}indent-amount", "4")
props.Put("indent", "yes")
File.WriteString(fp, "1.xml", x.asString2(props))
If File.Exists(fp,"1.xml" ) Then Log("existe")
File.Copy(fp, "1.xml", File.DirRootExternal, "1.xml")