[Resolvido]Importa xml da nota fiscal Eletronica

Compartilhe

NADIRONUNES

NADIRONUNES: Intermediário; Localização:
Mensagens: 182
Registrado: 30/08/2010

Mensagem nº1

Importa xml da nota fiscal Eletronica

Mensagem NADIRONUNES em Qui Jul 07, 2011 1:56 am

Gostaria de uma Ajuda na Importacao da Nota Fiscal Eletronica preciso de ajuda no nó pai e filho da nfe

criquio

criquio: Moderador Global; Localização:
Mensagens: 7153
Registrado: 30/12/2009

Mensagem nº2

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem criquio em Qui Jul 07, 2011 3:51 am

Olá Nadir, seja bem vindo ao Máximo Access!

Já deu uma pesquisada no forum? Tem alguns tópicos que tratam sobre importação de txt e xml.

.................................................................................

[Você precisa estar registrado e conectado para ver este link.]

Clique [Você precisa estar registrado e conectado para ver este link.] e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga esses procedimentos para diminuir o tamanho do mesmo:
1 - faça uma cópia do seu aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto aquilo que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em um arquivo zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Clique no positivo das mensagens que achar útil, no canto superior direito de cada mensagem.

NADIRONUNES

NADIRONUNES: Intermediário; Localização:
Mensagens: 182
Registrado: 30/08/2010

Mensagem nº3

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem NADIRONUNES em Qui Jul 07, 2011 12:39 pm

ja olhei o forum todo mas nao tive exito na minha pesquisa

Última edição por NADIRONUNES em Qui Jul 07, 2011 1:53 pm, editado 1 vez(es)

vieirasoft

vieirasoft: Moderador Global; Localização:
Mensagens: 6986
Registrado: 11/05/2010

Mensagem nº4

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem vieirasoft em Qui Jul 07, 2011 12:57 pm

Bom dia amigo;

Por favor não escreva em maiúsculas, pois nos fóruns tal procedimento significa Gritar. Agradeço que retifique o poste acima. Obrigado.

criquio

criquio: Moderador Global; Localização:
Mensagens: 7153
Registrado: 30/12/2009

Mensagem nº5

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem criquio em Qui Jul 07, 2011 1:03 pm

Eis aqui alguns:

[Você precisa estar registrado e conectado para ver este link.]

[Você precisa estar registrado e conectado para ver este link.]

PS: Favor atentar ao que o moderador Vieira pediu acima. Basta clicar em Editar e corrigir a mensagem, ok?

.................................................................................

[Você precisa estar registrado e conectado para ver este link.]

Clique [Você precisa estar registrado e conectado para ver este link.] e veja um vídeo que explica como fazer pesquisas no forum.

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Clique no positivo das mensagens que achar útil, no canto superior direito de cada mensagem.

NADIRONUNES

NADIRONUNES: Intermediário; Localização:
Mensagens: 182
Registrado: 30/08/2010

Mensagem nº6

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem NADIRONUNES em Sex Jul 08, 2011 9:09 pm

eu nao to conseguindo e a parte do nó pai e filho da xml da nota fiscal eletronica

vieirasoft

vieirasoft: Moderador Global; Localização:
Mensagens: 6986
Registrado: 11/05/2010

Mensagem nº7

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem vieirasoft em Qua Jul 13, 2011 11:39 am

Ainda não resolveu?

NADIRONUNES

NADIRONUNES: Intermediário; Localização:
Mensagens: 182
Registrado: 30/08/2010

Mensagem nº8

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem NADIRONUNES em Qua Jul 13, 2011 12:32 pm

nao
preciso de uma rotina que faca o no do pai e o no do filho da xml da nota fiscal eletronica

vieirasoft

vieirasoft: Moderador Global; Localização:
Mensagens: 6986
Registrado: 11/05/2010

Mensagem nº9

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem vieirasoft em Sab Jul 23, 2011 1:38 pm

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

NADIRONUNES

NADIRONUNES: Intermediário; Localização:
Mensagens: 182
Registrado: 30/08/2010

Mensagem nº10

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem NADIRONUNES em Sab Jul 23, 2011 2:12 pm

nao consegui ainda

[Você precisa estar registrado e conectado para ver este link.]

NADIRONUNES

NADIRONUNES: Intermediário; Localização:
Mensagens: 182
Registrado: 30/08/2010

Mensagem nº11

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem NADIRONUNES em Sab Jul 23, 2011 2:43 pm

o fornecedor eu consigo importar mas os itens e as duplicatas nao consegui ainda

NADIRONUNES

NADIRONUNES: Intermediário; Localização:
Mensagens: 182
Registrado: 30/08/2010

Mensagem nº12

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem NADIRONUNES em Seg Jul 25, 2011 9:32 pm

alguem pode me ajudar a importar o itens na nota fiscal eletronica

