TOTVSTEC

Árvore de páginas

Retorna um nó que representa o nó pai do elemento especificado por parâmetro.

Sintaxe

XmlGetParent( [ oNode ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

oNode

bloco de código

Indica o nó no qual será utilizado como referência para o retorno do nó pai.

 X

 

Retorno

Nome

Tipo

Descrição

oRet

objeto

Retorna um objeto posicionado no nó, de acordo com o parâmetro <oNode>.

Observações

  • Pode-se utilizar essa função para subir na estrutura do objeto XML - EXtensible Markup Language (Linguagem extensível de formatação).
  • Se for usado como retorno o mesmo objeto passado em <oNode>, seu conteúdo será substituído pelo conteúdo do elemento procurado, não sendo possível recuperar a informação anterior.

Exemplos

#INCLUDE "TOTVS.CH"
#INCLUDE "XMLXFUN.CH"

User Function ExeXML1()
Local cError   := ""
Local cWarning := ""
Local oScript

//Gera o Objeto XML ref. ao script
oScript := XmlParser( GeraXML(), "_", @cError, @cWarning )
oScript := XmlGetParent( oScript:_PEDIDO:_ITENS:_ITEM[1] )

//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

Veja também

  • Sem rótulos