Ir para conteúdo
  • Cadastre-se

dev botao

Imprimir Comprovante segundo Cartão


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

Recommended Posts

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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Administradores

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

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1738 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.