MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Importar Arquivo XML que contém várias notas e talvez vários produtos...

    Compartilhe

    johnaccess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 01/11/2010

    Importar Arquivo XML que contém várias notas e talvez vários produtos...

    Mensagem  johnaccess em Seg 11 Mar 2013, 20:29

    Olá pessoal, estou com o problema, deixa explicar... como faço para importar um arquivo xml que contém várias notas de serviços e estas notas tem vários serviços ou um serviço... quando um (tudo certo) quando tem mais de um serviço... o que fazer se puderem ajudar... agradeço


    segue o arquivo pra teste... [Você precisa estar registrado e conectado para ver este link.]


    andersonandrade12
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 24/10/2013

    Seu link indica página não encontrada

    Mensagem  andersonandrade12 em Sab 26 Out 2013, 01:07

    Tentei ver o seu arquivo XML para ver se poderia dar uma ajuda. Entretanto, seu link esta quebrado.

    Se fosse NF-e, na forma como você descreveu seu arquivo,  seria um arquivo de lote de processamento. Nesse caso, você teria uma tag 'nfeProc' cujo um dos filhos seria a tag 'NFe' que conteria os dados de suas notas fiscais.

    Para ter acesso a uma lista de arquivos filhos você usaria um código como esse:

       Dim arquivoXML  As New MSXML2.DOMDocument60    'Estou usando MSXML2 versão 6.0 e é necessário referenciá-lo para inicializar o objeto
       Dim node As IXMLDOMElement                               'Instâncio o Nó
       Dim nodelista As IXMLDOMNodeList                          'Instâncio uma lista de nós
       xmlDoc.loadXML "Caminho do seu arquivo xml"                                                                          'Carrega o arquivo com o método LoadXML
      Set node = xmlDoc.selectSingleNode("nfeProc")                                          'Seto o nó usando o método selectSingleNode passando por parâmetro a tag pai
      Set nodelista = node.getElementsByTagName("*")                                       'Obtenho a lista de todos os elementos filho

    Depois disso você faria um laço para percorrer sua lista e implementaria a solução que você possui para apenas uma nota.

    Estude os schemas xml e de uma olhada na [Você precisa estar registrado e conectado para ver este link.] (infelizmente em inglês).
    Sucesso!

      Data/hora atual: Seg 18 Dez 2017, 07:08