Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Imprimir Comprovante segundo Cartão


Arnaldo Cruz
  • Este tópico foi criado há 1061 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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;

Link to comment
Share on other sites

  • Consultores
18 horas atrás, Arnaldo Cruz disse:

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

Que mensagem seria essa? Pode por favor explicitar?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • 2 weeks later...
  • Administradores

Tópico fechado por falta de retorno do usuário

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 1061 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.