Problema No Retorno Tipotransacao

[tchuck]

Estou com o seguinte problema os retorno do TipoTransacao e Finalizacao estão retornando em branco ou seja uma string vazia a forma que estou usando esta abaixo.

StatusTransacao := ACBrTEFD.CRT(ValorInformado, TipoPagamento.Codigo, FDataModule.ACBrECF.NumCOO);
if StatusTransacao then
begin
  Inc(IndiceTransacaoTef);
  TotalTipoPagamento.NSU  := ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].NSU;
  TotalTipoPagamento.Rede := ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].Rede;
  TotalTipoPagamento.DataHoraTransacao:= DateTimeToStr(ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].DataHoraTransacaoHost);
  TotalTipoPagamento.Finalizacao      := ACBrTEFD.RespostasPendentes[IndiceTransacaoTef].Finalizacao;

  // Verifica o tipo do cartao
  if ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].TipoTransacao in [10..13] then
  TipoTransacao := 'C' // credito
  else
  if ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].TipoTransacao in [20..25] then
  TipoTransacao := 'D' // debito
  else
  if ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].TipoTransacao in [70,71] then
  TipoTransacao := 'Q'; // cheque

  Inc(QuantidadeCartao);
end;

[Juliomar Marchetti]

Mais informações sobre o ambiente seria bom pra ajudar!

qual o tef que está utilizando?

[tchuck]

Usando o sitef e o payGo estao retornando strings vazias esses foram os q eu teste,

 

tentei da seguinte forma tambem ACBrTEFD.RespostasPendentes[indiceTransacaoTef].Finalizacao e o retorno é mesmo e o TipoTransacao  retorna zero

Editado 4 Julho, 2014 por tchuck

[tchuck]

na classe  ACBrTEFDClass tem a procedure  ConteudoToProperty que conte a informação  na

 

Case 11  : fpTipoTransacao   := Linha.Informacao.AsInteger;

 

já na classe ACBrTEFDCliSiTef tem essa mesma procedure ConteudoToProperty porem não tem nada referente ao TipoTransacao e Finalizacao

Editado 7 Julho, 2014 por tchuck

[tchuck]

Alguem tem alguma ideia de como posso pegar essas informações acima informado

[Daniel Simoes]

Cada TEF tem um retorno diferente... o ACBrTEFD tenta abstrair algumas coisas, mas o numero de retorno como vc está usando (10..13), é muito específico para um tipo de TEF...

 

Definitivamente você não precisa disso... existem propriedades específicas para informar se o Cartão foi Débito/Credito,

[tchuck]

Boa Tarde Daniel,

 

seria possível descrever qual a propriedade que retorna essas informações pois ja procurei em todo lugar do componente.

[Daniel Simoes]

procedure TForm1.ACBrTEFD1DepoisConfirmarTransacoes(
   RespostasPendentes: TACBrTEFDRespostasPendentes);
var
  I : Integer;
  B: Boolean;
begin
  for I := 0 to RespostasPendentes.Count-1  do
  begin
     with RespostasPendentes[i] do
     begin
        B := Credito;
        B := Debito;
        B := Digitado;
        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;