LER ITEM DE ARQUIVO NFE
Pessoal, boa noite.
Como posso ler um determinado item de NFeletronica, estou tentando da seguinte forma, mas sem sucesso:
[txt-color=#0000f0]Option Explicit
Private Sub Form_Load()
Dim strXml As String
Dim xmlDoc As MSXML2.DOMDocument
Set xmlDoc = New MSXML2.DOMDocument
If Not xmlDoc.Load([Ô]C:\Visual_Doc\Teste.xml[Ô]) Then
Err.Raise 1, [Ô]Form_Load[Ô], [Ô]Bad XML[Ô]
End If
PopulateForm xmlDoc
End Sub
Private Sub PopulateForm(ByVal xmlPerson As MSXML2.DOMDocument)
Dim xmlElem As IXMLDOMElement
Dim xmlBooks As IXMLDOMNodeList
Set xmlElem = xmlPerson.selectSingleNode([Ô]nfeProc/NFe/infNFe/ide/mod[Ô])
If Not xmlElem Is Nothing Then
Debug.Print xmlElem.Text
End If
Set xmlElem = xmlPerson.selectSingleNode([Ô]nfeProc/NFe/infNFe/det nItem=[Ô][Ô]1[Ô][Ô]/prod/cprod[Ô])
If Not xmlElem Is Nothing Then
Me.txtSurname.Text = xmlElem.Text
End If
End Sub[/txt-color]
nao reconhece esta linha --> Set xmlElem = xmlPerson.selectSingleNode([Ô]nfeProc/NFe/infNFe/det nItem=[Ô][Ô]1[Ô][Ô]/prod/cprod[Ô])
E mais uma vez obrigado a todos pela ajuda.
Oduvaldo de Oliveira
Como posso ler um determinado item de NFeletronica, estou tentando da seguinte forma, mas sem sucesso:
[txt-color=#0000f0]Option Explicit
Private Sub Form_Load()
Dim strXml As String
Dim xmlDoc As MSXML2.DOMDocument
Set xmlDoc = New MSXML2.DOMDocument
If Not xmlDoc.Load([Ô]C:\Visual_Doc\Teste.xml[Ô]) Then
Err.Raise 1, [Ô]Form_Load[Ô], [Ô]Bad XML[Ô]
End If
PopulateForm xmlDoc
End Sub
Private Sub PopulateForm(ByVal xmlPerson As MSXML2.DOMDocument)
Dim xmlElem As IXMLDOMElement
Dim xmlBooks As IXMLDOMNodeList
Set xmlElem = xmlPerson.selectSingleNode([Ô]nfeProc/NFe/infNFe/ide/mod[Ô])
If Not xmlElem Is Nothing Then
Debug.Print xmlElem.Text
End If
Set xmlElem = xmlPerson.selectSingleNode([Ô]nfeProc/NFe/infNFe/det nItem=[Ô][Ô]1[Ô][Ô]/prod/cprod[Ô])
If Not xmlElem Is Nothing Then
Me.txtSurname.Text = xmlElem.Text
End If
End Sub[/txt-color]
nao reconhece esta linha --> Set xmlElem = xmlPerson.selectSingleNode([Ô]nfeProc/NFe/infNFe/det nItem=[Ô][Ô]1[Ô][Ô]/prod/cprod[Ô])
E mais uma vez obrigado a todos pela ajuda.
Oduvaldo de Oliveira
Olá Oduvaldo
Vai precisa utilizar o seguinte código qdo, for se referir ao nItem=[Ô]1[Ô] e pegar a descrição do produto!
Vai precisa utilizar o seguinte código qdo, for se referir ao nItem=[Ô]1[Ô] e pegar a descrição do produto!
Dim xmlElem as IXMLDOMNode
Set xmlElem = xmlPerson.selectNodes([Ô]/nfeProc/NFe/infNFe/det[Ô]).Item(0).FirstChild
txtProduto.Text = xmlElem.selectSingleNode([Ô]xProd[Ô]).Text
Tópico encerrado , respostas não são mais permitidas