Importar dados XML NFE com Visual Basic

[luisveber 0]

Bom dia pessoal,

Estou com uma dúvida, tenho um código que importa os dados de um arquivo xml de uma nota fiscal, porém não estou conseguindo importar a tag "dup" do arquivo xml quando existem mais de uma parcela a ser paga, quando importo para um datagrid eu consigo, porém preciso que estas informações sejam importadas para um textbox assim como as demais informações.

Segue código:

Public Sub PRealizaLeituraXML()
     OpenFileDialog1.ShowDialog()
     Dim diretorio = OpenFileDialog1.FileName

     Dim docXML As New XmlDocument
     docXML.Load(diretorio)

     Dim strRetorno As String = "",
         noPai As XmlElement,
         noFilho As XmlElement,
         noNeto As XmlElement,
         noBisneto As XmlElement,
         noTetra As XmlElement,
         nodelist As XmlNodeList = docXML.DocumentElement.ChildNodes
     If Len(docXML.OuterXml) > 0 Then
         For Each noPai In nodelist 'Le os nós principais da NFe
             If noPai.Name = "NFe" Then
                 For Each noFilho In noPai 'Lê os Nós secundários
                     If noFilho.Name = "infNFe" Then 'Se for o cabecalho da NFe
                         For Each noNeto In noFilho 'Lê as Tags da NFe
                             If noNeto.Name = "ide" Then 'Verifica a identificação da NFe                                
                                 For Each noBisneto In noNeto 'Verifica os valores da NFe
                                     txtData.Text = noNeto.ChildNodes.Item(7).InnerText
                                     txtDocumento.Text = noNeto.ChildNodes.Item(6).InnerText
                                 Next
                             ElseIf noNeto.Name = "emit" Then 'Dados do Emitente da NFe                                
                                 For Each noBisneto In noNeto
                                     txtfornec.Text = noNeto.ChildNodes.Item(1).InnerText
                                     If noBisneto.Name = "enderEmit" Then 'Dados do Endereço do emitente
                                         For Each noTetra In noBisneto
                                         Next
                                     Else
                                     End If
                                 Next
                             ElseIf noNeto.Name = "dest" Then 'Dados do Destinatário                                
                                 For Each noBisneto In noNeto
                                     If noBisneto.Name = "enderDest" Then 'Dados do Endereço do emitente
                                         For Each noTetra In noBisneto
                                         Next
                                     Else
                                     End If
                                 Next
                             ElseIf noNeto.Name = "transp" Then 'Dados da Transportadora
                                 For Each noBisneto In noNeto
                                     If noBisneto.Name = "transporta" Then
                                         For Each noTetra In noBisneto
                                         Next
                                     End If
                                     If noBisneto.Name = "veicTransp" Then
                                         For Each noTetra In noBisneto
                                         Next
                                     End If
                                     If noBisneto.Name = "vol" Then
                                         For Each noTetra In noBisneto
                                         Next
                                     End If
                                 Next
                             ElseIf noNeto.Name = "infAdic" Then 'Dados do Destinatário                                
                                 For Each noBisneto In noNeto
                                     If noBisneto.Name = "obsCont" Then 'Dados do Endereço do emitente
                                         For Each noTetra In noBisneto
                                         Next
                                     Else
                                     End If
                                 Next
                             ElseIf noNeto.Name = "cobr" Then 'Dados do Destinatário                                
                                 For Each noBisneto In noNeto
                                     If noBisneto.Name = "fat" Then 'Dados da fatura
                                         For Each noTetra In noBisneto
                                         Next
                                     End If
                                     If noBisneto.Name = "dup" Then 'Dados da duplicata
                                         For Each noTetra In noBisneto
                                         Next
                                     End If
                                 Next
                             ElseIf noNeto.Name = "total" Then
                                 For Each noBisneto In noNeto
                                     If noBisneto.Name = "ICMSTot" Then
                                         For Each noTetra In noBisneto
                                             txtValor.Text = noBisneto.ChildNodes.Item(17).InnerText
                                         Next
                                     End If
                                 Next
                             ElseIf noNeto.Name = "entrega" Then 'Dados da Entrega
                                 For Each noBisneto In noNeto
                                 Next
                             ElseIf noNeto.Name = "det" Then 'Verifica os detalhes dos produtos
                                 For Each noBisneto In noNeto
                                     If noBisneto.Name = "prod" Then 'Dados dos Produtos
                                         For Each noTetra In noBisneto
                                         Next
                                     End If
                                     If noBisneto.Name = "ICMS" Then 'Dados do ICMS
                                         For Each noTetra In noBisneto
                                         Next
                                     End If
                                 Next
                             End If
                         Next
                     End If
                 Next
             End If
         Next
     End If
End Sub

[KhaosDoctor 242]

Qual é o erro que ocorre?

[luisveber 0]

A nota fiscal tem vários vencimentos, estou precisando que ao importar os dados xml para o sistema, que os vencimentos sejam preenchidos em diferentes textbox conforme imagem abaixo:

 

a tag que preciso importar da nfe é a "dup".

 

[KhaosDoctor 242]

Sim, mas você ja tentou fazer? Ocorre algum erro?

[Leandro L Godinho 0]

Ola amigo, como vai !!! Nem sei se ainda é possivel te ajudar pois faz tempo que fez a pergunta e eu sou novo aqui

Sabe quando existe mais de um item na Nfe, ele abre o campo <det> mas coloca na frente de campo o numero do item antes de fechar a tag, enhtao fica assim

<det nItem="1">

bla bla vla

</det>

<det nItem="2">

bla bla vla

</det>

<det nItem="3">

bla bla vla

</det>

Quem sabe não é o mesmo caso no campo DUP que você precisa ???

Espero ter ajudado, e só pra saber você usa VB6 ou VB.net, gostei da sua rotina, mas nao acho as referencias do openfiledialog1

Valeu

Léo