XmlChildEx

XmlChildEx ( < oParent>, < cProcura> ) --> xRet

xRet(qualquer)
• Retorna o objeto do nó, se a função encontrar apenas um elemento, ou um array de nós, se possuir mais de um elemento do mesmo nome; caso contrário, o retorno será nulo.

• Ao especificar um elemento qualquer do objeto para a função, na qual será usado como base para busca apenas no primeiro subnível, a função retornará todos os nós filhos que encontrar.
• Essa função é útil para procurar um elemento filho quando existe mais de um elemento do mesmo tipo.

/*No exemplo seguinte os códigos da string contendo o xml são convertidos e, em seguida, mantém-se a posicão no node &ltitens> e a função é acionada em busca de elementos &ltitem> como filhos de &ltitens&gt.Neste caso, a função retorna um array, pois existe mais de um node do tipo &ltitem>, obtendo oScript[1] e oScript[2].*/#INCLUDE "TOTVS.CH"#INCLUDE "XMLXFUN.CH"User Function ExeXML()	Local cError   := ""	Local cWarning := ""		Local oScript	  Local cFile := ""	        	//a partir do rootpath do ambiente	cFile := "\xml\pedido.xml"		//Gera o Objeto XML ref. ao script	oScript := XmlParser( GeraXML(), "_", @cError, @cWarning )             //Adquiro o elemento 	oScript := XmlGetChild(oScript:_PEDIDO , XmlChildCount( oScript:_PEDIDO ))	  oScript := XmlChildEx(oScript ,  "_ITEM")  varinfo("Array", oScript)	// Tranforma o Objeto XML em arquivo	SAVE oScript XMLFILE "\xml\teste.xml" 	Return oScriptStatic Function GeraXML()// Script XML a gerar objetoLocal 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&gt2</Quantidade>"cScript += "      &ltPreco&gt50.00</Preco>"cScript += "    </Item>"cScript += "  </Itens>"cScript += "</pedido>"Return cScript