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

    [Resolvido]Importar Info de Produtos do XML

    Compartilhe
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 15/06/2013

    [Resolvido]Importar Info de Produtos do XML

    Mensagem  Eloirp em Seg 17 Ago 2015, 15:38

    Pessoal, busquei pelo fórum e não encontrei nada que pudesse me ajudar, pois os exemplos que encontrei eu consigo importar um campo qualquer do xml, porém como caso do item/produto que repete e possui os mesmos nomes de campos não consegui avançar no meu objetivo de importar todos os dados da NF que constam no xml, alguém já passou por isso e poderia me dar o caminho?

    Quero importar para tabela ou form, tanto faz, depois eu importar eu trato os dados

    Código:

    <det nItem="1"><prod><cProd>80 358</cProd><cEAN>7898563820998</cEAN><xProd>KIT EMBREAGEM JAC J3</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>293.7400000000</vUnCom><vProd>293.74</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>293.7400000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    <det nItem="2"><prod><cProd>80 336</cProd><cEAN>7898563820097</cEAN><xProd>KIT EMBREAGEM KIA SOUL/CERATO</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>313.0700000000</vUnCom><vProd>313.07</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>313.0700000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    <det nItem="3"><prod><cProd>80 337</cProd><cEAN>7898563820158</cEAN><xProd>KIT EMBREAGEM HYUNDAI I30</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>330.9300000000</vUnCom><vProd>330.93</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>330.9300000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    <det nItem="4"><prod><cProd>80 349</cProd><cEAN>7898563820899</cEAN><xProd>KIT EMBREAGEM HYUNDAI IX35 FLEX</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>462.7000000000</vUnCom><vProd>462.70</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>462.7000000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    <det nItem="5"><prod><cProd>80 345</cProd><cEAN>7898563820493</cEAN><xProd>KIT EMBREAGEM MITSUBISHI L200 TRITON</xProd><NCM>87089300</NCM><EXTIPI>001</EXTIPI><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>498.9200000000</vUnCom><vProd>498.92</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>498.9200000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    <det nItem="6"><prod><cProd>80 346</cProd><cEAN>7898563820554</cEAN><xProd>KIT DE EMBREAGEM SUZUKI JIMNY 1.3L</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>279.7700000000</vUnCom><vProd>279.77</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>279.7700000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>7</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9665
    Registrado : 04/11/2009

    Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  JPaulo em Seg 17 Ago 2015, 15:58

    Veja se ajuda;

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 15/06/2013

    Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  Eloirp em Seg 17 Ago 2015, 17:27

    Valeu grande Paulo!

    Acabei encontrando o código abaixo em outro fórum e consegui importar todos os dados separadamente, agora é só botar a mão na massa para tratar o formato importado:

    Private Sub Comando0_Click()

    Const acAppendData = 1
    Set objAccess = CreateObject("Access.Application")
    objAccess.OpenCurrentDatabase "C:\elper\database171.accdb"
    objAccess.ImportXML "C:\elper\nfe000018.xml", acAppendData

    End Sub


    Este outro também funciona:
    [Você precisa estar registrado e conectado para ver este link.]

    Private Sub Comando0_Click()

    Application.ImportXML _
    DataSource:="C:\elper\nfe000018.xml", _
    ImportOptions:=1

    End Sub
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 15/06/2013

    Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  Eloirp em Seg 17 Ago 2015, 17:32

    Resolvido e espero que ajude mais alguém...
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9665
    Registrado : 04/11/2009

    Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  JPaulo em Ter 18 Ago 2015, 10:12

    Obrigado pelo retorno e contribuição.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui 19 Out 2017, 08:23