IMPORTAR FATURAMENTO NFE ATRAVES XML EM VB6

Citação:

:
Dim No As XmlNodeList
No = Xml.GetElementsByTagName([Ô]cobr[Ô]) [ô]Tag das duplicatas
Dim I as Integer
Dim J as Integer
Dim St as string
Dim Valor as string
For I = 0 To No.Item(0).ChildNodes.Count - 1
St = No.Item(0).ChildNodes(I).Name
If St = [Ô]dup[Ô] Then
Dim NumDupl as string [ô]Numero da Duplicata
Dim DiaVenc as string [ô]Data do Vencimento
Dim ValorDup as String [ô]Valor da Duplicata
For J = 0 To No.Item(0).ChildNodes(I).ChildNodes.Count - 1
St = No.Item(0).ChildNodes(I).ChildNodes(J).Name
Valor = No.Item(0).ChildNodes(I).ChildNodes(J).InnerText
Select Case St
Case [Ô]nDup[Ô] : NumDupl = Valor
Case [Ô]dVenc[Ô]: DiaVenc = Valor
Case [Ô]vDup[Ô]: ValorDup = Valor
End Select
Next
[ô]Colque aqui os valores lidos no componente do seu Sistema
[ô]usando as variáveis NumDupl, DiaVenc e ValorDupl formatando-as de acordo
[ô]Com sua necessidade
End If
Next

Não é o código mais prático e funcional, mas é o mais fácil de entender

Citação:

:
Teu software é vb6 ou vb.net?
se for vb.net
Imports System.Xml

Se for VB6
Referencie MSXML2
Mas daí muda um pouco o código - Se não conseguir e teu projeto for em VB6 prenda o grito que te reescrevo o código pra VB6

Citação:

:
Acho que não tem a necessidade de fazer um for para isso, acho que os dados não repetem nessa parte [Ô]APENAS ACHO[Ô]
se isso ajudar finalize o topico

Citação:

:
me envia uma nfe xml com dados repetidos
que faço um for aqui