Não limpar as respostas pendentes - TEF PayGoWeb

[udenilson]

Como faço para que após a confirmação da transação o AcbrTef não limpe as respostas pendentes?

[Daniel Simoes]

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 ?

[udenilson]

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.

[Daniel Simoes]

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;     

 

[udenilson]

Para isso funcionar eu preciso estar com o AutoFinalizarCupom = False 

[Juliomar Marchetti]

Exato. esse método não é recomendado estar true.

[udenilson]

2 minutos atrás, Juliomar Marchetti disse:

Exato. esse método não é recomendado estar true.

Eu vou precisar controlar a finalização da transação manualmente?

[Juliomar Marchetti]

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.

[Daniel Simoes]

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"