Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Função XmlParser

Dúvida
Existe uma função para retornar um XML?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.8

Solução
Esta função permite retornar um objeto, que possui uma estrutura XML, recebido de um arquivo por parâmetro.

Exemplo:

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

User Function getObjXML()

Local cError   := ""
Local cWarning := ""
Local oXml := NIL
 
//Gera o Objeto XML
oXml := XmlParser( GeraXML(), "_", @cError, @cWarning )

If (oXml == NIL )
  MsgStop("Falha ao gerar Objeto XML : "+cError+" / "+cWarning)
  Return
Endif

// Mostrando a informação do Node
MsgInfo(oXml:_PEDIDO:_NOME_CLIENTE:Text,"Cliente")

Return oXml

// função para gerar uma string contendo um xml
Static Function GeraXML()

Local cScript

cScript := '<?xml version="1.0" encoding="ISO-8859-1"?>'
cScript += "<pedido>"
cScript += "    <Nome_Cliente>Microsiga Software</Nome_Cliente>"
cScript += "    <Endereco>Av. Braz Leme</Endereco>"
cScript += "    <Numero>1361</Numero>"
cScript += "    <Data>22-03-2005</Data>"
cScript += "    <Itens>"
cScript += "        <Item>"
cScript += "            <Produto>Protheus</Produto>"
cScript += "            <Quantidade>1</Quantidade>"
cScript += "            <Preco>100.00</Preco>"
cScript += "        </Item>"
cScript += "    </Itens>"
cScript += "</pedido>"

Return cScript

Saiba Mais
XmlParserFile