XmlNewNode

XmlNewNode ( < oParent>, < cElementName>, < cRealName>, < cType> ) --> Nil

O novo nó será adicionado como filho no nó passado por parâmetro, no qual serão informados também os seus dados, tais como: RealName, ElementName e Type.

/*Neste exemplo criamos o xml através da função GeraXML, parseamos ele através da xmlParser retornando o objeto xml.Em seguida visualizamos o objeto retornado e usamos a funçao xmlChildCount retornando a quantidade de elementos no objeto contendo o xml. No Nosso exemplo a função irá retornar 5 elementos.Agora usaremos a xmlNewNode, especificando que o novo nodo será adicionado como filho de '&ltpedido>', logo depois acessamos o nodo e acrecentamos um texto para ele.obs: o resultado disso no xml será &ltexemplo1&gtExemplo Microsiga</exemplo1&gtApós a criação do nodo, a xmlChildCount irá retornar 6 indicando que o nodo foi inserido.*/#INCLUDE "TOTVS.CH"#INCLUDE "XMLXFUN.CH"User Function getObjXML()	Local cError   := ""	Local cWarning := ""	Local cXML := ""	Local oXml := NIL		//Gera o Objeto XML 	oXml := XmlParser( GeraXML(), "_", @cError, @cWarning )  //verifica quantos elementos possuo  conout( XmlChildCount( oXml:_PEDIDO ) )  // Criando um node		XmlNewNode(oXml:_PEDIDO, "Exemplo1", "Exemplo1", "NOD" )	  //setando o CONTEUDO do meu nodo ""  oXml:_PEDIDO:Exemplo1:Text := "Exemplo Microsiga"  //verifica quantos elementos possuo depois da inserção  conout( XmlChildCount( oXml:_PEDIDO ) )	// Tranforma o Objeto XML em string//	SAVE oXml XMLSTRING cXMLReturn oXml// função para gerar uma string contendo um xmlStatic Function GeraXML()	Local cScript := '<?xml version="1.0" encoding="UTF-8"?>'	cScript += "&ltpedido>"	cScript += "  &ltNomeCliente&gtMicrosiga Software S/A</NomeCliente>"	cScript += "  &ltEndereco&gtAv. Braz Leme</Endereco>"	cScript += "  &ltNumero&gt1361</Numero>"	cScript += "  &ltData&gt22-03-2005</Data>"	cScript += "  &ltItens>"	cScript += "    &ltItem>"	cScript += "      &ltProduto&gtProthues</Produto>"	cScript += "      &ltQuantidade&gt1</Quantidade>"	cScript += "      &ltPreco&gt100.00</Preco>"	cScript += "    </Item>"	cScript += "    &ltItem>"	cScript += "      &ltProduto&gtERP</Produto>"	cScript += "      &ltQuantidade&gt0</Quantidade>"	cScript += "      &ltPreco&gt0</Preco>"	cScript += "    </Item>"	cScript += "  </Itens>"	cScript += "</pedido>"Return cScript