Clisitef - Nova Property (Tipocampo=132) Para A Tacbrtefdrespclisitef

[Giquieu]

Olá, pessoal,

Estou usando o TACBrTEFD e CliSiTef.

E preciso pegar o tipo campo 132, segue a descrição conforme a interface de comunicação:

"132 - Contém um índice que indica qual o tipo do cartão quando esse tipo for identificável, segundo uma tabela a ser fornecida (5 posições);"

A "tabela a ser fornecida", é uma tabela que contém o código e descrição da bandeira utilizada na transação, que o pessoal da SE me enviou.

 

Então é preciso alterar na classe TACBrTEFDRespCliSiTef o método ConteudoToProperty adicionando no case o valor para o campo 132, porém gostaria de ter a opinião de vocês em qual classe colocar esta nova property, na TACBrTEFDRespCliSiTef ou na classe base TACBrTEFDResp?

 

O que vocês acham?

 

[]'s

 

 

 

[Daniel Simoes]

O problema é que essa tabela é específica do SiTef... e nos outros GPs essa propriedade não seria preenchida corretamente...

 

Veja o exemplo em TEFDDemo, usando o método "LeInformacao"

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 ) );

        memo1.Lines.Add('Desconto: '+ FormatFloat('###,###,##0.00',Desconto));
        memo1.Lines.Add('Saque: '+ FormatFloat('###,###,##0.00',Saque));

        Memo1.Lines.Add( 'Rede: '  + Rede +
                         ' NSU: '  + NSU  +
                         ' Valor: '+ FormatFloat('###,###,##0.00',ValorTotal)) ;
        Memo1.Lines.Add('Campo 11: ' + LeInformacao(11,0).AsString );
     end;
  end;
end;

 

[Giquieu]

Bom dia Daniel, 

Funcionou exatamente como o desejado, muito obrigado pela resposta.

 

[]'s