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


3 participantes

    [Resolvido]Nota Fiscal Eletronica

    ConectadoNADIRONUNES
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 578
    Registrado : 30/08/2010
    • Mensagem nº1

    [Resolvido]Nota Fiscal Eletronica Empty Nota Fiscal Eletronica

    Mensagem  NADIRONUNES 2/2/2012, 18:15

    dadosarquivo = AbreXML(arquivo)
    NfeXml.TotaldeItens = TotalItensXML(dadosarquivo)
    totald = totaldeDuplicatas(dadosarquivo)
    CH = BUSCANO(BUSCANO(dadosarquivo, "protNFe"), "chNFe")
    CNPJ = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "CNPJ")
    razao = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "xNome")
    ENDERECO = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "xlgr")
    IBGE = BUSCANO(BUSCANO(dadosarquivo, "ide"), "cMunFG")
    NUMERO = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "NRO")
    BAIRRO = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "XBAIRRO")
    CIDADE = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "xMun")
    UF = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "UF")
    Fone = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "fone")
    CEP = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "CEP")
    IE = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "IE")
    cnpjdest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "CNPJ")
    destinatario = BUSCANO(BUSCANO(dadosarquivo, "dest"), "xNome")
    enddest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "xlgr")
    Ndest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "NRO")
    Bdest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "XBAIRRO")
    ciddest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "xMun")
    UFdest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "UF")
    CEPdest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "CEP")
    iedest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "IE")
    nnota = BUSCANO(BUSCANO(dadosarquivo, "ide"), "nNF")
    DEmissao = BUSCANO(BUSCANO(dadosarquivo, "ide"), "DEMI")
    tnota = Replace(BUSCANO(BUSCANO(dadosarquivo, "TOTAL"), "vnf"), ".", ",")


    esse codigo eu busco no xml da nota fiscal eletronica os dados que preciso
    so que eu queria que ele me mostrasse numa subforms os dados antes de eu importar
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº2

    [Resolvido]Nota Fiscal Eletronica Empty Re: [Resolvido]Nota Fiscal Eletronica

    Mensagem  Convidad 3/2/2012, 00:00

    Olá Nadiro
    Se já tem esses valores, porque não cria uma tabela com os campos correspondentes, alimente a tabela com eles de depois cria um formulário baseado nessa tabela.
    Então pode usar ele como subformulário.
    Sempre que precisar é só apagar os valores da tabela, para colocar outros.
    Abraços
    • Ir para o topo
    CEZARMAX
    avatar
    CEZARMAX
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nota Fiscal Eletronica Empty Alguem consegui importar o XML da nfe para o Access????

    Mensagem  CEZARMAX 9/2/2012, 18:48

    Boa tarde!

    Se alguem conseguiu importa o xml da Danfe, por gentileza compartilhe!!

    Muito obrigado!!!
    • Ir para o topo
    luissiscone
    luissiscone
    luissiscone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 184
    Registrado : 16/02/2011
    • Mensagem nº4

    [Resolvido]Nota Fiscal Eletronica Empty Rotina de importação

    Mensagem  luissiscone 10/2/2012, 08:23

    Crie uma rotina de importação no próprio access e salve com o nome desejado
    ex: ImportaçãoDeNota


    Dim strCaminho As String
    strCaminho = Me.txtCaminho - 'Caminho do arquivo com extenção tipo .xml,.txt, etc.
    If Me.Nota <> Empty Then 'Campo de comparação se já existe a nota ou não
    MsgBox "Já existe dados para esta nota ", vbInformation, "Importar nota"
    Else
    'Importa os dados do arquivo para tabela tblNotas
    DoCmd.TransferText acImportDelim, "ImportaçãoDeNota", "tblNotas", strCaminho
    End If

    Faço isto com arquivos de coletores de dados, se estiver utilizando VB6 ou .Net é só fazer a chamada .
    Boa sorte
    • Ir para o topo
    CEZARMAX
    avatar
    CEZARMAX
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nota Fiscal Eletronica Empty Importar varios Xml de uma determinada pasta!

    Mensagem  CEZARMAX 11/2/2012, 13:15

    Bom dia!
    Alguem sabe alguma rotina onde apenas informo o diretorio, e a funcao vai lendo arquivo por arquivo e importando de maneira automatica, em vez de um por um!!

    Obrigado!!!
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº6

    [Resolvido]Nota Fiscal Eletronica Empty Re: [Resolvido]Nota Fiscal Eletronica

    Mensagem  Convidad 20/3/2012, 02:50


    Tópico marcado como resolvido.
    Se necessário, reabra.


    Grupo Moderadores
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº7

    [Resolvido]Nota Fiscal Eletronica Empty Re: [Resolvido]Nota Fiscal Eletronica

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 7/11/2024, 22:06