Pagamento Dinheiro + tef +tef

[Cilleni]

quando faço um pagamento Pagamento Dinheiro + tef + tef, da emsnage Multiplos Cartões Limitado a 2 operações. Esta Operação TEF deve ser igual ao Saldo a Pagar.

tef.NumeroMaximoCartoes := 2;

veja que estou fazendo somente o pagamento com 2 cartões, por que esta dando essa mensagem?

[EMBarbosa]

Não é porque a última operação não está com o mesmo valor do Saldo a Pagar?

[Cilleni]

não é nao.... o valor total é de 259,00, veja ?

59,00 dinheiro

100,00 tef

100,00 tef

nao envio nada para impressora, somente após a aprovação da ultima transação tef.

[Cilleni]

Oi EMBarbosa.

Voce acha que eu devo enviar para a impressora o pagamento em dinheiro e deixar pendentes as transações TEF?

[Juliomar Marchetti]

Amigo você pode programar nos eventos do ACBrTEFD para bufferizar esse pagamento

para que ele jogue o valor corretamente ao fechar o cupom

[Cilleni]

Estou buferizando....

[EMBarbosa]

não é nao.... o valor total é de 259,00, veja ?

59,00 dinheiro

100,00 tef

100,00 tef

nao envio nada para impressora, somente após a aprovação da ultima transação tef.

Quando é que está dando o erro que você mencionou? Quando você depois do primeiro TEF ou depois do segundo TEF?

É assim:

59,00 dinheiro

100,00 tef

ERRO "Multiplos Cartões Limitado a 2 operações. Esta Operação TEF deve ser igual ao Saldo a Pagar."

100,00 tef

ou assim?

59,00 dinheiro

100,00 tef

100,00 tef

ERRO "Multiplos Cartões Limitado a 2 operações. Esta Operação TEF deve ser igual ao Saldo a Pagar."

[Cilleni]

Assim :

59,00 dinheiro

100,00 tef

100,00 tef

ERRO "Multiplos Cartões Limitado a 2 operações. Esta Operação TEF deve ser igual ao Saldo a Pagar."

[EMBarbosa]

Oi EMBarbosa.

Voce acha que eu devo enviar para a impressora o pagamento em dinheiro e deixar pendentes as transações TEF?

Sim. Acho que é isso que está faltando. Acredita que agora é que entendi plenamente o que você queria dizer com isso.

Só para confirmar, você pode mostrar o restante que falta. Algo como tem no DEMO:

procedure TForm1.MostraSaldoRestante;

Var

  Saldo : Double ;

begin

  Saldo := ACBrECF1.Subtotal - ACBrECF1.TotalPago ;

  if not ACBrTEFD1.AutoEfetuarPagamento then

     Saldo := Saldo - ACBrTEFD1.RespostasPendentes.TotalPago;


  Memo1.Lines.Add( 'Saldo Restante: '+FormatFloat('0.00',Saldo)) ;

end;

[/code]

[Cilleni]

obrigada.