Erro Na Hora De Fazer Multiplas Forma De Pagamentos Com 3 Cartoes

[bergson]

Se eu fizer um venda com 3 cartões funciona perfeitamente. Agora se eu colocar outra forma de pagamento além dos 3 cartões, acontece o problema abaixo.

 

A Exceção estoura  na validação abaixo:

 

if MultiplosCartoes and (NumeroMaximoCartoes > 0) and  // Tem multiplos Cartoes ?

(Valor <> RespostasPendentes.SaldoRestante) and         // Valor é diferente do Saldo Restante a Pagar ?

((NumeroMaximoCartoes - RespostasPendentes.Count) <= 1) then  // Está no último cartão ?

      raise Exception.Create( ACBrStr( 'Multiplos Cartões Limitado a '+

      IntToStr(NumeroMaximoCartoes)+' operações.'+sLineBreak+

      'Esta Operação TEF deve ser igual ao Saldo a Pagar' ) );

 

[Juliomar Marchetti]

Boa tarde

Você programou o evento OnInfoECF do ACBrTEFD?

[Daniel Simoes]

Como reproduzir o problema usando o programa de exemplo ( TEFDDemo ) ?

[bergson]

No evento OnInfoECF do ACBrTEFD está assim :

 

case Operacao of
    ineSubTotal:
      RetornoECF := FormatFloat('0.00',FDataModule.ACBrECF.Subtotal-FDataModule.ACBrECF.TotalPago);

    ineEstadoECF :
      begin
        Case FDataModule.ACBrECF.Estado of
          estLivre     : RetornoECF := 'L' ;
          estVenda     : RetornoECF := 'V' ;
          estPagamento : RetornoECF := 'P' ;
          estRelatorio : RetornoECF := 'R' ;
        else
          RetornoECF := 'O' ;
        end;
      end;
  end;

[Daniel Simoes]

Seu código não está preparado para o Cielo Premia... o subtotal do ECF não será afetado, pelas formas de pagamento buferizadas...

 

Estude com atenção os fontes do Demo TEFDDemo

[bergson]

Boa tarde!

  Senhores alguem poderia mim ajudar com o menionado acima, estou tentando de várias formas e não estou obtendo sucesso!

  Alguem poderia mim dá uma luz, em linha de codigo como seria ??

[Daniel Simoes]

Ajude-nos a lhe ajudar...

 

Como reproduzir o problema usando o programa de exemplo ( TEFDDemo ) ?

 

Você não respondeu ao tópico anterior,...

[bergson]

Bom dia!

 

-Teste TEFDemo:

Com relação ao TEF discaldo utilizando o PAYGO, realmente funcionou perfeitamente, só teve um problema na hora de imprimir as 2 vias, ele está cortando antes de imprimilas totalmente;

-Com relação ao TEF dedicado SITEF, esse funcionou perfeitamente sem problema nenhum;

 

Estou utlizando o projeto T2TI, vou compar os eventos do TEF, para ver se consigo sanar este problema. Mesmo assim se poderem mim ajudar, agradeço.

[Daniel Simoes]

Provavelmente é algum evento novo que está faltando... Muitas mudanças foram introduzidas com a chegada do Cielo Premia (leia o Change-Log.txt)

 

Sobre o espacejamento, é você quem determina quantas linhas quer pular... no evento: ACBrTEFD.OnComandaECF

 

 

 

 opePulaLinhas :
        begin
          ACBrECF1.PulaLinhas( ACBrECF1.LinhasEntreCupons );
          ACBrECF1.CortaPapel( True );
          Sleep(200);
        end;    

[bergson]

Boa tarde uma duvida:

Quando eu fizer uma venda que for informar a forma de pagamento posso subtotalizar a impressora ? Exemplo:

Configuração do TEF Multicartão até 3:

 

1 passo - Inicio uma venda;

2 passo - informo os itens;

3 passo - informa a primeira forma de pagamento DINHEIRO (SubTotalizo na impressora);

