Jump to content

dev botao

Não limpar as respostas pendentes - TEF PayGoWeb


udenilson
Go to solution Solved by Daniel Simoes,
  • Este tópico foi criado há 1453 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 comment
Share on other sites

  • Membros Pro

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 comment
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 comment
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 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.

The popup will be closed in 10 seconds...