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;