Ir para conteúdo
  • Cadastre-se

dev botao

Dúvida pegar corretamente bandeira cartão


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

Recommended Posts

Bom dia senhores,

Utilizo o ACBrTEF para TEF Auttar e SiTEF.

No Auttar, a propriedade  "ACBRTEFD1.Resp.Rede" retorna GETNET, CIELO, etc.

No SiTEF, a mesma propriedade retorna ELO DEBIT, VISA DEBITO, etc. Já no Auttar, essa informação de bandeira é retornada pela propriedade ACBRTEFD1.Resp.NomeAdministradora.

Ou seja, a propriedade "ACBRTEFD1.Resp.Rede" na Auttar parece retornar a autorizadora, e no SiTEF a mesma propriedade retorna a bandeira. Já na Auttar a bandeira é retornada pela propriedade 

"ACBRTEFD1.Resp.NomeAdministradora", que no SiTEF retorna sempre em branco.

Em resumo, gostaria de saber como vocês fazem para pegar a bandeira corretamente dentre os vários TEF's suportados pelo ACBrTEF.

Desde já agradeço,

Leandro

 

 

 

 

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
Em 01/02/2019 at 07:26, leomcl disse:

Bom dia senhores,

Utilizo o ACBrTEF para TEF Auttar e SiTEF.

No Auttar, a propriedade  "ACBRTEFD1.Resp.Rede" retorna GETNET, CIELO, etc.

No SiTEF, a mesma propriedade retorna ELO DEBIT, VISA DEBITO, etc. Já no Auttar, essa informação de bandeira é retornada pela propriedade ACBRTEFD1.Resp.NomeAdministradora.

Ou seja, a propriedade "ACBRTEFD1.Resp.Rede" na Auttar parece retornar a autorizadora, e no SiTEF a mesma propriedade retorna a bandeira. Já na Auttar a bandeira é retornada pela propriedade 

"ACBRTEFD1.Resp.NomeAdministradora", que no SiTEF retorna sempre em branco.

Em resumo, gostaria de saber como vocês fazem para pegar a bandeira corretamente dentre os vários TEF's suportados pelo ACBrTEF.

Desde já agradeço,

Leandro

 

 

 

 

aqui alem da propriedade ModeloTEF eu guardo o nome do gp (PAYGO,SITEF,CAPPTA etc) dai pra frente varios if's assim eu consegui resolver:

 vBandeira: String;

 If PAYGO Then
  vBandeira := ACBrTEFD1.RespostasPendentes[ACBrTEFD1.RespostasPendentes.Count - 1].LeInformacao(748).AsString
 Else
  If CAPPTA Then
  vBandeira := ACBrTEFD1.RespostasPendentes[ACBrTEFD1.RespostasPendentes.Count - 1].LeInformacao(040).AsString;

e depois quando vai gerar a nota

 If Pos('VISA', AnsiUpperCase(vBandeira)) > 0 Then
  Result := bcVisa
 Else
  If (Pos('MASTER', AnsiUpperCase(vBandeira)) > 0) Or Pos('MAESTRO', AnsiUpperCase(vBandeira)) > 0 Then
  Result := bcMasterCard

 

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

  • Este tópico foi criado há 1862 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.