Jump to content

dev botao

Cielo Premias Subtotal X Total


Hetosoft Sistemas
Go to solution Solved by Daniel Simoes,
  • Este tópico foi criado há 4107 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Uma duvida

 

uma venda de 40,00 coloque 10,00 acrescimo

ficou um total de 50,00

 

entao acionei um CRT de 50,00  que min retornou

5,00 real de desconto,

 

entao ficou assim

 

subtotal 40,00

acrecimo de 5,00  ( 10,00 acrecimo -  5,00 desconto cielo premier)

----------------

45,00

45,00 cartao

0,00   troco

 

NO ECF ta assim,

 

vou ter que passar esses valores para o soft, e mostra para o cliente na tela do soft,

porque na tela do meu soft ta assim

total

50,00   (40 + 10 acrecimo)

50,00   RECEBIDO CRT

0,00    TROCO

 

 

É OBRIGATORIO ?

Link to comment
Share on other sites

  • Fundadores

Pode ser que o homologador perceba que a informação da Tela está diferente da do Cupom e solicite a correção...

 

Você poderia exibir o Desconto retornado pelo TEF (é como eu faço)... ou redesenhar na tela todos recebimentos de acordo com o que o ECF imprimiu

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link to comment
Share on other sites

  • Membros Pro

Blz

Usei

ShowMessage( FloatToStr( RespostasPendentes.ValorTotal ) );

 

 

 

 

procedure TForm1TEFD.ACBrTEFD1DepoisConfirmarTransacoes(
   RespostasPendentes: TACBrTEFDRespostasPendentes);
var
  I : Integer;
begin
  for I := 0 to RespostasPendentes.Count-1  do
  begin
     with RespostasPendentes do
     begin
        Memo1.Lines.Add('Confirmado: '+Header+' ID: '+IntToStr( ID ) );

        Memo1.Lines.Add( 'Rede: '  + Rede +
                         ' NSU: '  + NSU  +
                         ' Valor: '+ FormatFloat('###,###,##0.00',ValorTotal)) ;
        Memo1.Lines.Add('Campo 11: ' + LeInformacao(11,0).AsString );

        ShowMessage( FloatToStr( RespostasPendentes.ValorTotal ) ); ///------------------EU
     end;
  end;
 

 

 

para ver o total, mais so min mostra quando termina de imprimir tudo,

tem algum evento que eu possa pega o toal para modifica a tela do soft,

depois que confirma o cartao?

Link to comment
Share on other sites

  • Fundadores
  • Solution

Você pode ler o RespostaPendente[N].ValorTotal da última RespostaPendente logo após a resposta do método CRT...

 

Algo como:

if ACBrTEFD1.CRT(....) then
begin
  ACBrTEFD1.RespostasPendentes[ACBrTEFD1.RespostasPendentes.Count-1].ValorTotal;
end ; 

 

O próprio evento OnComandaECFPagamento recebe o ValorTotal que deve ser impresso...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link to comment
Share on other sites

×
×
  • 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.