Capturar bandeira do cartão no ACBrTEFAPI

[netsoftclaudio]

Bom dia a todos,

Como capturar a bandeira do cartão em uma transação TEF, exemplo: VISA, MASTERCAD, AMERICAN EXPRESS, SOROCRED, DINERSCLUB, ELO, HIPERCAD, etc...

Estou utilizando o componente ACBrTEFAPI

obrigado

[antonio.carlos]

@netsoftclaudio bom dia !! 
Chegou a ver este vídeo em nosso canal ?

 

[netsoftclaudio]

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;
 

 

[antonio.carlos]

como foi falado no vídeo este retorno não vem do TEF e sim dos fontes ACBr, o mesmo foi implementado no POSTEF e demonstrado no vídeo, você pode implementar na sua aplicação estudando e consultando o exemplo.

[netsoftclaudio]

Não consigo receber o retorno do ACBrTEFAPI fiz alteracoes mas não deu certo, se alguém souber como fazer eu agradeço .

 

[Daniel Simoes]

o Retorno está no Objeto TACBrTEFResp

[netsoftclaudio]

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. 

 

[Juliomar Marchetti]

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?

[Daniel Simoes]

7 horas atrás, netsoftclaudio disse:

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

o ACBrTEFAPI devolve exatamente a classe TACBrTEFResp

[netsoftclaudio]

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;
 

 

[Juliomar Marchetti]

Mas não é igual ao código do outro exemplo?

[hintz]

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

[Daniel Simoes]

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