Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css
Portuguese

Pagetitle
XmlGetChildXmlGetChild

Função:

XmlGetChild


Retorna

um

elemento

filho

da

estrutura.

Sintaxe

Bloco de código
collapsefalse
XmlGetChild( <
oParent>
 oParent >, <
nChild> ) --> oRet 
 nChild > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

oParent

Objeto

bloco de código

Indica o nó no qual será utilizado como base para obter um nó filho.

X

 


nChild

Numérico

numérico

Indica o índice do nó que desejamos obter.

X

 


Retorno

Nome

 

Tipo

Retorno

Descrição

oRet

(

objeto

)

Retorna o objeto que representa o filho da estrutura, de acordo com o índice passado no parâmetro <nChild>

.

Observações

  • Ao especificar um elemento qualquer do objeto para a função, na qual irá usar como base para retornar o nó filho indicado pelo segundo parâmetro passado para a função.
  • Pode-se
utilizar essa
  • utilizar essa função para alterar o posicionamento do objeto, para algum nó filho do atual, na estrutura do objeto XML - EXtensible Markup Language (Linguagem extensível de formatação).
  • Se for usado como retorno o mesmo objeto passado em <oParent>, seu conteúdo será substituído pelo conteúdo do elemento procurado, não sendo possível recuperar a informação anterior.

Exemplos

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
/*No exemplo seguinte usamos a função para nos posicionar no nodo &ltitens> e, em seguida apagamos todos os nós filhos
com a xmlDelNode. Usando o comando SAVE criamos um arquivo teste.xml ao final da execução do programa.*/
#INCLUDE "TOTVS.CH"


#INCLUDE "XMLXFUN.CH"


User Function ExeXML1()


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 )


oScript := 
XmlGetchild
XmlGetChild( oScript:_PEDIDO
, 
XmlChildCount( oScript:_PEDIDO ))
// Agora vou apagar um node
if !XmlDelNode( oScript , "_ITEM" )
conout("Nao foi possivel apagar o nodo")
EndIf
//
5 )

//Tranforma o Objeto XML em arquivo

//

SAVE oScript XMLFILE "\teste.xml"



Return oScript



Static Function GeraXML()
 // Script XML a gerar objeto


Local cScript := '<?xml version="1.0" encoding="UTF-8"?>'


cScript += "<pedido>"


cScript += "  <NomeCliente>Microsiga Software S/A</NomeCliente>"


cScript += "  <Endereco>Av. Braz Leme</Endereco>"


cScript += "  <Numero>1361</Numero>"


cScript += "  <Data>22-03-2005</Data>"


cScript += "  <Itens>"


cScript += "    <Item>"


cScript += "      <Produto>Prothues</Produto>"


cScript += "      <Quantidade>1</Quantidade>"


cScript += "      <Preco>100.00</Preco>"


cScript += "    </Item>"


cScript += "    <Item>"


cScript += "      <Produto>ERP</Produto>"


cScript += "      <Quantidade>0</Quantidade>"


cScript += "      <Preco>0</Preco>"


cScript += "    </Item>"


cScript += "  </Itens>"


cScript += "</pedido>"


Return cScript
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10

 

Veja também