Olá Pessoal,

Queria um exemplo de como posso validar um arquivo XML usando o ParamBox.

Abaixo está as validações que preciso fazer.

• Validar se o arquivo existe;
  • Validar se é um XML;
  • Validar se é um XML de uma nota fiscal;

Tenho uma função que tem que fazer as validações

User function zParBox()

Local cError := ""

Local cWarning := ""

Local oXml := NIL Local cXmlFile := "nfe.xml" // Arquivo XML

Local cDirect := GetTempPath()

//Se o arquivo existir

IF File(cDirect+cXmlFile)

//Gera o Objeto XML

oXml := XmlParserFile(cXmlFile,"_", @cError, @cWarning)

If (oXml == NIL )

MsgStop("Falha ao gerar Objeto XML : "+cError+" / "+cWarning)

Endif

// Mostrando a informação do Node

MsgInfo(oXml:_IDE:_cUFE:Text,"Cliente")

ENDIF

Return oXml