Ajuda com Cielo Premia Direção

[freitagnx]

Olá pessoal!

Preciso de uma ajuda com Cielo Premia no TEF Direção.

Alguém pode me ajudar?

Att.

Leonardo Freitag

[Juliomar Marchetti]

Amigo use o botão pesquisar.. tem vários tópicos explicando minuciosamente como proceder

[freitagnx]

Obrigado pela ajuda companheiro.

[freitagnx]

Bom, o melhor que encontrei até agora foi o tópico onde a discussão é sobre o SiTef.

Segui as recomendações do Daniel, porém não obtive sucesso na subtotalização com o desconto referente ao cielo premia.

Se alguém puder me ajudar agradeço.

Att.

Leonardo Freitag

[Juliomar Marchetti]

Primeiro você não vai poder usar o autofinalizarcupom

tem que fechar ele sozinho, não pode subtotalizar a ecf até o momento que receber todo o cupom

então vai bufferizar o fechamento do cupom

ao efetuar as transações tef observe que tem o retorno um campo chamado desconto

com ele você vai ter que lançar a subtotalização de seu cupom

e só então registrar as formas de pagamento com os valores já com os descontos

espero ter explicado de forma sucinta o modo de como deve trabalhar

[freitagnx]

Justamente este campo de desconto é que não estou conseguindo localizar.

No mais, estou seguindo essas orientações que vc postou.

Att.

Leonardo Freitag

[Daniel Simoes]

O Desconto será enviado como parâmetro no evento: OnComandaECFSubtotaliza

Procure por: ACBrTEFD1ComandaECFSubtotaliza nos fontes do TEFDDemo, Unit1.pas

[freitagnx]

Trata-se desse código?

procedure TForm1.ACBrTEFD1ComandaECFSubtotaliza(DescAcre: Double;

   var RetornoECF: Integer);

Var

   Est : TACBrECFEstado ;

   MeuAcresDesc : Double ;

begin

  Memo1.Lines.Add('ComandaECFSubtotaliza: DescAcre: ' + FormatFloat('0.00',DescAcre) );


  MeuAcresDesc := StringToFloatDef( edValorDescAcre.Text, 0 );

  try

    Est := ACBrECF1.Estado;


    if Est = estNaoFiscal then

       ACBrECF1.SubtotalizaNaoFiscal( DescAcre + MeuAcresDesc, 'Projeto ACBr|http://acbr.sf.net' )

    else

       ACBrECF1.SubtotalizaCupom( DescAcre + MeuAcresDesc, 'Projeto ACBr|http://acbr.sf.net' );


    { Remove o Desconto pois já foi aplicado, caso contrário iria influenciar o

      retorno de ineSubTotal }

    edValorDescAcre.Text := '0,00';

    RetornoECF := 1 ;

  except

    RetornoECF := 0 ;

  end;

end;

E para ele funcionar eu precisaria usar como 'true' a opção de autofinalizarcupom?

Att.

Leonardo Freitag

[Juliomar Marchetti]

False

senão me engano ela está ali ainda por compatibilização com o que já existe mas com o tempo será removido

[Daniel Simoes]

Quando você chamar ACBrTEFD1.FinalizarCupom; este e vários outros eventos serão chamados...

Isso fará com que o ACBrTEFD cuide do Fechamento do Cupom respeitando o fluxo necessário para o TEF (com suporte a nova tentativa e cancelamento de transação)

[freitagnx]

Então depois que realizei o tratamento dos pagamentos com cartão, eu envio a sequencia:

1 - subtotaliz o cupom

2 - efetuo os pagamentos

3 - termino o cupom

Depois mando imprimir transações pendentes.

Att.

Leonardo Freitag

[freitagnx]

Desculpa a ignorância gente, mas minha dúvida continua sendo, como subtotalizar considerando o desconto advindo do cielo premia.

Quando mando subtotalizar, o valor do desconto está zerado.

Att.

Leonardo Freitag.

[Juliomar Marchetti]

No caso do tef direção senão me engano estive usando o simulador semana passada

ele mostra na tela deles o valor que era o desconto e quanto ficou

então se ele mostrar isso quer dizer que teve desconto

somente na venda a credito tem isso senão me engano

confere a imagem abaixo

[freitagnx]

Realmente é isso mesmo, mas minha dúvida é como transportar esse desconto para a subtotalização.

Att.

Leonardo Freitag

[Daniel Simoes]

Então depois que realizei o tratamento dos pagamentos com cartão, eu envio a sequencia:

1 - subtotaliz o cupom

2 - efetuo os pagamentos

3 - termino o cupom

Depois mando imprimir transações pendentes.

Att.

Leonardo Freitag

Você não pode fazer isso... pois vários dos testes levam em consideração essa fase do cupom...

Como eu já disse antes... Use ACBrTEFD.FinalizarCupom...

Use o Demo antes de implementar pra valer... experimente todos os botões... leia o código