Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Recommended Posts

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.

Share this post


Link to post
Share on other sites

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
Ajude o Projeto ACBr crescer - Assine o SAC

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.

Share this post


Link to post
Share on other sites

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;

 

  • Like 2

Consultor SAC ACBr Italo Jurisato 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

Share this post


Link to post
Share on other sites

Agradeço pelo retorno dos senhores, obrigado, anexei um imagem que mostra o conteúdo que preciso pegar do xml trata-se do valores das tags "tPag" e "vPag".TagPagamentos.png.779c21b6a8c55331d6358c49e1a422cc.png

Share this post


Link to post
Share on other sites

Bom dia.

As dicas do Italo não lhe ajudaram? 

Att.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

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

Share this post


Link to post
Share on other sites

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;
  ...

 

  • Like 1

Consultor SAC ACBr

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

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

Share this post


Link to post
Share on other sites

×
×
  • Create New...