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]Código vba importar ICMStotal xml

    ictsp
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 02/09/2016
    • Mensagem nº1

    [Resolvido]Código vba importar ICMStotal xml Empty [Resolvido]Código vba importar ICMStotal xml

    Mensagem  ictsp 22/1/2019, 18:34

    Prezados colegas!

    Gostaria de pedir a ajuda dos amigos para importar os dados do ICMStot de um arquivo xml.  

    Estou utilizando o código disponibilizado pelo Fabio Paes, mas não consigo fazer referencia correta aos campos que desejo.

    Alguns campos são repetidos varias vezes, dependendo da qtde de itens do xml.

    Desde já, agradeço a ajuda dos colegas!!

    Código:
    Set rsimp = DB.OpenRecordset("imposto")
    x = Nz(DLookup("nNF", "imposto", "nNF = '" & doc.getElementsByTagName("nNF")(0).Text & "'"), 0) 'imposto total nota fiscal
    If x <= 0 Then 'Se x for <=0 significa que nao ta cadastrado
        rsimp!nnf = doc.getElementsByTagName("nNF")(0).Text
        rsimp!vbc = doc.getElementsByTagName("vbc")(0).Text 'repetido
    rsimp!vicms = doc.getElementsByTagName("vicms")(0).Text 'repetido
    rsimp!vprod = doc.getElementsByTagName("vprod")(0).Text ' repetido
    rsimp!vfrete = doc.getElementsByTagName("vfrete")(0).Text
    rsimp!vseg = doc.getElementsByTagName("vseg")(0).Text
    rsimp!vdesc = doc.getElementsByTagName("vdesc")(0).Text
    rsimp!vII = doc.getElementsByTagName("vII")(0).Text
    rsimp!vIPI = Replace(doc.getElementsByTagName("vIPI")(0).Text, ".", ",")
    rsimp!vNF = Replace(doc.getElementsByTagName("vNF")(0).Text, ".", ",")

    rsimp.Update
    rsimp.Close
    rsnf.Close
    Set rsnf = Nothing
    Set rsimp = Nothing
    End If

    [Resolvido]Código vba importar ICMStotal xml Icms11
    Anexos
    [Resolvido]Código vba importar ICMStotal xml Attachmentxml teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (5 Kb) Baixado 17 vez(es)
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº2

    [Resolvido]Código vba importar ICMStotal xml Empty Re: [Resolvido]Código vba importar ICMStotal xml

    Mensagem  Alexandre Neves 23/1/2019, 15:06

    Boa tarde,
    Não trabalho com importação de XML, mas com a permissão do colega Fabio Paes

    onde tem
    rsimp!vbc = doc.getElementsByTagName("vbc")(0).Text 'repetido
    rsimp!vicms = doc.getElementsByTagName("vicms")(0).Text 'repetido
    rsimp!vprod = doc.getElementsByTagName("vprod")(0).Text ' repetido


    coloque
    Código:
    for i=0 to doc.getElementsByTagName("vbc").length
        rsimp!vbc = doc.getElementsByTagName("vbc")(i).Text
        rsimp!vicms = doc.getElementsByTagName("vicms")(i).Text
        rsimp!vprod = doc.getElementsByTagName("vprod")(i).Text
    next


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    ictsp
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 02/09/2016
    • Mensagem nº3

    [Resolvido]Código vba importar ICMStotal xml Empty Re: [Resolvido]Código vba importar ICMStotal xml

    Mensagem  ictsp 24/1/2019, 11:18

    Prezado Alexandre Neves,

    Muito obrigado por sua ajuda. Realmente sua sugestão funcionou perfeitamente.
    Desculpe a minha ignorância, mas o que significa esse "(i)" que você acrescentou?

    Desde já, agradeço muito por sua ajuda e atenção!
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº4

    [Resolvido]Código vba importar ICMStotal xml Empty Re: [Resolvido]Código vba importar ICMStotal xml

    Mensagem  Alexandre Neves 24/1/2019, 11:52

    Bom dia
    O i é um indice de numeração, que entra na enumera dos itens existentes no código.
    O i toma os valores de 0, 1, 2, 3, ... até ao máximo determinado por doc.getElementsByTagName("vbc").length


    Vá acompanhando o fórum, estudando e ajudando conforme a sua evolução.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    ictsp
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 02/09/2016
    • Mensagem nº5

    [Resolvido]Código vba importar ICMStotal xml Empty Re: [Resolvido]Código vba importar ICMStotal xml

    Mensagem  ictsp 24/1/2019, 12:13

    Prezado Alexandre Neves, muito obrigado mais uma vez.

    A ajuda dos colegas é de grande valia para leigos como eu.

    Abraço!
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    [Resolvido]Código vba importar ICMStotal xml Empty Re: [Resolvido]Código vba importar ICMStotal xml

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 23/11/2024, 10:34