MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 3
    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 Interface DOM XML (infelizmente em inglês).
    Sucesso!

      Data/hora atual: Dom 04 Dez 2016, 12:15