4 passo - informa a segunda forma de pagamento CARTÃO (NÃO SubTotalizo na impressora);

5 passo - informa a terceira forma de pagamento CARTÃO (NÃO SubTotalizo na impressora);

6 passo - informa a quarta forma de pagamento CARTÃO (SubTotalizo na impressora);

 

Este fluxo procede para o premia ?

[Juliomar Marchetti]

Não 

por que ele pode retornar desconto e tem que ser aplicado ao cupom e no caso somente no subtotalizar cupom

[bergson]

Boa tarde!

Senhores é incrivel como todas as tentavas que fiz não deu certo nenhuma.

o erro se dá neste exatato momento, pois quando informa a primeira forma de pagamento, a impressora não subtotaliza, porém já recebi um valor como dinheiro,

quando coloco a segunda forma de pagamento como cartão, ele vem subtotalizar  o valor do cartão, como se ainda não houvesse informado nenhuma outra forma de pagamento,

até ai nenhum erro, porém debugando pude vizualizar que o total recebido  é somente o valor do cartão, onde deveria ser o dinheiro informado + mais o cartão, então se eu continuar, suponde o valor da venda  sendo 40,00:

 

dinheiro = 10; não subtotalizou

cartão = 10 subtotalizou;

cartão = 10 subtotalizou;

cartão = 10 subtotalizou;

 

Teoricamente a venda estaria fechada somando 40,00, porém como só subtotalizou 30,00 e o tef estáparametrizado para  3 cartão, é onde ocorre o erro:

 

  ineSubTotal:
      begin
        ASubTotal := FDataModule.ACBrECF.Subtotal ;
        ASubTotal := ASubTotal - FDataModule.ACBrECF.TotalPago;
        RetornoECF := FormatFloat('0.00', (ASubTotal));
      end;

 

[Daniel Simoes]

Seu fluxo está errado... Você não pode subtotalizar ou imprimir qualquer pagamento antes de concluir todos os pagamentos em buffer

[bergson]

e como faria neste caso ?

[Daniel Simoes]

Está descrito no roteiro...

Veja esse link: http://br.groups.yahoo.com/group/AutomacaoTotal/message/45507

[bergson]

não cosegui acessar ese link...

[Juliomar Marchetti]

Tem que estar no grupo de automação comercial do yahoo

abaixo segue a copia to texto:

 

É o mesmo fluxo já comentado hoje:

• Abre Cupom
• Vende Itens
• TEF?
  • Aprovou TEF (1 ou N cartões)
    • Subtotaliza cupom (aqui aplica os descontos Cielo Premia)
    • Efetua forma(s) de pagamento
    • Fecha cupom fiscal
    • Imprime comprovante(s) TEF
  • Não Aprovou TEF ou parte do TEF (N cartões)
    • "Gostaria de fechar o cupom fiscal com outras formas de pagamento?"
      • Não
        • Cancela o cupom fiscal e as transações TEF aprovadas anteriormente
      • Sim
        • TEF? (Volta para o fluxo acima)
        • Sem TEF
          • Subtotaliza cupom (aqui aplica os descontos Cielo Premia dos cartões anteriores se houver)
          • Efetua forma(s) de pagamento
          • Fecha o cupom fiscal
          • Imprime comprovante(s) TEF dos cartões anteriores
• Sem TEF
  • Subtotaliza cupom
  • Efetua forma(s) de pagamento
  • Fecha o cupom fiscal
  •  

[bergson]

Então ok!

  Eu não estou subtotalizando,  mas não estou entendo o porque que ele está dando este erro...

[Juliomar Marchetti]

Cara por você trabalhar com bufferização, tem que lembrar que mandar pegar o ACBrECF.TotalPago não vai adiantar, nada está sendo registrado na ECF

Então você tem que tratar isso concorda

[bergson]

è ai que está não estou sabendo tratar, vou tentar novamente....