Código da Bandeira do cartão de crédito

[edsonsimoespereira]

Bom dia Senhores(as)

Preciso retornar o Código da Bandeira (Cartão de crédito), na minha aplicação TEF.

No manual informa que posso obter através da rotina ContinuaFuncaoSiTefInterativo, tipo de campo 32, mas, 

não estou conseguindo criar uma função para isso.

Alguém pode me prestar um auxilio de como realizar este procedimento.

Obrigado.

 

[Waldir Paim]

Se for SITef precisa instalar o modulo SAT/NFC-e.

[Daniel Simoes]

Veja no Demo, como retornar, qualquer um dos Códigos...

procedure TForm1.ACBrTEFD1DepoisConfirmarTransacoes(
   RespostasPendentes: TACBrTEFDRespostasPendentes);
var
  I : Integer;
begin
  for I := 0 to RespostasPendentes.Count-1  do
  begin
     with RespostasPendentes[I] do
     begin
        Memo1.Lines.Add('Confirmado: '+Header+' ID: '+IntToStr( ID ) );

        // Lendo os campos mapeados //
        Memo1.Lines.Add( 'Rede: '  + Rede +
                         ' NSU: '  + NSU  +
                         ' Parcelas: '+ IntToStr(QtdParcelas) +
                         ' Parcelado por: '+ GetEnumName(TypeInfo(TACBrTEFDRespParceladoPor), integer(ParceladoPor) )  +
                         ' É Débito: '+BoolToStr(Debito)+
                         ' É Crédito: '+BoolToStr(Credito)+
                         ' Valor: '+ FormatFloat('###,###,##0.00',ValorTotal)) ;

        // Lendo um Campo Específico //
        Memo1.Lines.Add('Campo 32: ' + LeInformacao(32,0).AsString );  // <---- AQUI
     end;
  end;
end; 

 

[edsonsimoespereira]

Bom dia! Daniel.

Eu estava usando o exemplo de retorno existente no demo;

        MemoCupomTEF.Lines.Add('Pagamento [Cartao:' + edValorVenda.Text + '][NSU:'+ACBrTEFD1.RespostasPendentes[IndiceTransacaoTef].NSU + '][Rede:'+ACBrTEFD1.RespostasPendentes[IndiceTransacaoTef].Rede+ ']');,

mas, eu preciso da informação de retorno do campo: ACBrTEFD1.RespostasPendentes[IndiceTransacaoTef].codigoBandeiraPadrao;

que estava vindo sempre "00000".

O pessoal da SkyTEF me informou que eu deveria incluir a linha;

[Geral]

BandeiraPadraoHabilitada=1

no arquivo "sitefcfg.ini"

 

De qualquer forma, obrigado. Você e sua equipe desenvolvem um trabalho muito importante 

para a comunidade delphi.