NADIRONUNES

NADIRONUNES: Intermediário; Localização:
Mensagens: 182
Registrado: 30/08/2010

Mensagem nº13

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem NADIRONUNES em Qua Ago 17, 2011 2:41 pm

alguem pode me ajudar??????????????

NADIRONUNES

NADIRONUNES: Intermediário; Localização:
Mensagens: 182
Registrado: 30/08/2010

Mensagem nº14

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem NADIRONUNES em Sex Ago 19, 2011 1:03 pm

Public Sub LeXML(arquivo As String)
sXML = AbreXML(arquivo)
If IsNull(DLookup("Fornecedor", "nf", "CNPJ='" & nfe.BUSCANO(BUSCANO(sXML, "emit"), "CNPJ") & "'")) <> True Then
NfeXml.emitente = DLookup("Fornecedor", "nf", "CNPJ='" & nfe.BUSCANO(BUSCANO(sXML, "emit"), "CNPJ") & "'")
Else
MsgBox "O fornecedor do arquivo XML que está importando não está cadastrado na base de dados, cadastre antes e tente novamente. Pode ser que seja um fornecedor cadastrado, mas pode ser uma filial com o CNPJ diferente."
Forms!frmestoqueentrada.CMDTransferir.Enabled = False
End If
NfeXml.ChaveXml = nfe.BuscaChave(sXML)
NfeXml.ValorNota = Replace(BUSCANO(BUSCANO(sXML, "total"), "vNF"), ".", ",")
NfeXml.ValorFrete = Replace(BUSCANO(BUSCANO(sXML, "total"), "vFrete"), ".", ",")
NfeXml.transportadora = BUSCANO(BUSCANO(sXML, "transp"), "xNome")
NfeXml.CNPJTransportadora = BUSCANO(BUSCANO(sXML, "transp"), "CNPJ")
NfeXml.TotaldeItens = TotalItensXML(sXML)
NfeXml.NumNotaFiscal = BUSCANO(BUSCANO(sXML, "ide"), "nnf")
NfeXml.DataEmissao = BUSCANO(BUSCANO(sXML, "ide"), "dEmi")
NfeXml.totaldeDuplicatas = nfe.totaldeDuplicatas(sXML)
NfeXml.BaseICMS = Replace(nfe.BUSCANO(nfe.BUSCANO(sXML, "ICMStot"), "vBC"), ".", ",")

For i = 1 To NfeXml.TotaldeItens
NfeXml.item(i).Lote = Replace(BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "nlote"), " ", "")
NfeXml.item(i).Validade = BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "dval")
NfeXml.item(i).Preco = Replace(BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "vprod"), ".", ",")
NfeXml.item(i).Quantidade = Replace(BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "qcom"), ".", ",")
NfeXml.item(i).unidade = BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "ucom")
NfeXml.item(i).nome = BUSCANO(BUSCANO(sXML, "det nitem=" & Chr(34) & i & Chr(34)), "xprod")
For i = 1 To NfeXml.totaldeDuplicatas
achou = 0
For j = 1 To Len(sXML)
If Mid(sXML, j, 5) = "" Then
achou = achou + 1
If achou = i Then
partXML = Mid(sXML, j, Len(sXML) - j)
NfeXml.Duplicata(i).dataDeVencimento = BUSCANO(BUSCANO(partXML, "dup"), "dVenc")
NfeXml.Duplicata(i).Numero = BUSCANO(BUSCANO(partXML, "dup"), "nDup")
NfeXml.Duplicata(i).valor = Replace(BUSCANO(BUSCANO(partXML, "dup"), "vDup"), ".", ",")
GoTo proxI
End If
End If
Next j
proxI:
Next i
End Sub
COMO EU BUSCO AS DUPLIATAS POIS NAO TA BUSCANDO

vieirasoft

vieirasoft: Moderador Global; Localização:
Mensagens: 6986
Registrado: 11/05/2010

Mensagem nº15

Re: [Resolvido]Importa xml da nota fiscal Eletronica

Mensagem vieirasoft em Seg Ago 29, 2011 9:24 am

Reesolvido

gijunior

gijunior: Novato; Localização:
Mensagens: 3
Registrado: 28/04/2012

Mensagem nº16

Programa que importa dados do xml

Mensagem gijunior em Seg Maio 14, 2012 2:34 pm

Bom dia pode me enviar o arquivo para testar tb... e se for possivel puxar os dados digitando a chave de acesso.;

Tópicos similares

» [Resolvido]Importacao das duplicatas da Nota Fiscal Eletronica - NFe
» Nota Fiscal Eletronica
» Importa xml da nota fiscal Eletronica
» NFe (Nota Fiscal Eletronica) no MS Access
» NFe (Nota Fiscal Eletronica) no MS Access

MaximoAccess