Ir para conteúdo
  • Cadastre-se

dev botao

Importar XML da NFE e NFCE


Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 1633 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Prezado estou precisando lê todos os arquivos xmls das NFE/NFCE só que preciso pegar os tipos de pagamentos que foram utilizados no nestes aquivos.

Por exemplo para pegar as duplicadas vi esse exemplo abaixo:

        for I:=0 to Cobr.Dup.Count-1 do
        begin
          Node    := trvwNFe.Items.AddChild(NodePai,'Duplicata'+IntToStrZero(I+1,3));

          with Cobr.Dup.Items do
          begin
            trvwNFe.Items.AddChild(Node,'nDup='  +nDup) ;
            trvwNFe.Items.AddChild(Node,'dVenc=' +DateToStr(dVenc));
            trvwNFe.Items.AddChild(Node,'vDup='  +FloatToStr(vDup)) ;
          end;
        end;

Porém preciso pegar os valores de todos os tipos de pagamento existe um modelo parecido com o mostrado acima.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Olá,

Acho que não compreendi exatamente o que precisa... Você está falando em ler os arquivos XML, mas o código que você passou parece escrever arquivos XML.

Poderia tentar explicar com outras palavras?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

Bom dia Francisco,

Para ler o XML, basta usar o método LoadFromFile.

Depois basta ler as propriedades de cada campo que desejar obter a informação.

Por exemplo:

 // Carrega no Componente a NFe salvo em Arquivo XML
 NomeArqNFe:=trim(flbArqNFe.FileName);
 ACBrNFe.NotasFiscais.Clear;
 ACBrNFe.NotasFiscais.LoadFromFile(NomeArqNFe);

 CFOPNF        := StrToInt(ACBrNFe.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.CFOP);
 BaseICMS      := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vBC;
 ValorICMS     := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS;
 BaseICMSST    := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vBCST;
 ValorICMSST   := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vST;
 TotalProdutos := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vProd;
 TotalNF       := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF;

 

  • Curtir 2
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

As dicas do Italo não lhe ajudaram? 

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Bom dia, utilize o Comando LoadFromFile para carregar o XML conforme o Italo falou e percorra a lista de pagamentos obtendo os valores, algo como:

for I := 0 to ACBrNFe1.pag.Count - 1 do
begin 
  lTipo:= ACBrNFe1.pag.Items[I].tPag;
  lValor:= ACBrNFe1.pag.Items[I].vPag;
  ...

 

  • Curtir 1
Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.