#INCLUDE "TOTVS.CH"
#INCLUDE "XMLXFUN.CH"
User Function getObjXML()
Local cError := ""
Local cWarning := ""
Local cXmlFile := ""
Local oXml := NIL
// Arquivo XML
cXmlFile := "xmlcontent.xml"
//Gera o Objeto XML
oXml := XmlParserFile( cXmlFile, "_", @cError, @cWarning )
If (oXml == NIL )
MsgStop("Falha ao gerar Objeto XML : "+cError+" / "+cWarning)
Return
Endif
// Mostrando a informação do Node
MsgInfo(oXml:_PEDIDO:_NOMECLIENTE:Text,"Cliente")
Return oXml
// Exemplo de conteúdo do arquivo xmlcontent.xml
/*
<?xml version="1.0" encoding="ISO-8859-1"?>
<pedido>
<Nome_Cliente>Microsiga Software</Nome_Cliente>
<Endereco>Av. Braz Leme</Endereco>
<Numero>1361</Numero>
<Data>22-03-2005</Data>
<Itens>
<Item>
<Produto>Protheus</Produto>
<Quantidade>1</Quantidade>
<Preco>100.00</Preco>
</Item>
</Itens>
</pedido>
*/
|