TXmlDocument (resolvido)

[emotta]

Preciso conseguir a chave da NFe usando o TXmlDocument alguem pode me ajudar?

 

[sistem]

veja se ajuda

     cFile := FOpen( "arquivo.xml" )
     xmlDoc := TXmlDocument():New( cFile )
     If xmlDoc:nStatus != HBXML_STATUS_OK
        Msginfo("Erro ao ler XML", "Aviso!")
        Return nil
     Endif
     xmlIter := TXmlIterator():New( xmlDoc:oRoot )
     xmlNode := xmlIter:Find()

     Do While xmlNode != nil
        If !Empty(xmlNode:cData)
           If Lower(xmlNode:cName) == "nnf"
              cNumeroNFe := xmlNode:cData
           Elseif Lower(xmlNode:cName) == "cfop"
              cCFOP := xmlNode:cData
           Elseif Lower(xmlNode:cName) == "chnfe"
              cChaveNfe := xmlNode:cData
           Endif
        Endif
        xmlNode := xmlIter:Next()
     Enddo
  Endif

 ? cChaveNfe

 

[kapiaba]

http://fivetechsupport.com/forums/viewtopic.php?f=3&t=23740

 

http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=12543

 

https://pctoledo.websiteseguro.com/forum/viewtopic.php?f=54&t=15913

[emotta]

obrigado pessoal

[crisvam]

Faça assim:

cFile := FOpen( "arquivo.xml" )
     xmlDoc := TXmlDocument():New( cFile )
     If xmlDoc:nStatus != HBXML_STATUS_OK
        Msginfo("Erro ao ler XML", "Aviso!")
        Return nil
     Endif

oNode := xmlDoc:findfirst("chNFe")

If oNode != Nil

  ?oNode:cData

Endif

 

Edited December 22, 2017 by crisvam
Auxilio