IMPORTAR XML

[Wellington Cimples]

Bom dia

Sou novato no forum, estou precisando importar um xml de nfe, para minha tabela no banco mysql, preciso ler todos as colunas e enviar para tabela todos os dados nao sei como fazer isto se alguem tiver um exemplo para mim ajudar.

[Juliomar Marchetti]

no caso está na pasta do svn de exemplos!

veja que todos os locais tem lá um loadfromfile!

depois disso tu tem o componente preenchido com os campos da NF-e! e dai é contigo o trabalho de efetuar os insert no banco

[Wellington Cimples]

Desculpe minha fata de conhecimento, eu sou novato no acbr, qual o pasta exemplo, pode me explicar melhor se possivel

 

[Italo Giurizzato Junior]

Bom dia Wellington,

Veja a estrutura de pastas através do Explorer.

No meu caso a pasta principal é ACBrTrunk e dentro desta temos as pastas: DLLs, Doctos, Exemplos, Fontes, Pacotes, Projetos e Testes.

O caminho para chegar até a pasta que contem o programa exemplo do ACBrNFe é:

C:\ACBrTrunk\Exemplos\ACBrDFe\ACBrNFe\Delphi

O que esta em negrito pode ser diferente na sua maquina, mas o resto é igual.

[Wellington Cimples]

seria este?

 

NFE.docx

Gente, vou explicar minha necessidade para que voces possam me ajudar

 

Tenho um cliente, que ele precisa digitar no sistema varias notas, e sao muitas, ai ele me pediu se u conseguisse expotar os dados do xml para dentro da minha tabela, ai me lascou , por isto estou pedindo ajuda, se alguem tiver uma ideia como posso fazer isto.

[Juliomar Marchetti]

1 hora atrás, Wellington Cimples disse:

seria este?

 

NFE.docx

Gente, vou explicar minha necessidade para que voces possam me ajudar

 

Tenho um cliente, que ele precisa digitar no sistema varias notas, e sao muitas, ai ele me pediu se u conseguisse expotar os dados do xml para dentro da minha tabela, ai me lascou , por isto estou pedindo ajuda, se alguem tiver uma ideia como posso fazer isto.

Sim a primeira coisa é tu estudar o componente e entender como usar ele no seu delphi!

se fizer vai entender como usar para importar!

[Wellington Cimples]

vou tentar

 

[Wellington Cimples]

não entendi muito bem , teria como voce me enviar um exemplo so de importarção para um dbgrid??

[Tiago Ravache]

Rapaz não tem segredo após ACBrNFe.NotasFiscais.LoadFromFile('path da sua nota aqui'), o componente está com todas as informações da nota carregadas nele, nas suas propriedades exemplo:

 ACBrNFe.NotasFiscais.Items[0].NFe.Emit... para o emitente

ACBrNFe.NotasFiscais.Items[0].NFe.Dest... para o destinatario

use o codeinsight do delphi para explorar as propriedados/dados da nota e vc conseguirá as informações que precisa para inserir na tua tabela...

[Wellington Cimples]

Tiago

Obrigado pela ajuda rapida, me desculpe como estou começando a mexer com xml, ne sei por onde começar , mas vamos la

coloquei um form o componete e no patch busquei o xml da minha nota, agora coloquei um dbgrid que esta ligado a minha tabela ,  eu queria que quando eu no botão iria para minha tabela os registro do cabeçalho da nota e outro grid o itens

 

Tem como fazer isto

outra coisa

como posso visualizar os dados deste xml pelo componente e jogar eles em outro grid??

[Tiago Ravache]

Vc quer jogar no grid ou na tabela? na tabela uma forma é dar um append numa query e ir atribuindo os valores das propriedades nos campo usando o fieldbyname... é simples cara

SuaQy.FieldByName('CampoNome_Emitente').AsTipodocampo := ACBrNFe.NotasFiscais.Items[0].NFe.Emit.xNome;

 

no Grid a mesma coisa quando for popular coloca as pripriedades... pensa simples que não é nada complicado fazer isso ;-)

 

[Wellington Cimples]

Gente me desculpe a falta de connhecimento, mas estou tentando e nao to conseguindo, por ser novato no acbr.

