Ir para conteúdo
  • Cadastre-se

dev botao

Não limpar as respostas pendentes - TEF PayGoWeb


udenilson
Ver Solução Respondido por Daniel Simoes,
  • Este tópico foi criado há 1260 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 ?

  • Curtir 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • Moderadores

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.

  • Obrigado 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros 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"

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

Link para o comentário
Compartilhar em outros sites

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