#include "protheus.ch"
#INCLUDE "XMLXFUN.CH"
User Function Exemplo()
local cError := ""
local cWarning := ""
local oXml := nil
local cName := "_NOMECLIENTE"
cXml := '<?xml version="1.0" encoding="UTF-8"?>'
cXml += "<pedido>"
cXml += " <NomeCliente>Microsiga Software S/A</NomeCliente>"
cXml += " <Endereco>Av. Braz Leme</Endereco>"
cXml += " <Numero>1361</Numero>"
cXml += " <Data>22-03-2005</Data>"
cXml += " <Itens>"
cXml += " <Item>"
cXml += " <Produto>Prothues</Produto>"
cXml += " <Quantidade>1</Quantidade>"
cXml += " <Preco>100.00</Preco>"
cXml += " </Item>"
cXml += " <Item>"
cXml += " <Produto>ERP</Produto>"
cXml += " <Quantidade>0</Quantidade>"
cXml += " <Preco>0</Preco>"
cXml += " </Item>"
cXml += " </Itens>"
cXml += "</pedido>"
oXml := XmlParser( cXml, "_", @cError, @cWarning )
// Remove o elemento <NomeCliente> do xml
lxml := XmlDelNode(oXml:_PEDIDO, cName)
// Tranforma o Objeto XML em string
SAVE oXml XMLSTRING cXML
Conout(cXML)
return
|