Tiago eu tentei o que voce me diz, mas nao consegui fazer, acho que se eu saber como funciona  o acbrnfe acho que vai ficar mais facil, por isto vai algumas perguntas.

como posso direcionar o componente para ligar ao meu xml?

Como posso ver os dados  vindo do componente??

e depois como posso enviar do xm para minha tabela??

 

tentei fazer (  SuaQy.FieldByName('CampoNome_Emitente').AsTipodocampo := ACBrNFe.NotasFiscais.Items[0].NFe.Emit.xNome; ) conforme me passou mas ta dando erro no Emit, 

Se tiver um exemplo com fontes mais facil para me ajudar a enteder fica mais facil.

estou enviando meu xml para que possam me ajudar

 

 

 

23.xml

[Juliomar Marchetti]

Use o exemplo que já tem no svn! lá e feito a alimentação do componente basta fazer o contrario! ler os dados do componente!

pegue e leia os fontes abra a unit e veja o que é feito e como é feito!

[Wellington Cimples]

Cara eu devo ser muito burro, pois nao to achando nada,  olhei o fonte todo, 

me desculpem, mais acho que vou desistir.

 

se puderem me envir um print onde posso achar como importar xml no fonte agradeço

 

 

[JoaoPauloRicardo]

cara ninguém te pode ajudar 100% nisso. só se usares a mesma estrutura de base de dados de quem te ajuda... isso é virtualmente impossível. O que podemos fazer, e fizeram, foi apontar o melhor caminho para obter esse resultado.

se sabes emitir NFe pelo acbr certamente sabes importar... é só fazer o caminho inverso... onde antes salvas agora carregas o xml, onde antes colocavas valores nas propriedades do objeto agora lés e gravas na tua base de dados... dificil??? isso só depende de ti e da tua equipe de programação

[Wellington Cimples]

obrigado pela resposta

Eu so queria saber como usar o componente, nos aqui nunca usamos,por isto a duvida,

 

 

[JoaoPauloRicardo]

não leves a mal, certamente compreendo a tua duvida, todos passamos por isso no inicio, a solução é a mesma para todos, experimentar até acertar. 

tenta usar a demo como fonte para testar e lê o manual que acompanha as sources.
 

[Wellington Cimples]

Nao to levando a mal não pelo contrario, ta sendo muito util, vou consegui, agora se puder explicar as propriedades do componente acbrnfe pra mim vai ajudar mais ainda

 

[JoaoPauloRicardo]

tah tudo ali explicado

Manual ACBrNFe versão 1.04.pdf

[Wellington Cimples]

Obrigado

 

Vou estudar ele

 

Valeu

se tiver mais algo ai, pode mandar agradeço

[Wellington Cimples]

Bom dia 

obrigado a tados estou conseguindo fazer o que qeuro,so nao estou conseguindo enviar esta linha do CFOP da nota acho 

zqry2.FieldByName('CFDP').AsFloat := acbrnf1.NotasFiscais.Items[0].NFe.Det.Items.Prod.CFOP;

[Juliomar Marchetti]

Bom dia!

me desculpe mas agora estamos já falando em conversão de tipo de dados!

isso é delphi básico!

sugiro achar livros e cursos sobre a linguagem que está usando e estudar !

[Wellington Cimples]

o problema nao e na conversão e sim no caminho do cfop, que nao esta dando certo.

acbrnf1.NotasFiscais.Items[0].NFe.Det.Items.Prod.CFOP;

[Italo Giurizzato Junior]

Bom dia Wellington,

xCFOP := acbrnf1.NotasFiscais.Items[X].NFe.Det.Items[Y].Prod.CFOP;

Onde [X] varia de zero até a quantidade de notas -1 carregadas ao componente e [Y] varia de zero até a quantidade de produtos -1 que a nota contem.

 

[Wellington Cimples]

Obrigado Italo

Como nunca trabalhei com NFE fica complicado entender, mas vou tentando aqui

 

 

CONSEGUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII

Obrigado a todos pela ajuda,

Gostei muito do forum, as ajudas foram fundamental.

 

Obrigado

Se eu tiver mais duvidas vou postar