MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Importar Info de Produtos do XML

    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar Info de Produtos do XML Empty [Resolvido]Importar Info de Produtos do XML

    Mensagem  Eloirp 17/8/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>
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar Info de Produtos do XML Empty Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  JPaulo 17/8/2015, 15:58



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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar Info de Produtos do XML Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar Info de Produtos do XML Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar Info de Produtos do XML Folder_announce_new Instruções SQL como utilizar...
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar Info de Produtos do XML Empty Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  Eloirp 17/8/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:
    https://msdn.microsoft.com/pt-br/library/office/Ff823157.aspx

    Private Sub Comando0_Click()

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

    End Sub
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar Info de Produtos do XML Empty Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  Eloirp 17/8/2015, 17:32

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar Info de Produtos do XML Empty Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  JPaulo 18/8/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar Info de Produtos do XML Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar Info de Produtos do XML Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar Info de Produtos do XML Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Importar Info de Produtos do XML Empty Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:38