TOTVSTEC

Árvore de páginas

Clonar um node do XML.

Sintaxe

XmlCloneNode( < @oParent >, < cElement > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

oParent

objeto

Indica o nó que recebera o clone

X

X

cElement

caractere

Indica o elemento que sera clonado

X

 

Retorno

Nome

Tipo

Descrição

lRet

lógico

quando for possivel realizar a operação de clonar Retorna Verdadeiro(.T.), quando não for possivel retorna Falso(.F.)

Observações

  • O clone será adicionado como filho do nó passado no primeiro parâmetro

Exemplos

User Function Exemplo()
  #include 'testsuite.ch'
  #INCLUDE "XMLXFUN.CH"
  User Function Exemplo()

  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>2</Quantidade>"
  cScript += "      <Preco>50.00</Preco>"
  cScript += "    </Item>"
  cScript += "  </Itens>"
  cScript += "</pedido>"
  Return cScript

  oXml := XmlParser( GeraXML(), "_", @cError, @cWarning )
  lxml := XmlCloneNode(oXml:_PEDIDO, "_PEDIDO")
  conout(lxml)
  return
Return

Veja também

  • Sem rótulos