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

    [Resolvido]Importar as duplicatas da Xml

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

    [Resolvido]Importar as duplicatas da Xml Empty [Resolvido]Importar as duplicatas da Xml

    Mensagem  NADIRONUNES 25/8/2014, 18:02

    boa tarde..

    gostaria de saber como eu importo pra uma tabela as duplicatas de uma xml de nota fiscal as duplicatas ta nesta xml abaixo

    -
    -000022910-012012-06-06268.03
    -000022910-022012-06-20268.04
    -000022910-032012-07-04268.03
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7189
    Registrado : 15/03/2013

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  ahteixeira 25/8/2014, 21:05

    Olá, veja se o link abaixo ajuda.
    http://maximoaccess.forumeiros.com/t20159-importando-nota-fiscal-eletronica-xml-para-access
    Sou de Portugal e não compreendo o que é as duplicatas.
    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7189
    Registrado : 15/03/2013

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  ahteixeira 4/9/2014, 12:32

    Olá Nadir, como vai a situação o forum agradece o retorno.

    Se está concluído, não se esqueça de dar o tópico como resolvido, veja link abaixo:
    http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  NADIRONUNES 4/9/2014, 13:27

    Cara nao consegui consigo so buscar uma linha e as duplicatas tiver mais de uma linha nao consigo importar as demais

    postei ai meu bd
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7189
    Registrado : 15/03/2013

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  ahteixeira 4/9/2014, 13:48

    Olá, Sou de Portugal e não compreendo o que é as duplicatas.
    E a base postada está com código protegido, desproteja e poste de novo.
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  NADIRONUNES 4/9/2014, 15:05

    Desbloqueado
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7189
    Registrado : 15/03/2013

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  ahteixeira 4/9/2014, 15:25

    Olá, pode explicar melhor o que pretende?
    Quando poder responder à minha questão da mensagem nº 2 e nº 6 talvez consiga perceber para tentar ajudar.
    Abraço
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  NADIRONUNES 4/9/2014, 17:36

    o que eu quero importar na na xml e tambem ta nesta imagem aqui
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  NADIRONUNES 5/9/2014, 15:30

    alguem consegue me ajudar na importação das duplicatas
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  NADIRONUNES 9/9/2014, 14:35

    up?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7189
    Registrado : 15/03/2013

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  ahteixeira 9/9/2014, 16:54

    Bom, apesar da mensagem nº 2, 6 e 7, veja se é isto que pretende:
    Código:
    Private Sub Comando0_Click()

    meuFicheiro = Application.CurrentProject.Path & "\31140961490561002901550100005802211387902291.xml"
        
        
        Open meuFicheiro For Input As #1
            Do Until EOF(1)
                Line Input #1, textoLinha
                 textoXml = textoXml & textoLinha
            Loop
        
            Dim i As Long, j As Long
            Dim strInico, strFim, strSaida As String
            Dim tf As Integer
            
            strInicio = "<nDup>"
            strFim = "</nDup>"
            i = 1
            j = 1
            tf = InStrRev(textoXml, strInicio)

    calc:
            i = InStr(i, textoXml, strInicio)
            j = InStr(j, textoXml, strFim)
            strSaida = Mid(textoXml, i + Len(strInicio), j - i - Len(strInicio))
            i = i + 1
            j = j + 1
            
            MsgBox strSaida
            
            If i <> tf + 1 Then
                GoTo calc
            End If
        
        
        Close #1

    End Sub
    Será necessário ajuste para restantes campos.
    Abaixo teste
    Abraço
    Anexos
    [Resolvido]Importar as duplicatas da Xml Attachmentler_xml_Line_Input_nadir.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 78 vez(es)
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  NADIRONUNES 9/9/2014, 18:45

    obrigado pela ajuda

    mas como que faço pra ter a quantidade de registro

    tipo assim nesta que te mandei sao 3 arquivos de duplicatas 580221-01, 580221-02, 580221-3

    ai eu queria um total de arquivos que neste aqui tem 3
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7189
    Registrado : 15/03/2013

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  ahteixeira 10/9/2014, 11:01

    Olá, altere o código do ficheiro acima por este (a negrito alteração):

    Private Sub Comando0_Click()

    meuFicheiro = Application.CurrentProject.Path & "\31140961490561002901550100005802211387902291.xml"
       
       
       Open meuFicheiro For Input As #1
           Do Until EOF(1)
               Line Input #1, textoLinha
                textoXml = textoXml & textoLinha
           Loop
       
           Dim i As Long, j As Long
           Dim strInico, strFim, strSaida As String
           Dim tf, contador As Integer
           
           strInicio = ""
           strFim = "
    "
           i = 1
           j = 1
           tf = InStrRev(textoXml, strInicio)
           contador = 0

    calc:
           i = InStr(i, textoXml, strInicio)
           j = InStr(j, textoXml, strFim)
           strSaida = Mid(textoXml, i + Len(strInicio), j - i - Len(strInicio))
           i = i + 1
           j = j + 1
           contador = contador + 1
           
           MsgBox strSaida
           
           If i <> tf + 1 Then
               GoTo calc
           End If
       
           MsgBox "total contador: " & contador
       
       Close #1

    End Sub


    Abraço
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  NADIRONUNES 10/9/2014, 12:42

    muito obrigado ahteixeira pela sua atencao
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7189
    Registrado : 15/03/2013

    [Resolvido]Importar as duplicatas da Xml Empty Re: [Resolvido]Importar as duplicatas da Xml

    Mensagem  ahteixeira 10/9/2014, 14:20

    Olá, Obrigado pelo retorno o forum agradece.
    Abraço

      Data/hora atual: 16/4/2021, 21:50