Coletar informações apos confirmada a transação

[Rui Menezes Desenvolvedor]

Amigos do fórum  estou implantando paygo web ,  gostaria de ajuda de você  pois preciso capturar alguns dados 

como Código da Rede , numero da autorização , tipo do movimento exemplo  debito, credito , parcelado pelo lojista   e quantidade de parcelas.

 

Desde já agradeço 

  

[Daniel Simoes]

Estude os fontes, e veja os vídeos do TEFDemoNF...

o ACBrTEFD mapeia as resposta em suas propriedades internas...

 

 

[Daniel Simoes]

Veja esse trecho, dos fontes do TEFDemoNF

procedure TFormPrincipal.ACBrTEFD1DepoisConfirmarTransacoes(
  RespostasPendentes: TACBrTEFDRespostasPendentes);
var
  i , j: Integer;
begin
  for i := 0 to RespostasPendentes.Count-1  do
  begin
     with RespostasPendentes[i] do
     begin
        AdicionarLinhaLog('Confirmado: '+Header+' ID: '+IntToStr( ID ) );

        // Lendo os campos mapeados //
        AdicionarLinhaLog('- Rede: '  + Rede + ', NSU: '  + NSU );
        AdicionarLinhaLog('- Parcelas: '+ IntToStr(QtdParcelas) +
                          ', parcelado por: '+ GetEnumName(TypeInfo(TACBrTEFRespParceladoPor), integer(ParceladoPor) ));
        AdicionarLinhaLog('- É Débito: '+BoolToStr(Debito)+
                          ', É Crédito: '+BoolToStr(Credito)+
                          ', Valor: '+ FormatFloat('###,###,##0.00',ValorTotal)) ;

        // Lendo um Campo Específico //
        //AdicionarLinhaLog('- Campo 11: ' + LeInformacao(11,0).AsString );

        for j := 0 to Venda.Pagamentos.Count-1 do
        begin
          if NSU = Venda.Pagamentos[j].NSU then
          begin
            Venda.Pagamentos[j].Confirmada := True;
            Break;
          end;
        end;
     end;
  end;

  AtualizarPagamentosVendaNaInterface;
end;