Importar XML de uma NFe #1 - Dicas Lazarus / Delphi
ฝัง
- เผยแพร่เมื่อ 8 ก.พ. 2025
- Vídeo 1 de 3 onde mostro como importar dados de uma nota fiscal eletrônica usando o XML da mesma.
😉 Gostou do vídeo, que tal me pagar um cafezinho?
☕ picpay.me/dane...
Importo os dados da nota (numero, status, data emissão) dados do emitente, dados do destinatário e os itens da nota (dados do produto, tributos e impostos)
Necessário ter os componentes do ACBr instalado, pois vamos usar ACBrNFe.
Download dos Fontes Lazarus##
www.mediafire.c...
Curta meu vídeo isso me ajuda muito ###
Canal do Humberto Sales:
/ salesdoido
GRUPO LAZARUS / CODETYPHON DO TELEGRAM:
Grupo destinado ao estudo dos ambientes de desenvolvimento integrado ( Lazarus e CodeTyphon) desenvolvido para o compilador Free Pascal. link :
t.me/joinchat/...
Grupo LAzarus/ Delphi, mas em Espanhol:
t.me/pascalang
Daniel tem os melhores tutoriais para Lazarus no TH-cam... Você é muito bom mesmo. acho que já vi quase todos eles. E nunca me esqueço de deixar meu like.
Parabéns e obrigado por compartilhar seus conhecimentos.
Muito obrigado! Fiquei muito feliz com o comentário.
daniel voce é show demais
Obrigadu!
Muito bom para eu conhecer o funcionamento do componente ACBr. Obrigado pela dedicação em fazer este vídeo.
Fico feliz em ajudar! obrigado !
Obrigado pela postagem, valeu..!
Obrigado, fico feliz em ajudar
@@infocotidiano e como ajudou..
Excelente vídeo. Muito boa a didática!
Muito Obrigado !!!
Daniel boa noite! teria com voce criar um video gravando o arquivo XML da notafiscal em um banco de dados.
TabGlobal.TbNfe.edit;
TabGlobal.TbNfeXMLVenda.value := ACBrNFe1.NotasFiscais.Items[0].XMLOriginal;
TabGlobal.TbNfe.Post;
Rapaz! Top... Assunto muito legall
Obrigado !!!!!
Excelente, muito obrigado
Obrigado !!!!
Muito bom. Tem como adaptar para fazer a importação em lote? Ou seja, importar todos os xmls que estão em uma pasta?
Obrigado meu amigo !
Uma forma prática é colocar um filelistbox ou capturar todos os arquivos xml da pasta e faz um loop (for ou while) com estes comandos
Elmer, como vc fez esse loop?
@@infocotidiano Olá Daniel! Como posso implementar esse loop nesse código?
Boa noite Daniel! Show seus vídeos! Seguinte, segui seus passos para adaptar importação de notas em uma aplicação delphi . Criei um loop para importar várias de uma pasta, mas quando importa uma nota que já existe, dá o erro de chave primária. Como poso tratar esse erro, cancelando a importação? Abraços, Luciano - Ctba-PR
pq nao coloca dentro do loop uma condição se
o numero da nf + numero cnpj do fornecedor ja existir.. ele vai para a proxima nota.
@@infocotidiano Obrigado, Daniel! Cheguei a pensar nisso, mas não sei exatamente em que parte do código inserir a query... Usei um componente TApplicationEvent, mas ainda não está como eu quero!
Daniel muito bom seu tutorial, tenho curiosidade sobre assunto qundo e feito a importação e atualizado o estouque ? E queria pedir se possível fazer um tutorial com acbr boleto, tipo assim gerar boleto parcelado a partir contas a receber ? gerar o boleto visualmente em tempo de execução.Desde já agradesço.
Obrigado!
Pode fazer um gatilho ou uma procedure para cada item importado ele atualiza o estoque. Mas lembre-se que... na Nfe tem q ter o código de barras ... assim vc procura a barras no seu cadastro de produto para atualizar. empresas pequenas q nao tem barras, vc tem q ter um campo no cadastro do seu produto codigo_fornecedor para vc poder amarrar o codigo do produto da nfe + codigo do fornecedor na atualização.
muito bom, onde clico 50x ? ekekek, Parabens está nos ajudando muito.
+Walney moreira klein kkk boa
Para usar banco de dados Mysql, necessita desse updatesql tambem ? pois não costumo usar, obrigado.
Qdo uso ztable eu nao uso o update, qdo uso o zquery dai uso o update para facilitar, pois ele escreve os comandos de inclusao, alteracao e exclusao... ele cria sozinho aque procedimento do insert into....
ok, vou passar a usar e muito obrigado está me ajudando muito e aguardo mais aulas, estou agora nessa, fique na PAZ.
Walney moreira klein muito obrigado! Fico feliz em ajudar ! Abraços
Parceiro no exemplo do acbr tem uma parte que tenho que lançar os produtos, esta assim - //Adicionando Produtos
with Det.New do
begin
Prod.nItem := 1; // Número sequencial, para cada item deve ser incrementado
Prod.cProd := '123456';
Prod.cEAN := '7896523206646';
- como faço para varrer a tabela de itens de uma venda para lançar os produtos, como se faz isso no lazarus/delphi ? obrigado
Show...
Muito Obrigado !
tem que recompilar o pacote de componentes para 64.
funciona perfeitamente no 32tbm
Daniel, bom dia! Sou inscrito no seu canal, te agradeço pela iniciativa, divulgo seu canal aos meu conhecidos, e gostaria de saber se poderia me enviar o link onde você ensina a baixar os componentes acbr, pois não achei. Meu email é jpbm21@hotmail.com.
Att, João Paulo - parabéns!
amanha te mando ! obrigado por ajudar a compartilhar o meu canal!
@@infocotidianoblz, poderia postar link na descrição do vídeo, pode ajudar outros.
Parceiro no exemplo do acbr tem uma parte que tenho que lançar os produtos, esta assim - //Adicionando Produtos
with Det.New do
begin
Prod.nItem := 1; // Número sequencial, para cada item deve ser incrementado
Prod.cProd := '123456';
Prod.cEAN := '7896523206646';
- como faço para varrer a tabela de itens de uma venda para lançar os produtos, como se faz isso no lazarus/delphi ? obrigado