Jump to content

dia-do-acbr-online.png

.Promoção do Suporte ACBr:
Ganhe o Curso Migração e Modernização de Aplicações Legadas

Saiba Mais


RAFAEL_E_ANGELO3.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Ler as Tag de Pagamento


Go to solution Solved by FabianoCunha,
  • Este tópico foi criado há 303 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

Estou tentanto ler as tag de pagamento do xml mas não estou conseguindo

-<pag>
    -<detPag>
        <tPag>03</tPag>
        <vPag>550.00</vPag>
        -<card>
            <tpIntegra>1</tpIntegra>
            <CNPJ>99999999999999</CNPJ>
            <tBand>01</tBand>
            <cAut>251925508</cAut>
        </card>
    </detPag>
</pag>

Preciso pegar o valor da tag TPAG e CAUT

Já tentei assim

for i := 0 to pag.Count-1 do
begin
           EdtFPagto := pag.Items.tPag;
end;

Assim

with pag do
begin
           EdtFPagto  :=  pag.Items[0].tPag;
 end;

Não da certo

 

Obrigado

Link to post
Share on other sites
  • Solution

Arnaldo, 

Não testei o código abaixo, apenas coloquei uma ideia de código, espero que possa de ajudar. A Ideia é para cada nota fiscal carregada no componente do ACBR, você percorre a collection de Pag e pega a instancia corrente e ai pode acessar os valores.

var pagamento: TpagCollection;

 

for i:=0 to ACBrNFe1.NotasFiscais[0].NFe.pag.count -1 do

begin

 pagamento:=  ACBrNFe1.NotasFiscais[0].NFe.pag;

pagamento.indPag

pagamento.tPag

end;

 

  • Like 1
Link to post
Share on other sites
  • Este tópico foi criado há 303 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...