Imprimir Comprovante segundo Cartão

Arnaldo Cruz · 14 Junho, 2019

Tenho o TEF no meu sistema de NFC-e, uso somente o componente TEF.

Estou com seguinte problema

No fechamento da venda com dois cartões, passa o primeiro cartão tudo OK,

quando vai passar o segundo da uma mensagem pedindo pra confirma a operação anterior,

eu confirmo e passo o segundo cartão tudo ok.,

transmito a NFC-e e quando mando a impressão do comprovante TEF, acontece o erro, pois só existe o comprovante da ultima transação(segundo cartão) um comprovante

Meu codigo está como abaixo. se alguem puder mim dá uma dica eu agradeço.

StatusTransacao := ACBrTEFD.CRT(ValorInformado, TipoPagamento.Codigo, lbCupom.Text );
if StatusTransacao then
begin
Inc(IndiceTransacaoTef);
TotalTipoPagamento.NSU := ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].NSU;
TotalTipoPagamento.Rede := ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].Rede;
TotalTipoPagamento.DataHoraTransacao := DateTimeToStr(ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].DataHoraTransacaoHost);
TotalTipoPagamento.Finalizacao := ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].Finalizacao;

if (ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].TipoTransacao >= 10)
   and (ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].TipoTransacao <= 12) then
   TotalTipoPagamento.CartaoDebitoOuCredito := 'C';
if (ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].TipoTransacao >= 20)
   and (ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].TipoTransacao <= 25) then
   TotalTipoPagamento.CartaoDebitoOuCredito := 'D';

Inc(QuantidadeCartao);
TransacaoComTef := True;
VerificaSaldoRestante;
end else begin
ACBrTEFD.CancelarTransacoesPendentes ;
end;
if TransacaoComTef = True Then
begin
   if SaldoRestante = 0 then
   begin
       if TransmitiuNFC then
       begin
       ACBrTEFD.ImprimirTransacoesPendentes;
       end else begin
       ACBrTEFD.CancelarTransacoesPendentes ;
       end;
       finalizaVenda;
   end;
end else begin
   if TransmitiuNFC then
   begin
   finalizaVenda;
   end;
end;