[Resolvido]Importa xml da nota fiscal Eletronica

Gostaria de uma Ajuda na Importacao da Nota Fiscal Eletronica preciso de ajuda no nó pai e filho da nfe

Olá Nadir, seja bem vindo ao Máximo Access!

Já deu uma pesquisada no forum? Tem alguns tópicos que tratam sobre importação de txt e xml.

ja olhei o forum todo mas nao tive exito na minha pesquisa

Bom dia amigo;

Por favor não escreva em maiúsculas, pois nos fóruns tal procedimento significa Gritar. Agradeço que retifique o poste acima. Obrigado.

Eis aqui alguns:

http://maximoaccess.forumeiros.com/t2609-importar-xml-via-vba

http://maximoaccess.forumeiros.com/t1945-resolvidoimportar-dados-especificos-de-xml

PS: Favor atentar ao que o moderador Vieira pediu acima. Basta clicar em Editar e corrigir a mensagem, ok?

eu nao to conseguindo e a parte do nó pai e filho da xml da nota fiscal eletronica

Ainda não resolveu?

nao
preciso de uma rotina que faca o no do pai e o no do filho da xml da nota fiscal eletronica

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

nao consegui ainda

http://www.4shared.com/file/rQPitDEk/importar_nfe.html

o fornecedor eu consigo importar mas os itens e as duplicatas nao consegui ainda

alguem pode me ajudar a importar o itens na nota fiscal eletronica

alguem pode me ajudar??????????????

Public Sub LeXML(arquivo As String)
sXML = AbreXML(arquivo)
If IsNull(DLookup("Fornecedor", "nf", "CNPJ='" & nfe.BUSCANO(BUSCANO(sXML, "emit"), "CNPJ") & "'")) <> True Then
NfeXml.emitente = DLookup("Fornecedor", "nf", "CNPJ='" & nfe.BUSCANO(BUSCANO(sXML, "emit"), "CNPJ") & "'")
Else
MsgBox "O fornecedor do arquivo XML que está importando não está cadastrado na base de dados, cadastre antes e tente novamente. Pode ser que seja um fornecedor cadastrado, mas pode ser uma filial com o CNPJ diferente."
Forms!frmestoqueentrada.CMDTransferir.Enabled = False
End If
NfeXml.ChaveXml = nfe.BuscaChave(sXML)
NfeXml.ValorNota = Replace(BUSCANO(BUSCANO(sXML, "total"), "vNF"), ".", ",")
NfeXml.ValorFrete = Replace(BUSCANO(BUSCANO(sXML, "total"), "vFrete"), ".", ",")
NfeXml.transportadora = BUSCANO(BUSCANO(sXML, "transp"), "xNome")
NfeXml.CNPJTransportadora = BUSCANO(BUSCANO(sXML, "transp"), "CNPJ")
NfeXml.TotaldeItens = TotalItensXML(sXML)
NfeXml.NumNotaFiscal = BUSCANO(BUSCANO(sXML, "ide"), "nnf")
NfeXml.DataEmissao = BUSCANO(BUSCANO(sXML, "ide"), "dEmi")
NfeXml.totaldeDuplicatas = nfe.totaldeDuplicatas(sXML)
NfeXml.BaseICMS = Replace(nfe.BUSCANO(nfe.BUSCANO(sXML, "ICMStot"), "vBC"), ".", ",")

For i = 1 To NfeXml.TotaldeItens
NfeXml.item(i).Lote = Replace(BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "nlote"), " ", "")
NfeXml.item(i).Validade = BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "dval")
NfeXml.item(i).Preco = Replace(BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "vprod"), ".", ",")
NfeXml.item(i).Quantidade = Replace(BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "qcom"), ".", ",")
NfeXml.item(i).unidade = BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "ucom")
NfeXml.item(i).nome = BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "xprod")
For i = 1 To NfeXml.totaldeDuplicatas
achou = 0
For j = 1 To Len(sXML)
If Mid(sXML, j, 5) = "" Then
achou = achou + 1
If achou = i Then
partXML = Mid(sXML, j, Len(sXML) - j)
NfeXml.Duplicata(i).dataDeVencimento = BUSCANO(BUSCANO(partXML, "dup"), "dVenc")
NfeXml.Duplicata(i).Numero = BUSCANO(BUSCANO(partXML, "dup"), "nDup")
NfeXml.Duplicata(i).valor = Replace(BUSCANO(BUSCANO(partXML, "dup"), "vDup"), ".", ",")
GoTo proxI
End If
End If
Next j
proxI:
Next i
End Sub
COMO EU BUSCO AS DUPLIATAS POIS NAO TA BUSCANDO

Reesolvido

Bom dia pode me enviar o arquivo para testar tb... e se for possivel puxar os dados digitando a chave de acesso.;