Ir para conteúdo
  • Cadastre-se

dev botao

Capturar bandeira do cartão no ACBrTEFAPI


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

Recommended Posts

Vi sim mas o vídeo está se referindo ao POSTEFServer e estou utilizando a versão ACBrTEFAPI, estou com dificuldade para receber essa informação da Bandeira.

No Demo do TEFAPIDemo o Daniel utiliza a procedure abaixo, mas ela não contém a Bandeira, será que é possível receber a Bandeira nessa procedure ?

procedure TF_LancarVendas.AtualizarPagamentosVendaNaInterface;
var
  i, ARow: Integer;
  AResp: TACBrTEFResp;
begin
  sgPagamentos.RowCount := 1;
  ARow := sgPagamentos.RowCount;

  for i := 0 to Venda.Pagamentos.Count-1 do
  begin
    sgPagamentos.RowCount := sgPagamentos.RowCount + 1;

    with Venda.Pagamentos[i] do
    begin
      if not Cancelada then
      begin
        AResp := AcharTransacaoTEF(i);
        if Assigned(AResp) then
          Confirmada := AResp.CNFEnviado;
      end;
      sgPagamentos.Cells[0, ARow] := FormatFloat('000', ARow);
      sgPagamentos.Cells[1, ARow] := TipoPagamento + ' - ' + DescricaoTipoPagamento(TipoPagamento);
      sgPagamentos.Cells[2, ARow] := FormatFloatBr(ValorPago);
      sgPagamentos.Cells[3, ARow] := NSU;
      sgPagamentos.Cells[4, ARow] := Rede;
      sgPagamentos.Cells[5, ARow] := ifthen(Cancelada, 'Cancelada', ifthen(Confirmada, 'Confirmada', 'Pendente'));
      sgPagamentos.Cells[6, ARow] := RedeCNPJ;
    end;

    Inc(ARow);
  end;

  AtualizarTotaisVendaNaInterface;
end;
 

 

Link para o comentário
Compartilhar em outros sites

Bom dia Daniel,

Por gentileza, você teria como implementar no TEFAPIDemo por favor ?

Eu assisti o vídeo mas estou com dificuldade para implementar essas 2 procedures para obter o retorno da bandeira.

    procedure DeduzirCredenciadoraNFCe(APag: TpagCollectionItem; ATEFResp: TACBrTEFResp);
    procedure DeduzirBandeiraNFCe(APag: TpagCollectionItem; ATEFResp: TACBrTEFResp);

Desde jà, muito obrigado. 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
2 horas atrás, netsoftclaudio disse:

Bom dia Daniel,

Por gentileza, você teria como implementar no TEFAPIDemo por favor ?

Eu assisti o vídeo mas estou com dificuldade para implementar essas 2 procedures para obter o retorno da bandeira.

    procedure DeduzirCredenciadoraNFCe(APag: TpagCollectionItem; ATEFResp: TACBrTEFResp);
    procedure DeduzirBandeiraNFCe(APag: TpagCollectionItem; ATEFResp: TACBrTEFResp);

Desde jà, muito obrigado. 

 

Mas qual foi a dificuldade em entender os dois métodos e usar ele no outro exemplo?

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
7 horas atrás, netsoftclaudio disse:

Por gentileza, você teria como implementar no TEFAPIDemo por favor ?

o ACBrTEFAPI devolve exatamente a classe TACBrTEFResp

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

Boa tarde a todos,

Consegui implemetar, segue abaixo para quem quiser utilizar;

function TF_LancarVendas.DeduzirBandeiraTEF(ATEFResp: TACBrTEFResp) : string;
var
  p: Integer;
  Bandeira: String;
  RetNomeBandeira : string;
begin
  Bandeira := LowerCase(Trim(ATEFResp.NFCeSAT.Bandeira));
  RetNomeBandeira := '';
  // Pega apenas a Perimeira Palavra
  p := pos(' ',Bandeira);
  if (p > 0) then
     Bandeira := copy(Bandeira,1, p-1);
  if (pos('visa',Bandeira) = 1) then
     RetNomeBandeira := 'VISA'
  else if (pos('mastercard',Bandeira) = 1) then
     RetNomeBandeira := 'MASTERCARD'
  else if (pos('american',Bandeira) = 1) or (pos('amex',Bandeira) = 1) then
     RetNomeBandeira := 'AMERICAN EXPRESS'
  else if (pos('sorocred',Bandeira) = 1) then
     RetNomeBandeira := 'SOROCRED'
  else if (pos('diners',Bandeira) = 1) then
     RetNomeBandeira := 'DINERSCLUB'
  else if (pos('elo',Bandeira) = 1) then
     RetNomeBandeira := 'ELO'
  else if (pos('hipercard',Bandeira) = 1) then
     RetNomeBandeira := 'HIPERCARD'
  else if (pos('aura',Bandeira) = 1) then
     RetNomeBandeira := 'AURA'
  else if (pos('cabal',Bandeira) = 1) then
     RetNomeBandeira := 'CABAL'
  else
     RetNomeBandeira := 'OUTROS';
  Result := RetNomeBandeira;
end;
 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...

Eu também não estou conseguindo.

DeduzirCredenciadoraNFCe(APag, ACBrPOS1.TEFResp[TerminalId]);
DeduzirBandeiraNFCe(APag, ACBrPOS1.TEFResp[TerminalId]);

Não estou sabendo da onde capturar "ACBrPOS1.TEFResp[TerminalId]" pois não uso o pos e sim ACBrTEFAPI1

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Observe que no evento de finalização da Transação você já recebe a resposta do TEF em forma de Objeto...

Basta ler os fontes do Projeto exemplo do ACBr com atenção

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

  • Este tópico foi criado há 341 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

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