Dúvida pegar corretamente bandeira cartão

[leomcl]

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

 

 

 

 

[HELIO DA SILVA RODRIGUES]

Tambem tenho essa duvida, conseguiu resolver ?

[leomcl]

Não consegui não, Hélio.

 

att,

 

Leandro

 

[datilas]

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

 

[leomcl]

Obrigado, Datilas.

Vou tentar fazer o tratamento como você sugeriu.

att,

Leandro