TOTVSTEC

Árvore de páginas

Exclui um nó de um objeto XML - eXtensible Markup Language (Linguagem extensível de formatação).

Sintaxe

XmlDelNode( < @oParent > )

Parâmetros

NomeTipoDescriçãoObrigatórioReferência
oParentObjetoIndica o nó pai do elemento que será excluído.XX
cNameCaractereIndica o nome do elemento que será excluído.X

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna verdadeiro (.T.), se encontrar um elemento e excluí-lo; caso contrário, falso (.F.).

Observações

  • Essa função excluirá todos os nós que contém o nome igual ao nó informado para ser excluído a partir do nó indicado para pesquisa.
  • Informa-se através de parâmetro um elemento do objeto que contém a estrutura do XML (um nó qualquer).
    Este não precisa ser obrigatoriamente a raiz da estrutura, pois a função procurará, recursivamente.
  • Em seguida, deve-se informar o nome do nó que deseja excluir, a partir do nó informado.

Exemplos

#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

Veja também

  • Sem rótulos