IMPORTAR FATURAMENTO NFE ATRAVES XML EM VB6

PETERSONTDS 27/09/2017 10:54:26
#476806
Olá galera alguém pode me ajudar, estou querendo importar o faturamento de uma nfe para um datagrid ou listview mais não sei como
a importação do produto eu já tenho, esta faltando apenas esta parte pra mim concluir meu projeto.

e isso aqui que eu quero importar, se alguém tiver um código pronto bem simples de como fazer, vai me ajudar muito . Obrigado !
-<cobr>


-<fat>

<nFat>375473</nFat>

<vOrig>2734.13</vOrig>

<vLiq>2734.13</vLiq>

</fat>


-<dup>

<nDup>375473-01</nDup>

<dVenc>2017-10-20</dVenc>

<vDup>902.26</vDup>

</dup>


-<dup>

<nDup>375473-02</nDup>

<dVenc>2017-11-04</dVenc>

<vDup>902.27</vDup>

</dup>


-<dup>

<nDup>375473-03</nDup>

<dVenc>2017-11-19</dVenc>

<vDup>929.60</vDup>

</dup>

</cobr>
CLEVERTON 27/09/2017 11:28:18
#476809
Só é DeSerializar o XML e passar o .datasource do objeto para o listview/datagridview
CLEVERTON 27/09/2017 11:29:57
#476810
Vixe, é em VB6,
Acredito que seja um trabalho meio manual.
LUIS2014 27/09/2017 11:45:12
#476811
Citação:

a importação do produto eu já tenho


essa parte é a mesma idéia do produto, como você fez?
PETERSONTDS 27/09/2017 21:33:24
#476825
Citação:

:
a importação do produto eu já tenho
essa parte é a mesma idéia do produto, como você fez?



qtdProd = XMLdoc.getElementsByTagName(sBn & [Ô]infNFe/det[Ô]).length

For i = 0 To qtdProd - 1

nitem = CStr(XMLdoc.getElementsByTagName([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).Attributes(0).Value)
cprod = CStr(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/cProd[Ô]).Item(0).Text)
xprod = CStr(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/xProd[Ô]).Item(0).Text)
NCM = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/NCM[Ô]).Item(0).Text, [Ô].[Ô], [Ô],[Ô])
CFOP = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/CFOP[Ô]).Item(0).Text, [Ô].[Ô], [Ô],[Ô])

FlexGrid.TextMatrix(FlexGrid.Rows - 1, 1) = nitem
FlexGrid.TextMatrix(FlexGrid.Rows - 1, 2) = cprod
FlexGrid.TextMatrix(FlexGrid.Rows - 1, 3) = xprod
FlexGrid.TextMatrix(FlexGrid.Rows - 1, 4) = NCM
FlexGrid.TextMatrix(FlexGrid.Rows - 1, 5) = CFOP

Next i

Por gentileza reescreve o código da forma que dever ser pra mim conseguir importar o faturamento.
segue a parte do xml que eu quero importar

-<dup>

<nDup>375473-01</nDup>

<dVenc>2017-10-20</dVenc>

<vDup>902.26</vDup>

</dup>


-<dup>

<nDup>375473-02</nDup>

<dVenc>2017-11-04</dVenc>

<vDup>902.27</vDup>

</dup>


-<dup>

<nDup>375473-03</nDup>

<dVenc>2017-11-19</dVenc>

<vDup>929.60</vDup>

</dup>

</cobr>
KERPLUNK 27/09/2017 21:58:32
#476826
Você não entende o código que você já tem?
PETERSONTDS 28/09/2017 21:55:24
#476849
Citação:

:
Você não entende o código que você já tem?


Não eu peguei ele aqui em um forum e adapitei pra mim, você teria um exemplo pra me ajudar ? tipo um caminho das pedras !
Desde já agradeço!
KERPLUNK 28/09/2017 22:06:02
#476850
Voeê já tem o caminho das pedras, já é um exemplo de como extrair os dados. Olhe bem, execute linha a linha, leia bem cada comando com atenção que você vai entender. Se você já adaptou de outra coisa, com certeza consegue adaptar esse também.
FABRICIOWEB 30/09/2017 14:19:05
#476877
ja postei como importar isso para um grid é so você modificar para oque você precisa

http://www.vbmania.com.br/index.php?modulo=detalhe&id=9505
FABRICIOWEB 30/09/2017 14:21:28
#476878
Você é de NS mg?
PETERSONTDS 01/10/2017 21:02:13
#476891
Citação:

:
Você é de NS mg?


Sim
Página 1 de 3 [21 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar