Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Não limpar as respostas pendentes - TEF PayGoWeb


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

Recommended Posts

  • Fundadores

Não sei se compreendi... poderia dar um exemplo de chamadas por codigo?

Reparou que existe um evento, que é chamado após as transações serem confirmadas ?

  • Like 1
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 post
Share on other sites
  • Usuários SAC

Quero pegar a última resposta após o seguinte comando  Result := ACBrTEFD.CRT...

Após eu receber o valor True quero checar se existe o número de autorização.  

Tivemos uma situação em que estamos achando que o valor foi retornado True, mas o cartão não foi aprovado.

Link to post
Share on other sites
  • Fundadores

mas você pode fazer isso... Veja nos fontes do TEFDemoNF, que é exatamente isso que ele faz...

    if (Indice = '03') then     // 03-CREDITO
    begin
      InformarParametrosCartaoCredito;
      Ok := ACBrTEFD1.CRT(AValor, '01');
      TemTEF := True;
    end                
 
  if Ok then
  begin
    with Venda.Pagamentos.New do
    begin
      TipoPagamento := Indice;
      ValorPago := AValor;

      if TemTEF then
      begin
        UltResp := ACBrTEFD1.RespostasPendentes[ACBrTEFD1.RespostasPendentes.Count-1];    // <---- AQUI ----

        NSU := UltResp.NSU;
        Rede := UltResp.Rede;
        RedeCNPJ := UltResp.NFCeSAT.CNPJCredenciadora;     

 

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 post
Share on other sites

Isso é ótimo. tu tem total controle do que está fazendo e dai também pode pegar os retornos certinho.

Confirmar as transações, mandar imprimir elas.

  • Thanks 1
Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites
  • Fundadores
  • Solution
32 minutos atrás, udenilson disse:

Para isso funcionar eu preciso estar com o AutoFinalizarCupom = False 

Creio que SIM... essa propriedade por padrão Fica desabilitada... ela era usada apenas na época do ECF...

Veja no TEFDemoNF... no final de TFormPrincipal.AdicionarPagamento, existe a seguinte verificação:

    if (Venda.TotalPago >= Venda.TotalVenda) then
      FinalizarVenda;   

e no final de TFormPrincipal.FinalizarVenda, temos:

    ACBrTEFD1.ImprimirTransacoesPendentes();    

esse método já confirma as transações pendentes, chamando internamente "ConfirmarTransacoesPendentes"

  • Thanks 1
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 post
Share on other sites
×
×
  • Create New...