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


4 participantes

    Importar Arquivo XML para Access

    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    Importar Arquivo XML para Access Empty Importar Arquivo XML para Access

    Mensagem  DEISON 31/3/2016, 17:08

    Boa Tarde

    Estou a desenvolver um BD, no qual eu preciso dar entrada de NFse "Notas de Prestação de Serviço".
    O XML vem a partir do site da Prefeitura de minha cidade. Porém eu gostaria de ter todos as notas no meu sistema.

    Já verifique no repositório e ainda não encontrei nada semelhante.
    Estes dados gostaria que fossem jogados na tabela, ou mesmo no formulário e alimentasse a tabela geral.

    Se que alguém teria algum exemplo para que eu pudesse estudar e adaptar ao meu Banco?

    Segue abaixo o arquivo XML

    Código:
    <?xml version="1.0" encoding="UTF-8"?>

    -<CompNfse xmlns:ii="Actcon">


    -<ii:Nfse>


    -<ii:InfNfse>

    <ii:Numero>201600001000001</ii:Numero>

    <ii:CodigoVerificacao>ENGJ-PGTB</ii:CodigoVerificacao>

    <ii:DataEmissao>2016-03-21T14:32:32</ii:DataEmissao>

    <ii:Competencia>2016-03-00T00:00:00</ii:Competencia>

    <ii:NaturezaOperacao>1</ii:NaturezaOperacao>

    <ii:OutrasInformacoes>Prestação de serviço. Aula de Música.</ii:OutrasInformacoes>

    <ii:DiscriminacaoDeducoes/>

    <ii:Link>http://nfe.ipatinga.mg.gov.br/site/imprimirnotas.php?cod=MTMzMDA2MjY=&tipo=T&tprint=PDF</ii:Link>

    <ii:QRCode>http://chart.apis.google.com/chart?cht=qr&chld=L|0&chl=http%3A%2F%2Fnfe.ipatinga.mg.gov.br%2Fsite%2Fimprimirnotas.php%3Fcod%3DMTMzMDA2MjY%3D%26tipo%3DT%26tprint%3DPDF&chs=80x80</ii:QRCode>


    -<ii:Servico>


    -<ii:Valores>

    <ii:ValorServicos>100.00</ii:ValorServicos>

    <ii:ValorDeducoes>0.00</ii:ValorDeducoes>

    <ii:ValorAcrescimos>0.00</ii:ValorAcrescimos>

    <ii:ValorInss>0.00</ii:ValorInss>

    <ii:ValorPis>0.00</ii:ValorPis>

    <ii:ValorCofins>0.00</ii:ValorCofins>

    <ii:ValorIr>0.00</ii:ValorIr>

    <ii:ValorCsll>0.00</ii:ValorCsll>

    <ii:ValorIss>0.00</ii:ValorIss>

    <ii:IssRetido>2</ii:IssRetido>

    <ii:ValorIssRetido>0.00</ii:ValorIssRetido>

    <ii:OutrasRetencoes>0.00</ii:OutrasRetencoes>

    <ii:BaseCalculo>100.00</ii:BaseCalculo>

    <ii:Aliquota>0</ii:Aliquota>

    <ii:ValorLiquidoNfse>100.00</ii:ValorLiquidoNfse>

    <ii:DescontoIncondicionado>0.00</ii:DescontoIncondicionado>

    <ii:DescontoCondicionado>0.00</ii:DescontoCondicionado>

    </ii:Valores>

    <ii:CodigoCnae>8592-9/03</ii:CodigoCnae>

    <ii:ItemListaServico>08.02</ii:ItemListaServico>

    <ii:Discriminacao>Prestação de serviço. Aula de Música.</ii:Discriminacao>

    <ii:CodigoMunicipio>3131307</ii:CodigoMunicipio>

    </ii:Servico>


    -<ii:PrestadorServico>


    -<ii:IdentificacaoPrestador>

    <ii:Cnpj>24317263000101</ii:Cnpj>

    <ii:InscricaoMunicipal>21028300</ii:InscricaoMunicipal>

    <ii:InscricaoEstadual/>

    </ii:IdentificacaoPrestador>

    <ii:RazaoSocial>CARLOS FERREIRA DE SOUZA</ii:RazaoSocial>


    -<ii:Endereco>

    <ii:Endereco>Rua Japão</ii:Endereco>

    <ii:Numero>719</ii:Numero>

    <ii:Complemento>A</ii:Complemento>

    <ii:Bairro>Carirus</ii:Bairro>

    <ii:CodigoMunicipio>3131307</ii:CodigoMunicipio>

    <ii:Uf>MG</ii:Uf>

    <ii:Cep>35164000</ii:Cep>

    </ii:Endereco>


    -<ii:Contato>

    <ii:Telefone>3136683620</ii:Telefone>

    <ii:Email>carlos.ferreira@gmail.com</ii:Email>

    </ii:Contato>

    </ii:PrestadorServico>


    -<ii:TomadorServico>


    -<ii:IdentificacaoTomador>


    -<ii:CpfCnpj>

    <ii:Cpf>00000000000</ii:Cpf>

    </ii:CpfCnpj>

    <ii:InscricaoMunicipal/>

    <ii:InscricaoEstadual/>

    </ii:IdentificacaoTomador>

    <ii:RazaoSocial>JOÃO DA SILVA OLIVEIRA</ii:RazaoSocial>


    -<ii:Endereco>

    <ii:Endereco>Rua Mangaratiba</ii:Endereco>

    <ii:Numero>719</ii:Numero>

    <ii:Complemento/>

    <ii:Bairro>Caravelas</ii:Bairro>

    <ii:CodigoMunicipio>3131307</ii:CodigoMunicipio>

    <ii:Uf>MG</ii:Uf>

    <ii:Cep>35164000</ii:Cep>

    </ii:Endereco>


    -<ii:Contato>

    <ii:Email>joaosilva@gmail.com</ii:Email>

    </ii:Contato>

    </ii:TomadorServico>


    -<ii:OrgaoGerador>

    <ii:CodigoMunicipio>3131307</ii:CodigoMunicipio>

    <ii:Uf>MG</ii:Uf>

    </ii:OrgaoGerador>

    </ii:InfNfse>

    </ii:Nfse>

    </CompNfse>
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Importar Arquivo XML para Access Empty Re: Importar Arquivo XML para Access

    Mensagem  Alvaro Teixeira 5/4/2016, 11:48

    Olá Deison, com uma busca por vezes encontramos o que pretendemos, veja como fazer
    https://www.maximoaccess.com/t1115-busca-no-forum-search
    Já vi vários exemplos e disversa tecnicas.

    Poste o que tem e mais detalhes do que pretende concretamente importar.
    Abraço
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Importar Arquivo XML para Access Empty Re: Importar Arquivo XML para Access

    Mensagem  FabioPaes 5/4/2016, 13:02

    https://www.maximoaccess.com/t20159p3-importando-nota-fiscal-eletronica-xml-para-access
    Veja se esse Topido do Amigo ahteixeira lhe ajuda!
    Com a funcao dele, vc pode extrair campo a campo delimitando Inicio e Fim... daee so mandar pra onde quiser...
    avatar
    darcioas
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 29/01/2013

    Importar Arquivo XML para Access Empty Re: Importar Arquivo XML para Access

    Mensagem  darcioas 11/5/2023, 14:53

    Rotina que lê NFe

    Segue a parte da rotina em VB6 que pode ser adaptada a qq linguagem. O Microsoft XML tem que estar referenciado
    Código:

       Dim XMLdoc As Object
       Set XMLdoc = CreateObject("Microsoft.XMLDOM")
       XMLdoc.async = False
       XMLdoc.Load (txtCaminho)
       
       Registros = XMLdoc.getElementsByTagName("infNFe/det").length   'Contando quantos itens tem o nó det (detalhes)

       For I = 0 To Registros - 1  'Varrendo todos os itens
           vetProdutos.Código = CStr(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/cProd").Item(0).Text)
           vetProdutos.Referência = Replace(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/cEAN").Item(0).Text, ".", ",")
           vetProdutos.Descrição = CStr(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/xProd").Item(0).Text)
           vetProdutos.Unidade_Medida = Replace(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/uCom").Item(0).Text, ".", ",")
           vetProdutos.Código_NCM = Replace(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/NCM").Item(0).Text, ".", ",")
           vetProdutos.Preço_Compra = Replace(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/vUnTrib").Item(0).Text, ".", ",")
           tbAuxiliar.AddNew
           tbAuxiliar!Código = vetProdutos.Código
           tbAuxiliar!Referência = vetProdutos.Referência
           tbAuxiliar!Descrição = Mid(vetProdutos.Descrição, 1, 60)
           tbAuxiliar!Unidade_Medida = Mid(vetProdutos.Unidade_Medida, 1, 2)
           tbAuxiliar!Código_Fornecedor = 1
           tbAuxiliar!Fornecedor = ""
           tbAuxiliar!Código_Linha = 1
           tbAuxiliar!Linha_Venda = ""
           tbAuxiliar!Linha_Demonstração = ""
           tbAuxiliar!Código_NCM = vetProdutos.Código_NCM
           tbAuxiliar!Percentual_IPI = vetProdutos.Percentual_IPI
           tbAuxiliar!Preço_Compra = CCur(vetProdutos.Preço_Compra)
           tbAuxiliar.Update
       Next I
       Set XMLdoc = Nothing

    Conteúdo patrocinado


    Importar Arquivo XML para Access Empty Re: Importar Arquivo XML para Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/4/2024, 09:17