Ir para conteúdo
  • Cadastre-se

dev botao

Não limpar as respostas pendentes - TEF PayGoWeb


Ver Solução Respondido por Daniel Simoes,
  • Este tópico foi criado há 1521 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

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.

  • Fundadores
Postado

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.

  • Membros Pro
Postado
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?

  • Fundadores
  • Solution
Postado
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"

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

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...