Converter tipo pagamento da NF-e para String ou integer

[Matias.Pontes]

Boa noite. Consegui converter e capturar as informações do XML da NF-e, contudo não consegui fazer com o pagamento, poderiam me dar esta dica. Grato antecipadamente

-<pag>

-<detPag>

<indPag>0</indPag>

<tPag>01</tPag>

<vPag>3720.00</vPag>

</detPag>

</pag>

[Italo Giurizzato Junior]

Bom dia Matias,

Você não esta conseguindo ler essas 3 informações do componente após carregar o XML da NF-e?

Se sim:

uses
  pcnConversao;

for i := 0 to ACBrNFe1.NotasFiscais.Items[0].NFe.pag.Count -1 do
begin
  x := IndpagToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.pag.Items[i].indPag); 
  y := FormaPagamentoToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.pag.Items[i].tPag);
  z := ACBrNFe1.NotasFiscais.Items[0].NFe.pag.Items[i].vPag;

  SalvarPagBD(x, y, z);
end;

A rotina acima supõe que foi carregado apenas uma NF-e.

Obs: SalvarPagBD, é uma procedure da sua aplicação que vai salvar no Banco de Dados as informações da forma de pagamento. Tenha em mente que podemos ter mais de uma forma de pagamento.

[Matias.Pontes]

Bom dia Italo. É justamente o que estava precisando. Muito grato pela atenção.

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.